Selamat datang di BlogKamu.Com

Tutorial Membuat Quiz Penjumlahan Secara Random dengan VBA

Monday, December 17, 20124comments

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].

Share this article :

+ comments + 4 comments

December 19, 2012 at 8:06 AM

Komentar ini telah dihapus oleh penulis.

December 19, 2012 at 8:15 AM

Trims, semoga menjadi amal kebaikan dan selalu mendapatkan limpahan rahmat dari Yang Maha Kuasa

December 24, 2012 at 6:19 AM

Terima kasih kunjungannya ....Semoga bermanfaat

March 6, 2013 at 6:38 PM

Terima kasih ya... tutorialnya sangat bermanfaat. Boleh numpang tanya nggak? kira - kira untuk mengganti Find us on Facebook miliknya caragampang.com dengan miliknya kita gimana ya? please ^_^

Post a Comment

 
Support : Cara Gampang | Creating Website | Johny Template | Mas Templatea | Pusat Promosi
Copyright © 2011. Blog Kamu Versi 3 - All Rights Reserved
Template Created by Creating Website Modify by CaraGampang.Com
Proudly powered by Blogger