Script VBA untuk membuat quiz pilihan ganda dalam satu slide

 Script VBA untuk membuat quiz pilihan ganda

‘===================

‘Pilih Jawaban no. 1

‘===================

Sub pilihA1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE1()
ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 2

‘===================

Sub pilihA2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE2()
ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 3

‘===================

Sub pilihA3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE3()
ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 4

‘===================

Sub pilihA4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE4()
ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Procedure periksa jawaban

‘===================

Sub periksa()
Dim jawaban, kunciJawab, rBenar, rSalah As Variant
Dim i As Integer
Dim nilai As Integer
Dim j1, j2, j3, j4 As String
j1 = ActivePresentation.Slides(1).Shapes(“jawab1″).TextFrame.TextRange.Text
j2 = ActivePresentation.Slides(1).Shapes(“jawab2″).TextFrame.TextRange.Text
j3 = ActivePresentation.Slides(1).Shapes(“jawab3″).TextFrame.TextRange.Text
j4 = ActivePresentation.Slides(1).Shapes(“jawab4″).TextFrame.TextRange.Text
jawaban = Array(j1, j2, j3, j4)
kunciJawab = Array(“A”, “A”, “A”, “A”)
rBenar = Array(“responBenar_1″, “responBenar_2″, “responBenar_3″, “responBenar_4″)
rSalah = Array(“responSalah_1″, “responSalah_2″, “responSalah_3″, “responSalah_4″)
For i = 0 To 3
If jawaban(i) = kunciJawab(i) Then
nilai = nilai + 25
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = True
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Else
nilai = nilai + 0
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = True
End If
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = nilai
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = False
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = True
End Sub

‘===================

‘Procedure Reset

‘===================

Sub reset()
Dim jawab, rBenar, rSalah As Variant
Dim i As Integer
jawab = Array(“jawab1″, “jawab2″, “jawab3″, “jawab4″)
rBenar = Array(“responBenar_1″, “responBenar_2″, “responBenar_3″, “responBenar_4″)
rSalah = Array(“responSalah_1″, “responSalah_2″, “responSalah_3″, “responSalah_4″)
For i = 0 To 3
ActivePresentation.Slides(1).Shapes(jawab(i)).TextFrame.TextRange.Text = “”
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = “0″
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = True
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = False
End Sub

Sumber : Abdul Karim