Membuat Program Memakai ComboBox

Buat tampilan form sebagai berikut/terserah kamu 

Pengaturan properti untuk FmPrgCmbB

No  Objek           Properti      Nilai

1.      FmPrgCmbB  Text             Form Menghitung Luas Segi Empat

                                          dengan Combo

2.      Label1            Text             Jenis Ukuran

3.      Label1            Font style     Bold

4.      Label2            Text             Harga Konversi

5.      Label2            Font style     Bold

6.      Label3            Text             Panjang

7.      Label3            Font style     Bold

8.      Label4            Text             Lebar

9.      Label4            Font style     Bold

10.  Label5            Text             Luas

11.  Label5            Font style     Bold

12.  ComboBox1   Name          CmbJnsUkr

13.  TextBox1        Name          TextBox1

14.  TextBox2        Name          TextBox2

15.  TextBox3        Name          TextBox3

16.  TextBox4        Name          TextBox4

17.  Button1           Text             &Mulai

18.  Button1           Name          Bmulai

19.  Button1           Font style     Bold

20.  Button2           Text             &Selesai

21.  Button2           Name          Bselesai

22.  Button2           Font style     Bold

Sebelum kita memberi perintah, atur dahulu properti Item pada objek CmbJnsUkr, caranya sebagai berikut:

·         Klik objek CmbJnsUkr

·         Kllik tombol Browse atau … properti Items

·         Muncul kotak String Collection Editor dan ketik seperti berikut

·         Klik OK

Memberi Perintah atau Event

Click Event Bmulai

Langkah membuat Click Event Bmulai sebagai berikut:

1.      Klik dua kali Button Mulai

2.      Ketik perintah sebagai berikut:
CmbJnsUkr.Text = " "

TextBox1.Text = " "

TextBox2.Text = " "

TextBox3.Text = " "

TextBox4.Text = " "

3.      Di Soltion Explorer klik View Designer (untuk menuju ke form designer)

Click Event Bselesai

Langkah membuat Click Event Bselesai sebagai berikut:

1.      Ketik dua kali Button Selesai.

2.      Ketik perintah sebagai berikut:

End

3.      Di Solution Explorer klik View Designer (untuk menuju ke form designer).

SelectedIndexChanged Event CmbJnsUkr

Langkah membuat SelectedIndexChanged Event CmbJnsUkr sebagai berikut :

1.      Klik dua kali CmbJnsUkr, kemudian pilih sebelah kanan Method name : SelectedIndexChanged

2.      Setelah itu ketik perintah sebagai berikut:

If CmbJnsUkr.SelectedIndex = 0 Then

      TextBox4.Text = "1000"

Else If CmbJnsUkr.SelectedIndex = 1 Then

            TextBox4.Text = "100"

      Else

            TextBox4.Text = "1"

      End If

End If

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox4.Text) * 
Val(TextBox2.Text) * Val(TextBox4.Text)

Arti perintah di atas: Jika pada objek CmbJnsUkr yang dipilih nomor index 0, jika Ya maka objek TextBox4 diberi nilai string 1000. Sebaliknya chek kembali apakah CmbJnsUkr yang dipilih indexnya 1, jika Ya maka objek TextBox4 diberi nilai string 100,sebaliknya nilai string 1. Kemudian hitung Luas (textbox3) dari panjang (textbox1) dikali harga konversi (textbox4) dikurang Lebar (textbox2) dikali harga Konversii.

3.      Di Solution Explorer klik View Designer (untuk menuju ke form designer).

ChangeUICues Event CmbJnsUkr

Langkah membuat ChangeUICues Event CmbJnsUkr sebagai berikut:

1.      Klik dua kali CmbJnsUkr, kemudian pilih sebelah kanan Method Name: ChangeUICuesd.

2.      Setelah itu ketik perintah sebagai berikut:

If CmbJnsUkr.SelectedIndex = 0 Then

      TextBox4.Text = "1000"

Else If CmbJnsUkr.SelectedIndex = 1 Then

      TextBox4.Text = "100"

Else

      TextBox4.Text = "1"

      End If

End If

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox4.Text) * Val(TextBox2.Text) * Val(TextBox4.Text)

3.      Di Solution Explorer klik View Designer (untuk menuju ke form designer).

TextChanged Event TextBox1

1.      Klik dua kali TextBox1, kemudian pilih sebelah kanan Method Name: TextChanged.

2.      Setelah itu ketik perintah sebagai berikut:

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox4.Text) * Val(TextBox2.Text) * Val(TextBox4.Text)

3.      Di Solution Explorer klik View Designer (untuk menuju ke form designer).

TextChanged Event TextBox2

1. Klik dua kali TextBox2, kemudian pilih sebelah kanan Method Name: TextChanged.

2. Setelah itu ketik perintah sebagai berikut:

    TextBox3.Text = Val(TextBox1.Text) * Val(TextBox4.Text) * Val(TextBox2.Text) * Val(TextBox4.Text)

3. Di Solution Explorer klik View Designer (untuk menuju ke form designer).

LostFocus Event TextBox1

1.      Klik dua kali TextBox1, kemudian pilih sebelah kanan Method Name: LostFocus

2.      Setelalah itu ketik perintah sebagai berikut:

TextBox3.Text = Val(TextBox1.Text) * Val(TextBox4.Text) * Val(TextBox2.Text) *  Val(TextBox4.Text)

3.      Di Solution Explorer klik View Designer (untuk menuju ke form designer).

LostFocus Event TextBox2

1.      Klik dua kali TextBox2, kemudian pilih sebelah kanan Method Name: LostFocus

2.      Setelah itu ketik perintah sebagai berikut:

TextBox3.Text =  Val(TextBox1.Text) * Val(TextBox4.Text) * Val(TextBox2.Text) * Val(TextBox4.Text)

3.      Di Solution Explorer klik View Designer (untuk menuju ke form designer).

Click Event BSelesai

1.      Klik dua kali BSelesai, kemudian pilih sebelah kanan Method Name: Click.

2.      Setelah itu ketik perintah sebagai berikut:

End

3.      Di Solution Explorer klik View Designer (untuk menuju ke form designer).

Menyimpan Form

Sebelum menjalankan program, simpan kembali program dengan memilih menu File > Save Form1.vb As…, jangan lupa arahkan folder yang kita inginkan/siapkan.

Menjalankan Program

Untuk menjalankan FmPrgCmbB, langkahnya sebagai berikut:

1.      Dalam keadaan FmPrgCmbB aktif atau terbuka.

2.      Jalankan program dengan menekan F5 atau klik ikon Start Debugging. Pilih Jenis Ukuran Km, kemudian ketik 2 di Panjang dan 3 di Lebar, Luas menjadi 6000000. Sehingga tampilannya sebagai berikut.