Langsung saja berikut ini cara menciptakan media pembelajaran memakai Ms. Power Point
https://guruprofesionalyes.blogspot.com//search?q=membuat-kuis-dan-nilai-otomasti-keluar
https://guruprofesionalyes.blogspot.com//search?q=membuat-kuis-dan-nilai-otomasti-keluar
dan ini hasilnya.. DOWNLOAD
1. Bukalah Ms Powerpoint dan buatlah Slide baru.
- Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.
- Pilih sajian Insert, Module dan Copy-paste lah script VB berikut:
Dim nilai As Integer
Dim konfirmasi As String
Sub mulai()
konfirmasi = MsgBox("Anda akan segera mulai Kuis ini", vbYesNo)
If konfirmasi = vbYes Then
nilai = 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub benar()
konfirmasi = MsgBox("Yakin dengan balasan 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 balasan anda?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub jawab()
'tombol untuk selesai
MsgBox (" skor anda yaitu " & nilai)
End Sub
2. Pada Slide 1 kita buat shapes yang akan menghubungkan ke slide kuis. Caranya klik Insert >> Shapes >> Oval. Lalu buat bundar pada slide 1 dengan mendrag dan menekan shift biar bentuknya simetri.
contohnya ibarat gambar berikut.
https://guruprofesionalyes.blogspot.com//search?q=membuat-kuis-dan-nilai-otomasti-keluar
https://guruprofesionalyes.blogspot.com//search?q=membuat-kuis-dan-nilai-otomasti-keluar
dan ini hasilnya.. DOWNLOAD
Buat lebih berguna, kongsi: