Januari 26, 2012 pada 2:06 pm (Uncategorized)

Private Sub cmdHitung_Click()
Txttotalp.Text = Val(txtht.Text) * (Txtjt.Text)
End Sub

Private Sub Cmdlagi_Click()
txtkt.SetFocus
txtkt.Text = “”
txtht.Text = “”
txtjk.Text = “”
Txtjb.Text = “”
Txtjt.Text = “”
Txttotalp.Text = “”
End Sub

Private Sub txtht_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjk.SetFocus
End If
End Sub

Private Sub Txtjb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjt.SetFocus
End If
End Sub

Private Sub txtjk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjb.SetFocus
End If
End Sub

Private Sub Txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttotalp.Text = Val(txtht.Text) * (Txtjt.Text)
End If
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtht.SetFocus
End If
End Sub