tugas2 kalkulator

 

Private Sub cmd1_Click()
‘deklarasi variabel lokal
Dim a As Single
Dim b As Single
Dim result As Single

a = txtNilai1.Text
b = txtNilai2.Text
result = a + b
txtResult.Text = result
End Sub

Private Sub cmd2_Click()
Dim a As Single
Dim b As Single
Dim result As Single

a = txtNilai1.Text
b = txtNilai2.Text
result = a – b
txtResult.Text = result
End Sub

Private Sub cmd3_Click()
Dim a As Single
Dim b As Single
Dim result As Single

a = txtNilai1.Text
b = txtNilai2.Text
result = a * b
txtResult.Text = result
End Sub

Private Sub cmd4_Click()
Dim a As Single
Dim b As Single
Dim result As Single

a = txtNilai1.Text
b = txtNilai2.Text
result = a / b
txtResult.Text = result
End Sub

Private Sub cmdFinish_Click()
Unload Me
End Sub

Private Sub cmdReset_Click()
txtNilai1.SetFocus
txtNilai1.Text = “”
txtNilai2.Text = “”
txtResult.Text = “”
End Sub

Private Sub txtNilai1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtNilai2.SetFocus
End If
End Sub