Cara membuat program kasir dengan visual basic 6.0

Assalamualaikum wr.wb

Kali ini saya akan membagikan sedikit ilmu tentang cara membuat aplikasi kasir dengan menggunakan aplikasi visual basic 6.0 oke langsung saja :

1.       Buka aplikasi visual basic 6.0

2.       Pilih file, new project kemudian pilih yang standard EXE.

3.       Buatlah 13 label, 8 textbox, 2 command button dan 1 timer.

4.       Lalu buatlah seperti gambar di bawah ini atau kreasikan sendiri.

5.       Kemudian tulislah script ini ya gan.

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

Private Sub Text5_Change()

Text6.Text = Val(Text4.Text) * Val(Text5.Text)

End Sub

Private Sub Text6_Change()

Text6.Text = Val(Text4.Text) * Val(Text5.Text)

End Sub

Private Sub Text7_Change()

Text8.Text = Val(Text7.Text) - Val(Text6.Text)

End Sub

Private Sub Timer1_Timer()

Label9.Caption = Format(Date, "dd mmmm yyyy")

Label10.Caption = Format(Time, "hh:mm:ss")

End Sub

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text1.SetFocus

End Sub

Private Sub Command2_Click()

End

End Sub

Sekian tutorial dari saya semoga bermanfaat, jika mengalami kesulitan silahkan berkomentar.

Wassalamualaikum wr.wb