Tugas 4

Tugas 4

MENGHITUNG TOTAL MENGGUNAKAN TOMBOL COMMAND HITUNG DAN KEYPRESS (TOMBOL ENTER)

 

source code:

Private Sub cmdhitung_Click()

txttotal = Val(txtn1) + Val(txtn2)

End Sub

Private Sub cmdlagi_Click()

txtn1 = ""

txtn2 = ""

txttotal = ""

txtn1.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

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

txttotal = Val(txtn1) + Val(txtn2)

End If

End Sub

 

Tugas 3

Tugas 3

MENGHITUNG TOTAL MENGGUNAKAN TOMBOL COMMAND HITUNG

source code:

Private Sub cmdhitung_Click()

txttotal = Val(txtn1) + Val(txtn2)

End Sub

Private Sub cmdlagi_Click()

txtn1 = ""

txtn2 = ""

txttotal = ""

txtn1.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

Tugas 2

Tugas 2

MENGAKTIFKAN TOMBOL COMMAND BATAL, LAGI, KELUAR DAN KEYPRESS (TOMBOL ENTER) 

 source code:

Private Sub cmdbatal_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnpm = ""

txtnama = ""

txtalamat = ""

txtnpm.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub