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

 

Author: Abdul Karim

Integrasi Matematika dan Teknologi merupakan fokus perhatian saya, dalam memberikan kontribusi kepada pendidikan matematika di Indonesi

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s