by Peter Elisa Souhoka (21 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 15th April 2008
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Check Stock
VBcoders
'Date March 2005
'http:\\programmervb.blog.com
'http:\\programmervb.wordpress.com
'email:[email protected]
' [email protected]
Private Sub cmdbarang_Click()
Dim kode$, nama$, harga%, stok$
kode = txtkode.Text
If kode = "BRG01" Then nama = "Buku": harga = 1000: stok = 100: sisa = 1
If kode = "BRG02" Then nama = "Pulpen": harga = 1500: stok = 100: sisa = 12
If kode = "BRG03" Then nama = "Pensil": harga = 750: stok = 100: sisa = 45
If kode = "BRG04" Then nama = "Tas Sekolah": harga = 15000: stok = 13: sisa = 10
txtnama.Text = nama
txtharga.Text = harga
txtstok.Text = stok
txtsisa.Text = sisa
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdreset_Click()
txtnama.Text = ""
txtharga.Text = ""
txtkode.Text = ""
txtstok.Text = ""
txtsisa.Text = ""
End Sub
Private Sub File1_Click()
End Sub
