Membuat Test Dengan Menggunakan Power Point dengan VBA

oleh:Moh Fathurrozi
nim:0955201030

power point merupakan salah satu software desain untuk presentasi yang memiliki banyak kegunaan..antara lain tampilan pembuatan test/kuis..dibawah ini cara pembuatannya.menggunakan scrip VBA / script visual bassic.
cekidoootttt:

      1.Ketik script berikut dalam notepad kemudian simpan dengan ektensi.bas 

      Dim nilai As Integer
Dim konfirmasi As String

Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub benar()
konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, "          Cek
Jawaban!")
If konfirmasi = vbYes Then
nilai = nilai + 5
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub salah()
konfirmasi = MsgBox("Yakin denganjawabananda?", vbYesNo, "          Cek
Jawaban!")
If konfirmasi = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub jawab()
ActivePresentation.SlideShowWindow.View.Next
tampilkan
End Sub

Sub tampilkan()
    With ActivePresentation.Slides(108)
        .Shapes(2).TextFrame.TextRange.Text = nilai
    End With
End Sub 

2.buka power point.dengan tampilan tool developer,jika belum ada pada menu silahkan gunakan cara berikut: - klik Microsoft Office Button, kemudian klik  PowerPoint Options klik Popular, dan pilihn  Show Developer tab in the Ribbon ceklis saja.seperti gambar diatas ini: 3. jika sudah maka akan ada tool tambahan bernama developer .                Klik tool developer kemudian   - klik visual basic, maka  akan  muncul editor vba                Klik file pada VBA kemudian klik import -pilih file yg sudah disimpan dengan  ektensi. Bas.      Sehingga tampil berikut ini: 4.silahkan membuat slide presentasi seperti dibawah ini: 5.copy /duplikat setiap slide trus di edit sehingga menjadi banyak soal testnya..  ============================================================ selanjutnya mengintegrasikan script vba ke dalam power point:  1.klik setiap jawaban, klik insert → klik action → klik Run makro, untuk jawaban benar.benar, untuk yang salah.salah. jika contoh diatas berrati pilihan A. yg benar dengan mengisi yang benar..tampilan seperti di bawah ini:

jika sudah nanti di akhir buat slide penilaian,dengan cara seperti di atas.semakin banyak soal maka semakin lama mengintegrasikan.

SEKIAN TERIMAKASIH