Hesap Makinası Yapımı

Dim syat As String
Private Sub cmdhakkında_Click()
MsgBox ("Bu Program Yusuf Kenan Tarafından Yazılmıştır")
MsgBox ("Çoğaltıp Kullana Bilirsiniz")

End Sub

Private Sub cmdtopla_Click()
txtsonuc.Text = Val(txtsayi1.Text) + Val(txtsayi2.Text)


End Sub


Private Sub cmdcikart_Click()
txtsonuc.Text = Val(txtsayi1.Text) - Val(txtsayi2.Text)

End Sub

Private Sub cmdcarp_Click()
txtsonuc.Text = Val(txtsayi1.Text) * Val(txtsayi2.Text)

End Sub

Private Sub cmdbol_Click()
On Error Resume Next
txtsonuc.Text = Val(txtsayi1.Text) / Val(txtsayi2.Text)

End Sub

Private Sub Command2_Click()
On Error Resume Next
txtsonuc.Text = Val(txtsayi1.Text) ^ Val(txtsayi2.Text)

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
On Error Resume Next
Form1.Caption = Time

End Sub

Private Sub txtsayi1_KeyDown(KeyCode As Integer, Shift As Integer)
syat = txtsayi1.Text
End Sub

Private Sub txtsayi1_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo err
Dim sya As Double
sya = txtsayi1.Text

Exit Sub
err:
txtsayi1.Text = syat
End Sub


Private Sub txtsayi2_KeyDown(KeyCode As Integer, Shift As Integer)
syat = txtsayi2.Text


End Sub


Private Sub txtsayi2_KeyUp(KeyCode As Integer, Shift As Integer)
On Error GoTo err
Dim sya As Double
sya = txtsayi2.Text

Exit Sub
err:
txtsayi2.Text = syat


End Sub