Contoh Program Kasir

Contoh Source Code:

Form 1

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CMBPRODUCT.Items.Add("Buku")
        CMBPRODUCT.Items.Add("Tas")
        CMBPRODUCT.Items.Add("Dompet")
        CMBPRODUCT.Items.Add("Alat Tulis")
        TBHARGA.Text = "0"
        TBQTY.Text = "1"
        TBTOTAL.Text = "0"
        TBTOTAL2.Text = "0"
        TBTOTAL2.Visible = False
    End Sub

    Private Sub CMBPRODUCT_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMBPRODUCT.SelectedIndexChanged
        If CMBPRODUCT.Text = "Buku" Then
            TBHARGA.Text = "2000"
            TBTOTAL.Text = "2000"
        ElseIf CMBPRODUCT.Text = "Tas" Then
            TBHARGA.Text = "100000"
            TBTOTAL.Text = "100000"
        ElseIf CMBPRODUCT.Text = "Dompet" Then
            TBHARGA.Text = "50000"
            TBTOTAL.Text = "50000"
        ElseIf CMBPRODUCT.Text = "Alat Tulis" Then
            TBHARGA.Text = "10000"
            TBTOTAL.Text = "10000"
        End If
    End Sub

    Private Sub TBQTY_TextChanged(sender As Object, e As EventArgs) Handles TBQTY.TextChanged
        Dim harga, qty As Integer
        harga = Convert.ToInt32(TBHARGA.Text)
        If TBQTY.Text <> "" Then
            qty = Convert.ToInt32(TBQTY.Text)
        Else
            qty = 1
        End If
        TBTOTAL.Text = harga * qty
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim total, total2 As Integer
        LBBELANJA.Items.Add(CMBPRODUCT.Text)
        LBBELANJA.Items.Add(TBHARGA.Text)
        LBBELANJA.Items.Add(TBQTY.Text)
        LBBELANJA.Items.Add(TBTOTAL.Text)
        LBBELANJA.Items.Add("")
        If TBTOTAL2.Text = "" Then
            TBTOTAL2.Text = TBTOTAL.Text
        Else
            total2 = Convert.ToInt32(TBTOTAL.Text)
            total = Convert.ToInt32(TBTOTAL2.Text)
            TBTOTAL2.Text = total2 + total
        End If
    End Sub

    Private Sub BTNEXIT_Click(sender As Object, e As EventArgs) Handles BTNEXIT.Click
        Close()
    End Sub

    Private Sub BTNBAYAR_Click(sender As Object, e As EventArgs) Handles BTNBAYAR.Click
        Form2.TextBox1.Text = TBTOTAL2.Text
        Form2.Show()
    End Sub
End Class

Form 2

Public Class Form2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim total, bayar, kembali As Integer
        total = Convert.ToInt32(TextBox1.Text)
        bayar = Convert.ToInt32(TextBox2.Text)
        If bayar < total Then
            MessageBox.Show("Maaf, Pembayaran Anda Kurang")
        ElseIf bayar > total Then
            kembali = bayar - total
            MessageBox.Show("Terimakasih, anda mendapat kembalian sebanyak " & Convert.ToString(kembali))
        Else
            MessageBox.Show("Terimakasih")
        End If
    End Sub
End Class

Contoh Program Gaji

Contoh Source Code:

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CMBNOPEG.Items.Add("001")
        CMBNOPEG.Items.Add("002")
        CMBNOPEG.Items.Add("003")
        CMBNOPEG.Items.Add("004")
        CMBNOPEG.Items.Add("005")
        CMBPEKERJAAN.Items.Add("Analyst")
        CMBPEKERJAAN.Items.Add("Designer")
        CMBPEKERJAAN.Items.Add("Admin")
        CMBPEKERJAAN.Items.Add("Manager")
        RTETAP.Checked = True
        CBASURANSI.Checked = False
        CBTUNJANGAN.Checked = False
        TBNAMA.Enabled = False
        CMBPEKERJAAN.Enabled = False
        TBGAJI.Enabled = False
        TBTOTALGAJI.Enabled = False
    End Sub

    Private Sub CMBNOPEG_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMBNOPEG.SelectedIndexChanged
        If CMBNOPEG.Text = "001" Then
            TBNAMA.Text = "Sri"
            CMBPEKERJAAN.Text = "Designer"
            TBGAJI.Text = "3000000"
        ElseIf CMBNOPEG.Text = "002" Then
            TBNAMA.Text = "May"
            CMBPEKERJAAN.Text = "Analyst"
            TBGAJI.Text = "3500000"
        ElseIf CMBNOPEG.Text = "003" Then
            TBNAMA.Text = "Rog"
            CMBPEKERJAAN.Text = "Admin"
            TBGAJI.Text = "4000000"
        ElseIf CMBNOPEG.Text = "004" Then
            TBNAMA.Text = "Jayne"
            CMBPEKERJAAN.Text = "Admin"
            TBGAJI.Text = "4000000"
        ElseIf CMBNOPEG.Text = "005" Then
            TBNAMA.Text = "Bob"
            CMBPEKERJAAN.Text = "Manager"
            TBGAJI.Text = "5000000"
        End If
    End Sub

    Private Sub BTNPRINT_Click(sender As Object, e As EventArgs) Handles BTNPRINT.Click
        LBSLIPGAJI.Items.Clear()
        Dim gaji, biaya As Integer
        gaji = Convert.ToInt32(TBGAJI.Text)
        If RTETAP.Checked Then
            gaji = gaji + (gaji * 10 / 100)
        Else
            gaji = gaji
        End If
        If CBTUNJANGAN.Checked = True Then
            biaya = gaji * 5 / 100
            gaji = gaji + biaya
        End If
        If CBASURANSI.Checked = True Then
            biaya = gaji * 10 / 100
            If biaya >= 400000 Then
                biaya = 400000
            End If
            gaji = gaji - biaya
        End If
        TBTOTALGAJI.Text = Convert.ToString(gaji)
        LBSLIPGAJI.Items.Add("Nama : " + TBNAMA.Text)
        LBSLIPGAJI.Items.Add("Total Gaji : " + TBTOTALGAJI.Text)
    End Sub


    Private Sub BTNEXIT_Click(sender As Object, e As EventArgs) Handles BTNEXIT.Click
        Close()
    End Sub
