Minggu, 27 Januari 2013

MEMBUAT SOAL PILIHAN GANDA DENGAN MS. POWERPOINT DAN VBA


Membuat soal pilihan ganda dengan VBA

Bagi rekan-rekan yang pengen belajar membuat soal pilihan ganda dengan MS. Powerpoint dan Virtual Basic Aplication (VBA), mari belajar bersama tapi sebelumnya lihat dulu Video tutorial dibawah ini.

Video Tutorial membuat Media Pembelajaran pada MS. Powerpoint 2007 menggunakan Visual Basic Application dapat di Download :



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




password zip : www.umboh.net



Reaksi:
0 Comments
Tweets
Komentar

0 komentar:

Poskan Komentar