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.
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.
4. Lalu Klik tombol Hitung maka Jumlah, Diskon, Bayar dan Persen diskon akan otomatis terpilih.
5. Klik Tombol Mulai lalu Textbox akan merefresh dengan memanggil form dengan Textbox kosong dan siap untuk input data baru.
Tulisan Lainnya :
- Cara Membuat Form Login pada VB.Net dengan Mysql Database
- Cara Menghitung Grand Total pada Crystal Report
- Jual Cover Lampu Belakang Custom Yamaha N-MAX
- Membuat Program If..Else..Endif pada VB.Net
- Fungsi AVG () dalam Query SQL Server
- Program Aplikasi Sistem Informasi Kelurahan dengan VB.Net
- Cara Membuat Validasi TextBox Huruf Besar Pada VB.Net
- Lowongan Kerja Non PNS RSUP Nasional Dr Cipto Mangunkusumo Juni 2014
- Perintah Update Data di Database Mysql pada VB.Net
- Fairing Yamaha R25 untuk New Vixion Lightning NVL