1. Bukalah
Ms Powerpoint dan buatlah Slide baru.
- Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.
- Pilih menu Insert, Module dan Copy-paste lah script VB berikut:
Dim nilai As
Integer
Dim konfirmasi As String
Sub mulai()
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 + 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
Dim konfirmasi As String
Sub mulai()
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 + 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
2. Pada
Slide 1 kita buat shapes yang akan menghubungkan ke slide kuis. Caranya klik
Insert >> Shapes >> Oval. Lalu buat lingkaran pada slide 1 dengan
mendrag dan menekan shift agar bentuknya simetri.
contohnya
seperti gambar berikut
3. Berilah
Add text "Go" pada shapes tersebut, kemudian beri action. Caranya
klik shapes (bukan tulisannya tapi lingkaran atau shapesnya) >> Insert
>> Action >> Run Macro >> Mulai >> OK.
4. Pada
slide 2-11 (disini saya membuat 10 soal pilihan ganda) buat soal pilihan ganda.
Contohnya seperti berikut
keterangan:
pilihan ganda harus berupa shapes. Caranya Insert >> Shapes >>
Round Diagonal Corner Rectangle >> Drag ke power point
5. Berilah
Action untuk masing-masing jawaban pilihan ganda. Untuk A caranya Insert
>> Action >> Run Macro >> Benar >> OK. Sedangkan untuk
B, C, D caranya Insert >> Action >> Run Macro >> Salah
>> OK. Seperti yang diperlihatkan pada gambar berikut
Untuk
memberikan animasi pada shapes saat di klik berilah ceklis pada Highlight clik
lalu Ok
Pada Soal no 2- 10 caranya sama.
Pada Soal no 2- 10 caranya sama.
6. Pada
slide terakhir, buatlah shapes yang memuat text "Score".
Caranya seperti langkah 2 diatas.
7. Berilah
Action shapes tersebut, caranya Klik shapes score >> Insert >>
Action >> Run macro >> Jawab >> Ok.
GOOD LUCK
!!!
21 comments:
kok gak bisa ya??
type savenya pilih PowerPoint Macro-Enable Template
kagak bisa..
download aja contoh powerpointnya PPT LOGIKA-MATEMATIKA DISKRIT,,di postingan berikutnya
Maaf saya mau bertanya, kebetulan materi di sekolah saya saat ini u/ mapel TIK juga sama seperti ini (membuat kuis dengan PPT). Saya sudah mengikuti semuanya, sudah memasukkan action macro ke begian2 yang diperlukan tetapi saat saya tes mengapa jawaban yang seharusnya benar tidak mengeluarkan dialog box 'Apakah yakin dengan jawaban Anda?', tetapi jawaban yang salah mau mengeluarkan dialog box tersebut? Mohon pencerahannya,
mbk scorenya gk kelihatan salahnya diman ya
saya ikuti petunjuknya kok tidak bisa jalan ya soalnya salahnya dimana
trimakasih ternyata bisa,... setelah saya kopi ke ms wort baru dimasukan ke porpoin ...
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Mau tanya nggih
Kalau soalnya 40, angka nilai 10 tak ganti 2,5 atau 2.5 kok tidak bisa. Mohon pencerahannya
Bunda untuk jumlah soal 40 atau 45, pemberian skornya bagaimana, krn td mau pakai tanda koma/ titik
Maksudnya copy pastelah scribt vb berikut apa?
Maksudnya copy pastelah scribt vb berikut apa?
Saya bantu jawab ya pak, utk soalnya 40 soal. Angka 10 itu sebagai nilsi integer, jadi kalo bapak soalnya 40, angka 10 diganti 1, dan di sub jawab() ketik seperti ini :
sub jawab()
total = nilai * 5
MsgBox ("Skor Anda Adalah " & total)
end sub
intinya buat variable baru aja pak, haha.. thanks.
terimakasih bantuannya...
Gak bisa blasss
SKORNYA GA MUNCUL BU
scrip kembali ke awal dan exit dari powerpoint, gimana ?
Slide nya semua di copy ba?
hasilnya suka beda beda yah,, kadang bener kadang salah
Kalo biar skor nya ngesave bgmna cara nya
kak mau tany kok untuk memunculkan halaman makro nggak bisa ya?
Post a Comment