Arkadaşlar ben kendime hesap makinesi yaptım kodlar aşağıdaki gibi. Sayılara tıklıyorum sayılar textbox ta yazıyor fakat + ya basıyorum Clear yapmısım gibi sayılar gidiyor ve eşittir yapıyorum yapmıyo biri hemen kodları deniyip hatamı söliyebilir mi ? 
Acil yardım Ltfen
Acil yardım Ltfen
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
adlarını kontrol et 
butonları ters yerleştirmişim 
