membuat game dengan PowerPoint yang nantinya bisa langsung mengeluarkan hasil/skor jawabannya.
Bagaimana cara membuat game ber-tipe kuis dengan power point? kita pelajari sama-sama
1. Buatlah tampilan slide sesuai keinginan.
2. Buatlah Tampilan “HOME” sebagai awal untuk memulai game/ kuis.
Kita gunakan shapes untuk membuat tombol.
 |
| Bani |
3. Buatlah soal dan pilihan jawabannya dalam setiap slide. dalam hal ini Jawaban bertipe Pilihan ganda .
 |
| Bani |
Dalam contoh ini saya membuat pilihannya hanya 2. dan juga saya hanya membuat 2 soal sebagai contoh, kalian bisa buat
lebih. Misal pilihan jawabanya A.B.C.D bahkan sampai E juga bisa.
4. Setelah membuat slide berisi soal, buatlah slide untuk klik cek nilai.
 |
| Bani |
5. Buat juga slide untuk menampilkan nilai.
 |
| Bani |
Dalam contoh ini saya akan
menampilakn hasil nilainya pada shapes kotak biru seperti gambar diatas. jadi nanti hasilnya akan tertera dalam kotak biru itu.
6. Buat programnya di visual basic
Dengan cara klik Developer- Visual Basic.
 |
| Bani |
Maka akan muncul seperti ini :
 |
| Bani |
Untuk membuat lember kerja baru
cukup klik insert Module- Module.
 |
| Bani |
Maka akan muncul seperti ini:
 |
| Bani |
7. Setelah itu buatlah programnya.
Bisa ikuti contoh berikut:
Pendeklarasian Tipe
data:
Dim nilai As Integer
Dim konfirmasi As String
Pendeklarasian Mulai:
Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Pendeklarasian
Benar:
Sub benar()
konfirmasi = MsgBox("Anda yakin dengan jawaban
ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Pendeklarasian Salah:
Sub salah()
konfirmasi = MsgBox("Anda yakin dengan jawaban
ini?", vbYesNo, " Cek Jawaban! ")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Pendeklarasian Cek:
Sub cek()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub
Pendeklarasian Tampilkan Nilai:
Sub tampilkan()
With ActivePresentation.Slides(14)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub
Catatan:
*kalian cukup
meng-coppy code tanpa kalimat yang berwarna merah
*dalam
pendeklarasian benar, kalimat setelah MsgBox dapat diganti sesuai keinginan.
*dalam sub benar,
penambahan nilai atau point bisa
disesuaikan dengan selera(misal, nilai=nilai+100).
*dalam sub salahpun
demikian, kalian bisa membuat point negatif/minus(–
) untuk jawaban salah, misal nilai = nilai – 10.
*perlu diperhatikan
di bagaian sub tampilkan, slides dan
shapes dalam PPt kalian. Misal,
Kalian ingin
menampilkan jawaban pada slides terakhir yaitu slides ke 7, dan akan di
tampilkan di shapes ke 1 pada slides itu. Maka
Sub tampilkan()
With
ActivePresentation.Slides(7)
.Shapes(1).TextFrame.TextRange.Text
= nilai
End With
End Sub
8. Langkah selanjutnya adalah memberi action
pada setiap shapes/ tombol yang sudah kita siapkan di masing-masing slides
tadi.
 |
| Bani |
Centang pada Run Macro, dan pilih
sesuai fungsi tombol masing-masing.
 |
| Bani |
9. Lakukan hal serupa pada setiap shapes yang sudah dibuat.
Pada pilihan benar- beri action
benar
Salah- beri action salah
Cek-beri action cek begitu juga
pada shapes tampilkan- beri action tampilkan.
10. Selesai, kalian bisa mencobanya “show” . terakhir kalian harus menyimpan
filenya. Saran saya kalian save as dengan format powerpoint show.
 |
| Bani |
Semoga Bermanfaat.
Tinggalkan pesan ya biar saya senang ^_^.
Sign up here with your email