End Class

Contoh Program Sederhana Pembayaran Listrik

Contoh Source Code:

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cmb_golongan.Items.Add("A")
        cmb_golongan.Items.Add("B")
        cmb_golongan.Items.Add("C")
        tb_nometer.Enabled = False
        tb_nmpelanggan.Enabled = False
        tb_totalbayar.Enabled = False
        tb_alamatpelanggan.Enabled = False
    End Sub

    Private Sub tb_nopel_TextChanged(Sender As Object, e As EventArgs) Handles tb_nopel.TextChanged
        If tb_nopel.Text = "001" Then
            tb_nometer.Text = "101"
            tb_nmpelanggan.Text = "Boby"
            tb_alamatpelanggan = "Baloi"
        ElseIf tb_nopel.Text = "001" Then
            tb_nometer.Text = "102"
            tb_nmpelanggan.Text = "Nia"
            tb_alamatpelanggan = "Nongsa"
        Else
            MessageBox.Show("Maaf, Nomor Pelangan Tidak Terdaftar", "Sorry", MessageBoxButtons.OK)
            tb_nopel.Text = ""
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim gol, total As Integer
        If tb_nopel.Text <> "" Then
            MessageBox.Show("Maaf, Nomor Pelangan Tidak Ada", "Sorry", MessageBoxButtons.OK)
        Else
            If cmb_golongan.Text = "A" Then
                gol = 5000
            ElseIf cmb_golongan.Text = "B" Then
                gol = 6000
            ElseIf cmb_golongan.Text = "C" Then
                gol = 7000
            End If

            total = gol + (Convert.ToInt32(tb_jmlpakai.Text) * Convert.ToInt32(tb_hpm.Text)) + Convert.ToInt32(tb_faktur.Text) + Convert.ToInt32(tb_materai.Text) + Convert.ToInt32(tb_tunggakan.Text) + Convert.ToInt32(tb_denda.Text) + Convert.ToInt32(tb_admin.Text)
        End If
        tb_totalbayar.Text = total
    End Sub
End Class

Contoh Penggunaan If pada Message Box

