Fungsi If - Then - Else di Visual Studio 2010

Bahas VB lagi nih…..

Kali ini bahasannya tentang fungsi If-Then-Else di VB 2010

Apa itu fungsi If-Then-Else?

If-Then-Else digunakan untuk  mengembalikan nilai Boolean (true dan false ) atau benar dan salah.

Jadi jika suatu kondisi memenuhi syarat pertama maka program akan di eksekusi dan program akan berakhir tetapi jika syarat pertama/kondisi pertama tidak terpenuhi maka If-Then-Else ini akan mengeksekusi syarat yang kedua dan jika syarat yang kedua tidak terpenuhi maka program akan menjalankan syarat yang ketiga. 

Berikut ini adalah syntax If Condition : 

If Kondisi then
Pernyataan

Else If kondisi Then
Pernyataan

Else
Pernyataan

End If

Untuk fungsi if, saya membuat program seperti ini :

Hmm…..

Daftar menu Warung Mi So Ba, singkatan dari Mie Ayam, Soto dan Bakso, haha…….

Kayaknya bakal lapar nih, lapar statement maksudnya….

Oke, kita penuhi lapar statement ini dengan buka VB lalu klik New Project

Bentuk Form dari Program di atas adalah

Statement agar Formnya seperti Tampilan Program diatas adalah (Klik ganda di formnya)

        Me.Text = "Warung Mi So Ba"

        Me.BackColor = Color.OrangeRed

        Me.ForeColor = Color.Black

        Label1.Text = "Daftar Menu"

        Label1.ForeColor = Color.Yellow

        Label1.Font = New Font("Segoe UI", 14, Label1.Font.Style Xor FontStyle.Bold)

        Label2.Text = "Kelompok"

        Label3.Text = "Harga (Rp.)"

        Label4.Text = "Kelompok"

        Label5.Text = "Harga (Rp.)"

        Label6.Text = "Pesanan"

        Label7.Text = "Bayar sejumlah Rp."

        Button1.Text = "Pilih Semua"

        Button2.Text = "Batal Memilih"

        Button3.Text = "Pilih Semua"

        Button4.Text = "Batal Memilih"

        Button5.Text = "Tampilkan Harga"

        GroupBox1.Text = "Makanan"

        GroupBox1.BackColor = Color.Orange

        GroupBox2.Text = "Minuman"

        GroupBox2.BackColor = Color.Orange

        CheckBox1.Text = "Mie Ayam Pangsit"

        CheckBox2.Text = "Mie Ayam Ceker"

        CheckBox3.Text = "Soto Ayam"

        CheckBox4.Text = "Soto Kambing"

        CheckBox5.Text = "Bakso Kikil"

        CheckBox6.Text = "Bakso Urat"

        CheckBox7.Text = "Es Teh"

        CheckBox8.Text = "Teh Hangat"

        CheckBox9.Text = "Teh Botol"

        CheckBox10.Text = "Capuccino"

        CheckBox11.Text = "Kopi Susu"

        CheckBox12.Text = "White Coffee"

Formnya sudah jadi, berikutnya saya akan menentukan apa yang akan terjadi di program rancangan ini.

Saya akan membuat agar saat CheckBox di klik (atau dalam istilah VB nya Checked), maka di textbox akan keluar harga dari makanan yang dipilih dan nama makanan yang dipilih keluar di ListBox

Jadi syntaxnya seperti ini:

If CheckBox dicentang then

Textbox1 tampilkan harga makanan

ListBox1 Menampilkan nama makanan yang terpilih

Elseif CheckBox tidak dicentang then

Textbox1 kosong

ListBox1 menghilangkan nama makanan yang terpilih

End if

Dan Statementnya jadi seperti ini (untuk CheckBox1 Kelompok Mie ayam pangsit)

If CheckBox1.Checked = True Then

TextBox1.Text = "7000"

ListBox1.Items.Add(CheckBox1.Text)

ElseIf CheckBox1.Checked = False Then

TextBox1.Text = ""

ListBox1.Items.Remove("Mie Ayam Pangsit")

End If

Maksud dari masing-masing statement fungsi if di atas adalah

If CheckBox1.Checked = True Then     TextBox1.Text = "7000"     ListBox1.Items.Add(CheckBox1.Text)	Menunjukkan kondisi jika CheckBox1 dicentang ·         Textbox1 akan terisi dengan text di CheckBox1 (Harga Makanan) ·         Text (Nama makanan) yang ada di CheckBox1 akan ditambahkan ke ListBox1
ElseIf CheckBox1.Checked = False Then     TextBox1.Text = ""     ListBox1.Items.Remove("Mie Ayam Pangsit")	Jika kondisi di if sebelumnya tidak terpenuhi ·         Textbox1 akan dikosongkan (Harganya dihapus” ·         Teks (Nama makanan) “Mie Ayam Pangsit” akan dihapus dari ListBox1
End If	Akhir dari fungsi If

Berikut ini statement di CheckBox1 – CheckBox3 yang terletak dalam GroupBox1 (Kelompok Makanan)

Bayarlah...............

Di CheckBox4 – CheckBox6 :

CheckBox7 – CheckBox9, di GroupBox2 (Kelompok Minuman)

CheckBox10 – CheckBox12

Sehingga inilah yang terjadi saat CheckBox saya centang (proses debugging):

Jika misalnya seorang pelanggan memesan semua makanan yang ada di menu maka saya membuat agar saat tombol Pilih semua (Button1) diklik maka semua CheckBox di GroupBox1 (Kelompok Makanan) tercentang, saya klik ganda di Button1 lalu ketikkan

CheckBox1.Checked = True

CheckBox2.Checked = True

CheckBox3.Checked = True

CheckBox4.Checked = True

CheckBox5.Checked = True

CheckBox6.Checked = True

  

dan jika ingin membatalkan, agar semua centang di GroupBox1 hilang maka saya ketikkan (klik ganda di Button2):

CheckBox1.Checked = False

CheckBox2.Checked = False

CheckBox3.Checked = False

CheckBox4.Checked = False

CheckBox5.Checked = False

CheckBox6.Checked = False

Berikut ini statement untuk masing-masing 4 tombol dari kiri (Button1 - Button4) :

Kemudian saya lakukan proses debugging, sehingga saat tombol pilih semua diklik:

Berikutnya saya akan menampilkan harga dari makanan yang sudah dipesan, klik ganda di tombol tampilkan harga (Button5), masih dengan fungsi if

Syntaxnya seperti ini :

If Nilai dari semua textbox sama dengan 0  then
Tampilkan kata “Tidak Ada Pesanan”

Else If Nilai dari semua text dalam textbox lebih besar dari 0 Then
Tampilkan nilai dari semua text dalam textbox

End If

Karena semua text yang di textbox adalah angka,  Statementnya menjadi :

If Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text) = 0 Then

            TextBox13.Text = "Tidak Ada Pesanan"

        ElseIf Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text) > 0 Then

            TextBox13.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text) + Val(TextBox9.Text) + Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text)

        End If

 

Jalankan programnya, dan setelah memilih menu lalu klik tombol tampilkan harga :