Membuat Form dengan Visual Basic

babang-teknik.blogspot.com - Di sini penulis akan membuat sebuah Form dengan Visual Basic dan penulis kasih nama program ini dengan "Program Rumah Makan". Hanya membuat sebuah form dan list list yang mempunyai kemudahan dalam membuat suatu form dengan visual basic kenapa tidak kita hanya tinggal drag and drop saja dan tinggal coding beberapa bagiannya saja. Berikut Langkah-langkahnya.

1. Buat tampilan form sebagai berikut 

Baca Juga : Praktikum aplikasi transistor sebagai saklar dengan Proteus

 2. Kemudian ubah nilai propertis name dari masing-masing komponen sesuai dengan tabel dibawah ini:

No

Komponen

Properties

Ket

1.

Combobobox1

Name: cmbMenu

Nama paket diinput pada menu Items

Items :

PAKET A

PAKET B PAKET C

2.

ListBox1

Name : lbPaket

3.

Textbox1

Name : txtHarga

4.

Textbox2

Name : txtDiskon

5.

Textbox3

Name : txtTotal

6.

Textbox4

Name : txtBayar

7.

Textbox5

Name : txtKembali

10.

Button1

Text : Hitung

Name : btnHitung

11.

Button2

Text : Ulang

Name : btnUlang

12.

Button3

Text : Tutup

Name : btnTutup

 3.  Setelah merubah name dari masing-masing komponen berikutnya adalah memberi code program pada form yang telah dibuat, adapun langkah-langkahnya adalah sebagai berikut:

         a.       Double click pada combobox (cmbMenu), kemudian ketik code program berikut ini : 

       

Private Sub cmbMenu_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbMenu.SelectedIndexChanged

LbIsiPaket.Items.Clear()

Select Case cmbMenu.SelectedItem Case "PAKET A"

LbIsiPaket.Items.Add("1. Nasi Timbel") LbIsiPaket.Items.Add("2. Ayam Goreng") LbIsiPaket.Items.Add("3. Tahu Tempe") LbIsiPaket.Items.Add("4. Sambal")

TxtHarga.Text = 30000

txtDiskon.Text = Val(TxtHarga.Text) * 0.05 Case "PAKET B"

LbIsiPaket.Items.Add("1. Nasi Timbel") LbIsiPaket.Items.Add("2. Ayam Goreng") LbIsiPaket.Items.Add("3. Teh Manis")

TxtHarga.Text = 25000

txtDiskon.Text = 0 Case "PAKET C"

LbIsiPaket.Items.Add("1. Nasi") LbIsiPaket.Items.Add("2. Tahu Tempe")

TxtHarga.Text = 20000

txtDiskon.Text = 0 End Select

txtTotal.Text = Val(TxtHarga.Text) - Val(txtDiskon.Text) End Sub

Catatan : Baris Code yang bergaris bawah tidak perlu diketik karena sudah ada

Diskon=harga * 0.05

Code diatas sampai dengan menampilkan total harga = harga - diskon

b.  Selanjutnya ketik baris code pada tombol Hitung, sebagai berikut;

Private Sub BtnHitung_Click(sender As System.Object, e As System.EventArgs) Handles BtnHitung.Click

TxtKembali.Text = Val(TxtBayar.Text)  -Val(txtTotal.Text) 

End Sub

Catatan : Baris Code yang bergaris bawah tidak perlu diketik karena sudah ada

        c. Baris code untuk tombol ulang adalah sebagai berikut

Private Sub BtnUlang_Click(sender As System.Object, e As System.EventArgs)

Handles BtnUlang.Click                                                                                                                       cmbMenu.Text = ""

LbIsiPaket.Items.Clear() TxtHarga.Clear()

txtDiskon.Clear() txtTotal.Clear() TxtBayar.Clear() TxtKembali.Clear() cmbMenu.Focus()

End Sub

     d. Baris code untuk tombol Tutup adalah sebagai berikut:

Private Sub BtnTutup_Click(sender As System.Object, e As System.EventArgs) Handles BtnTutup.Click          

Dim tutup As String

tutup = MsgBox("Yakin akan keluar ?", vbYesNo + vbQuestion, "Tutup") If tutup = vbYes Then

End End If

4. Jalankan hasil code program diatas dengan cara klik Play atau tombol F5