Visual Basic Kod Bankası - Windows Hesap Makinesi

Windows Hesap Makinesi

Forma 23 tane buton ekleyin (Küçük olsun:D). 1'de textbox koyun.

Kodları forma yapıştırın.

-------------------------------------------------

Dim islem As String
Dim sonuc As Single 'KÜSÜRATLI SAYILAR İÇİN KULLANACAĞIMIZ DEĞER

Private Sub Command1_Click() ' RAKAM 1
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command10_Click() ' + BUTONU
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "+"
End Sub

Private Sub Command11_Click() ' - BUTONU
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "-"
End Sub

Private Sub Command12_Click() ' * BUTONU
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "*"
End Sub

Private Sub Command13_Click() 'CE TEXTBOXI BOŞALT
Text1 = ""
End Sub

Private Sub Command14_Click() ' RAKAM 0
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command15_Click() ' / BUTONU
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "/"
End Sub

Private Sub Command16_Click() ' = SONUÇ BUTONU
If Text1 = "" Then sonuc = MsgBox("Yapılacak Bir İşlem Bulunmamaktadır", 0 + 64, "İşlem Gerekiyor")
If islem = "+" Then Text1.Text = sonuc + Val(Text1.Text)
If islem = "-" Then Text1.Text = sonuc - Val(Text1.Text)
If islem = "*" Then Text1.Text = sonuc * Val(Text1.Text)
If islem = "/" Then Text1.Text = sonuc / Val(Text1.Text)
If islem = "%" Then Text1.Text = sonuc * Val(Text1.Text) / 100
End Sub

Private Sub Command17_Click() ' RAKAM 00
Text1.Text = Text1.Text + "00"
End Sub

Private Sub Command18_Click() ' SGRT
Text1.Text = Sqr(Val(Text1.Text))
End Sub

Private Sub Command19_Click() ' % BUTONU
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "%"
End Sub

Private Sub Command2_Click() 'RAKAM 2
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command20_Click() ' ÇIKIŞ BUTONU
mesaj = MsgBox("Hesap Makinesinden Çıkmak İstiyormusunuz?", vbYesNo + vbQuestion, "Hesap Makinesi")
If mesaj = vbNo Then
Form1.Show
Else
End
End If
End Sub

Private Sub Command21_Click() ' NOKTA
Text1.Text = Text1.Text + ","
End Sub

Private Sub Command22_Click()
If Text1 = "" Then sonuc = MsgBox("Değer Verilecek Sayı Bulunmuyor", 0 + 64, "Sayı Girişi Gerekiyor Gerekiyor")

End Sub

Private Sub Command23_Click() 'TEXTBOXI SAĞDAN SOLA TEMİZLE
If Text1 = "" Then
mesaj = MsgBox("Silinecek Bir Sayı Bulunmuyor", 0 + 64, "Sil")
Else
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
End If
End Sub

Private Sub Command3_Click() ' RAKAM 3
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Command4_Click() ' RAKAM 4
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command5_Click() ' RAKAM 5
Text1.Text = Text1.Text + "5"
End Sub

Private Sub Command6_Click() ' RAKAM 6
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command7_Click() ' RAKAM 7
Text1.Text = Text1.Text + "7"
End Sub

Private Sub Command8_Click() ' RAKAM 8
Text1.Text = Text1.Text + "8"
End Sub

Private Sub Command9_Click() 'RAKAM 9
Text1.Text = Text1.Text + "9"
End Sub

Private Sub Form_Load()

End Sub