TUGAS 2.4 dan 2.5

MEMBUAT PROGRAM PENGHITUNGAN DISCOUNT

GAMBAR PROGRAM

Gambar Diatas Adalah Contoh Program Yang Di Buat Menggunakan Microsoft Visual Basic
Program diatas di buat untuk memudahkan menghitung discount Harga
dan program diatas bisa di buat dengan menggunakan rumus di bawah ini

Private Sub Command1_Click()
Text2 = Val(Text1) * 0.15
Text3 = Val(Text1) - Val(Text2)
End Sub
----------------------------------------------------------------------
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
----------------------------------------------------------------------
Private Sub Command3_Click()
    Unload Me
End Sub
-----------------------------------------------------------------------

dan jika ingin melihat hasil dengan hanya menekan tombol enter maka gunakanlah atau tambahkan rumus di bawah ini.


Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Text2 = Val(Text1) * 0.15
        Text3 = Val(Text1) - Val(Text2)
    End If
End Sub