Tutorial Visual Basic 2010

17 Nov

CARA MEMBUAT PROGRAM KASIR SEDERHANA PADA VISUAL BASIC 2010

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:

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: