Selamat Datang di Pusat Kursus, Service, Instalasi, Flash HP, Ketikan, Percetakan,Stempel & Penjualan

Thursday, October 16, 2014

SCRIPT MACRO PEMBUATAN KUIS INTERAKTIF POWER POINT

Silahkan copas script berikut untuk membuat kuis interaktif.

Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
nilai = 10
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub benar()
konfirmasi = MsgBox(“Yakin dengan jawaban anda?”, vbYesNo, ” Cek Jawaban!”)
If konfirmasi = vbYes Then
nilai = nilai + 10
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 jawab()
‘tombol untuk selesai
MsgBox (” skor anda adalah ” & nilai)
End Sub


Ini contoh hasilnya!.



Comments
0 Comments

0 comments:

Post a Comment

Like Us

Translate

Popular Posts

Clock

Visitor

Flag Counter

Total Pageviews

Contact Form

foxyform

Recent Posts