Uncategories Contoh Program Sederhana Visual Basic

Contoh Program Sederhana Visual Basic

Desember 25, 2012


LISTING PROGRAM

Private Sub CmbMakan_Change()
CmbMakan.Text = "Nasi Padang"
CmbMakan.Text = "Nasi Megono"
CmbMakan.Text = "Nasi Uduk"
CmbMakan.Text = "Nasi Kuning"
End Sub

Private Sub CmbMinum_Change()
CmbMinum.Text = "Es Kopyor"
CmbMinum.Text = "Es Kelapa Muda"
CmbMinum.Text = "Es Jeruk"
CmbMinum.Text = "Teh Botol"
End Sub

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

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

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Text3.Text = Text1 + Text2 * 1
End Sub

Private Sub Command5_Click()
Text4 = (CInt(Text1.Text) + CInt(Text2.Text)) * 0.1
End Sub

Private Sub Command6_Click()
Text5.Text = CInt(Text3.Text) + CInt(Text4.Text) * 1
End Sub

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

LOGIKA PROGRAM

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,


Next
« Prev Post
Previous
Next Post »

EmoticonEmoticon

Catatan: Hanya anggota dari blog ini yang dapat mengirim komentar.

Langganan: Posting Komentar (Atom)