program 3
Private Sub cmdbatal_Click()
txtn1.SetFocus
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txthasil1 = ""
txthasil2 = ""
txthasil3 = ""
txthasil4 = ""
End Sub
Private Sub cmdhitung_Click()
txthasil1 = Val(txtn1) * Val(txtn2)
txthasil2 = Val(txtn3) + Val(txtn4)
txthasil3 = Val(txtn5) - Val(txtn6)
txthasil4 = Val(txtn7) / Val(txtn8)
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtn1.SetFocus
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txthasil1 = ""
txthasil2 = ""
txthasil3 = ""
txthasil4 = ""
End Sub
Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub
Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
txthasil1 = Val(txtn1) * Val(txtn2)
End If
End Sub
Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn4.SetFocus
End If
End Sub
Private Sub txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn5.SetFocus
txthasil2 = Val(txtn3) + Val(txtn4)
End If
End Sub
Private Sub txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn6.SetFocus
End If
End Sub
Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn7.SetFocus
txthasil3 = Val(txtn5) - Val(txtn6)
End If
End Sub
Private Sub txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus
End If
End Sub
Private Sub txtn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthasil4 = Val(txtn7) / Val(txtn8)
End If
End Sub
Komentar
Posting Komentar