Minggu, 23 April 2017

Kode Macro Kuis PowerPoint

Adapun kode Macro yang dapat digunakan pada kuis PowerPoint adalah sebagai berikut. Sebaiknya Copy dan paste Kode tersebut untuk menghindari salah ketik:

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

Jumat, 05 Juni 2015

Rabu, 04 Maret 2015

Media Penguat Ingatan

       Ada tiga alasan penting penggunaan media dalam proses pembelajaran, yaitu: 1) mempermudah materi yang sulit dipahami peserta didik, 2) meningkatkan perhatian, minat dan motivasi peserta didik, 3) memperkuat daya ingat peserta didik terhadap materi pelajaran. Meskipun sudah jelas alasan dari penggunaan media pembelajaran, namun ternyata masih banyak faktor yang menghambat pencapaian ketiga tujuan tersebut, baik dari fisik media maupun dari faktor lain. Sehingga masalah seperti rendahnya daya tahan ingatan siswa masih menjadi masalah yang sering dikeluhkan para guru.

Mengutamakan Sebelah Kanan

Alhamdulillah kamis pagi ini begitu nyaman setelah solat dan membaca AlQuran. Apakah karena hari ini hari kamis ya, jadi semuanya terasa manis. Hehehe... Saya juga terkadang bingung mengapa saya menjadikan hari kamis sebagai hari keberuntunganku dan hari yang paling kusukai. Padahal dalam ajaran agama Islam, hari yang paling utama itu adalah hari jum'at! Hari terbitnya matahari terbaik.