• Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha fazla bilgi edin.

Visual Basic Hesap Makinası Yapımı (Bouncer)

Konuyu Okuyan Kişiler (0)

Bouncer

webmaster.tc
Katılım
19 Kas 2012
Mesajlar
192
Beğeniler
0
#1
Arkadaşlar Şimdi Size Visual Basic İle Hesap Makinası Yapımını Göstereceğim

16 Adet commandbutton
1 adet'de textbox
İsimlerinide Şöyle Yapacaz

1 = b1
2 = b2
3 = b3
4 = b4
5 = b5
6 = b6
7 = b7
8 = b8
9 = b9
0 = b0
+ = topla
- = cikar
/ = bol
* = carp
= = esit
CE = clear
yazı kısmını da (textbox) = sayi


İşte Kodlar

Kod:
Dim giris, islem

Private Sub b0_Click()
sayi.Text = Val(sayi.Text) * 10 + 0
End Sub
Private Sub b1_Click()
sayi.Text = Val(sayi.Text) * 10 + 1
End Sub
Private Sub b2_Click()
sayi.Text = Val(sayi.Text) * 10 + 2
End Sub
Private Sub b3_Click()
sayi.Text = Val(sayi.Text) * 10 + 3
End Sub
Private Sub b4_Click()
sayi.Text = Val(sayi.Text) * 10 + 4
End Sub
Private Sub b5_Click()
sayi.Text = Val(sayi.Text) * 10 + 5
End Sub
Private Sub b6_Click()
sayi.Text = Val(sayi.Text) * 10 + 6
End Sub
Private Sub b7_Click()
sayi.Text = Val(sayi.Text) * 10 + 7
End Sub
Private Sub b8_Click()
sayi.Text = Val(sayi.Text) * 10 + 8
End Sub
Private Sub b9_Click()
sayi.Text = Val(sayi.Text) * 10 + 9
End Sub

Private Sub bol_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "/"
End Sub

Private Sub carp_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "*"
End Sub
Private Sub cikar_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "-"
End Sub


Private Sub topla_Click()
If giris > 0 Then
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End If
giris = sayi.Text
sayi.Text = ""
sayi.SetFocus
islem = "+"
End Sub
Private Sub esit_Click()
If islem = "+" Then sayi.Text = Val(giris) + Val(sayi.Text)
If islem = "-" Then sayi.Text = Val(giris) - Val(sayi.Text)
If islem = "*" Then sayi.Text = Val(giris) * Val(sayi.Text)
If islem = "/" Then sayi.Text = Val(giris) / Val(sayi.Text)
End Sub
Private Sub clear_Click()
sayi.Text = ""
islem = ""
giris = ""
End Sub