TUGAS 2.2 (Perhitungan Harga Diskon 10%, dengan enter Menampilkan Hasil)
Private Sub ComHitung_Click()
diskon = Val(hargaawal) * 0.1
hargaakhir = Val(hargaawal) - Val(diskon)
End Sub
Private Sub ComUlangi_Click()
hargaawal.SetFocus
hargaawal = ""
diskon = ""
hargaakhir = ""
End Sub
Private Sub hargaawal_keypress(keyascii As Integer)
If keyascii = 13 Then
diskon = Val(hargaawal) * 0.1
hargaakhir = Val(hargaawal) - Val(diskon)
End If
End Sub
Private Sub ComQuit_Click()
End
End Sub
0 Response to "TUGAS 2.2 (Perhitungan Harga Diskon 10%, dengan enter Menampilkan Hasil)"
Post a Comment