Cara membuat program kasir dengan visual basic 6.0

Posted by Hafid Ali M

Sabtu, 10 September 2016

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

Share This :