Hari ini di SMP Negeri 4 Bekasi dilakasanakan kegiatan : ToT"Pembelajaran Berbasis IT, Kegiatan ini dimulai pukul 08.45 diawali Sambutan Ketua Pelaksana : Sri Winarni, M.MPd, kemudian sambutan dari Penanggung Jawab Kegiatan : Bp. Ahmad Baihaqi, M.Pd Kasi Kurikulum Dikdas Dinas Pendidikan Kota Bekasi. Disampaikan oleh Beliau, bahwa Kurikulum 2013 nanti Mata Pelajaran TIK tidak ada, diharapkan penggunaan IT diterapkan langsung dalam semua materi pelajaran ... Berikutnya sambutano oleh Kepala Dinas Pendidikan Kota Bekasi Bapak Dr. Encu Hermana, sekaligus pembukaan Kegiatan ... Menurut beliau : Sejak tahun 2005 pemkot Bekasi sudah mengucurkan dana berkisar 300 juta untuk kegiatan MGMP namun setelah adanya BOS dana untuk MGMP tidak lagi dikucurkan. Masih menurut Dr. Encu Hermana : Di Kota Bekasi dalam rekrutment siswa untuk tahun pelajaran 2013/2014 murni berdasarkan NEM. Hari ini akan ditandatangani Fakta Integritas, bahwa Jika terjadi penerimaan siswa baru yang diluar jalur PPDB online dari Telkom, maka Kepala Dinas atau kepala sekolah siap diberhentikan .. kemudian disambut tepuk tangan yang meriah oleh peserta kegiatan
KITA HARUS YAKIN TAK ADA YANG TAK MUNGKIN !

soal

Jumat, 12 April 2013

Membuat Soal dengan Visual Basic Pada Power point


Membuat Soal dengan Visual Basic Pada Power point

Rokhmad Astika Triprasetia, S.Pd
Gembong Rt. 04 Rw. 01 Saradan karangmalang Sragen 57291

Sebenarnya sudah banyak sekali yang menulis posting tentang ini, tapi karena permintaan peserta Diklat Media Pembelajaran Interaktif ketika saya menjadi Tutor Diklat MPI di MGMP KKPI Kab Sragen, maka saya tuliskan tutorial ini.
Membuat Soal Latihan dan evaluasi dengan Visual basic, bisa untuk menampilkan skor. Langkah-langkahnya sebagai berikut :

Klik Office Button -> Power Point Option -> Popular-> Show Developer Tab In The Ribbon



Memasukkan Action Script Visual Basic
Klik Developer -> View Code-> Insert ->  Module

Masukkan Script Visual Basic

Public jumlahbenar As Integer
Sub pengenalan()
jumlahbenar = 0
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub benar()
jumlahbenar = jumlahbenar + 20
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub salah()
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub hasil()
MsgBox ("Nilai Kamu Adalah " & jumlahbenar)
End Sub
Sub latihansalah()
MsgBox ("Jawaban kamu belum benar, cobalah kembali")
End Sub
Sub latihanbenar()
MsgBox ("Jawaban kamu benar, lanjutkan soal berikutnya")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Hasilnya Sebagai berikut ;

Klik Save / Gambar Disket  --> CLOSE


Memberikan Action Pada Tombol / Button
Klik Pada Tombol Pilihan a   - Insert - Action - Run Macros - Pilih Salah/benar/Pengenalan/Hasil/Latihan benar/Latihan salah - OK
Catatan :
Pilih Salah jika Jawaban Pilihan jawaban itu Salah
Pilih Benar jika Jawaban Pilihan jawaban itu Benar
Pilih  Pengenalan, Untuk memulai Test(Start)
Pilih Hasil, Untuk Melihat Hasil Test
Pilih Latihan Salah jika ingin user boleh memilih lebih dari satu jawaban, tanpa skor
Pilih Latihan Benar jika ingin user boleh memilih lebih dari satu jawaban, tanpa skor



Download Tutorial ini Klik disini
Download Contoh nya Klik disini
Contoh hasil jadi klik disini
Download Template MPI lengkap dengan VB klik disini


0 komentar:

Poskan Komentar

Tinggalkan komentar anda disini :