Visual basic'DE hesap makinası

Son güncelleme: 24.05.2010 08:39
  • İNDİRMEK İÇİN TIKLA




    noimage

    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
#01.02.2007 02:37 0 0 0
  • Teşekkürler Ellerine Sağlık
#02.02.2007 07:47 0 0 0
  • lınk calısmıyor
#24.09.2007 23:38 0 0 0
bll bll foto
  • tesekkurler
#20.11.2007 11:11 0 0 0
  • cok sagol
#23.11.2007 10:43 0 0 0
  • saoll
#10.05.2008 12:13 0 0 0
  • Saol Kardeş Bakalım

    nOT: Link Kırık Yenileme Şansın Varmı ?
#14.11.2008 20:50 0 0 0
#19.03.2009 21:50 0 0 0
  • olum bunda bısı olmuo sızede v.b cı dıenın ben
#09.04.2009 20:58 0 0 0
  • bunların hepsi kırık link ayıp yaa
#24.05.2010 08:39 0 0 0