Pages

Rabu, 23 Januari 2013


HANI'ATUL MAHMUDAH(0955201011)



MEMBUAT SOAL PILIHAN GANDA PADA POWERPOINT DENGAN VBA
Membuat soal pilihan ganda pada Powerpoint dengan VBA




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 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=====================================




*SELAMAT MENCOBA *
DAN
SEMOGA BERHASIL

1 komentar: