Membuat Aplikasi Sederhana Kuis atau Soal denganForm - form di VB6

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

conoth program yang sudah jadinya sob  Klik