Script Kode Pembuatan Kuis Macro di Ppt

Sub Benar()

Points.Caption = (Points.Caption) + 10

CA.Caption = (CA.Caption) + 1

Output = MsgBox("Jawaban Anda Benar", vbOKOnly, "Jawaban Benar")

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub Salah()

Points.Caption = (Points.Caption) - 0

WA.Caption = (WA.Caption) + 1

Output = MsgBox("Jawaban Anda Salah", vbOKOnly, "Jawaban Salah")

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub Reset()

CA.Caption = 0

WA.Caption = 0

Points.Caption = 0

ActivePresentation.SlideShowWindow.View.Exit

End Sub

Sub CobaLagi()

CA.Caption = 0

WA.Caption = 0

Points.Caption = 0

ActivePresentation.SlideShowWindow.View.GotoSlide (1)

End Sub

Private Sub CA_Click()

End Sub

Private Sub Points_Click()

End Sub