tugas 2.2 bahasa pemrograman-1

Private Sub HargaAwal_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

HargaAwal.SetFocus

Diskon = Val(HargaAwal) * 0.1

HargaAkhir = Val(HargaAwal) - Val(Diskon)

End If

End Sub

Private Sub Hitung_Click()

Diskon = Val(HargaAwal) * 0.1

HargaAkhir = Val(HargaAwal) - Val(Diskon)

End Sub

Private Sub Ulangi_Click()

HargaAwal.SetFocus

HargaAwal = ""

Diskon = ""

HargaAkhir = ""

End Sub

Private Sub Keluar_Click()

End

End Sub