Program If pada VB.Net

Cara Membuat Program Beberapa If pada VB.Net. 
Program beberapa IF merupakan program yang di dalam intruksi programnya terdapat beberapa intruksi If. Langkah-langkah membuatnya sebagai berikut:
1. Desain Form sedemikian rupa hingga seperti contoh dibawah ini.

Membuat Program Beberapa If pada VB.Net

2. Lalu tambah kan kode listing dibawah ini pada form tersebut diatas.
Public Class Beberapa_If
Private Sub btnMulai_Click(sender As Object, e As EventArgs) Handles btnMulai.Click
txtQty.Text = ” ”
txtHarga.Text = ” ”
txtJml.Text = ” ”
txtDiskon.Text = ” ”
txtBayar.Text = ” ”
txtQty.Focus()
End Sub
Private Sub btnSelesai_Click(sender As Object, e As EventArgs) Handles btnSelesai.Click
End
End Sub
Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click
Dim mdis As Double
txtJml.Text = Val(txtQty.Text) * Val(txtHarga.Text)
If txtJml.Text > 1000000 Then
mdis = txtJml.Text * 0.3
txtDiskon.Text = mdis
rb30.Checked = True
Else
If txtJml.Text > 500000 Then
mdis = txtJml.Text * 0.2
txtDiskon.Text = mdis
rb20.Checked = True
Else
If txtJml.Text > 100000 Then
mdis = txtJml.Text * 0.1
txtDiskon.Text = mdis
rb10.Checked = True
Else
mdis = txtJml.Text * 0
txtBayar.Text = mdis
End If
End If
End If
txtBayar.Text = txtJml.Text – mdis
End Sub
End Class
3. Lau Run Project dan ketikkan pada kolom banyak barang = 3 dan harga barang = 180.000.

Membuat Program Beberapa If pada VB.Net

4. Lalu Klik tombol Hitung maka Jumlah, Diskon, Bayar dan Persen diskon akan otomatis terpilih.

Membuat Program Beberapa If pada VB.Net

5. Klik Tombol Mulai lalu Textbox akan merefresh dengan memanggil form dengan Textbox kosong dan siap untuk input data baru.

Membuat Program Beberapa If pada VB.Net