Membuat Quiz Menggunakan macros di Power Point 2007

Home » tugas » Membuat Quiz Menggunakan macros di Power Point 2007

Membuat Quiz Menggunakan macros di Power Point 2007

Posted by Ecang 0 comments

Konbawa Mina-san ^_^

Jumpa lagi dengan saya yang lumayan ini.. wkwkwk

Yahh.. kesempatan malam ini saya akan share tentang cara membuat sebuah Quiz interaktif menggunakan Microsoft Power Poin 2007.

Membuat quiz disini kita memanfaatkan fasilitas “macros” yang ada di power poin.

Tak usah panjang lebar langsung saja kita mulai membuat sebuah quis..

· Pertama kita buka dahulu Ms. PowerPoint

· Kedua kita tambahkan Desain agar lebih menarik (bisa menggunakan apapun sesuai selera)

· Selanjutnya kita masuk jendela macros melalui view-macros atau (alt+f11)

· Kemudian klik “insert-module”

Setelah itu paste-kan kode berikut :

Dim NAMA, NOMER As String
Dim NILAI As Integer
Dim KON As String

Sub MULAI()
NILAI = 0
NAMA = InputBox("MASUKKAN TERLEBIH DAHULU NAMA ANDA", "INPUT NAMA")
NOMER = InputBox("MASUKKAN TERLEBIH DAHULU NOMOR IDENTITAS ANDA", "INPUT NOMER")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub BENAR()
KON = MsgBox("YAKIN DENGAN JAWABAN " & NAMA & " ?", vbYesNo, "KONFIRMASI JAWABAN")
If KON = vbYes Then
NILAI = NILAI + 20
KON = MsgBox("JAWABAN " & NAMA & " BENAR. APAKAH " & NAMA & " AKAN MELANJUTKAN?", vbYesNo, "KONFIRMASI MELANJUTKAN QUIS")
If KON = vbYes Then
ActivePresentation.SlideShowWindow.View.Next
Else
BERHENTI
End If
End If
End Sub

Sub BERHENTI()
ActivePresentation.SlideShowWindow.View.GotoSlide (6)
With ActivePresentation.Slides(6)
.Shapes(1).TextFrame.TextRange.Text = NAMA & " TELAH BERHENTI DARI QUIS, NILAI " & NAMA & " ADALAH = " & NILAI
End With
End Sub

Sub SALAH()
KON = MsgBox("YAKIN DENGAN JAWABAN " & NAMA & " ?", vbYesNo, "KONFIRMASI JAWABAN")
If KON = vbYes Then
KON = MsgBox("MAAF, JAWABAN " & NAMA & " SALAH. QUIS " & NAMA & " BERAKHIR", vbOKOnly, "JAWABAN SALAH")
KALAH
End If
End Sub

Sub KALAH()
ActivePresentation.SlideShowWindow.View.GotoSlide (7)
With ActivePresentation.Slides(7)
.Shapes(1).TextFrame.TextRange.Text = NAMA & " TELAH KALAH DALAM QUIS INI, NILAI " & NAMA & " ADALAH = " & NILAI
End With
End Sub

Sub BENARX()
KON = MsgBox("YAKIN DENGAN JAWABAN " & NAMA & " ?", vbYesNo, "KONFIRMASI JAWABAN")
If KON = vbYes Then
NILAI = NILAI + 20
MENANG
End If
End Sub

Sub MENANG()
ActivePresentation.SlideShowWindow.View.GotoSlide (7)
With ActivePresentation.Slides(7)
.Shapes(1).TextFrame.TextRange.Text = " CONGRATULATION!!! " & NAMA & " IS THE WINNER. " & NAMA & "'S POINT IS 100"
End With
End Sub

Sub KELUAR()
ActivePresentation.SlideShowWindow.View.Exit
End Sub

Sub LAGI()
ActivePresentation.SlideShowWindow.View.GotoSlide (2)
NILAI = 0
End Sub

Sub SIMPAN()
KON = MsgBox("HASIL QUIS AKAN DISIMPAN DI DALAM DIREKTORI J:\. APAKAH ANDA AKAN MENYIMPAN?", vbYesNo, "KONFIRMASI PENYIMPANAN")
If KON = vbYes Then
SimpanSlide 8, "J:\nilai " & NAMA & ".pptx"
End If
End Sub

Sub SimpanSlide(noSlide As Long, namaFile As String)
With ActivePresentation.Slides(8)
.Shapes(1).TextFrame.TextRange.Text = "NAMA = " & NAMA
.Shapes(2).TextFrame.TextRange.Text = "NOMOR IDENTITAS = " & NOMER
.Shapes(3).TextFrame.TextRange.Text = "NILAI = " & NILAI
End With
Dim y As Presentation
Dim x As Long
ActivePresentation.SaveCopyAs namaFile
Set y = Presentations.Open(namaFile, , , False)
For x = 1 To noSlide - 1
y.Slides(1).Delete
Next
y.Save
y.Close
End Sub

· Sesuaikan halaman slide yang ada diatas dengan dokumen yang anda buat

· ngpilih action lalu pilih macros yang sesuai, (lihat gambar)

· sesuaikan mulai dari slide 1 sampai terakhir dengan macros yang digunakan

setelah selesai kita bisa menyimpannya..

cara menyimpan macros yang benar.

Klik save (ctrl+s)
Ubah save as type menjadi “Power Point Macros – enebled Presentation”
Klik save

Nah setelah membuaat file bagaimana menjalankannya?

Cara menjalankan file “pptm” dengan macros

Buka filenya maka akan munjul jendela peringatan

Pilih Enable Macros untuk bisa menjalankannya.

Nah samapi disini dulu sahabat tutorial tentang pembuatan Quiz menggunakan Power Point 2007 yang saya tau jika ada pertanyaan silahkan tinggalkan di kolom kometar yah.. ^_^

Jika ingin contoh filenya silahkan download >>disini<<

jika masih bingung atau ada pertanyaan silahkan tinggalkan komentar

Urek-Ureke

Membuat Quiz Menggunakan macros di Power Point 2007

Related Post:

0 komentar:

Post a Comment