* Buka notepad anda, dan paste script ini di di bawah ini.
* Attribute VB_Name = "Module1"
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()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub
Sub tampilkan()
With ActivePresentation.Slides(22)
.Shapes(33).TextFrame.TextRange.Text = nilai
End With
End Sub
* Simpan notepad dengan cara klik fille > Save As > dan beri nama "Script.bas"
* Buka power point anda!!!
* Jika menu ribbon DEVELOPER anda belum muncul, maka munculkanlah dengan cara klik TOMBOL OFFICE > klik POWER POINT OPTIONS > beri tanda centang pada SHOW DEVELOPER TAB IN THE RIBBON.
* Buka file presentasi anda KLIK menu tab ribbbon DEVELOPER > klik VIEW CODE > klik FILE > pilih IMPORT > kemodian cari dimana anda menyimpan file SCRIPT.BAS yang anda buat tadi dengan notepad
* Di VBA Project klik module > module 1 dan anda akan melihat Scirpnya.
* Buatlah mulai tombol untuk memulai kuis kuis tersebut! Link_kan shape mulai ke RUN MACRO "mulai"
* Buatlah soal pilihan ganda!
* Link_kan jawaban benar ke RUN MACRO BENAR dan jawaban salah ke RUN MACRO SALAH
* Setelah selesai membuat soal, buatlah slide dan Shape untuk melihat skor. Link_kan Shape tersebut ke RUN MACRO "JAWAB"
* Setelah itu buatlah Slide dan satu Shape untuk Menampilkan SKOR
* Sekarang buka MACRO, Rubah script tersebet
* With ActivePresentation.Slides(22)
.Shapes(33).TextFrame.TextRange.Text = nilai
End With
End Sub
* Ganti angka Slide (22) dengan urutan keberapa SKOR anda akan di tampilkan tadi.
* Ganti angka Shape (33) dengan urutan keberapa anda membuat Shape dalam Slide tersebut.
* Sekarang coba slide showkan power point anda
Klik di Sini untuk contoh
* +TERIMAKASIH TELAH MENGUNJUNGI BLOG KAMI+
Mau tanya mas, itu kan soalnya 10 dan nilai akhirnya 100, kalau soalnya 40 tetapi nilai akhirnya tetap 100 gimana ?
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Pada script, angka 10 sudah tak ganti angka 2,5 (pakai koma) dan juga 2.5 (pakai titik) kok nggak bisa. Mohon pencerahannya