Cara Membuat Aplikasi Kasir VB

kali ini saya akan mencoba membuat aplikasi kasir sederhana dengan yang melanjutkan projek sebelumnya

jika sobat belum membaca artikel sebelumnya tentang tutorial visual basic silahkan baca terlebih dahulu artikel berikut

langsung saja kita mulai dengan membuka aplikasi visual studio 2015, dan saya akan menggunakan projek sebelumnya 

terlebih dahulu buat lah form pada pda Visual Basic seperti pada gambar dibawah ini

pada form diatas pada kolom kode barang menggunakan ComboBox dana pada pesanan menggunakan TextBox

selanjutnya rubahlah alamat (name) pada label sesuai dengan bagianya,
label pada nama barang kita rubah dengan “txtnamabarang” dan seterusnya, kemudian hapuslah text nya,

dan untuk (name) kode baang berilah nama “ckodebarang” untuk TxtBox pada pesanan silahkan beri nama “bpesanan”

kemudian akan tampil seperti gambar dibawah ini

dan pada ComboBox kode barang klik kanan kemudian pilih edit item, buatlah kode barang yang kita inginkan, seperti gambar diatas 

oh iya mohon maaf kelupaan untuk bagian bayar buatlah menggunakan TextBox seperti pada menu pesanan, sehingga hasilnya sebagai berikut

Selanjutnya tuliskan programnya pada menu Form1.vb sebagai berikut

Public Class Form1
    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click
        sender = MsgBox(“www.kendali-elektro.xyz”, , “Created by”)
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        txtjam.Text = TimeOfDay
        txttanggal.Text = DateString
    End Sub

    Private Sub ckodebarang_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ckodebarang.SelectedIndexChanged
        If ckodebarang.Text = 10001 Then
            txtnamabarang.Text = “Nasi Goreng”
            txtharga.Text = “10000”

        ElseIf ckodebarang.Text = 10002 Then
            txtnamabarang.Text = “Baso”
            txtharga.Text = “11000”

        ElseIf ckodebarang.Text = 10003 Then
            txtnamabarang.Text = “Mie Ayam”
            txtharga.Text = “9000”

        ElseIf ckodebarang.Text = 10004 Then
            txtnamabarang.Text = “Es Teh”
            txtharga.Text = “4000”

        ElseIf ckodebarang.Text = 10005 Then
            txtnamabarang.Text = “Es Jeruk”
            txtharga.Text = “4000”

        End If

    End Sub

    Private Sub bpesanan_TextChanged(sender As Object, e As EventArgs) Handles bpesanan.TextChanged
        txttotal.Text = Val(bpesanan.Text) * Val(txtharga.Text)
    End Sub

    Private Sub cbayar_TextChanged(sender As Object, e As EventArgs) Handles cbayar.TextChanged
        txtkembalian.Text = Val(cbayar.Text) – Val(txttotal.Text)
    End Sub
End Class

jika program ini dijalankan, maka akan menghasilkan Output seperti pada gambar bawah ini

nah silahkan untuk sobat tambahkan fungsi tombol reset sehingga jika di tekan akan mengembalikan tampilan form seperti semula, selamat mencoba

cukup sekian artikel kali ini, semoga bermanfaat, jika ada kritik saran dan pertanyaan silahkan dikolom komentar!