Program Kasir Menggunakan Visual Basic 6 (Soal UAS)

        sebelumnya q kesel banget kmaren pas UTS padahal cuman salah dikit tapi dapet nilai 70, pas soal UAS q harap bisa dapat nilai yang lebih bagus, q yakin semua uda q kerjain nd work semua!.

pertama2 q bikin dulu dari ms.access , capek nulis download ajah yah, nih
Download

terus bikin kaya gini..

berikut listingnya..


Sub bersih()
Text1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
End Sub

Private Sub Command1_Click()
bersih
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!no_transaksi = Text1.Text
Adodc1.Recordset!tgl_transaksi = Text2.Text
Adodc1.Recordset!nama_pelanggan = Text3.Text
Adodc1.Recordset!alamat = Text4.Text
Adodc1.Recordset!kode_barang = DataCombo1.Text
Adodc2.Recordset!nama_barang = Text6.Text
Adodc1.Recordset!jumlah = Text8.Text
Adodc1.Recordset!total = Text9.Text
Adodc2.Recordset.Update
End Sub

Private Sub Command3_Click()
pesan = MsgBox("kamu yakin ingin keluar sekarang?", vbYesNo, "pesan keluar")
If pesan = vbYes Then
Unload Me
End If
End Sub

Private Sub DataCombo1_Click(Area As Integer)
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find "kode_barang='" & DataCombo1.Text & "'"
If Not Adodc2.Recordset.EOF Then
Text6 = Adodc2.Recordset!nama_barang
Text7 = Adodc2.Recordset!harga
End If
End Sub


Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12.Text = Val(Text11.Text) - Val(Text9.Text)
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.Text = Val(Text7.Text) * Val(Text8.Text)
End If
End Sub

Private Sub Timer1_Timer()
Text2.Text = Date
End Sub

yang kepengen file .exe nya udah q siapin nih, tinggal disedot aja..

Download

bye..