Tutorial Membuat Quiz Penjumlahan Secara Random dengan VBA

Kali ini kita akan melanjutkan belajar kita mengenai Visual Basic for Application(VBA) pada Microsoft Office Powerpoint. Belajar kita kali ini adalah membuat soal penjumlahan secara random. Penasaran, kan? Yuk kita mulai belajar kita.

Langkah-langkah pembuatan quiz penjumlahan secara random adalah :
1. Buka Microsoft Office Powerpoint dan buatlah 3 slide baru
2. Pada masing-masing slide tambahkan Teks dan Shape sebagai berikut :

3. Buka jendela code VBA kemudian Insert > Module, copykan Script VBA berikut ini :

Dim JumlahBenar As Integer
Dim JumlahSalah As Integer
Dim nama As String

Sub Mulai()
    JumlahBenar = 0
    JumlahSalah = 0
    Randomize
    NamaSiswa
    ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub NamaSiswa()
    nama = InputBox(“Tuliskan namamu”)
End Sub

Sub Benar()
    JumlahBenar = JumlahBenar + 1
    MsgBox “Jawabanmu benar, ” & nama
End Sub

Sub Salah()
    JumlahSalah = JumlahSalah + 1

MsgBox “Jawabanmu salah, ” & nama
End Sub

Sub Tampilkan()
MsgBox “Kamu mengerjakan dengan benar ” & JumlahBenar & ” dari ” _
& JumlahBenar + JumlahSalah & “, ” & nama
End Sub

Sub SoalRandom()
    Dim BilanganSatu As Integer
    Dim BilanganDua As Integer
    BilanganSatu = Int(10 * Rnd)
    BilanganDua = Int(10 * Rnd)
    Jawab = InputBox(“Berapakah ” & BilanganSatu & ” + ” & BilanganDua & “?”)
    If Jawab = BilanganSatu + BilanganDua Then
        Benar
    Else
        Salah
    End If
End Sub

4. Kemudian hubungkan tombol Mulai dengan Run Macro Mulai, Tombol Soal dengan Run Macro SoalRandom, Tombol Nilai diberi Hyperlink Next, dan Tombol Cek Nilai dengan Run Macro Tampilkan.