HANI'ATUL MAHMUDAH(0955201011)MEMBUAT SOAL PILIHAN GANDA PADA POWERPOINT DENGAN VBA Membuat soal pilihan ganda pada Powerpoint dengan VBA

HANI'ATUL MAHMUDAH(0955201011)



MEMBUAT SOAL PILIHAN GANDA PADA POWERPOINT DENGAN VBA

Membuat soal pilihan ganda pada Powerpoint dengan VBA

 Selasa, April 17, 2012  Harly Umboh  1 comment

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
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
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
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
37. Sub jawab()
38. ActivePresentation.SlideShowWindow.View.Next
39. persen = (nilai * 100) / hitung
40. hitungx = hitung - nilai
41. tampilkan
42. End Sub
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=====================================

*SELAMAT MENCOBA *

DAN

SEMOGA BERHASIL