Rabu, 25 September 2019

Pemrograman Visual Percabangan/Pemilihan Form Belanja Sederhana

      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

Koneksi Database Buku

1.       Aktifkan aplikasi xampp terlebih dahulu. 2.       Masuklah pada browser lalu ke localhost/phpmyadmin , kemudian buat lah sebua...