PEMROGRAMAN VISUAL

PERCABANGAN DAN PEMILIHAN  

A. Order Makanan

1. Setelah dibuka visual studionya, kemudian klik new project. Project merupakan kerangka dasar aplikasi yang menentukan jenis aplikasi yang akan dibuat.  Dan pada bagian new project pilih Bahasa Visual basic, Project type: Windows dan temples :Windows From Application. Dan kemudan isi nama untuk nama project yang anda buat .lalu klik OK. 

2. Kemudian Keluar tampilan Seperti ini di bagian form desaign ,lalu atur kembali di properties.

Aturlah form tersebut sesuai dengan table di bawah ini:

No	Object	Property	Nilai
1.	Form	Name  Text	Frmorder Order Makanan
2.	ComboBox	Name Item DropDownStyle	Cbomakanan -Nasi Uduk -Nasi Padang -Nasi Rames - Nasi Pecel -Bakso -Nasi Goreng DropDownList
3.	ComboBox	Name Item DropDownStyle	Cbominuman -Es Jeruk - Es Teh - The Hangat DropDownList
4.	Label	Text	Harga
5.	Label	Text	Rp.3500
6.	Label	Text	Harga
7	Label	Text	Rp.3000
8.	CheckBox	Name	Termasuk dengan minuman
6.	GroupBox	Text	Menu Pesanan
7.	Label	Text	Berapa Porsi Makanan
8.	Label	Text	Berapa Porsi Minuman
9.	Label	Text	Rp.6500
10.	Butoon	Name Text	Btnhitung Hitung

3. Ketika sudah di atur tampilan desaign nya, perhatikan Combobox1 dan combobox2. Combobox1 digunakan untuk menampilkan daftar makanan dan combobox2 digunakan untuk menampilkan daftar minumannya.

4. Sekarang  jika ingin membuat codingannya double klik pada combobox1 dan kodingan nya seperti ini:

Private Sub Cbomakanan_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Cbomakanan.SelectedIndexChanged         Select Case Cbomakanan.Text             Case " Nasi Uduk"                 label2 = " Rp. 3500"                 hrgmakanan = 3500             Case " Nasi Padang"                 label2 = " Rp. 3000"                 hrgmakanan = 3000             Case " Nasi Pecel"                 label2 = " Rp 4500"                 hrgmakanan = 4500             Case " Nasi Rames"                 label2 = "Rp.5000"                 hrgmakanan = 5000             Case "Bakso"                 label2 = " Rp. 6000"                 hrgmakanan = 6000             Case "Nasi Goreng"                 label2 = " Rp. 8000"                 hrgmakanan = 8000         End Select End Sub

       Tapi Sebelumnya anda harus membuat 2 buah variable terlebih dahulu dengan nama “hrgmakanan” dan “hrgminuman” yang bersifat global agar keduanya dapat digunakan disemua blok program,variable tersebut bertipe data integer karna nantinya digunakan intuk menyimpan harga makanan dan harga minuman.

Public Class Form1     Public hrgmakanan, hrgminuman As Integer     Public label2, label4, label3 As String

     Pada listing program jika yang dipilih adalah “Nasi Uduk” maka “label2” akan menmpilkan “Rp.3500” dan variable “hrgmakanan” akan diisi dengan nilai 3500,da begitu juga seterusnya

5. Jika sudah di buat pada combobox1, sekarang kita bikin  kodingannya untuk combobox2 .caranya sama dengan cobobox1 . Seperti ini codingannya:

Private Sub cbominuman_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbominuman.SelectedIndexChanged         Select Case cbominuman.Text             Case "Es Jeruk"                 label4 = "Rp.3000"                 hrgminuman = 3000             Case "Es Teh"                 label4 = "Rp. 4000"                 hrgminuman = 4000             Case "teh Hangat"                 label4 = "Rp. 4000"                 hrgminuman = 4000

          Pada listing program jika yang dipilih adalah “Es Jeruk” maka “label4” akan menmpilkan “Rp.3000” dan variable “hrgminuman” akan diisi dengan nilai 3000,dan begitu juga seterusnya 

