Rabu, 10 April 2013

Pemrograman Menggunakan Visual Basic 6

Di postingan yang lalu saya pernah membahas tentang pemograman menggunakan aplikasi C++.
Nah di postingan saya sekarang, saya mencoba mengenalkan pemograman menggunakan aplikasi Visual Basic 6.
Pada postingan kali ini saya menggunakan fungsi IF majemuk dan fungsi bersarang, langsung aja di liat dan bisa di coba dirumah.

>> ini saya tampilkan capturenya biar gak bingung hasilnya seperti apa :


nb: kalo gambarnya gak jelas tinggal di klik aja di jamin mantab hhehe



>> untuk codingnya sebagai berikut :
Private Sub ac_Click()
tac.Text = 20000
End Sub

Private Sub bagasi_Click()
tbagasi.Text = 35000
End Sub


Private Sub bayar_Change()
kembali.Text = Val(bayar.Text) - Val(tobay.Text)
End Sub

Private Sub bersih_Click()
merek.Text = "--Merk Mobil--"
nama.Text = ""
alamat.Text = ""
lama.Text = ""
bayar.Text = ""
dgsupir.Value = False
tpsupir.Value = False
ac.Value = False
cd.Value = False
bagasi.Value = False
kembali.Text = ""
tobay.Text = ""
supir.Text = ""
jenis.Text = ""
tac.Text = ""
tcd.Text = ""
harga.Text = ""
tbagasi.Text = ""
nama.SetFocus
End Sub

Private Sub cd_Click()
tcd.Text = 30000
End Sub

Private Sub dgsupir_Click()
supir.Text = 100000
End Sub

Private Sub Form_Activate()
nama.SetFocus
End Sub

Private Sub Form_Load()
merek.Text = "--Merk Mobil--"
merek.AddItem "Toyota"
merek.AddItem "Daihatsu"
merek.AddItem "Mitsubishi"
jenis.AddItem "Sedan"
jenis.AddItem "Minibus"
jenis.AddItem "Pickup"
End Sub

Private Sub hitung_Click()
tobay.Text = Val((harga.Text) * Val(lama.Text)) + Val((supir.Text) + Val(tac.Text) + Val(tcd.Text) + Val(tbagasi.Text))
bayar.SetFocus
End Sub

Private Sub jenis_Click()
If merek.Text = "Toyota" Then
If jenis.ListIndex = 0 Then
harga.Text = 700000
ElseIf jenis.ListIndex = 1 Then
harga.Text = 850000
ElseIf jenis.ListIndex = 2 Then
harga.Text = 1000000
End If
End If

If merek.Text = "Daihatsu" Then
If jenis.ListIndex = 0 Then
harga.Text = 800000
ElseIf jenis.ListIndex = 1 Then
harga.Text = 950000
ElseIf jenis.ListIndex = 2 Then
harga.Text = 1200000
End If
End If

If merek.Text = "Mitsubishi" Then
If jenis.ListIndex = 0 Then
harga.Text = 850000
ElseIf jenis.ListIndex = 1 Then
harga.Text = 1300000
ElseIf jenis.ListIndex = 2 Then
harga.Text = 1450000
End If
End If
lama.SetFocus
End Sub



Private Sub keluar_Click()
X = MsgBox("Yakin Ente Mau Keluar . .. ??", vbOKCancel + vbQuestion, "Konfirmasi")
If X = vbOK Then
Unload Me
End If
End Sub

Private Sub Timer1_Timer()
date.Text = Format(Now, "dd mmmm yyyy")
jam.Text = Time
If Label6.Enabled = True Then
Label6.Enabled = False
Else
Label6.Enabled = True
End If
End Sub

Private Sub tpsupir_Click()
supir.Text = 0
End Sub

>> ketentuan programnya :
* ketika form di RUN tanggal dan jam tampil otomatis sesuai jam sistem
* isi combobox merek mobil : Toyota, Daihatsu, dan Mitsubitsi
* isi listbox jenis mobil : sedan, minibus, dan pick up
* Toyota sedan = 700000, minibus = 850000, pickup = 1000000
* Daihatsu sedan = 800000, minibus = 950000, pickup = 1200000
* Mitsubitsi sedan = 850000, minibus = 1300000, pickup = 1450000
* lama sewa di input manual
* jika pilih supir maka biaya 100000, jika tidak maka 0
* pilih fasilitas
* AC = 20000
* CD/DVD = 30000
* BAGASI = 35000
* jika hitung di klik maka total bayar akan tampil
* Total bayar = (hrg sewa x lama sewa)+(biaya supir + biaya AC + CD?DVD + BAGASI)
* input uang bayar maka uang kembali muncul otomatis
* klik bersih maka semua objek di form akan kosong kembali
* klik keluar maka akan muncul messages box

Tidak ada komentar:
Write komentar

Blogroll

Labels