UTS PEMOGRAMAN VISUAL : MEMBUAT PROGRAM SEDERHANA DENGAN VISUAL BASIC 6.0
PEMOGRAMAN SEDERHANA JUAL BELI BUKU
Dosen Pembimbing : Nabila Oper S.Kom
Mata Kuliah : Pemograman Visual
Institut Teknologi dan Bisnis sekolah TInggi Ilmu Komputer Ambon
Nama : Fairina Umasugi
Nim : 190101040
Kelas : Ti4c
KONDISI & KEPUTUSAN
1.1 Percabangan dengan If…Then…Else…
Percabangan berdasarkan kondisi suatu variabel atau nilai di dalam pemrograman Visual Basic dinyatakan dengan perintah:
If <kondisi> Then
< Keputusan kondisi benar >
Else
< Keputusan kondisi salah >
End If
Penulisan percabangan seperti di atas disebut dengan “kondisi dan keputusan”.
Dalam pengertian yang umum bisa dikatakan:
“Jika memenuhi kondisi maka lakukan proses keputusan untuk
kondisi benar, jika tidak lakukan proses keputusan untuk kondisi
salah”
Penulisan percabangan di dalam Visual Basic mempunyai beberapa format,
antara lain:
(1) Jika kondisi dipenuhi maka dilakukan proses yang hanya satu baris perintah
If kondisi Then <Proses Kondisi Benar>
(2) Jika kondisi dipenuhi maka dilakukan proses yang lebih dari satu baris perintah
If kondisi Then
<Proses Kondisi Benar>
End If
(3) Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah
If kondisi Then <Proses A> Else <Proses B>
(4) Jika kondisi dipenuhi maka dilakukan proses A, jika tidak dilakukan proses B yang masing-masing hanya satu baris perintah
If kondisi Then
<Proses A>
Else
<Proses
B> End If
1.2. Percabangan dengan If…Then…Else… Berantai
Percabangan tidak harus hanya memiliki satu kondisi, bisa juga percabangan
memiliki banyak kondisi dengan banyak proses keputusan, hal ini sering dinamakan
dengan percabangan berantai. Percabangan berantai secara umum ada dua macam
yang dituliskan dengan:
(1) Jenis percabangan berantai dengan hanya satu kondisi yang bisa terpenuhi
If <kondisi1> Then
<Keputusandalam kondisi1>
else if <Kondisi2> Then
<Keputusan dalam kondisi2>
else if <Kondisi3> Then
<Keputusan dalam kondisi3>
Else If <Kondisi4> Then
<Keputusan dalam kondisi 4>
Else
--- Keputusan yang lain ---
End If
End If
End If
End If
(2) Jenis percabangan berantai dengan banyak kondisi yang harus dipenuhi.
If <kondisi1> Then <Keputusan
dalam kondisi1> if
<Kondisi2> Then
<Keputusan dalam kondisi2>
if <Kondisi3> Then
<Keputusan dalam kondisi1, kondisi 2
dan kondisi 3>
Else
<Keputusan dalam kondisi1 dan
kondisi2 tetapi tidak dalam kondisi
3>
End If
End If
End If
Contoh Aplikasi sederhana Jual Beli Buku dengan visual basic 6.0
langkah-langkah pembuatan program Aplikasi Jual Beli Buku
langkah-langkah pembuatan program Aplikasi Jual Beli Buku
1. Buka Aplikasi Visual basic 6.0 lalu pilih standar.exe ,lalu open
2. Atur ukuran form, untuk form isi property (caption ) dengan nim (misalnya : 190101040)
3. Tambahkan komponen-komponen seperti 5 label, 3 textbox, 3 commant button ,dan 1 combobox.
4. langkah selanjutnya mengisi komponen-komponen diatas sebagai berikut :
Ø form property :
· caption: 19010101040/190101008/190101139
· backcolor: &H0000FFFF&
Ø label property :
· caption : jual beli buku
· backstyle : transparent
· Alignmet : center
· font : courier new-bold-12
· bckcolor : &H8000000F&
Ø label property :
· name : txtjudul
· caption : judul buku
· backstyle : transparent
· font : courier new-bold-12
· backcolor : &H8000000F&
Ø label property :
· name : txtharga
· caption : harga buku
· backstyle : transparent
· font : courier new-bold-12
· backcolor : &H8000000F&
Ø label property :
· name : txtjumlah
· caption : jumlah buku
· backstyle : transparent
· font : courier new-bold-12
· backcolor : &H8000000F&
Ø label property :
· name : txttotal
· caption : total
· backstyle : transparent
· font : courier new-bold-12
· backcolor :&H8000000F&
Ø combobox property :
· name : cmdjudul
· text : none
· font : courier new-bold-12
· backcolor : &H8000000F&
Ø commondbutton property :
· name : cmdbeli
· caption : beli
· font : courier new-bold-12
· &H8000000F&
Ø commondbutton property :
· name : cmdclear
· caption : clear
· font : courier new-bold-12
· &H8000000F&
Ø commondbutton property :
· name : cmdexit
· caption : exit
· font : courier new-bold-12
· &H8000000F&
Ø textbox property :
· name : text1
· text : none
· font : courier new-bold-12
· &H8000000F&
Ø textbox property :
· name : text2
· text : none
· font : courier new-bold-12
· &H8000000F&
Ø textbox property :
· name : text3
· text : none
· font : courier new-bold-12
· &H8000000F&
5. atur semua komponen sesuai keinginan seperti pada gambar
6. klik command tambahkan program percabangan (if ,else)
8.simpan project dengan nama yanng diinginkan (misalnya fairyna).
Tampilan Query
Form
Private Sub Form_Load()
cmdjudul.AddItem "Harry Potter and the chamber of secrets"
cmdjudul.AddItem "Harry Potter and the goblet of fire"
cmdjudul.AddItem "Harry Potter and the cursed child"
cmdjudul.AddItem "Harry Potter and the orde phonix"
Combolist
Private Sub cmdjudul_Click()
If cmdjudul.Text = "Harry Potter and the chamber of secrets" Then
Text1.Text = "150000"
ElseIf cmdjudul.Text = "Harry Potter and the goblet of fire" Then
Text1.Text = "120000"
ElseIf cmdjudul.Text = "Harry Potter and the cursed child" Then
Text1.Text = "160000"
ElseIf cmdjudul.Text = "Harry Potter and the orde phonix" Then
Text1.Text = "140000"
End If
End Sub
command (beli)
Private Sub cmdbeli_Click() 'ketika cmdbeli di click'
a = Val(Text1)
b = Val(Text2)
c = a * b
Text3 = c
End Sub
command (Clear)
Private Sub cmdclear_Click()
cmdjudul.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
command (Exit)
Private Sub cmdexit_Click()
Unload Me
End Sub
Tamplan Aplikasi
Tampilan setelah di star
Tampilan program Aplikasi yang dijalankan
TERIMAKASIH
......❤ selamat mencoba ❤.......
Komentar
Posting Komentar