Multimedia Interaktif PPT

MULTIMEDIA
INTERAKTIF
MS POWERPOINT

MSMH
KUPD JKA

IPGKIK
MEI2022

AKTIFKAN MENU DEVELOPER

• Menu Developer perlu diaktifkan
• VBA boleh diakses menerusi menu Developer
• Untuk mencipta aturcara makro

MENU DEVELOPER

• File
• Option



PAPARAN VBA

• Menu developer

MACRO.TXT Dim markah As Integer

Sub mula()
markah = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub betul()
markah = markah + 1
MsgBox ("Jawapan anda tepat sekali dan markah
terkumpul anda ialah " & markah)
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub salah()
MsgBox ("Jawapan anda tidak tepat dan markah
terkumpul anda ialah " & markah)
' ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub Total()
MsgBox ("Markah anda ialah " & markah)
End Sub

TAIPKAN MACRO ANDA SEKARANG

• Boleh Copy and Paste
dari fail macro.txt yg
disediakan di slaid
sebelum.

• Namun begitu, anda
diingatkan untuk
memahami bagaimana
proses macro
dihasilkan dalam ppt.

• Sila rujuk pada tutorial
macro VBA yang asas.

SIMPAN FAIL ANDA SEKARANG
SEBAGAI MACRO-ENABLED PRESENTATION

SLAID KE 2 (INSERT SHAPES, ACTION BUTTON)

MULA

KLIK BUTANG KANAN PADA KEKOTAK BIRU,
PILIH EDIT TEXT, TAIPKAN MULA PADA KEKOTAK

PAPARAN KEKOTAK MULA PADA SLAID

• Apabila kekotak biru diklik, markah akan reset menjadi 0

Mula

SLAID KE 3. TAIPKAN SEPERTI DI BAWAH INI
SOALAN 1

Yang manakah satu haiwan? Untuk menjawab, klik pada butang biru
Kucing
Meja
Kipas
Bas

INSERT SHAPES STARS AND BANNERS

SOALAN SATU

Yang manakah satu haiwan? Untuk menjawab, klik pada butang biru

Kucing

Meja Butang bintang biru belum diaktifkan lagi
Kipas

Bas

JADIKAN BINTANG BIRU SEBAGAI ACTION BUTTON.
PILIH BINTANG, INSERT, ACTION

MEMILIH MACRO BETUL UNTUK BINTANG BIRU

SOALAN SATU

Yang manakah satu haiwan? Untuk menjawab, Klik pada butang biru

Kucing

Meja Butang bintang biru sudah diaktifkan
Kipas

Bas



SOALAN SATU

Yang manakah satu haiwan? Untuk menjawab, klik pada butang biru
Kucing
Meja
Kipas
Bas

JAWAPAN PILIHAN TIDAK BETUL

• Ulang semula untuk setiap pilihan jawapan yang tidak betul

Markah anda MARKAH

• Slaid baru
• Insert shape kekotak biru
• Taipkan teks Markah anda dalam kekotak
• Pilih action button
• Pilih makro Total
• Pilih Ok

• Untuk cuba, pilih slideshow dan klik
kekotak biru

PENAMBAHBAIKAN

• Untuk maklumbalas yang lebih spesifik, buat macro baru
• Contohnya,

• Sub S1mejasalah()
• MsgBox (“Meja bukannya haiwan. Jawapan anda tidak tepat dan markah terkumpul anda ialah " & markah)
• ' ActivePresentation.SlideShowWindow.View.Next
• End Sub

• (pautkan pada pilihan jawapan meja dalam soalan 1)

• Sila cukupkan lima soalan semuanya.
• Pastikan slaid-slaid awal sebelum slaid soalan mengandung isikandung yang diajar.

PENAMBAHBAIKAN.

• Lihat macro dibawah ini

• Sub S1mejasalah()
• MsgBox (“Meja bukannya haiwan. Jawapan anda tidak tepat dan markah terkumpul anda ialah " & markah)
• ' ActivePresentation.SlideShowWindow.View.Next
• End Sub

• Apa terjadi sekiranya tanda bacaan ' dipadamkan.
• ActivePresentation.SlideShowWindow.View.Next
• (Jwpn: Slideshow akan maju satu slaid kehadapan.)
• Untuk Latihan tanda bacaan ' tidak perlu dipadamkan.
• User akan hanya ke slaid berikut apabila pilih jawapan yang betul.
• Padamkan tanda bacaan ‘ jika digunakan sebagai Kuiz.
• Kuiz - Setiap soalan akan hanya boleh dicuba sekali sahaja.

PENAMBAHBAIKAN..

• Anda juga boleh gunakan transparent shapes (format shape, no fill, no
lines) untuk menggantikan bintang biru

• Juga boleh guna gambar untuk gantikan teks pilihan jawapan.
• Gunakan background soalan yang menarik.
• Bina slaid isikandung subjek sebelum slaid soalan Latihan/Kuiz

• Selamat Mencuba