TUGAS 1.3 (Perkalian Dua Bilangan, Dengan Enter Sebagai Penampil Hasil)
Private Sub Txtn1_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Txtn2.SetFocus
End If
End Sub
Private Sub Cmdhitung_Click()
Txthasil = Val(Txtn1) * Val(Txtn2)
End Sub
Private Sub Cmdbersih_Click()
Txtn1.SetFocus
Txtn1 = ""
Txtn2 = ""
Txtn3 = ""
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Txtn2_KeyPress(keyascii As Integer)
If keyascii = 13 Then
Txthasil = Val(Txtn1) * Val(Txtn2)
End If
End Sub
0 Response to "TUGAS 1.3 (Perkalian Dua Bilangan, Dengan Enter Sebagai Penampil Hasil)"
Post a Comment