e-learning kimia

1.     Mulai dengan membuka Microsoft powerpoint.

2.    Kemudian tekan alt+F11, akan muncul tampilan seperti dibawah ini,

3.    Pilih insert  à module

4.    Isikan dengan:

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai_kuis()

nilai = 0

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub benar()

konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")

If konfirmasi = vbYes Then

nilai = nilai + 1

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub salah()

konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub cek_skor()

MsgBox (" Jawaban anda yang benar adalah " & nilai)

konfirmasi = MsgBox(" Ingin Mengulangi kuis? ", vbYesNo)

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.First

End If

If konfirmasi = vbNo Then

ActivePresentation.SlideShowWindow.View.Exit

End If

End Sub

5.    Mulai mengetik di Microsoft powerpoint dengan bagian: pendahuluan, isi dan penutup. Contoh bagian pendahuluan ditulis dengan data sebagai berikut (yang terpenting disini adalah kata start) :

Bagian isi ditulis dengan pertanyaan pilihan ganda. Contoh:

NB: opsi pilihan ganda harus ditulis manual, artinya tidak boleh pakai bullets and numbering.

Bagian penutup ditulis dengan contoh sebagai berikut(yang harus ada adalah kata cek):

NB: tanda cross dan tanda home boleh dihilangkan.

6.    Pada bagian pendahuluan, pilih tulisan start, kemudian pada insert pilih action à run macro (dibullet) à mulai kuis

7.    Pada slide pertanyaan :  setiap tombol jawaban (teks juga bisa), berilah action dengan cara : Pilih tombol > Klik Menu Insert  >  Klik Icon Action > Run Macro > Pilih “Benar” untuk jawaban benar dan “salah” untuk jawaban salah.

8.    Pada slide penutup :  pilih tombol “Cek Jawaban” lalu klik Insert > Action > Run Macro > cek_skor

9. Agar peserta tes tidak menekan tombol selain yang di sediakan, lebih baik non aktifkan klik pada semua slide. Pilih slide show à browsed at a kjosk (full screen) (show type ke tiga) à ok

10. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format  PPTM (PowerPoint Macro – Enabled Presentation)

OK demikian tutorial singkat dari saya, selamat mencoba sob… ;)