Biasanya untuk membuat soal pilihan ganda dengan Powerpoint, kita menyediakan tombol A, B, C, dan D sebagai pilihan jawaban. Kali ini kita menggunakan TextBox dan SpinButton untuk memilih jawaban.
Script pada Slide 2 :
Private Sub SpinButton1_Change()
Dim pilihJawab As Variant
pilihJawab = Array(“…”, “Jakarta”, “Kualalumpur”, “Manila”, “Hanoi”)
ActivePresentation.Slides(2).Shapes(“kotak”).TextFrame.TextRange.Text = pilihJawab(Val(SpinButton1))
ActivePresentation.Slides(2).Shapes(“benar”).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(“salah”).Visible = msoFalse
End Sub
Script pada module 1 :
Public Sub tombolPeriksa()
If Slide2.SpinButton1.Value = 2 Then
ActivePresentation.Slides(2).Shapes(“benar”).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(“salah”).Visible = msoFalse
Else
ActivePresentation.Slides(2).Shapes(“benar”).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(“salah”).Visible = msoTrue
End If
End Sub
link download contoh file pptm : Quiz PG
ABDUL KARIM 