Membuat Sendiri Program Kasir Menggunakan Visual Basic-6

Assalammu'alaikum....

Apakabar Gan.....????
Pada postingan kali ini saya ingin berbagi tentang cara membuat sendiri program kasir dengan menggunakan Visual Basic-6.
Di bawah ini adalah aplikasi kasir sederhana sebuah rumah makan :

Step-1

Buatlah desainnya seperti gambar di bawah ini :

Step-2

Kita atur propertiesnya sebagai berikut :

1	Name : label tanggal	Caption : -
2	Name : label jam	Caption : -
3	Name : text Id Menu	Text : -
4	Name : text Menu	Text : -
5	Name : text satuan	Text : -
6	Name : text harga	Text : -
7	Name : text pesanan	Text : -
8	Name : text total	Text : -
9	Name : text dibayar	Text : -
10	Name : text kembalian	Text : -
11	Name : cmnd menu baru	Caption : menu baru
12	Name : cmnd tutup	Caption : tutup
13	Name : Timer1	Interval : 1

Step-3

ketik kode sesuai dengan fungsinya masing-masing.

Klik 2x pada cmnd menu baru, isi dengan (copy paste) kode berikut :

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""

Text1.SetFocus
End Sub


Klik 2x pada cmnd tutup, isi dengan (copas) kode berikut :
 
Private Sub Command2_Click()
End
End Sub


Klik 2x pada text1.text (text Id Menu) dan copas kode berikut :
 
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = 901 Then
Text2.Text = "Sate Kambing"
Text3.Text = "Porsi"
Text4.Text = 20000

ElseIf Text1.Text = 902 Then
Text2.Text = "Gulai Kambing"
Text3.Text = "Porsi"
Text4.Text = 15000

ElseIf Text1.Text = 903 Then
Text2.Text = "Soto Ayam Kampung"
Text3.Text = "Porsi"
Text4.Text = 22000

ElseIf Text1.Text = 904 Then
Text2.Text = "Soto Daging"
Text3.Text = "Porsi"
Text4.Text = 25000

Else
MsgBox ("Menu yang dipesan belum ada...!")
End If
Text5.SetFocus

End If
End Sub

Klik 2x pada text5.text (text pesanan) dan ketik kode di bawah ini :
 
Private Sub text5_Change()
Text6.Text = Val(Text4.Text) * Val(Text5.Text)
End Sub

Klik 2x pada text7.text (text dibayar) dan copas kode berikut :
 
Private Sub text7_Change()
Text8.Text = Val(Text7.Text) - Val(Text6.Text)
End Sub

Klik 2x pada Timer1, dan ketik (copas) kode di bawah ini :
 
Private Sub Timer1_Timer()
Label2.Caption = Format(Date, "dd mmmm yyyy")
Label4.Caption = Format(Time, "hh:mm:ss")
End Sub

Naah sekarang silahkan Running, maka hasilnya akan seperti di bawah ini :

Demikian yang bisa saya bagi, dan semoga bermanfaat ya gan.......