Pages

Selasa, 22 Januari 2013

Cara Membuat Test Dengan Menggunakan Power Point dengan fasilitas VBA


 Oleh : Syam Aji Purbowiyoto
 NIM : 0955201052

Microsoft PowerPoint secara sepintas tidak tampak dilengkapi dengan fitur

pemrograman. Tab yang terdapat pada ribbon PowerPoint tidak satupun menunjukkan

nuansa teknis pemrograman. Fitur pemrograman VBA yang dimiliki PowerPoint

memiliki jendela aplikasi tersendiri.

Untuk mengaktifkan aplikasi Visual Basic pada PowerPoint, langkahnya adalah :

1. Klik Office Button

2. Klik PowerPoint Options

3. Muncul kotak dialog PowerPoint Options

4. Klik Popular

5. Beri tanda contreng pada Show Developer tab in the ribbon di top options

for working with PowerPoint dan klik OK

 

                                        6. Periksa menu bar, menu Developer sudah aktif di menu bar





                                        
Mengaktifkan Lembar Kerja VBA untuk MS PowerPoint 
      1. Klik menu Developer 

      2. Pilih dan Klik Visual Basic (Sub menu Developer).

3. Anda akan dibukakan halaman kerja Microsoft Visual Basic Presentation1, yang terpisah dengan halaman kerja PowerPoint akan tetapi tetap satu bagian yang tidak terpisahkan


4. Sampai di sini trik mengaktifkan VBA untuk PowerPoint , selanjutnya kita akan bahas VBA PowerPoint: membuka, menutup, menyimpan, dan bekerja dengan bahasa pemrograman Visual Basic, dan mendesain soal pilihan ganda interaktif pada pembahasan-pembahasan berikutnya.



Jendela Microsoft Visual Basic PowerPoint


MEMBUAT TEST 
Berikut langkah membuat test PowerPoint dengan VBA :

1. Bukalah program notepad lalu ketik bahasa program VBA dibawah ini lalu simpan dengan ekstensi .bas.
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 + 5

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(108)

.Shapes(2).TextFrame.TextRange.Text = nilai

End With

End Sub

Simpan ketikan pada notepad dengan ekstensi bas dengan cara : klik toolbar

file >save as >save as type ganti dengan all files>file name diisi dengan

nama file SCRIPT.bas

simpan difolderpresentasi yang telah kita buat.

2. Buka program PowerPoint yang telah dibuat, tampilkan toolbar developer dengan cara klik office>PowerPoint option>Show developer Tab in The Ribbon.

3. Buka file presentasi yang telah dibuat, klik Developer>view code>lalu akan muncul tampilan Microsoft Visual Basic>klik File>kImport file>pilih file SCRIPT.bas yang telah dibuat.

Akan muncul VBA Project,klik modules>klik 2x Module 1 lalu akan mucul bahasa pemprograman VBA seperti gambar dibawah ini :





 4. Buat soal pilihan ganda, misal seperti contoh dibawah ini


Action Setting


Awal test buatlah peetunjuk penngerjaan test. Buat ombol MULA aktifkan

dengan mengkliknya lalu klik tombol inssert pada toolbar staandar>klik Action tommbol akan muncul tex box sepeerti diatas klik run maacro >pilih mulai




5. Buat soal pilihan ganda, usahakan untuk setia slide satu soal.

Buat tombbol pilihan ganda, lalu kklik insert >aaction>atur action settinng dengan

klik run maacro>pilih beenar jika jawwaban tsb benar atau pilih salah ka jawaban

tsb salah. lakukan hal serupa untuuk soal-soal berikutnya ssampai selessai.

 


 

 



 


Tidak ada komentar:

Posting Komentar