CARA MEMBUAT PROGRAM KASIR SEDERHANA

Visual Basic 2010 biasa digunakan para programmer untuk membuat suatu aplikasi yang dapat memudahkan untuk memecahkan suatu masalah.

Berikut ini adalah contoh aplikasi kasir sederhana yang dibuat di Visual Basic 2010:

1. Buka VB 2010 >> New Project >> Windows Forms Application >> OK.
2. Buat desain seperti gambar dengan memasukkan komponen dari toolbox ke dalam form design.

3. Ubah nama komponen yang telah dibuat dari bagian properties (di kotak yang ada di pinggir kanan)

4.   Klik 2 kali pada form, lalu masukkan listing code untuk masing-masing komponen, yaitu komponen ComboBox, TextBox, RadioButton, dan Button. Berikut listing codenya:

• Form 1

Public Class Form1

Dim harga_kotor, harga_bersih As Integer

Dim potongan As Integer = 0

• ComboBox1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

With ComboBox1

.Items.Add(“Buku Tulis”)

.Items.Add(“Buku Gambar”)

.Items.Add(“Pulpen Boxy”)

.Items.Add(“Pensil Mekanik”)

.Items.Add(“Penggaris Rotring”)

.Items.Add(“Rautan Pensil”)

End With

End Sub

Lalu, untuk memunculkan harga secara otomatis pada TextBox1, masukkan listing berikut ini:

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

TextBox5.Focus()

If ComboBox1.Text = “Buku Tulis” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Buku Gambar” Then

TextBox5.Text = “3000”

ElseIf ComboBox1.Text = “Pulpen Boxy” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Pensil Mekanik” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Penggaris rotring” Then

TextBox5.Text = “2000”

ElseIf ComboBox1.Text = “Rautan pensil” Then

TextBox5.Text = “2000”

End If

End Sub

• RadioButton1

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton3.CheckedChanged, RadioButton2.CheckedChanged

potongan = sender.text

End Sub

• Button1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim diskon As Single

Dim total As Single

diskon = (TextBox5.Text * TextBox1.Text * potongan) / 100

total = (TextBox5.Text * TextBox1.Text – diskon)

TextBox2.Text = Format(total, “#”)

End Sub

• Button2

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Close()

End Sub

• Button3

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ComboBox1.Text = “”

TextBox1.Text = “”

TextBox2.Text = “”

TextBox3.Text = “”

TextBox4.Text = “”

TextBox5.Text = “”

RadioButton1.Checked = False

RadioButton2.Checked = False

RadioButton3.Checked = False

End Sub

End Class

• Button4

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox4.Text = Val(TextBox3.Text) – Val(TextBox2.Text)

End Sub

• TextBox1

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

TextBox2.Focus()

End Sub

5.   Tekan F5 untuk menjalankan program kasir. Jika terjadi error berarti ada kesalahan dalam membuat listing code, jadi perbaiki listing program terlebih dahulu.

6.   File > Save All, untuk menyimpan program secara keseluruhan.

Berikut ini adalah contoh program yang telah dibuat: