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


10 comments:

  1. This comment has been removed by the author.

    ReplyDelete
    Replies
    1. Trims, semoga menjadi amal kebaikan dan selalu mendapatkan limpahan rahmat dari Yang Maha Kuasa

      Delete
  2. Terima kasih kunjungannya ....Semoga bermanfaat

    ReplyDelete
  3. trims, pengajarannya, sangat berguna bagi sang pengajar. jika berkenan mhn ajarkan sy membuat perhitungan logaritma dan eksponen, trims. Sy menantikan pengajaran berikutnya.

    ReplyDelete
    Replies
    1. Ada teori yg bisa saya pelajari dulu dengan mudah, pak?
      He..he...maaf saya bukan guru matematik...

      Delete
  4. Wah lama nggak berkunjung, ternyata makin banyak ilmu yang bisa didapat. Makasih mas Agus.

    ReplyDelete
  5. kalau untuk soal pilihan ganda cara mengacak soalnya g mana mas

    ReplyDelete
  6. Sangat bermanfaat.
    Kunjungi juga http://mudah-mudahan-mudah.blogspot.com

    ReplyDelete

 
SangPengajar.com © 2016 | Contact Us | Pingin Punya Blog Keren?
Top