Halo sobat Coding, sudah hampir seminggu ga buka wp-admin gara-gara sibuk coding dan rutinitas kerja. Pada kali saya akan posting 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

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

PAKET DVD VISUAL BASIC.NET

Harga : Rp.100.000,- + Ongkir

SMS ORDER : 0856-9769-5965