Posted on

TUTORIAL CONTOH PROGAM DENGAN MICROSOFT VISUAL BASIC 2010

DI bawah ini adalah tutorial cara membuat progam jual beli yang sederhana:

Pada kesempatan kali ini kita akan membuat aplikasi sederhana menggunakan Visual Basic 2010 untuk membuat progam jual beli yang sederhana. Yang akan digunakan untuk menghitung segala transaksi jual beli yang akan dilakukan seperti Jenis barang, Jumlah, Total harga, Total harga,Bayar kembali. Serta tombol untuk melakukan transaksi baru dan keluar. Tutorialnya adalah seperti berikut ini:

1. Pertama-tama buatlah desain interface sesuai dengan aplikasi yang akan dibuat

  • Dalam Form ini kita memerlukan label untuk memberi nama pada operasi yang akan kita jalankan pada aplikasi yang telah kita buat. Dari toolbox ,pilih label kemudian atur letaknya ,lakukan sebanyak 7 kali.

  • Kemudian pilih Combobox untuk memasukkan listing barang atau listing harga. Tetapi disini Combobox2  bisa digantikan dengan Textbox jika dalam aplikasi ini kita tidak memerlukan listing harga.

  • Buatlah text box sebanyak 4 kali, textbox disini berfungsi sebagai input atau input dalam aplikasi yang akan kita buat.

  • Kemudian buatlah 3 radiobutton untuk memilih kondisi yang akan disediakan nantinya pada aplikasi

  • Kemudian buatlah button yang sebagai tombol perintah. Disini kita memerlukan 4 jadi buatlh sebanyak 4 kali.

  • Yang terakhir dalam desain interface ini adalah memberi nama pada alat-alat dari toolbox yang kita gunakan tadi. Hasilnya akan seperti ini:

 

 

2. Kemudian kita double klik pada statusbar di form1 tadi dan masukkan listing berikut:

Dim harga_kotor, harga_bersih As Integer

Dim potongan As Integer = 0

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

List di atas berfungsi agar dapat menampilkan macam macam barang pada saat aplikasi kita running ,akan terlihat seperti gambart berikut:

 

3. Kemudian buatlah event pada combo box1 dengan double klik pada commbo box 1 dan massukan listing berikut ini:

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

If ComboBox1.Text = (“Buku Tulis”) Then

ComboBox2.Text = (“2000”)

ElseIf ComboBox1.Text = (“Buku Gambar”) Then

ComboBox2.Text = (“3000”)

ElseIf ComboBox1.Text = (“Pulpen Boxy”) Then

ComboBox2.Text = (“2500”)

ElseIf ComboBox1.Text = (“Pensil Mekanik”) Then

ComboBox2.Text = (“2000”)

ElseIf ComboBox1.Text = (“Penggaris Rotring”) Then

ComboBox2.Text = (“3000”)

ElseIf ComboBox1.Text = (“Rautan Pensil”) Then

ComboBox2.Text = (“15000”)

End If

TextBox1.Focus()

End Sub

 

Listing diatas berfungsi apabila kita memilih satu barang pada list yang telah kita buat tadi, harga barang tersebut akan langsung muncul pada combobox2. Hasilnya akan seperti berikut bila dirruning:

Textbox1.text()  adalah  apabila kita selesai mengoperasikan combobox1 maka akan langsung meloncat ke textbox1.text karena Combobox2 akan langsung terisi apabila kita selesai mengoperasikan combobox1.

 

4. Kemudian buatlah Event checkedChange untuk ketiga RadioButton dan ketikan listing berikut:

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

potongan = sender.text

End Sub

 

Listing diatas berfungsi agar kita dapat memasukan checklist pada radiobutton 1,radiobutton 2,dan  radio button 3.

 

 

5. Untuk Button 1 yaitu untuk button menghitung total harga,massukan listing berikut ini:

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

If Val(TextBox1.Text) = Int(TextBox1.Text) And Val(TextBox1.Text) > 0 Then

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

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

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

Else

MsgBox(“Jumlah tidak valid”)

End If

End Sub

 

Apabila kita memasukan jumlah yang bulat hasilnya akan seperti gambar berikut apabila kita running:

 

Apabila kita memeasukkan jumlah yang tidak bulat/desimal maka akan muncul message box yang menyatakan bahwa data yang dimassukan tidak valid,seperti gambar dibawah ini:

 

 

6. Untuk button2 agar dapat menghitung kembalian maka massukan listing berikut:

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

If Val(TextBox3.Text) >= Val(TextBox2.Text) Then

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

Else

If Val(TextBox3.Text) < Val(TextBox2.Text) Then

MsgBox(“Maaf uangnya kurang, dilarang HUTANG”)

End If

End If

End Sub

 

 

7. Untuk membuat button 3 agar dapat keluar dari aplikasi yang kita buat maka masukkan listing berikut:

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

Close()

 

Listing diatas adalah apabila kita menekan tombol keluar maka kita akan keluar dari aplikasi.

 

 

8. Agar button 4 dapat melakukan transaksi baru atau refresh maka masukkan listing berikut:

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

ComboBox1.Text = (“”)

ComboBox2.Text = (“”)

TextBox1.Text = (“”)

TextBox2.Text = (“”)

TextBox3.Text = (“”)

TextBox4.Text = (“”)

RadioButton1.Checked = (“0”)

RadioButton2.Checked = (“0”)

RadioButton3.Checked = (“0”)

End Sub

End Class

 

Listing diatas adalah apabila kita menekan tombol keluar maka kita akan keluar dari aplikasi.

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