ðInterface (Toolbox yang digunakan) :
3 Label : *Daftar Penyewaan Sepeda Q-ta
*maksimal penyewaan adalah 5 hari
*(kosong)
1 Frame : *Jenis Sepeda
4 OptionButton : *Sepeda Otel
*Sepda Kumbang
*Sepeda Gunung
*Sepeda Down Hill
3 CommandButton : *Lihat Gambar
*Lihat Daftar Harga
*Lihat Registrasi
1 Timmer : *untuk variasi warna kata pada label 2
ð Coding & Logika Program :
Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
MsgBox “Tentukan jenis sepedanya dunks..”, vbInformation + vbOKOnly, “informasi”
Else
If Option1.Value = True Then
nama = Option1.Caption
ElseIf Option2.Value = True Then
nama = Option2.Caption
ElseIf Option3.Value = True Then
nama = Option3.Caption
ElseIf Option4.Value = True Then
nama = Option4.Caption
End If
Form9.Show
Unload Me
End If
End Sub
Untuk command lakukan registrasi yang kalau di klik saat program di jalankan tanpa memilih salah satu dari option yang ada akan muncul pesan; ‘Tentukan jenis sepedanya’ itu bila kita tidak memilih option yang ada di dalam frame (tidak akan bisa masuk ke dalam form selanjutnya).
Tapi kalau kita memilih, akan berlanjut ke form 9.
Dalam coding jika option1 mempunyai nilai kontrol yang salah dalam arti tidak ada pemilihan pada option tersebut, maka muncul lah messagebox, tetapi jika option1 yang di deklarasikan sebagai nama pada modul memiliki nilai control yang benar dalam arti terdapat pemilihan opsi pada option terseut, maka tampilkan form 9.
Private Sub Command2_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
MsgBox “Tentukan jenis gambar sepedanya..”, vbInformation + vbOKOnly, “informasi”
Else
If Option1.Value = True Then
nama = Option1.Caption
ElseIf Option2.Value = True Then
nama = Option2.Caption
ElseIf Option3.Value = True Then
nama = Option3.Caption
ElseIf Option4.Value = True Then
nama = Option4.Caption
End If
Form5.Show
Unload Me
End if
End Sub
Pada command 2 lihat gambar, jika program di jalankan tanpa memilih salah satu dari option yang ada akan muncul pesan; “Tentukan jenis gambar sepedanya” itu bila kita tidak memilih option yang ada di dalam frame (tidak akan bisa masuk ke dalam form selanjutnya).
Tapi kalau kita memilih, akan berlanjut ke form 5.
Dalam coding jika option1 mempunyai nilai kontrol yang salah dalam arti tidak ada pemilihan pada option tersebut, maka muncul lah messagebox, tetapi jika option1 yang di deklarasikan sebagai nama pada modul memiliki nilai control yang benar dalam arti terdapat pemilihan opsi pada option terseut, maka tampilkan form5.
Pada coding option1 bernilai control benar (kita memilih salah 1 option tersebut), maka option1 akan disimpan di variabel nama pada modul, begitu juga dengan option 1, 2, 4 dan 4, lalu akan menampilkan form 5 sebagai form untuk menampilkan gambar yang dipilih pada option, juga menampilkan tulisan atau judul yang sama dengan option tersebut.
Private Sub Command3_Click()
Form4.Show
Unload Me
End Sub
Pada command 3 lihat daftar harga ini untuk menampilkan form4 dan menutup form3
Private Sub Form_Load()
Label2.FontSize = 13
Label2.Alignment = 2
Label2.Height = 400
Label2.Left = 1440
Label2.Top = 6960
Label2.Width = 4500
Label2.Caption = “program by; ..yusuf..iryana..ingrid”
Me.Height = 8000
Me.Width = 7500
End Sub
Pada form 2, label 2 akan diganti ukurannya menjadi 13, posisi huruf/kalimat menjadi 2 yaitu center (pada setting properties), tinggi ukuran label 400, posisi label dari sisi kiri sebanyak 1440, posisi label dari sisi atas sebanyak 6960, lebar label 4500, dan caption pada label ‘program by; ..yusuf..iryana..ingrid’. ukuran tinggi form itu sendiri adalah 8000 dan lebar 7500.
Private Sub Timer1_Timer()
If Label2.ForeColor = vbBlue Then
Label2.ForeColor = vbYellow
Else
If Label2.ForeColor = vbYellow Then
Label2.ForeColor = vbRed
Else
If Label2.ForeColor = vbRed Then
Label2.ForeColor = vbWhite
Else
If Label2.ForeColor = vbWhite Then
Label2.ForeColor = vbGreen
Else
Label2.ForeColor = vbBlue
End If
End If
End If
End If
End Sub
Pada sub timer interval dirubah pada properties menjadi 200. interval 200 ini menentukan cepat lambatnya pergantian warna. Semakin kecil interval yang diberikan waktu yang digunakan untuk merubah warna semakin cepat. Sedangkan semakin besar interval yang diberikan,semakin lambat waktu yang diberikan untuk perubahan warna. Perubahan warna yang diberikan yaitu biru,kuning,merah,putih dan hijau.
Warna pada perubahan warna di input sesuai dengan keinginan sendiri.
ð Interface (Toolbox yang digunakan) :
3 ComandButton : *Kredit
*Cash
*Kembali ke menu utama
ð Coding & Logika Program :
Private Sub Command1_Click()
pesan = MsgBox(“Gunakan kartu kredit untuk pembayaran anda”, vbOKOnly + vbExclamation, “perhatian”)
pesan = vbOK
Form6.Show
Unload Me
End Sub
Apabila di klik command1 yaitu kredit, maka akan muncul sebuah pesan berjudul perhatian dengan pesan ‘Gunakan kartu kredit untuk pembayaran anda’ dan pilihan OK yang bila di klik OK akan masuk ke form selanjutnya, yaitu form 6.
Private Sub Command2_Click()
x = MsgBox(“Silahkan bayar pada kasir kami. Terima kasih !”, vbOKOnly, “perhatian”)
x = vbOK
Form7.Show
Unload Me
End Sub
Apabila di klik command2 yaitu cash, maka akan muncul sebuah pesan berjudul perhatian juga dengan pesan ‘Silahkan bayar pada kasir kami. Terima kasih’ dan pilihan OK yang bila di klik akan masuk ke form 7.
Private Sub Command3_Click()
Form2.Show
Unload Me
End Sub
Apabila di klik command3 yaitu kembali ke menu, maka akan kembali ke form awal (form 2).
ð Interface (Toolbox yang digunakan) :
3 ComandButton : *Kredit
*Cash
*Kembali ke menu utama
ð Coding & Logika Program :
Private Sub Command1_Click()
pesan = MsgBox(“Gunakan kartu kredit untuk pembayaran anda”, vbOKOnly + vbExclamation, “perhatian”)
pesan = vbOK
Form6.Show
Unload Me
End Sub
Apabila di klik command1 yaitu kredit, maka akan muncul sebuah pesan berjudul perhatian dengan pesan ‘Gunakan kartu kredit untuk pembayaran anda’ dan pilihan OK yang bila di klik OK akan masuk ke form selanjutnya, yaitu form 6.
Private Sub Command2_Click()
x = MsgBox(“Silahkan bayar pada kasir kami. Terima kasih !”, vbOKOnly, “perhatian”)
x = vbOK
Form7.Show
Unload Me
End Sub
Apabila di klik command2 yaitu cash, maka akan muncul sebuah pesan berjudul perhatian juga dengan pesan ‘Silahkan bayar pada kasir kami. Terima kasih’ dan pilihan OK yang bila di klik akan masuk ke form 7.
Private Sub Command3_Click()
Form2.Show
Unload Me
End Sub
Apabila di klik command3 yaitu kembali ke menu, maka akan kembali ke form awal (form 2).
ð Interface (Toolbox yang digunakan) :
5 Label : *Daftar Harga Penyewaan Sepeda Q-ta per Hari
*Sepeda Ontel…
*Sepeda Kumbang…
*Sepeda Gunung…
*Sepeda Don Hill…
1 CommandButton : *BACK
ð Coding & Logika Program :
Private Sub Command1_Click()
Form2.Show
Unload Me
End Sub
Command1 yaitu BACK akan menutup form 3 dan akan membuka form2 atau form awal.
ð Interface (Toolbox yang digunakan) :
1 CommandButton :*KEMBALI
1 image :*(upload gambar)
ð Coding & Logika Program :
Private Sub Command1_Click()
Form2.Show
Unload Me
End Sub
Pada sub command1_click() atau kembali jika pengguna mengklik menu tersebut maka menu tersebut akan menutup form5 dan memebuka form2
Private Sub Form_Load()
gbr = “d:\tugas oni”
Label1.Caption = nama
If Label1.Caption = “Sepeda Ontel” Then
Image1.Picture = LoadPicture(gbr + “\ontel.jpeg”)
ElseIf Label1.Caption = “Sepeda Kumbang” Then
Image1.Picture = LoadPicture(gbr + “\speda kumbang.JPG”)
ElseIf Label1.Caption = “Sepeda Gunung” Then
Image1.Picture = LoadPicture(gbr + “\sepeda gunung.jpeg”)
ElseIf Label1.Caption = “Sepeda Down Hill” Then
Image1.Picture = LoadPicture(gbr + “\speda downhill.JPG”)
End If
End Sub
Pada sub form_load() form5 ini berkaitan dengan form2 pada command2 atau pilih gambar pada form ini jika pengguna mengklik pilihan “sepeda ontel” maka variable nama akan menyimpannya sementara dan setelah pengguna mengklik lihat gambar atau mengklik command2 di form2 maka gambar dan tulisan akan muncul di dalam label1.caption dan gambar akan muncul di dalam image1.picture, itu dikarenakan adanya stetment label1.caption = nama , if label1.caption =”Sepeda ontel” then image1.picture = loadpcture(gbr+”\ontel.jpeg”). itu maksudnya jika isi data dari variable nama tersebut sama dengan label1.caption maka data dari variable nama tersebut akan tercetak di dalam label1.caption dan image1.pictute akan mencari file nama file ontel dengan extensi jpeg di dalam partisi “d” dan di dalam di folder “tugas oni”.
Penjelasan pada statement if label1.caption =”Sepeda ontel” Sama dengan penjelasan pada stetment elseif Label1.Caption = “Sepeda Kumbang” , ElseIf Label1.Caption = “Sepeda Gunung” , ElseIf Label1.Caption = “Sepeda Down Hill” yang membedakan hanya isi data dari variable nama saja.
ð Interface (Toolbox yang digunakan) :
6 Label : *Data Penyewaan dengan pembayaran kredit
*Nama :
*Nomor telepon :
*Alamat*Jenis kartu kredit:
*Masukkan nomor kartu anda :
5 TextBox : *(kosong)
2 CommandButton : *OK
*CANCEL
ð Coding & Logika Program :
Private Sub Cmd_cencel_Click()
Form2.Show
Unload Me
End Sub
Command cancel akan mengembalikan aplikasi ke menu semula (form 2).
Private Sub Cmd_ok_Click()
If txt_nama.Text = “” Or Txt_nmbr_tlp.Text = “” Or Txt_almt.Text = “” Or Txt_jkk.Text = “” Or Txt_mnkka.Text = “” Then
MsgBox “data belum terisi semua”, vbOKOnly, “peringatan”
Else
MsgBox “apakah data yang anda isi sudah benar?”, vbQuestion + vbOKOnly
Form7.Show
Unload Me
End If
End Sub
Command ok, jika pada textbox nama, nmbr_tlp, almt, jkk, mnkka tidak terisi (tapi d klik ok) maka akan muncul pesan dengan judul peringatan ‘data belum terisi semua’ dan pilihan ok, selain itu bila semua texbox sudah terisi akan muncul pesan pertanyaan ‘apakah data yang anda isi sudah benar?’ dan pilihan ok
ð Interface (Toolbox yang digunakan) :
1 Label : *Terimakasih atas penyewaan anda
2 CommandButton : *selesai
*kembali
ð Coding & Logika Program :
Private Sub Command1_Click()
Form2.Show
Unload Me
End Sub
Command kembali akan mengembalikan aplikasi ke form semula yaitu form 2 atau form menu.
Private Sub Command2_Click()
End
End Sub
Command selesai akan menydahi aplikasi keluar dari aplikasi.
ð Interface (Toolbox yang digunakan) :
4 Label : *Sepeda yang anda sewa adalah
*Lama penyewaan
*Klik disini…
*(kosong)
ð Coding & Logika Program :
Dim hrg As Double
Dim total As Double
Private Sub Command1_Click()
Form2.Show
Unload Me
End Sub
Deklarasikan variabel yang akan dipakai pada form ini.
Command kembali untuk kembali ke menu awal yaitu form 2.
Private Sub Command2_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox “Tentukan lama penyewaannya?”, vbQuestion + vbOKOnly, “periksa kembali”
Else
Form3.Show
Unload Me
End If
End Sub
Command lanjutkan, jika option 1, 2 atau 3 bernilai salah yang berarti tidak menentukan pilihan option tersebut, maka akan muncul pesan pertanyaan ‘Tentukan lama penyewaan’ dengan judul periksa kembali dan pilihan OK, selain itu bila option 1, 2 atau 3 bernilai benar yang berabti kita telah menentukan pilihan pada option tersebut, maka akan ditampilkan form selanjutnya yaitu form 3.
Private Sub Form_Load()
Label4.Caption = nama
If Label4.Caption = “Sepeda Ontel” Then
hrg = 20000
ElseIf Label4.Caption = “Sepeda Kumbang” Then
hrg = 25000
ElseIf Label4.Caption = “Sepeda Gunung” Then
hrg = 30000
Else
hrg = 33000
End If
End Sub
Label4 akan berisikan nama dari option yang telah dipilih sebelumnya pada form utama, nama pada coding telah di deklarasikan dalam modul agar dapat dipakai pada form berbeda. Jika label 4 itu adalah ‘Sepeda Ontel’ maka beri harga 20000, selain itu jika label 4 adalah ‘Sepeda Kumbang’ maka beri harga 25000, selain itu jika label 4 adalah ‘Sepeda Gunung’ maka beri harga 30000, selain semua itu eri harga 33000. (harga-harga disini tidak ditampilkan pada form, hanya di deklarasikan untuk nanti digunakan)
Private Sub Label1_Click()
If Option1.Value = True Then
total = hrg * 3
ElseIf Option2.Value = True Then
total = hrg * 4
ElseIf Option3.Value = True Then
total = hrg * 5
Else
End If
Label1.Caption = total
End Sub
Label 1 disini digunakan untuk mengetahui total harga yang harus dibayar, hanya dengan meng-klik tulisan ‘klik disini untuk..’ . dengan rumus yang digunakan jika option 1
Dalam aplikasi ini kita menggunakan modul sebagai deklarasi nama untuk dapat kita panggil lagi lewat coding form hanya dengan mengetikkan nama, dengan bentuk umum nama = …… . caption. Dalam modul kita menggunakan kata public untuk mendeklarasikannya di ikuti tipe datanya.
Thanks To: http://ucupkelings.files.wordpress.com
0 komentar:
Posting Komentar