Learn to Code : Membuat Quiz Pilihan Ganda (sederhana)

Pada seri posting learn to code, akan ditampilkan video-video tutorial vba untuk powerpoint dan script vba nya. Semoga bermanfaat!

download : video tutorial membuat quiz pilihan ganda

Scriot VBA untuk mebuat quiz pilihan ganda (sederhana)

‘deklarasi variabel nilai

Public nilai As Integer

‘script untuk tombol mulai

Sub mulai_btn()
ActivePresentation.Slides(7).Shapes(“nilaiTest”).TextFrame.TextRange.Text = “0”
ActivePresentation.SlideShowWindow.View.Next
End Sub

‘script untuk jawaban benar

Sub jawaban_benar()
nilai = Val(ActivePresentation.Slides(7).Shapes(“nilaiTest”).TextFrame.TextRange.Text)
nilai = nilai + 20
ActivePresentation.Slides(7).Shapes(“nilaiTest”).TextFrame.TextRange.Text = nilai
ActivePresentation.SlideShowWindow.View.Next
End Sub

‘script untuk jawaban salah

Sub jawaban_salah()
nilai = Val(ActivePresentation.Slides(7).Shapes(“nilaiTest”).TextFrame.TextRange.Text)
nilai = nilai + 0
ActivePresentation.Slides(7).Shapes(“nilaiTest”).TextFrame.TextRange.Text = nilai
ActivePresentation.SlideShowWindow.View.Next
End Sub

download : file ppt quiz pilihan ganda