Kali ini, saya akan melakukan pemrograman visual membuat form order makanan yang sederhana dengan menggunakan program percabangan/pemilihan. Apa yang dimaksud dengan percabangan/pemilihan pada pemrograman visual, berikut penjelasannya.
Ada beberapa yang perlu diketahui tentang percabangan/pemilhan, yaitu:
a. If…Then
Struktur percabangan If…Then melakukan sebuah aksi jika
kondisi bernilai true atau melompati sebuah aksi jika kondisi bernilai false.
Struktur If…Then dikenal dengan
struktur percabangan tunggal karena memih atau mengabaikan sebuah aksi tunggu.
b. If…Then…Else
Struktur percabangan If…Then…Else melakukan sebuah aksi jika
kondisi bernilai true dan melakukan sebuah aksi berbeda jika kondisi bernilai
false. Struktur If…Then…Else dikenal
dengan struktur percabangan ganda karena memilih diantara dua aksi yang
berbeda.
c. Select Case
Struktur
percabangan Select Case melakukan
salah satu aksi dari banyak aksi, tergantung pada nilai dari sebuah ekspresi.
Struktur Select…Case dikenal dengan
struktur percabangan jamak karena memilih di antara berbagai aksi yang berbeda.
Berikut ini adalah langkah-langkah untuk program order makanan:
Ikuti sesuai dengan tabel berikut:
No
|
Object
|
Property
|
Nilai
|
1
|
Form
|
Name
Text
|
frmPBS
Program Belanja Sederhana
|
2
|
Label
|
Tetx
|
Nama Barang
|
3
|
TextBox
|
Text
Name
|
(dikosongkan)
txtNB
|
4
|
Label
|
Text
|
Harga Satuan
|
5
|
TextBox
|
Text
Name
|
(dikosongkan)
txtHS
|
6
|
Button
|
Text
Name
|
Hitung
txtHitung
|
7
|
Button
|
Text
Name
|
Ulang
txtUlang
|
8
|
Label
|
Text
|
Total Harga
|
9
|
TextBox
|
Text
Name
|
(dikosongkan)
txtTH
|
10
|
Label
|
Text
|
Diskon
|
11
|
TextBox
|
Text
Name
|
(dikosongkan)
txtDiskon
|
12
|
Label
|
Text
|
Total Bayar
|
13
|
TextBox
|
Text
Name
|
(dikosongkan)
txtTB
|
14
|
Label
|
Text
|
Bonus
|
15
|
TextBox
|
Text
Name
|
(dikosongkan)
txtBonus
|
16
|
Button
|
Text
Name
|
Keluar
btnKeluar
|
a.
Buatlah Form baru dengan nama Program Belanja
Sederhana.
b.
Buatlah sebuah Program Belanja Sederhana yang
bisa melakukan operasi hitungan harga dari suatu barang yang diinputkan oleh
user.
c.
Hasil Program Belanja Sederhana ini kurang lebih
sebagai berikut:
a.
Properties Name adalah:
txtNB, txtHS, txtJB, btnHitung,
btnUlang, txtTH, txtDiskon, txtTB, txtBonus, btnKeluar.
b.
Kode Program
Public Class frmPBS
Private Sub btnUlang_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUlang.Click
'Membersihkan isi
TextBox
txtNB.Text = " "
txtHS.Text = " "
txtJB.Text = " "
txtTH.Text = " "
txtTB.Text = " "
txtDiskon.Text = " "
txtTB.Text = " "
txtBonus.Text = " "
txtNB.Focus()
End Sub
Private Sub btnHitung_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHitung.Click
'Deklarasi Variabel
Dim Harga, Jumlah As Integer
Dim Total, Diskon, Bayar As Double
Dim Bonus As String
'Deklarasi Input Harga dan Jumlah
Harga = txtHS.Text
Jumlah = txtJB.Text
'Perhitungan Total Harga
Total = Harga * Jumlah
'Penentuan Diskon dan Bonus
If Total >= 500000 Then
Diskon = 0.2 * Total
Bonus = "Tas
Pinggang"
ElseIf Total >= 200000 Then
Diskon = 0.15 * Total
Bonus = "Payung"
ElseIf Total >= 100000 Then
Diskon = 0.1 * Total
Bonus = "Pena"
Else
Diskon = 0
Bonus = "Tidak
ada"
End If
'Perhitungan Total Bayar
Bayar = Total - Diskon
'Deklarasi Keluaran Total Harga, Diskon,
Total Bayar, dan Bonus
txtTH.Text = Total
txtDiskon.Text = Diskon
txtTB.Text = Bayar
txtBonus.Text = Bonus
End Sub
Private Sub btnKeluar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
End
End Sub
End Class
c.
Jalankan program dengan menekan tombol F5 atau
klik ikon Start pada toolbar.
d.
Hasil tampilan dari program.
Menginputkan dan Menghitung nilai sebuah
inputan:
Mengulang inputan:
Keluar dari form:
Itulah tadi hasilnya, semoga ini bisa jadi ilmu baru dan bermanfaat ya:)
Tidak ada komentar:
Posting Komentar