6. Perlu diperhatikan pada Combobox2. Combobox2 ini akan disembunyikan ketika programnya dijalankan, untuk menyembunyikannya maka combobox ini akan langsung tersembunyi, caranya seperti ini: 

   Pertama tempatkan kursor anda di sub-routine public class form1 yaitu tempat dimana kita mendeklarasikan variable hrgmakanan dan hrgminuman, kemudian disebelah kanan ada menu declarations ,kemudian klik new.

       Dan akan muncul sub-routine public yang bau, koding di dalam sub-routine tersebut seperti di bawah:

Public Sub New()         ' This call is required by the designer.         InitializeComponent()         cbominuman.Visible = False         label3 = False         ' Add any initialization after the InitializeComponent() call.     End Sub

     Maka “Combobox2” dan “label3” akan terus tersmbunyi kecuali kalua kita mengaktifkan atau menceklis checkbox1, untuk mengatur double tab pada CheckBox1 dan koding seperti dibawah ini:

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged         If CheckBox1.Enabled = False Then             cbominuman.Visible = False             Cbomakanan.Visible = False         End If         If CheckBox1.Enabled = True Then             cbominuman.Visible = True             Cbomakanan.Visible = True             label3 = True         End If     End Sub

7. Jika sudah mengaur di bagian Checkbox1 ,sekarang kita akan mengatur di bagian Button dengan cara double klik Button dan koding seperti dibawah ini:

Private Sub Btnhitung_Click(sender As Object, e As EventArgs) Handles Btnhitung.Click         Dim porsimakan As Integer         Dim porsiminum As Integer         Dim jumlah As String         porsimakan = txtporsimkn.Text         porsiminum = txtporsiminum.Text         jumlah = (porsimakan * hrgmakanan) + (porsiminum * hrgminuman)         label7.text = "Rp" & jumlah.ToString     End Sub     End Class

Disini kita membuat 3 buah variable yang berarti variable tersebut hanya bisa digunakan oleh blok program ini saja, variable tersebut adalah “porsimakan”,”porsiminum” dan “jumlah”.

Nilai dari variable porsi makan akan diambil dari yang diinputkan pada txtporsimakan begitu juga porsiminum akan diambil dari yang iinputkan pada txtporsiminum. 

Kemudian variable “jumlah” untuk menghitun total jumlah biaya yang telah kita pesan .

B.Program Belanja Sederhana

1. Pertama bukalah apikasi visual studio nya , kemudian sebelum membuat desaign nya klik new project- visual basic – project type: Windows Form Aplikation. Kemudian isi nama dan klik Ok.
2. Kemudian buatlah desaign di form desaign seperti contoh di bawah ini:

3. Jika ingin membuat codingan di button ulang double tab kemudian coding seperti contoh di bawah ini:

Public Class Form1     Private Sub btnulang_Click(sender As Object, e As EventArgs) Handles btnulang.Click         'Membersihkan isi Textbox         txtnama.Text = ""         txtharga.Text = ""         txtjumlah.Text = ""         txttotal.Text = ""         txtdiskon.Text = ""         txtbayar.Text = ""         txtbonus.Text = ""         txtnama.Focus()     End Sub

4. Jika ingin mengoding di Button hitung lalukan hal yang sama seperti di no.3 kemudian ikuti seperti contoh dibawah ini:

Private Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click         'Deklarasi Variable         Dim harga As Integer         Dim jumlah As Integer         Dim total As Double         Dim diskon As Double         Dim bayar As Double         Dim bonus As String         'Deklarasi Input Harga dan Jumlah         harga = txtharga.Text         jumlah = txtjumlah.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 = "Kaos"         ElseIf total >= 50000 Then             diskon = 0.05 * 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         txttotal.Text = total         txtdiskon.Text = diskon         txtbayar.Text = bayar         txtbonus.Text = bonus     End Sub

5. Kemudian Cara terakhir adalah membuat codingan di button3 keluar. Contohnya seperti di bawahini:

Private Sub btnkeluar_Click(sender As Object, e As EventArgs) Handles btnkeluar.Click         End     End Sub End Class

6. Dan hasil tampilannya seperti gambar di bbawah ini: