Video Merancang Soal Interaktif PG Powerpoint dengan Animasi

Ingin belajar VBA Powerpoint 2007. Simak dasar-dasar pemrograman VBA Powerpoint 2007 disini. Apa saja yang terdapat pada video ini?. Berikut uraiannya.

  1. Cara mengatur keterlihatan password pada Menu Login Slide Powerpoint.
  2. Cara memberikan Macro pada Button : Start & Cek Nilai.
  3. Cara memberikan Macro : Benar & Salah pada Option: A,B,C, & D dalam soal pilihan ganda.
  4. Penggunaan animasi menggunakan media gambar dan Word Art.

Selamat menyaksikan.



Inilah Code VBA Powerpoint Soal Interaktif Pilihan Ganda-nya. Silahkan Copy-Paste ke Module1.
Dim nilai As Integer
Dim konfirmasi As String
Dim konfirmasiexit As String
Dim pesanadmin As String

Sub mulai()
nilai = 0
ActivePresentation.Slides(16).Shapes("Rectangle").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Rectangle2").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Picture").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Picture2").Visible = msoFalse
ActivePresentation.Slides(16).Shapes(2).TextFrame.TextRange.Text = ""
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub benar()
konfirmasi = MsgBox("Apakah anda yakin dengan jawaban ini?", vbYesNo + vbQuestion, " Cek Jawaban! ")
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub salah()
konfirmasi = MsgBox("Apakah anda yakin dengan jawaban ini?", vbYesNo + vbQuestion, " Cek Jawaban! ")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub cek()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tampilkan()
If nilai >= 80 Then
konfirmasi = MsgBox("Hebat, kamu tuntas, Nilai kamu " & nilai, vbInformation, "Konfirmasi Nilai !")
ActivePresentation.Slides(16).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Picture2").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Rectangle").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Rectangle").ActionSettings(ppMouseClick).SoundEffect.Name = "Applause"
ActivePresentation.Slides(16).Shapes("Rectangle").ActionSettings(ppMouseClick).SoundEffect.Play
ActivePresentation.Slides(16).Shapes("Rectangle2").Visible = msoFalse
Else
konfirmasi = MsgBox("Kamu belum tuntas, belajar terus ya !, nilai kamu " & nilai, vbInformation, "Konfirmasi Nilai !")
ActivePresentation.Slides(16).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Picture").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Rectangle2").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Rectangle2").ActionSettings(ppMouseClick).SoundEffect.Name = "Bomb"
ActivePresentation.Slides(16).Shapes("Rectangle2").ActionSettings(ppMouseClick).SoundEffect.Play
ActivePresentation.Slides(16).Shapes("Rectangle").Visible = msoFalse
End If
With ActivePresentation.Slides(16)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub

Sub keluar()
konfirmasiexit = MsgBox("Apakah anda yakin ingin keluar?", vbYesNoCancel + vbQuestion, "Konfirmasi Keluar")
If konfirmasiexit = vbYes Then
pesan
ActivePresentation.SlideShowWindow.View.Exit
Else
konfirmasiexit = vbCancel
End If
End Sub

Sub pesan()
pesanadmin = MsgBox("Terima Kasih dan Sampai Jumpa.", vbInformation, "Saria Bakti, S.Pd")
End Sub

Silahkan ganti teks yang saya beri warna sesuai selera.
Warna Hijau     : Menunjukkan KKM kita
Warna Merah   : Pesan yang ingin kita sampaikan jika TUNTAS atau TIDAK
Warna Biru      : Sound yang terdengar jika TUNTAS atau TIDAK.
Warna Kuning : Ganti dengan Nama anda.

Bagaimana Jika jumlah soal saya lebih dari 10?. Silahkan anda gunakan Script VBA di bawah ini. Silahkan replace code VBA sebelumnya, kemudian copy-paste script VBA ini ke Module1 kita.
Klik Spoiler Berikut:
Dim nilai As Integer
Dim konfirmasi As String
Dim konfirmasiexit As String
Dim pesanadmin As String
Dim Jumlahsoal As Integer
Sub mulai()
Jumlahsoal = 0
nilai = 0
ActivePresentation.Slides(16).Shapes("Rectangle").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Rectangle2").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Picture").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Picture2").Visible = msoFalse
ActivePresentation.Slides(16).Shapes(2).TextFrame.TextRange.Text = ""
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox("Apakah anda yakin dengan jawaban ini?", vbYesNo + vbQuestion, " Cek Jawaban! ")
If konfirmasi = vbYes Then
Jumlahsoal = Jumlahsoal + 1
nilai = nilai + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox("Apakah anda yakin dengan jawaban ini?", vbYesNo + vbQuestion, " Cek Jawaban! ")
If konfirmasi = vbYes Then
Jumlahsoal = Jumlahsoal + 1
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub cek()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub
Sub tampilkan()
nilai = (nilai / Jumlahsoal) * 100
If nilai >= 80 Then
konfirmasi = MsgBox("Hebat, kamu tuntas, Nilai kamu " & nilai, vbInformation, "Konfirmasi Nilai !")
ActivePresentation.Slides(16).Shapes("Picture").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Picture2").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Rectangle").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Rectangle").ActionSettings(ppMouseClick).SoundEffect.Name = "Applause"
ActivePresentation.Slides(16).Shapes("Rectangle").ActionSettings(ppMouseClick).SoundEffect.Play
ActivePresentation.Slides(16).Shapes("Rectangle2").Visible = msoFalse
Else
konfirmasi = MsgBox("Kamu belum tuntas, belajar terus ya !, nilai kamu " & nilai, vbInformation, "Konfirmasi Nilai !")
ActivePresentation.Slides(16).Shapes("Picture2").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Picture").Visible = msoFalse
ActivePresentation.Slides(16).Shapes("Rectangle2").Visible = msoTrue
ActivePresentation.Slides(16).Shapes("Rectangle2").ActionSettings(ppMouseClick).SoundEffect.Name = "Bomb"
ActivePresentation.Slides(16).Shapes("Rectangle2").ActionSettings(ppMouseClick).SoundEffect.Play
ActivePresentation.Slides(16).Shapes("Rectangle").Visible = msoFalse
End If
With ActivePresentation.Slides(16)
.Shapes(2).TextFrame.TextRange.Text = nilai
End With
End Sub
Sub keluar()
konfirmasiexit = MsgBox("Apakah anda yakin ingin keluar?", vbYesNoCancel + vbQuestion, "Konfirmasi Keluar")
If konfirmasiexit = vbYes Then
pesan
ActivePresentation.SlideShowWindow.View.Exit
Else
konfirmasiexit = vbCancel
End If
End Sub
Sub pesan()
pesanadmin = MsgBox("Terima Kasih dan Sampai Jumpa.", vbInformation, "Saria Bakti, S.Pd")
End Sub
Pengaturannya pada script VBA di atas hampir sama dengan script VBA sebelumnya. Hanya ada beberapa settingan lanjutan yang harus kita kerjakan lagi.
Warna Biru : Merupakan Slide dimana nilai/result akan ditampilkan. Ganti angka 16 dengan nomor slide kita.
Warna Merah : Ganti dengan Nama anda. (Jangan sampai lupa, hehehe)

Apakah anda melihat halaman ini dengan perangkat Mobile?. Apakah anda punya masalah dengan pemutar video pada browser yang digunakan?. Coba tonton langsung videonya di Youtube untuk tampilan yang lebih baik.

Video Merancang Soal Interaktif PG Powerpoint dengan Animasi

Anda bisa mendapatkan file proyek VBA ini. Silahkan diunduh.
Nama file
[Part 1] Soal Interaktif Pilihan Ganda Powerpoint
[Part 2] Soal Interaktif Pilihan Ganda Powerpoint

Password VBA Project : supervba

Begitulah cara kita merancang Soal Interaktif Pilihan Ganda Powerpoint dengan Animasi. Cara ini masih tergolong Simple (sederhana, mudah & menarik). Jika ada kesulitan, jangan ragu untuk menghubungi kami. Ikuti informasi perkembangan blog kami melalui fanspage facebook kami di Supervba.

Terima kasih atas kunjungannya.