PEMPROGAMAN VISUAL BASIC 1

Soal 

1.Kode barang berisikan : CO1,CO2,C03

2.Jika kode CO1 maka merk Pepsodent, Harga 6000, dan Stok 100

3.Jika kode CO2 maka merk Close Up Harga 5000, dan Stok 200

4.Jika kode CO3 maka merk Enzim, Harga 8000, dan Stok 400

5.Klik Beli, maka dapat menginput data baru

6.Klik Hitung tampil total

7.Di enter tampil kembali

7.Coding Program 

Private Sub cmdbarang_Click()

Select Case (cmdbarang.Text)

Case "CO1"

    merk = "Pepsodent"

    harga = 6000

    stock = 100

    

Case "CO2"

    Me.merk = "close up"

    Me.harga = 5000

    Me.stock = 200

    

Case "CO3"

    Me.merk = "Enzim"

    Me.harga = 8000

    Me.stock = 400

End Select

End Sub

Private Sub cmdbeli_Click()

merk.Text = ""

harga.Text = ""

stock.Text = ""

jumbel.Text = ""

total.Text = ""

ubay.Text = ""

ukem.Text = ""

cmdbarang.SetFocus

End Sub

Private Sub cmdhitot_Click()

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

End Sub

Private Sub cmdkel_Click()

acs = MsgBox("Yakin Ingin Keluar", vbQuestion + vbYesNo, "Keluar")

If acs = vbYes Then

Unload Me

End If

End Sub

Private Sub Timer1_Timer()

tanggal = Date

jam = Time()

End Sub

Private Sub ubay_KeyPress(Keyascii As Integer)

If Keyascii = 13 Then

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

ubay.SetFocus

End If

End Sub

TUTORIAL PEMPROGAMAN VISUAL BASIC 1