Tutorial Visual Basic

Halo!

Bagaimana kabar kalian?

Semoga sehat dan sejahtera selalu.

Disini saya akan memberikan info tutorial, tentang bagaimana membuat program kasir sederhana dengan Microsoft Visual Basic.

Pertama-tama, jika anda belum memiliki Visual Basic, anda dapat mendownloadnya disini.

Langkah-langkahnya : 

1. Buka aplikasi Visual Basic

2. Pilih Standard EXE

3. Perbesar Tampilan Project dan Form hingga full

Tampilan Awal Visual Basic

4. Buat design program kasir sesuai selera anda dengan bantuan tools. untuk keterangannya dapat diliat dari tabel dibawah :

Tools	Nama	Caption	List
Label	Label1	Nama Toko Anda
GroupBox	GroupBox1	Makanan
Label	Label2	Pesanan
Label	Label3	Porsi
Label	Label4	Harga
ComboBox	mak1		Ayam Goreng Indomie Rebus Nasi Goreng Katsu Bakso Cuanki Telor, Tahu, Tempe
ComboBox	mak2		Ayam Goreng Indomie Rebus Nasi Goreng Katsu Bakso Cuanki Telor, Tahu, Tempe
TextBox	jmak1
TextBox	jmak2
TextBox	hrgmak1
TextBox	hrgmak2
Label	Label5	Total Harga
TextBox	totmak
GroupBox	GroupBox2	Minuman
Label	Label6	Pesanan
Label	Label7	Porsi
Label	Label8	Harga
ComboBox	min1		Es Teh Jus Buah Es Kelapa
ComboBox	min2		Es Teh Jus Buah Es Kelapa
TextBox	jmin1
TextBox	jmin2
TextBox	hrgmak1
TextBox	hrgmak2
Label	Label9	Total Harga
TextBox	totmin
Frame	Frame1
Label	Label10	Total
Label	Label11	Bayar
Label	Label12	Kembali
TextBox	total
TextBox	bayar
TextBox	kembali
CommandButton	kliktotal	Total
CommandButton	klikreset	Reset
CommandButton	klikkembali	Kembali
CommandButton	klikkeluar	Keluar
Frame	Frame2	Daftar Menu
Label	Label13	Ayam Goreng Rp ...
Label	Label14	Indomie Rebus Rp...
Label	Label15	Nasi Goreng Rp...
Label	Label16	Ayam Katsu Rp...
Label	Label17	Bakso Cuanki Rp...
Label	Label18	Telor,Tahu,Tempe Rp...
Label	Label19	Es Teh Rp...
Label	Label20	Jus Buah Rp...
Label	Label21	Es Kelapa Rp...

Daftar Toolbox Terdapat Dikiri

5. Buat Design sedemikian rupa, untuk font, warna, dan ukuran anda dapat mengaturnya sendiri sesuai keinginan anda. 

Tampilan Program Kasir Sederhana

6. Setelah selesai mendesign tampilan, kita dapat memasukan coding dengan cara klik 2x pada TextBox "jmak1". lalu, masukan coding dibawah ini : 

Private Sub jmak1_Change()

If mak1.Text = "Ayam Goreng" Then

            hrgmak1.Text = Val(jmak1.Text) * 15000

        ElseIf mak1.Text = "Indomie Rebus" Then

            hrgmak1.Text = Val(jmak1.Text) * 8000

        ElseIf mak1.Text = "Nasi Goreng" Then

            hrgmak1.Text = Val(jmak1.Text) * 15000

        ElseIf mak1.Text = "Katsu" Then

            hrgmak1.Text = Val(jmak1.Text) * 17000

        ElseIf mak1.Text = "Bakso Cuanki" Then

            hrgmak1.Text = Val(jmak1.Text) * 15000

        ElseIf mak1.Text = "Telor, Tahu, Tempe" Then

            hrgmak1.Text = Val(jmak1.Text) * 10000

        End If

End Sub

7. Klik 2x juga pada ComboBox "mak2", dan masukan coding yg sama seperti "jmak1", setelah itu klik 2x juga pada "jmak2" dan masukan coding yang sama pula. ini bertujuan agar saat memilih menu, dan porsi maka jumlah harga akan terisi secara otomatis. 

