Contoh Aplikasi Sederhana Visual Basic

  Berikut ini adalah contoh Aplikasi sederhana dengan menggunakan Visual Basic:

Selamat Mencoba..

 

Aplikasi ini terdiri dari dua bagian, yaitu :

• Input, terdiri dari :

1. 5 label yaitu label ID, Name, Quantity, Quality, dan Category
2. 2 buah Textbox yaitu pada Textbox ID dan nama
3. 1 buah NumericUpDown
4. 1 buah radio button
5. 1 buah combo box
6. 3 buah button, yaitu add, update dan delete. Add berfungsi untuk menambahkan data ke output, update untuk mengupdate data jika ada data yang salah satu atau beberapa data yang diubah, dan delete untuk menghapus satu baris data.

• Output, terdiri dari

1. 5 label yaitu label ID, name, Qty, Quality, dan Category
2. 5 Listbox yaitu listbox ID, name, Qty, Quality, dan Category

Adapun Codingnya adalah sebagai berikut :

Public Class Form1

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
lbID.Items.Add(tbID.Text)
lbName.Items.Add(tbName.Text)
lbQuantity.Items.Add(NumericUpDown1.Value)
If rbGood.Checked = True Then lbQuality.Items.Add(“Good”) Else lbQuality.Items.Add(“Bad”)
lbCategory.Items.Add(ComboBox1.SelectedItem)

tbID.ResetText()
tbName.ResetText()
NumericUpDown1.ResetText()
rbBad.Checked = False
rbGood.Checked = False
ComboBox1.ResetText()
End Sub

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

ComboBox1.Items.Add(“Paper”)
ComboBox1.Items.Add(“Plastic”)
ComboBox1.Items.Add(“Iron”)
ComboBox1.Items.Add(“Wood”)
ComboBox1.SelectedIndex = 0
End Sub

Private Sub lbID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbID.SelectedIndexChanged
For i = 0 To 100
If lbID.SelectedIndex = i Then
lbName.SelectedIndex = i
lbQuality.SelectedIndex = i
lbQuantity.SelectedIndex = i
lbCategory.SelectedIndex = i
tbID.Text = (lbID.SelectedItem)
tbName.Text = (lbName.SelectedItem)
lbQuality.Text = (lbQuality.SelectedItem)
lbQuantity.Text = (lbQuantity.SelectedItem)
lbCategory.Text = (lbCategory.SelectedItem)
NumericUpDown1.Value = (lbQuantity.SelectedItem)
End If
Next
End Sub

Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
lbID.Items.Remove(tbID.Text)
lbName.Items.Remove(tbName.Text)
lbQuantity.Items.Remove(NumericUpDown1.Value)
lbQuality.Items.Remove(lbQuality.Text)
lbCategory.Items.Remove(lbCategory.SelectedItem)

If tbID.Text <> lbID.SelectedItem Then
lbID.Items.Remove(lbID.SelectedItem)
lbID.Items.Add(tbID.Text)
Else
tbID.Text = (lbID.SelectedItem)
End If

If tbName.Text <> lbName.SelectedItem Then
lbName.Items.Remove(lbName.SelectedItem)
lbName.Items.Add(tbName.Text)
Else
tbName.Text = lbName.SelectedItem
End If

If NumericUpDown1.Value <> lbQuantity.SelectedItem Then
lbQuantity.Items.Remove(lbQuantity.SelectedItem)
lbQuantity.Items.Add(NumericUpDown1.Value)
Else
lbQuantity.Text = (lbQuantity.SelectedItem)
End If

If rbGood.Checked = True Then lbQuality.Items.Add(“Good”) Else lbQuality.Items.Add(“Bad”)

lbCategory.Items.Add(ComboBox1.SelectedItem)

tbID.ResetText()
tbName.ResetText()
NumericUpDown1.ResetText()
rbBad.Checked = False
rbGood.Checked = False
ComboBox1.ResetText()
End Sub

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
lbID.Items.Remove(tbID.Text)
lbName.Items.Remove(tbName.Text)
lbQuantity.Items.Remove(NumericUpDown1.Value)
lbQuality.Items.Remove(lbQuality.Text)
lbCategory.Items.Remove(ComboBox1.SelectedItem)
End Sub

End Class

Source: http://azulfachri.wordpress.com/
 

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.

Teknik Dasar Membuat Aplikasi dengan Visual Basic Bagi Pemula

Pada kali ini saya akan berbagi/sh4re sedikit ilmu yang saya miliki tentang tutorial/belajar bahasa pemprograman Visual Basic (VB.Net) untuk pemula, pada tutorial yang akan dibuat akan dibahas secara sederhana mulai dari dasar, dengan contoh-contoh membuat program yang simpel, sehingga mudah untuk dipahami bagi para sobat-sobat yang ingin memulai untuk belajar pemrograman menggunakan VB.NET, untuk sofware yang saya gunakan VB 2008 Express Edition.

Langsung saja langkah memulai menggunakan VB.NET

• Jalankan aplikasi VB.net 2008 kemudian akan muncul tampilan seperti gambar dibawah ini

• Membuat project baru, File kemudian klik New Project akan muncul seperti gambar dibawah ini

• Pilih Windows Form, kemudian ketikan Nama program yang akan dibuat misal namanya: latihan 1, kemudian ok.

Latihan 1

• Pada kesempatan ini yaitu membuat aplikasi/program sederhana menghitung total harga penjualan alat tulis
• Tambahkan 4 buah label, pada gambar dan diberinama sesuai gambar, dan 4 buah textbox dan 1 buah button, untuk mengubah namanya pada properties.

• Kemudian doubel klik pada button (total harga) kemudian tulis/copy codingya seperti dibawah ini yang berwarna biru.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bk As Decimal = TextBox1.Text
        Dim ps As Decimal = TextBox2.Text
        Dim ph As Decimal = TextBox3.Text
        TextBox4.Text = bk + ps + ph

  End Sub

• Kemudian kita jalan kan aplikasi yang telah kita buat tadi klik pada Start Debugging seperti gambar yang dikotak merah

 

 

Masukan nilai/harga2 harganya kemudian klik button total harga.

Selesai aplikasi pertama anda, sudah berhasil selanjutnya tinggal dikebangkan sesuai ide/kreasi anda.

 

Source:  http://www.tipsh4re.com/ 

 

HOT INFO

Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari PDF Visual Basic di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.