Slide1

Private Sub cmdbagi_Click()
Txthsl.Text = Val(Txtnl.Text) / Val(Txtna.Text)
End Sub

Private Sub Cmdkali_Click()
Txthsl.Text = Val(Txtnl.Text) * Val(Txtna.Text)
End Sub

Private Sub Cmdkurang_Click()
Txthsl.Text = Val(Txtnl.Text) – Val(Txtna.Text)
End Sub

Private Sub Cmdtambah_Click()
Txthsl.Text = Val(Txtnl.Text) + Val(Txtna.Text)
End Sub

Private Sub Command5_Click()
Txtnl.Text = “”
Txtna.Text = “”
Txthsl.Text = “”
Txtnl.SetFocus
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Txtnl_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtna.SetFocus
End If
End Sub

Private Sub Txtna_Change()
If KeyAscii = 13 Then
Txthsl.SetFocus
End If
End Sub

Iklan