Private Sub jmak2_Change()

        If mak2.Text = "Ayam Goreng" Then

            hrgmak2.Text = Val(jmak2.Text) * 15000

        ElseIf mak2.Text = "Indomie Rebus" Then

            hrgmak2.Text = Val(jmak2.Text) * 8000

        ElseIf mak2.Text = "Nasi Goreng" Then

            hrgmak2.Text = Val(jmak2.Text) * 15000

        ElseIf mak2.Text = "Katsu" Then

            hrgmak2.Text = Val(jmak2.Text) * 17000

        ElseIf mak2.Text = "Bakso Cuanki" Then

            hrgmak2.Text = Val(jmak2.Text) * 15000

        ElseIf mak2.Text = "Telor, Tahu, Tempe" Then

            hrgmak2.Text = Val(jmak2.Text) * 10000

        End If

End Sub

8. Sekarang masukan coding pada "jmin1", masukan juga coding pada "jmin2" 

Private Sub jmin1_Change()                                                    

If min1.Text = "Es Teh" Then                                            

            hrgmin1.Text = Val(jmin1.Text) * 5000        

        ElseIf min1.Text = "Jus Buah" Then

            hrgmin1.Text = Val(jmin1.Text) * 8000

        ElseIf min1.Text = "Es Kelapa" Then

            hrgmin1.Text = Val(jmin1.Text) * 5000

        End If

End Sub

Private Sub jmin2_Change()

If min2.Text = "Es Teh" Then

            hrgmin2.Text = Val(jmin2.Text) * 5000

        ElseIf min2.Text = "Jus Buah" Then

            hrgmin2.Text = Val(jmin2.Text) * 8000

        ElseIf min2.Text = "Es Kelapa" Then

            hrgmin2.Text = Val(jmin2.Text) * 5000

        End If

End Sub

9. Setelah itu, klik 2x pada CommandButton "total", dan masukan coding ; ini bertujuan untuk menghitung jumlah harga dari makanan dan minuman, serta akan ditampilkan di textbox total.

Private Sub kliktotal_Click()

totmak.Text = Val(hrgmak1.Text) + Val(hrgmak2.Text)

        totmin.Text = Val(hrgmin1.Text) + Val(hrgmin2.Text)

        total.Text = Val(totmak.Text) + Val(totmin.Text)

End SubPrivate Sub kliktotal_Click()

totmak.Text = Val(hrgmak1.Text) + Val(hrgmak2.Text)

        totmin.Text = Val(hrgmin1.Text) + Val(hrgmin2.Text)

        total.Text = Val(totmak.Text) + Val(totmin.Text)

End Sub

10. Klik 2x pada CommandButton "Hitung", dan masukan coding ; ini bertujuan untuk menghitung total kembalian yang akan diterima pembeli

 

Private Sub klikhitung_Click()

        kembali.Text = Val(bayar.Text) - Val(total.Text)

        If total.Text > bayar.Text Then

            If MsgBox("Duit Lu Kurang, Gaboleh Ngutang Apalagi Nutur", vbCritical + vbOKOnly + vbDefaultButton1, "Perhatian") = vbOK Then

                bayar.Text = ""

                kembali.Text = ""

            End If

        End If

End Sub

11. Klik 2x pada CommandButton "Reset", dan masukan coding ; ini bertujuan untuk mereset program

Private Sub klikreset_Click()

        mak1.Text = ""

        mak2.Text = ""

        jmak1.Text = ""

        jmak2.Text = ""

        hrgmak1.Text = ""

        hrgmak2.Text = ""

        totmak.Text = ""

        min1.Text = ""

        min2.Text = ""

        jmin1.Text = ""

        jmin2.Text = ""

        hrgmin1.Text = ""

        hrgmin2.Text = ""

        totmin.Text = ""

        total.Text = ""

        bayar.Text = ""

        kembali.Text = ""

End Sub

12. Klik 2x pada CommandButton "Keluar", dan masukan coding ; 

Private Sub klikkeluar_Click()

    If (MsgBox("Eeeee Gaboleh Keluar, Sini Makan Dulu", vbYesNo + vbQuestion + vbDefaultButton1, "keluar") = vbYes) Then

        Unload Me

        End If

End Sub

13. Setelah selesai memasukan coding, klik run lalu start. Maka program sudah dapat dijalankan.

Sekian tutorial Visual Basic, semoga membantu :)