Senin, 17 Desember 2012

Tutorial Membuat Quiz Penjumlahan Secara Random dengan VBA

Apa kabar sahabat Sang Pengajar??? Baik-baik saja, bukan…..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.

image

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 :

image

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.

image
5. Quiz selesai dibuat. Silahkan tutup jendela code VBA dan jalankan quiz dengan menekan F5
Mudah bukan??? Selamat berkreasi ya. Jangan lupa tinggalkan komentar anda sebagai masukan untuk perbaikan. Untuk lebih jelasnya silahkan download file quiz random ini dengan [klik di sini].


0 komentar:

Posting Komentar


Top