Contoh source code penggunaan if pada Message Box

 If MessageBox.Show(Label1.Text & Environment.NewLine & Label2.Text, 
                    "IF", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation)=
 Windows.Forms.DialogResult.OK Then
     MessageBox.Show("You click" + chr(34) + "OK" + chr(34), "OKAY", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
 Else : MessageBox.Show("You click" + chr(34) + "Cancel" + chr(34), "Cancelled", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
 End If

- Code diatas digunakan pada sebuah button dan memerlukan dua buah label.
- Environtment.NewLine digunakan untuk membuat baris baru (line break) pada message box.

Percabangan (IF)

Kondisi percabangan yakni suatu kondisi yang hanya dapat dikerjakan karena memenuhi kriteria.
Percabangan terdiri dari Kondisi (operator Aritmatika, dan operator Logika), dan Statement atau Hasil.
Bentuk kondisi percabangan yang dapat ditemui antara lain:

• If ... End If

If Kondisi then

     Statement

End If

• If ... Else ... End If

If Kondisi then

     Statement

Else

     Statement

End If

• If ... ElseIf ... End If

If Kondisi then

     Statement

ElseIf Kondisi then

     Statement

End If

• If ... ElseIf ... Else ... End If

If Kondisi then

     Statement

ElseIf Kondisi then

     Statement

Else

     Statement

End If

Variabel dan Tipe Data

Variabel berguna untuk menyimpan nilai sementara untuk dapat dipergunakan kembali. Karena nilai sebuah variabel akan disimpan dalam memori komputer yang bersifat tidak permanen, berbeda dengan harddisk dimana data-data yang tersimpan didalamnya akan hilang ketika komputer dimatikan.

Tipe data adalah jenis nilai yang tersimpan dalam variabel, bisa huruf, angka ataupun tanggal. Tipe data diperlukan agar Visual Basic dapat langsung mengenal jenis data yang tersimpan dalam variabel.

Syarat Penulisan Variabel

• Diawali dengan huruf.
• Tidak boleh menggunakan spasi.
• Tidak menggunakan simbol (<>?/~!@#$%^&*.,/).
• Tidak menyamai sintak code program.
• Tidak pengaruh dengan besar kecil huruf (case).

contoh penulisan variabel adalah sebagai berikut:

 dim nama_variabel as tipe_data
 dim jenis_hewan as string
 dim angka1, angka2 as integer

Macam Tipe Data pada Visual Basic

• Tipe Data Bilangan Bulat (Whole Number): byte, short, integer, long.
• Tipe Data Bilangan Desimal/Pecahan (Real): single, double, decimal.
• Tipe Data Berbasis Text: char (1 huruf), string (>1 huruf).
• Tipe Data Tanggal: date.
• Tipe Data Pernyataan Benar Salah: Boolean.

Operator Aritmatika

• Addition (+)
• Substract (-)
• Multipication (*)
• Division (/) (division ini akan menghasilkan bilangan real)
• Division (\) (division ini akan menghasilkan bilang whole number)
• Exponential (^)
• Modulus (mod)

Operator Logika

• And, kondisi dimana jika semua kondisi benar maka perintah akan dieksekusi oleh program.
• Or, kondisi dimana jika salah satu kondisi benar maka perintah akan dieksekusi oleh program.
• Not, kondisi yang digunakan untuk membalikkan suatu nilai pernyataan.

Konversi

• Convert.ToBoolean, mengkonversi tipe data menjadi Boolean.
• Convert.ToByte, mengkonversi tipe data menjadi Byte.
• Convert.ToChar, mengkonversi tipe data menjadi Char.
• Convert.ToDateTime, mengkonversi tipe data menjadi Date.
• Convert.ToDecimal, mengkonversi tipe data menjadi Decimal.
• Convert.ToDouble, mengkonversi tipe data menjadi Double.
• Convert.ToInt16, mengkonversi tipe data menjadi ShortInteger.
• Convert.ToInt32, mengkonversi tipe data menjadi Integer.

Contoh penggunaan konversi

 dim Bil as String
 dim Num as Integer
 Bil = "10"
 Num = Convert.ToInt32(Bil)

Contoh penggunaan InputBox

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Label1.Text = InputBox("This is an example inputbox", "Sample Title")
 End Sub

Kode di atas diiisi di dalam sebuah button. Apabila button di jalankan maka akan muncul inputbox seperti pada gambar di bawah.

Mengenal Visual Studio 2013

Visual Basic 2013 merupakan salah satu paket bahasa pemrograman dari Visual Studio 2013. Banyak fasilitas yang akan kita dapatkan melalui rilis Visual Basic versi ini. Visual Studio 2013 sendiri merupakan sebuah software untuk membuat aplikasi windows.

Ketika pertama kali dijalankan, Visual Studio akan menampilkan sebuah lembar kerja seperti pada gambar di bawah. Dalam lembar kerja ini kita dapat melihat berbagai macam menu dan toolbar, dengan sebuah Start Page di dalamnya.

Melalui lembar kerja ini kita dapat membuat aplikasi Visual Basic yang diperlukan. Sebelum kita membuat aplikasi baru, ada istilah yang perlu kita ketahui dalam Visual Studio 2013 yaitu:

• Project, merupakan sebutan bagi sebuah software yang sedang melalui tahap pembuatan menggunakan Visual Studio, belum menjadi sebuah aplikasi. Project akan disimpan dalam Solution.
• Solution, merupakan satu atau kumpulan beberapa project yang tergantung pada kebutuhan.

Membuat Aplikasi Baru Menggunakan Visual Basic 2013

• Pada Start Page, klik New Project atau bisa menggunakan File -> New -> Project.
• Klik Installed -> Templates -> Visual Basic -> Windows -> Windows Forms Application -> Pilih Framework terbaru (".Net Framework 4.5 atau 4.5.1").
• Browse directory untuk menyimpan aplikasi.
• Ganti nama.
• Klik OK.

Berikut ini adalah tampilan form awal setelah melakukan langkah di atas.

Implementasi pada Program

• Menjalankan dan Menghentikan Program

untuk menjalankan program dapat menggunakan shortcut F5 atau dengan menekan tombol 

untuk menghentikan program dapa menggunakan shortcut Shift + F5 atau dengan menekan tombol 

• Kode untuk keluar dari program (menghentikan program)

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     Close()
 End Sub

Kode di atas diisi di dalam sebuah button. Apabila button tersebut dijalankan maka akan keluar dari program yang dibuat sekaligus menghentikan debugnya.

• Contoh penggunaan MessageBox

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     MessageBox.Show("Hello, World!", " ", MessageBoxButtons.OK)
 End Sub

Kode di atas diisi di dalam sebuah button. Apabila button tersebut dijalankan maka akan muncul messagebox seperti pada gambar di bawah.