2. mulai lah mengetik soal pada slide di power point
contoh : MATA PELAJARAN GEOGRAFI
Pilihlah jawaban yang paling tepat menurut anda pada soal-soal berikut ini dengan mengklik jawaban yang di anggap benar.
Waktu maksimal 2 x 45 menit
Untuk memulaikuis klik “START”
Kemudian selesaikan soal soal ygng sudah anda siapkan di ketik rapih pada setiap slide setelah semuanya selasai arahkan kursoranda pada slide 1 dan tekan ALT F11 pada kotak start sehingga secara otomatis akan muncul tampilan "Notepad"
3. setelah itu klik save pada gamba save yang terdapat pada "Notepad"
4. kemudian klik Insert dan pilih Module sehingga akan muncul halaman untuk mengetik rumusnya:
Dim nilai As Integer
Dim konfirmasi As String
Sub mulai_kuis()
nilai = 0
Active Presentasion.SlideShow.Window.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox("Apakah anda yakin dengan jawaban anda?",vbYesNo,"Cek Jawaban!")
If konfirmasi = vbYesThen
nilai = nilai + 10
ActivePresentasion.SlideShow.Window.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox(Apakah anda yakin dengan jawaban anda?",vbYesNo,"Cek Jawaban!")
If konfirmasi = vbYesThen
ActivePresentasion.SlideShow.Window.View.Next
And If
End Sub()
Sub cek_skor()
MsgBox("skor anda adalah" & nilai)
konfirmasi = MsgBox("Ingin mencoba kuis lagi?",vbYesNo)
If konfirmasi = vbYes Then
ActivePresentasion.SlideShow.Window.View.First
End If
If konfirmasi = vbNo Then
ActivePresentasion.SlideShow.Window.view.Next
End If
End Sub
setelaah selasai mengetik rumus d atas tekan Enter dan Save
5. arahkan spasi pada opstion pilihan ganda kemudian simpan spasi sebelum huruf pilihan opstion dan klik Insert lalu pilih Action pililih lah benar atau salah sesuai dengan jawaban soal tersebut pada setiap opstion.
6. kemudian silahkan untuk d coba....
7. agar lebih menarik anda bisa meng edit tampilannya dengan menambahkan berbagai animasi dan disign warna sesuai keinginan
8. selamat mencoba
Tidak ada komentar:
Posting Komentar