GUDANG MOTOR INDAH

TAMPILAN FORM

CODING PROGRAM

Tampilan Running Awal

Klik Tombol Hitung

Klik Tombol Keluar

 

Pemrograman Visual 1

 Ketentuan Soal

 Klik Hitung

 Input uang bayar, Enter ditekan muncul uang kembali

Klik Beli menginput data baru

CODING PROGRAM

Private Sub cmbkode_Click()
Select Case (cmbkode.Text)
Case "C01"
txtmerk.Text = "Pepsodent"
txtharga = "6000"
txtstok.Text = "100"
Case "C02"
txtmerk.Text = "Close Up"
txtharga.Text = "5000"
txtstok.Text = "200"
Case Else
txtmerk.Text = "Enzim"
txtharga.Text = "8000"
txtstok.Text = "400"
End Select
txtjubel.SetFocus
End Sub

Private Sub cmdbeli_Click()
cmbkode.Clear
txtmerk.Text = ""
txtharga.Text = ""
txtstok.Text = ""
txtjubel.Text = ""
txttot.Text = ""
txtubay.Text = ""
txtukem.Text = ""
cmbkode.Text = "Pilih"
cmbkode.AddItem ("C01")
cmbkode.AddItem ("C02")
cmbkode.AddItem ("C03")

End Sub

Private Sub cmdhitung_Click()
txttot = Val(txtharga) * Val(txtjubel)
txtubay.SetFocus
End Sub

Private Sub cmdkeluar_Click()
fandi = MsgBox("Apakah Anda Akan Keluar Dari Form Ini?", vbQuestion + vbYesNo, "Keluar")
If fandi = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Load()
cmbkode.AddItem ("C01")
cmbkode.AddItem ("C02")
cmbkode.AddItem ("C03")
End Sub

Private Sub Timer1_Timer()
text1.Text = Format(Date, "dd mmmm yyyy")
Text2.Text = Format(Time, "h:m:s")
End Sub

Private Sub txtubay_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtukem = txtubay - txttot
End If
End Sub