Advertisement
umboh

script soal pilihan ganda pada powerpoint VBA

Apr 16th, 2012
6,967
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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=====================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement