Setelah pembaca mempelajari pembuatan program CBT dengan Delphi yang kedua dan mengimplementasikannya, di dalam artikel ini, penulis akan melanjutkan bagaimana membuat soal yang ada di dalam delphi tersebut teracak.
Data soal di dalam program delphi tersebut merupakan data yang tersimpan di dalam array of record. Panjang array of record tersebut dinamis. Untuk mengetahui panjang sebuah array, bisa menggunakan fungsi Count.
Penulis menambahkan prosedur AcakSoal seperti di dalam Gambar 1. Pembaca silakan menambahkannya di bawah implementasi.
 |
| Gambar 1. Prosedur AcakSoal |
Prosedur AcakSoal tersebut digunakan untuk mengacak soal yang berada di dalam array. Hasilnya soal-soal yang berada di dalam array akan perpindah urutannya secara acak.
Namun, prosedur tersebut tidak berfungsi apabila hanya dibuat saja. Prosedur tersebut harus dipanggil. Pembanggilannya dilakukan saat inisialisasi awal yaitu saat form utama diciptakan. Oleh karena itu, penulis mengubah prosedur FormCreate seperti pada Gambar 2.
 |
| Gambar 2. Pengubahan prosedur FormCreate |
Pada Gambar 2, penulis menambahakan perintah acakSoal(3) dimana digunakan untuk mengacak soal yang ada di dalam variabel DataSoal. Angka 3 digunakan untuk proses pengacakan dilakukan sebanyak tiga kali.
Demikian materi CBT menggunakan Delphi tahap 3. Semoga bermanfaat. Jika ada pertanyaan silakan tuliskan di dalam komentar di bawah.
Terimakasih.
Tidak ada komentar:
Posting Komentar
Silakan menulis komentar. Tulislah komentar dengan penuh tanggung jawab.