Selasa, 17 April 2012

Membuat soal pilihan ganda pada Powerpoint dengan VBA

7 komentar

Video Tutorial membuat Media Pembelajaran pada microsoft Office Powerpoint 2007 menggunakan Visual Basic Application

Video Tutorial Bagian 1


Video Tutorial bagian 2


Video Tutorial bagian 3


Video Tutorial bagian 4


Script Visual Basic Membuat Soal Pilihan Ganda pada Powerpoint

Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. ==================================Start_here=====================================
  2. Dim nilai As Integer
  3. Dim konfirmasi As String
  4. Dim hitung As Integer
  5. Dim hitungx As Integer
  6. Dim kkm As Integer
  7. Dim persen As Integer
  8. Dim nama As String
  9. Dim nis As String
  10.  
  11. Sub mulai()
  12. nilai = 0
  13. hitung = 0
  14. kkm = 75
  15. nama = InputBox("Masukan Nama Lengkap anda")
  16. nis = InputBox("Masukan Nomor Induk Siswa anda")
  17. ActivePresentation.SlideShowWindow.View.Next
  18. End Sub
  19.  
  20. Sub benar()
  21. konfirmasi = MsgBox("yakin dengan jawaban anda ?", vbYesNo, " Cek jawaban!")
  22. If konfirmasi = vbYes Then
  23. nilai = nilai + 1
  24. hitung = hitung + 1
  25. ActivePresentation.SlideShowWindow.View.Next
  26. End If
  27. End Sub
  28.  
  29. Sub Salah()
  30. konfirmasi = MsgBox("Yakin dengan jawaban anda ?", vbYesNo, "Cek jawaban !")
  31. If konfirmasi = vbYes Then
  32. hitung = hitung + 1
  33. ActivePresentation.SlideShowWindow.View.Next
  34. End If
  35. End Sub
  36.  
  37. Sub jawab()
  38. ActivePresentation.SlideShowWindow.View.Next
  39. persen = (nilai * 100) / hitung
  40. hitungx = hitung - nilai
  41. tampilkan
  42. End Sub
  43.  
  44. Sub tampilkan()
  45. With ActivePresentation.Slides(8)
  46. If persen >= kkm Then
  47. .Shapes(1).TextFrame.TextRange.Text = "Selamat " & nama & " anda Lulus ! nilai anda " & persen
  48. Else
  49. .Shapes(1).TextFrame.TextRange.Text = "Mohon Maaf " & nama & " anda Remedial ! karena nilai anda hanya" & persen & " tidak mencapai KKM : " & kkm
  50. End If
  51. .Shapes(2).TextFrame.TextRange.Text = kkm
  52. .Shapes(3).TextFrame.TextRange.Text = nis
  53. .Shapes(4).TextFrame.TextRange.Text = nama
  54. .Shapes(5).TextFrame.TextRange.Text = persen
  55. .Shapes(6).TextFrame.TextRange.Text = nilai
  56. .Shapes(7).TextFrame.TextRange.Text = hitung
  57. .Shapes(8).TextFrame.TextRange.Text = hitungx
  58. .Shapes(16).TextFrame.TextRange.Text = "Find more at http://www.umboh.net/"
  59. End With
  60. End Sub
  61. ==================================EoF=====================================


Download Contoh File Membuat Soal Pilihan ganda powerpoint
password zip : www.umboh.net

7 Responses so far.

  1. bagus sekali toturialnya pak,
    ini sangat membantu para tenaga pendidik dalam menyajikan variasi soal kepada peserta didiknya.

    salam

  2. terima kasih mas... ini sangat membantu saya ketika ada tugas untuk membuat soal pilihan ganda dengan VBA. ijin mengkopi ya...

  3. boleh ngprint makalahnya ya. makasih

  4. Thank you so much mas... telah tersedot dengan baik videonya

  5. Terima kasih atas ilmunya. Semoga dapat meningkatkan mutu dunia pendidikan.

  6. Untuk nilai akhir 2 desimal bagaimana

  7. Matur Suwun atas semua penjelasan materi VBA ini. Berkat penjelasan Anda, saya dan teman saya sangat senang sekali setelah pusing 7 keliling ngerjain VBA eror semua padahal tinggal sedikit waktunya deadline....
    Sekali lagi Terima Kasih Banyak...
    *Salam Dari Jawa*

Leave a Reply

 
Copyright © 2009-2015 Yayasan UMBOH

Credit to dhetemplate and SMK TI Bulukumba