Program2 Visual Basic
Pada pertemuan kali ini saya akan
menjelaskan tentang program sederhana pada visual basic,
Komponen-komponen yang digunakan pada
visual basic diantaranya:
Label 1 = Makanan
Label 2 = Minuman
Label 3 = Makanan
Label 4 = Minuman
Label 5 = Kantin Sejahtera
Label 6 = Jumlah Bayar Tanpa Pajak
Label 7 = Total Yang Dibayar + Pajak
Combo Box 1 = Kosong
Combo Box 2 = Kosong
Command Button 1 = Makanan
Command Button 2 = Minuman
Command Button 3 = Exit
Command Button 4 = Hitung
Command Button 5 = Pajak
Command Button 6 = Total
Text Box 1 = Kosong
Text Box 2 = Kosong
Text Box 3 = Kosong
Text Box 4 = Kosong
Text Box 5 = Kosong
Langkah pertama klik pada
label,kemudian buat label pada form sebanyak lima label.kedua klik pada text
Box,kemudian buat di form Text Box sebanyak lima,ketiga klik pada comannd button,buat
command button sebanyak enam pada form,dan mengklik pada combo box dan buat
combo box pada form sebanyak dua.
Langkah 1
Mengklik combo box 1,kemudian
menuliskan codingan seperti dibawah ini :
Private Sub
CmbMakan_Change()
CmbMakan.Text =
"Nasi Padang"
CmbMakan.Text =
"Nasi Megono"
CmbMakan.Text =
"Nasi Uduk"
CmbMakan.Text =
"Nasi Kuning"
End Sub
Digunakan untuk menampilkan pilihan
menu makanan sesuai dengan pilihan yang anda inginkan,
Langkah 2
Mengklik combo box 2,kemudian menuliskan
codingannya seperti dibawah ini:
Private Sub
CmbMinum_Change()
CmbMinum.Text = "Es
Kopyor"
CmbMinum.Text =
"Es Kelapa Muda"
CmbMinum.Text =
"Es Jeruk"
CmbMinum.Text =
"Teh Botol"
End Sub
Pada intinya sama seperti pada combo
box1,untuk menentukan pilihan tetapi di combo box 2 pilihan menu minuman.
Langkah 3
Mengklik command button 1 kemudian
menuliskan codingan pada Command Button
1 (Makanan) sebagai berikut :
Private Sub
Command1_Click()
Dim Harga As Integer
If CmbMakan.Text =
"Nasi Padang" Then
Text1 = 12000
Else
If CmbMakan.Text =
"Nasi Megono" Then
Text1 = 5000
Else
If CmbMakan.Text =
"Nasi Uduk" Then
Text1 = 6000
Else
If CmbMakan.Text =
"Nasi Kuning" Then
Text1 = 7000
Else
Text1 = 0
End If
End If
End If
End If
End Sub
Dari codingan di atas digunakan untuk
menentukan nilai harga dari masing-masing makanan sehingga di output secara
automatis akan muncul harga makanan yang dipesan.
Langkah 4
Mengklik command button 2,Setelah itu
dilanjutkan dengan menuliskan codingan pada Command Button 2 (Minuman) Sebagai
Berikut:
Private Sub
Command2_Click()
If CmbMinum.Text =
"Es Kopyor" Then
Text2 = 8000
Else
If CmbMinum.Text =
"Es Kelapa Muda" Then
Text2 = 3000
Else
If CmbMinum.Text =
"Es Jeruk" Then
Text2 = 2500
Else
If CmbMinum.Text =
"Teh Botol" Then
Text2 = 3500
Else
Text2 = 0
End If
End If
End If
End If
End Sub
Pada command button2 mempunyai fungsi
sama dengan command button1,bedanya disini untuk menampilkan harga minuman.
Langkah 5
Klik pada command button 3 ( Exit ),menulis
codingan dibawah ini :
Private Sub
Command3_Click()
End
End Sub
Fungsinya untuk memberhentikan
program yang sedang berjalan.
Langkah 6
Klik pada command button 4 ( Hitung )
seperti codingan dibawah ini :
Private Sub
Command4_Click()
Text3.Text = Text1 +
Text2 * 1
End Sub
Digunakan untuk menghitung total
makanan dan minuman.
Langkah 7
Klik pada command button 5 ( pajak
),menuliskan codingan seperti dibawah ini :
Private Sub
Command5_Click()
Text4 =
(CInt(Text1.Text) + CInt(Text2.Text)) * 0.1
End Sub
Fungsinya untuk menghitung jumlah
pajak yang nilainya 10 % dari jumlah yang di bayarkan.
Langkah 8
Klik pada
command button 6 ( Total ),kemudian tuliskan codingan seperti dibawah ini :
Private Sub
Command6_Click()
Text5.Text =
CInt(Text3.Text) + CInt(Text4.Text) * 1
End Sub
Fungsinya
untuk menghitung keseluruhan jumlah yang dibayarkan ditambah dengan jumlah
pajak sebesar 10% dari jumlah pembayaran tersebut.
Langkah
9
Pada formnya
ditulis codingan seperti ini :
Private Sub Form_Load()
CmbMakan.AddItem
("Nasi Padang")
CmbMakan.AddItem
("Nasi Megono")
CmbMakan.AddItem
("Nasi Uduk")
CmbMakan.AddItem
("Nasi Kuning")
CmbMinum.AddItem
("Es Kopyor")
CmbMinum.AddItem
("Es Kelapa Muda")
CmbMinum.AddItem
("Es Jeruk")
CmbMinum.AddItem
("Es Teh Manis")
End Sub
Setelah
semua codingannya di tulis kemudian jalankan programnya dengan mengklik run.
Dan berikut
contoh output dari program sederhana visual basic yang saya buat,
EmoticonEmoticon
Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.