Rabu, 22 November 2017

Tugas 2 Program 2 Bp1



Private Sub txtharga_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthak.SetFocus
txtdiskon = Val(txtharga) * 0.15
Txthak = Val(txtharga) - Val(txtdiskon)
End If
End Sub

Private Sub cmdQuit_Click()
End
End Sub

Private Sub cmdUlangi_Click()
txtharga = ""
txtdiskon = ""
Txthak = ""
txtharga.SetFocus
End Sub

Tidak ada komentar:

Posting Komentar