[URL=http://rapidshare.com/files/5347178/vb._hesap_makinesii.zip.html]İNDİRMEK İÇİN TIKLA






KOD FRAGMANI

Dim num0, num1, num2, num3, num4, num5, num6, num7, num8, num9 As String
Dim uzunluk, back_num, num_bol, num_carp, num_topla, num_cıkar, num_us, sonuc_us As Double
Dim sonuc_topla, sonuc_cıkar, sonuc_bol, sonuc_carp, sonuc_n, sonuc_kare, sonuc_kup As Double
Dim num_f, sayac, us, msg1, msg2, msg3 As Integer
Dim flag As Boolean



Private Sub cmd_backspace_Click()

uzunluk = Len(CStr(txt_panel))

back_num = Left(txt_panel, uzunluk - 1)

txt_panel = CStr(back_num)

End Sub

Private Sub cmd_bol_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

num_bol = CDbl(txt_panel)

txt_panel = ""

End Sub

Private Sub cmd_c_Click()

txt_panel = ""

End Sub

Private Sub cmd_carp_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

num_carp = CDbl(txt_panel)

txt_panel = ""

End Sub

Private Sub cmd_cıkar_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

num_cıkar = CDbl(txt_panel)

txt_panel = ""

End Sub

Private Sub cmd_esittir_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

If num_topla <> num_cıkar And num_topla <> num_carp And num_topla <> num_bol Then

sonuc_topla = num_topla + CDbl(txt_panel)

txt_panel = CStr(sonuc_topla)

ElseIf num_cıkar <> num_topla And num_cıkar <> num_bol And num_cıkar <> num_carp Then

sonuc_cıkar = num_cıkar - CDbl(txt_panel)

txt_panel = CStr(sonuc_cıkar)

ElseIf num_carp <> num_topla And num_carp <> num_cıkar And num_carp <> num_topla Then

sonuc_carp = num_carp * CDbl(txt_panel)

txt_panel = CStr(sonuc_carp)

ElseIf num_bol <> num_carp And num_bol <> num_topla And num_bol <> num_cıkar Then

If CDbl(txt_panel) = 0 Then

msg1 = MsgBox("SAYI SIFIRA BÖLÜNEMEZ.", vbCritical, "HATA")

Exit Sub

End If

sonuc_bol = num_bol / CDbl(txt_panel)

txt_panel = CStr(sonuc_bol)


ElseIf flag = True Then

us = CInt(txt_panel)

sonuc_us = num_us

Do While 1 < us

us = us - 1

sonuc_us = sonuc_us * num_us

Loop

txt_panel = CStr(sonuc_us)

End If

'tekrar işlem yapmak için değişkenlerin sıfırlanmasını sağlayan kod fragmanı

num_topla = Empty
num_carp = Empty
num_cıkar = Empty
num_bol = Empty
num_us = Empty

End Sub

Private Sub cmd_fib_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

ElseIf CDbl(txt_panel) = 0 Then

msg3 = MsgBox("SIFIRINCI RAKAM YOKTUR.", vbCritical, "HATA")

Exit Sub

End If

Dim num_fib(0 To 1500000) As Double

Dim sayac1 As Double

num_fib(0) = 0
num_fib(1) = 1
num_fib(2) = 2

For sayac1 = 1 To CDbl(txt_panel) - 1

num_fib(sayac1 + 1) = num_fib(sayac1) + num_fib(sayac1 - 1)

Next

txt_panel = CStr(num_fib(sayac1))

End Sub

Private Sub cmd_n_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

'faktoriyel hesabı için kullanılan kod fragmanı

num_f = CDbl(txt_panel)

sayac = 2

sonuc_n = 1

For sayac = 2 To num_f + 1

sonuc_n = sonuc_n * (sayac - 1)

Next

txt_panel = CStr(sonuc_n)

End Sub

Private Sub cmd_num0_Click()

num0 = CStr(txt_panel) + "0"

txt_panel = CStr(num0)

End Sub

Private Sub cmd_num1_Click()

num1 = CStr(txt_panel) + "1"

txt_panel = CStr(num1)

End Sub

Private Sub cmd_num2_Click()

num2 = CStr(txt_panel) + "2"

txt_panel = CStr(num2)

End Sub

Private Sub cmd_num3_Click()

num3 = CStr(txt_panel) + "3"

txt_panel = CStr(num3)

End Sub

Private Sub cmd_num4_Click()

num4 = CStr(txt_panel) + "4"

txt_panel = CStr(num4)

End Sub

Private Sub cmd_num5_Click()

num5 = CStr(txt_panel) + "5"

txt_panel = CStr(num5)

End Sub

Private Sub cmd_num6_Click()

num6 = CStr(txt_panel) + "6"

txt_panel = CStr(num6)

End Sub

Private Sub cmd_num7_Click()

num7 = CStr(txt_panel) + "7"

txt_panel = CStr(num7)

End Sub

Private Sub cmd_num8_Click()

num8 = CStr(txt_panel) + "8"

txt_panel = CStr(num8)

End Sub

Private Sub cmd_num9_Click()

num9 = CStr(txt_panel) + "9"

txt_panel = CStr(num9)

End Sub

Private Sub cmd_topla_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

num_topla = CDbl(txt_panel)

txt_panel = ""

End Sub

Private Sub cmd_us_alma_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

num_us = CDbl(txt_panel)

txt_panel = ""

flag = True

End Sub

Private Sub cmd_x_kare_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

sonuc_kare = CDbl(txt_panel) ^ 2

txt_panel = CStr(sonuc_kare)

End Sub

Private Sub cmd_x_kup_Click()

If txt_panel = "" Then

msg2 = MsgBox("LÜTFEN SAYI GİRİNİZ.", vbCritical, "HATA")

Exit Sub

End If

sonuc_kup = CDbl(txt_panel) ^ 3

txt_panel = CStr(sonuc_kup)

End Sub

Beğeniler: 1
Favoriler: 0
İzlenmeler: 5249
favori
like
share
cigdemmsrl Tarih: 24.05.2010 09:39
bunların hepsi kırık link ayıp yaa
EmooTy Tarih: 19.03.2009 22:50
Buyrun Arkadaşlar windows calculate benzeri hesap makinem.
visual studio 2008 çalışmam.
[url]http://rapidshare.com/files/211194035/Hesap_Makinesi.rar[/url]

zahtiyan Tarih: 14.11.2008 21:50
Saol Kardeş Bakalım

nOT: Link Kırık Yenileme Şansın Varmı ?
brshcgl Tarih: 10.05.2008 13:13
saoll
bekirr Tarih: 23.11.2007 11:43
cok sagol
bll Tarih: 20.11.2007 12:11
tesekkurler
turkbey Tarih: 25.09.2007 00:38
lınk calısmıyor
fiber_optic Tarih: 02.02.2007 08:47
Teşekkürler Ellerine Sağlık