Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ==================================Start_here=====================================
- Dim nilai As Integer
- Dim konfirmasi As String
- Dim hitung As Integer
- Dim hitungx As Integer
- Dim kkm As Integer
- Dim persen As Integer
- Dim nama As String
- Dim nis As String
- Sub mulai()
- nilai = 0
- hitung = 0
- kkm = 75
- nama = InputBox("Masukan Nama Lengkap anda")
- nis = InputBox("Masukan Nomor Induk Siswa anda")
- ActivePresentation.SlideShowWindow.View.Next
- End Sub
- Sub benar()
- konfirmasi = MsgBox("yakin dengan jawaban anda ?", vbYesNo, " Cek jawaban!")
- If konfirmasi = vbYes Then
- nilai = nilai + 1
- hitung = hitung + 1
- ActivePresentation.SlideShowWindow.View.Next
- End If
- End Sub
- Sub Salah()
- konfirmasi = MsgBox("Yakin dengan jawaban anda ?", vbYesNo, "Cek jawaban !")
- If konfirmasi = vbYes Then
- hitung = hitung + 1
- ActivePresentation.SlideShowWindow.View.Next
- End If
- End Sub
- Sub jawab()
- ActivePresentation.SlideShowWindow.View.Next
- persen = (nilai * 100) / hitung
- hitungx = hitung - nilai
- tampilkan
- End Sub
- Sub tampilkan()
- With ActivePresentation.Slides(8)
- If persen >= kkm Then
- .Shapes(1).TextFrame.TextRange.Text = "Selamat " & nama & " anda Lulus ! nilai anda " & persen
- Else
- .Shapes(1).TextFrame.TextRange.Text = "Mohon Maaf " & nama & " anda Remedial ! karena nilai anda hanya" & persen & " tidak mencapai KKM : " & kkm
- End If
- .Shapes(2).TextFrame.TextRange.Text = kkm
- .Shapes(3).TextFrame.TextRange.Text = nis
- .Shapes(4).TextFrame.TextRange.Text = nama
- .Shapes(5).TextFrame.TextRange.Text = persen
- .Shapes(6).TextFrame.TextRange.Text = nilai
- .Shapes(7).TextFrame.TextRange.Text = hitung
- .Shapes(8).TextFrame.TextRange.Text = hitungx
- .Shapes(16).TextFrame.TextRange.Text = "Find more at http://www.umboh.net/"
- End With
- End Sub
- ==================================EoF=====================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement