Banner 468 x 60px

Sebuah Dunia..

Tentang Semesta Hidupku

 

Senin, 30 Oktober 2017

CARA MEMBUAT MEDIA PEMBELAJARAN (QUIZ dengan Ms. POWERPOINT)

0 komentar

Media Pembelajaran sangat diperlukan dalam kegiatan pembelajaran supaya kegiatan pembelajaran di kelas sangat menarik dan mengesankan.

Misalkan, kita membuat media pembelajaran berupa quiz pembelajaran. Berikut cara membuat quiz interaktif untuk mata pelajaran matematika.

CARA MEMBUAT QUIZ INTERAKTIF

1.     Buatlah soal kuis, dengan slide pertama tulis seperti ini:



2.     Slide ke-2, slide ke-3, slide ke-4, dan slide ke-5 berisi pertanyyan yang ingin Anda membuat kuis. Misalkan membuat soal tentang Persamaan dan Pertidaksamaan Kuadrat.            


3.      Dan slide terkahir berisi cek skor kuis. Seperti gambar berikut ini.



4.      Jika sudah tekan alt + F11 pada keyboard lalu akan muncul Microsoft Visual Basic. Pilih menu insert , kemudian pilih module. Jika sudah akan muncul seperti gambar berikut.



5.      Sebelum kita mengisi kotak kosong. Ketik dahulu rumus pada notepad. Caranya klik start-All Program- Accesories – pilih notepad. Jika sudah ketik rumus dibawah ini lalu save di komputer anda.

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 + 2
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 (" skor anda 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.Next
End If
End Sub


6.      Jika sudah di save, lalu anda kembali pada microsoft visual basic lalu copy-paste rumus tersebut pada kotak kosong. Catatan : jika ketikan anda ada yang berwarna merah berarti anda salah mengetik, jika begitu periksa ulang sampai benar.

7.      Jika sudah lalu anda kembali ke Ms. Power Point , lalu klik gambar START Pada slide pertama lalu pilih menu insert-action – pilih Run Macro – lalu pilih “mulai_kuis”.



8.      Setelah itu lakukan berulang pada slide kedua , klik jawaban salah lakukan cara seperti diatas tapi pada run Macro pilih “salah” sedangkan jawaban benar pilih “benar”. Lakukan berulang pada pertanyaan kuis yang anda buat.


9.      Jika sudah lalu lakukan lagi hal yang sama pada slide terakhir seperti cara 5 dengan diklik  gambar SKOR dan pilih “skor” pada Run macro.

10.  Jika sudah selesai, silahkan anda coba kuis nya dengan cara klik Slide Show (F5). Dan jika ingin di simpan agar tidak hilang editan kuisnya maka anda ganti di format type  “Power Point Enable Template”.

Langkah-langkahnya dapat didownload dibawah ini



0 komentar:

Posting Komentar

 
DekaMath © 2017