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