Senin, 09 Mei 2011

Membuat Kuis Interaktif Dengan VBA di ms Office 2007 atau ms Office 2010

langsung saja saya akan menjelaskan bagaimana cara membuatnya:

* Buka notepad anda, dan paste script ini di di bawah ini.
* Attribute VB_Name = "Module1"
Dim nilai As Integer
Dim konfirmasi As String
Sub mulai()
nilai = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")
If konfirmasi = vbYes Then
nilai = nilai + 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
Sub salah()
konfirmasi = MsgBox("Yakin dengan jawaban anda?", 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(22)
.Shapes(33).TextFrame.TextRange.Text = nilai
End With
End Sub
* Simpan notepad dengan cara klik fille > Save As > dan beri nama "Script.bas"
* Buka power point anda!!!
* Jika menu ribbon DEVELOPER anda belum muncul, maka munculkanlah dengan cara klik TOMBOL OFFICE > klik POWER POINT OPTIONS > beri tanda centang pada SHOW DEVELOPER TAB IN THE RIBBON.
* Buka file presentasi anda KLIK menu tab ribbbon DEVELOPER > klik VIEW CODE > klik FILE > pilih IMPORT > kemodian cari dimana anda menyimpan file SCRIPT.BAS yang anda buat tadi dengan notepad
* Di VBA Project klik module > module 1 dan anda akan melihat Scirpnya.
* Buatlah mulai tombol untuk memulai kuis kuis tersebut! Link_kan shape mulai ke RUN MACRO "mulai"
* Buatlah soal pilihan ganda!
* Link_kan jawaban benar ke RUN MACRO BENAR dan jawaban salah ke RUN MACRO SALAH
* Setelah selesai membuat soal, buatlah slide dan Shape untuk melihat skor. Link_kan Shape tersebut ke RUN MACRO "JAWAB"
* Setelah itu buatlah Slide dan satu Shape untuk Menampilkan SKOR
* Sekarang buka MACRO, Rubah script tersebet
* With ActivePresentation.Slides(22)
.Shapes(33).TextFrame.TextRange.Text = nilai
End With
End Sub
* Ganti angka Slide (22) dengan urutan keberapa SKOR anda akan di tampilkan tadi.
* Ganti angka Shape (33) dengan urutan keberapa anda membuat Shape dalam Slide tersebut.
* Sekarang coba slide showkan power point anda
Klik di Sini untuk contoh
* +TERIMAKASIH TELAH MENGUNJUNGI BLOG KAMI+

Comments :

0 komentar to “Membuat Kuis Interaktif Dengan VBA di ms Office 2007 atau ms Office 2010”


Poskan Komentar

Video


Mau punya buku tamu seperti ini?
Klik di sini (Info Blog)
 
Friends Link
Chat

Most Popular Article

Friends Link
Chat Klik Disini
Artikel Terbaru