hai sobat, jumpa kembali dengan Blog Hendi Hen, atau pengunjung yang tersasar dan menemukan Blog ini salam kenal saja dari saya...
Ok.. sob ga panjang lebar kita langsung ke
pokok Judul kita, kita coba untuk membuat contoh aplikasi sederhana tentang kuis atau soal yang untuk perlengkapan Form sobat bisa gunakan Label untuk membuat soal, Option Battom untuk menjawab pilihan soalnya..dan Commad untuk meng eksekusi dari jawaban yang telah dipilih, mungkin itu alur cerita yang nantinya kita tuangkan kedalam Code VB6 nya... terlebih dahulu sobat buka VB6 lalu desaingn kurang lebih seperti gambar - gambar dibawah ini yu.. ah
|
CONTOH TAMPILAN PADA FORM1 |
Sebelum kita melangkah ke form2 sebaiknya kita selesaikan dulu code pada form1 agar nanti kita tidak akan sulit menganalisa bila terjadi kesalahan..
nah untuk form1 ini alur ceritanya ada satu tombol eksekusi untuk menuju pada form berikutnya yaitu Tombol Command Bottom (mulai menjawab soal), bila kita mengklik tombol tersebut maka kita akan dibawa ke form selanjutnya.. lalu untuk Time dan Date hanya pelengkap saja untuk kodingnya pernah kita bahas sebelumnya.. lihat gambar untuk mengetik kodenya untuk form1
|
Code pada Form1 |
|
Code untuk Command Bottom |
Kode untuk Form1 >> Dobell Klik pada form1 lalu copy code dibawa ini
Private Sub Form_Load()
Label4.Caption = Time
Label5.Caption = Date
End Sub
Kode untuk Command Bottom (mulai menjawab soal)
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
bila dijalankan label yang bertulis Date dan Time akan otomatis menunjukan tanggal dan jam pada saat ini lihat akhir penampakannya.. hihihi
setelah sudah selesai pada form1 lalu masuk ke form2, tahapan ini bisa kita lakukan dengan mendisaign terlebih dahulu kurang lebihnya seperti pada gambar dibawah ini
|
Form2 masih belum di edit Teks |
|
Form 2 sudah dimasukan Teks |
setelah semuanya sudah kita buat pada form2 seperti contoh gambar diatas lalu kita lakukan cerita pada form2 ini " dari 4 jawaban, ada salah satu jawaban yang benar dan 3 jawaban salah, nah untuk membuat kuis sederhana ini kita menggunakan pesan bila jawabanya Benar maka "JAWABAN ANDA BENAR" bila tidak maka " JAWBAN ANDA SALAH" untuk menyisipkan codenya silahkah sobat capas di bahawah ini
Private Sub Command1_Click()
Form3.Show
Form2.Hide
End Sub
Private Sub Form_Load()
'agar optian tidak menampilkan pilhanyya
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
End Sub
Private Sub Option1_Click()
'pesan jawaban menggunakan code msbox lalu Pesan yang Anda Buat
MsgBox "jawaban anda salah"
End Sub
Private Sub Option2_Click()
'pesan jawaban menggunakan code msbox lalu Pesan yang Anda Buat
MsgBox "jawaban anda salah"
End Sub
Private Sub Option3_Click()
'pesan jawaban menggunakan code msbox lalu Pesan yang Anda Buat
MsgBox "jawaban anda BENAR"
End Sub
Private Sub Option4_Click()
'pesan jawaban menggunakan code msbox lalu Pesan yang Anda Buat
MsgBox "jawaban anda salah"
End Sub
baik sob.. mudah-mudahan bisa membantu diatas merupakan code yang sederhana untuk membuat contoh soal - soal, bila masih ada kesempatan nanti kita akan meneruskanya dengan menggunakan database menu penilaian dll.. untuk postingan ini mungkin cukup sekian mohon maaf bila ada kekurangannya..
terimakasih