Latihan Visual Basic Sederhana Toko

Buat Tampilan Input seperti dibawah ini :

 

Ketentuan Soal:

  

     1.  Buat sebuah prosedur Aktif , Nonaktif dan Bersih.

    

    2.  Pada saat form dijalankan semua objek dalam keadaan tidak aktif, kemudian jam

          dan tanggal muncul secara otomatis.

    3.  Klik button ADD maka semua objek aktif dan posisi kursor berada pada textbox Nofak

    4.  Input No Faktur secara manual. Input kode bunga ketika ENTER maka Nama

          Bunga dan harga muncul secara Otomatis.

       5.   Input jumlah beli ketika ENTER maka muncul Total Bayar yang didapat dari Total

          = harga * jumbel.

    6.  Input Uang Bayar OTOMATIS muncul Uang Kembali yang didapat dari Uang kembali

          = Uang Bayar -  Total Bayar

  

       7.   Klik button CLOSE maka muncul pesan seperti berikut 

.

 Tampilan Output dari program VB :

 

Listing Program :

Sub aktif()

nofak.Enabled = True

kode.Enabled = True

nama.Enabled = True

harga.Enabled = True

jumbel.Enabled = True

tobay.Enabled = True

ubay.Enabled = True

ukem.Enabled = True

End Sub

Sub nonaktif()

nofak.Enabled = False

kode.Enabled = False

nama.Enabled = False

harga.Enabled = False

jumbel.Enabled = False

tobay.Enabled = False

ubay.Enabled = False

ukem.Enabled = False

End Sub

Sub bersih()

nofak = ""

kode = ""

nama = ""

harga = 0

jumbel = 0

tobay = 0

ubay = 0

ukem = 0

End Sub

Private Sub Command1_Click()

aktif

bersih

nofak.SetFocus

End Sub

Private Sub Command2_Click()

x = MsgBox("Apa anda mau keluar??", vbQuestion + vbYesNo, "Konfirm")

If x = vbYes Then

Unload Me

End If

End Sub

Private Sub Form_Load()

nonaktif

bersih

End Sub

Private Sub jumbel_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

tobay.Text = Val(harga.Text) * Val(jumbel.Text)

End If

End Sub

Private Sub kode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If kode.Text = "BU001" Then

   nama.Text = "Mawar Putih"

   harga.Text = 25000

ElseIf kode.Text = "BU002" Then

   nama.Text = "Mawar Merah"

   harga.Text = 30000

ElseIf kode.Text = "BU003" Then

   nama.Text = "Anggrek"

   harga.Text = 20000

Else

   nama.Text = "Melati"

   harga.Text = 35000

End If

End If

End Sub

Private Sub Timer1_Timer()

jam.Caption = Time()

tgl.Caption = Date

End Sub

Private Sub ubay_Change()

ukem.Text = Val(ubay.Text) - tobay.Text

End Sub


Download Latihan Di Atas Di Sini