Video Tutorial membuat Media Pembelajaran pada microsoft Office Powerpoint 2007 menggunakan Visual Basic Application
Video Tutorial Bagian 1
VIDEO
Video Tutorial bagian 2
VIDEO
Video Tutorial bagian 3
VIDEO
Video Tutorial bagian 4
VIDEO
Script Visual Basic Membuat Soal Pilihan Ganda pada Powerpoint
==================================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=====================================
Download
Contoh File Membuat Soal Pilihan ganda powerpoint
password zip : www.umboh.net
bagus sekali toturialnya pak,
ini sangat membantu para tenaga pendidik dalam menyajikan variasi soal kepada peserta didiknya.
salam
terima kasih mas... ini sangat membantu saya ketika ada tugas untuk membuat soal pilihan ganda dengan VBA. ijin mengkopi ya...
boleh ngprint makalahnya ya. makasih
Thank you so much mas... telah tersedot dengan baik videonya
Terima kasih atas ilmunya. Semoga dapat meningkatkan mutu dunia pendidikan.
Untuk nilai akhir 2 desimal bagaimana
Matur Suwun atas semua penjelasan materi VBA ini. Berkat penjelasan Anda, saya dan teman saya sangat senang sekali setelah pusing 7 keliling ngerjain VBA eror semua padahal tinggal sedikit waktunya deadline....
Sekali lagi Terima Kasih Banyak...
*Salam Dari Jawa*