Membuat Media Pembelajaran Slide Kalkulator dengan Visual Basic

RuangOffices : Dalam sebuah proses pembelajaran, peran media cukup penting untuk memudahkan proses belajar bagi siswa. Untuk menyampaikan pesan pembelajaran kepada siswa, biasanya guru menggunakan alat bantu mengajar berupa gambar, model, slide power point, atau alat-alat lain.

Hal ini bertujuan untuk memberikan pengalaman konkrit, motivasi belajar, serta mempertinggi daya serap dan retensi belajar siswa. Inilah yang disebut dengan media pembelajaran.

Pengertian media pembelajaran secara umum bisa diartikan sebagai alat bantu proses belajar mengajar. Segala sesuatu yang dapat dipergunakan untuk merangsang pikiran, perasaan, perhatian dan kemampuan atau ketrampilan siswa.

Banyak sekali jenis media pembelajaran dan macamnya. Kita bisa memanfaatkan berbagai jenis media pembelajaran yang ada untuk menunjang proses belajar. Apalagi di zaman sekarang ini peran teknologi sudah masuk ke berbagai aspek, termasuk dunia pendidikan.

Media pembelajaran berfungsi di antaranya adalah untuk menarik minat siswa terhadap materi pembelajaran yang disajikan. Pada kenyataannya, media pembelajaran masih sering terabaikan dengan berbagai alasan. Hal ini sebenarnya tidak perlu terjadi jika setiap fasilitator telah mempunyai pengetahuan dan keterampilan mengenai media pembelajaran. Misalnya membuat media pembelajaran matematika, quiz alqur'an, atau TIK berupa Slide Kalkulator pada Microsoft Power Point dengan bantuan visual basic.

Pertama, Kita buka microsoft power point. kemudian pilih menu Developer ==> textbox untuk membuat TextBox Bilangan 1, Bilangan2 , dan Hasil pada slide power point.

Kedua, buat tombol Command Button Kali, bagi, tambah, kurang, pangkat, dan bersih. Kemudian masukan code scrip berikut pada masing-masing command Button.

Private Sub cmdBersih_Click()

'mengosongkan isi TextBox

txtBil1.Text = ""

txtBil2.Text = ""

txtHasil.Text = ""

End Sub

Private Sub CmdKali_Click()

Dim a As Single

Dim b As Single

Dim Hasil As Single

a = txtBil1.Text

b = txtBil2.Text

Hasil = a * b

txtHasil.Text = Hasil

End Sub

Private Sub cmdBagi_Click()

Dim a As Single

Dim b As Single

Dim Hasil As Single

a = txtBil1.Text

b = txtBil2.Text

Hasil = a / b

txtHasil.Text = Hasil

End Sub

Private Sub cmdKurang_Click()

Dim a As Single

Dim b As Single

Dim Hasil As Single

a = txtBil1.Text

b = txtBil2.Text

Hasil = a - b

txtHasil.Text = Hasil

End Sub

Private Sub cmdPangkat_Click()

Dim a As Single

Dim b As Single

Dim Hasil As Single

a = txtBil1.Text

b = txtBil2.Text

Hasil = a ^ b

txtHasil.Text = Hasil

End Sub

Private Sub cmdTambah_Click()

Dim a As Single

Dim b As Single

Dim Hasil As Single

a = txtBil1.Text

b = txtBil2.Text

Hasil = a + b

txtHasil.Text = Hasil

End Sub

Keempat, Jika kita ingim membuat judul pada slide dengan tulisan yang bisa diganti jenis warnanya tinggal buat label judul dan kemudian masukan code scrip berikut ini :

Private Sub oplBiru_Click()

lblTeks.ForeColor = vbBlue

End Sub

Private Sub oplHijau_Click()

lblTeks.ForeColor = vbGreen

End Sub

Private Sub oplHitam_Click()

lblTeks.ForeColor = vbBlack

End Sub

Private Sub oplKuning_Click()

lblTeks.ForeColor = vbYellow

End Sub

Private Sub oplPutih_Click()

lblTeks.ForeColor = vbWhite

End Sub

Private Sub oplUngu_Click()

lblTeks.ForeColor = vbViolet

End Sub

Private Sub optRed_Click()

lblTeks.ForeColor = vbRed

End Sub

Demikian share cara membuat media pembelajaran matematika berupa slide kalkulator sederhana semoga artikel ini bermanfaat.

Slide kalkulator sederhana pada microsoft power point unduh di sini

Read More

Cara Membuat Slide Media Pembelajaran Quiz Al Qur'an

Microsoft Office : Assalamu'alaikum warahmatullahi wabarakatuh.. Salam sejahtera Bapak/Ibu guru semua. Pada kali ini saya akan berbagi cara membuat media pembelajaran berupa "Quiz Al Qur'an" berupa slide power point berbasisi visual basic (vba). Membuat media pembelajaran yang menyenangkan dan interaktif merupakan upaya dalam rangka bersama-sama kita tingkatkan sumberdaya manusia dalam hal ini mendidik dan membimbing anak-anak didik kita agar mampu kita antar menjadi anak yang berakhlakul karimah, berilmu, berbudaya, dan mampu bersaing di era digitalisasi sepreti sekarang ini. 

Pendidik sejatinya harus bisa mengikuti perkembangan jaman dengan kemampuan mereduksi semua teknologi informasi digital guna memfasilitasi dan memicu motivasi anak dalam mengembangkan kemampuan, bakat dan minatnya yang ada pada diri mereka masing-masing, dengan perantara pengajaran dan media pembelajaran interaktif yang menyenangkan bagi diri anak didik. Mari kita bersama ikuti langkah-langkah pembuatan slide Quiz Al qur'an ini dengan seksama.

Pertama, buka lembaran slide Microsoft Power Point dan buat pertanyaan quiz Al qur'an yang kita kehendaki.

Kedua, buat TextBox (AktiveX Control) sebagai kolom isi jawaban dengan cara Pilih Developer pada menu bar, pilih textbox lihat pada gambar berikut :

Ketiga, membuat ceklis benar (v) , salah (x) , tombol periksa, tombol reset, dan kolom perolehan skor dengan memilih shapes pada menu Insert.

Keempat, setelah langkah tiga dialakukan, klik pada salah satu shape. misal shape ceklist kemudian pilih Home==>selection visibility==>shapes on slide kemudian ganti nama yang sesuai. lihat gambar di bawah ini ;

Kelima, pada langka ini kita sincronkan kode vba dengan textbox, tombol yang ada di slide. Pilih menu developer ==> pilih menu visual basic. kemudian setalah menu visual basic terbuka, buat modul sepeti pada gambar di bawah ini :

Selanjutnya masukan kode scrip vba di bawah ini ke dalam modul visual basic seperti gambar di atas 

========================================================================
Public cekJawab As Variant
Public isiJawab As Variant
Public kunciJawab As Variant
Public nilai As Variant
Public nilaiTotal As Integer

Public Sub deklarasiArray()
cekJawab = Array("benar1", "salah1", "benar2", "salah2", "benar3", "salah3", _
               "benar4", "salah4", "benar5", "salah5", "benar6", "salah6", _
               "benar7", "salah7", "benar8", "salah8", "benar9", "salah9", "benar10", "salah10")
isiJawab = Array(Slide1.TextBox1, Slide1.TextBox2, Slide1.TextBox3, _
                 Slide1.TextBox4, Slide1.TextBox5, Slide1.TextBox6, _
                 Slide1.TextBox7, Slide1.TextBox8, Slide1.TextBox9, Slide1.TextBox10)
kunciJawab = Array("AL ALAQ", "AL MUDATTSIR", "AL MAIDAH", "22", "2", "22", _
                   "30", "114", "6666", "17 RAMADHAN")
nilai = Array("0", "0", "0", "0", "0", "0", "0", "0", "0", "0")
End Sub

Public Sub tombolClear1()
Call deklarasiArray
For i = 0 To 9
ActivePresentation.Slides(1).Shapes(cekJawab(2 * i)).Visible = msoFalse
ActivePresentation.Slides(1).Shapes(cekJawab(2 * i + 1)).Visible = msoFalse
ActivePresentation.Slides(1).Shapes("nilaiAnda").TextFrame.TextRange.Text = "0"
isiJawab(i).Text = ""
Next
End Sub

Public Sub tombolPeriksa1()
Call deklarasiArray
nilaiTotal = 0
For i = 0 To 9
If isiJawab(i).Text = kunciJawab(i) Then
ActivePresentation.Slides(1).Shapes(cekJawab(2 * i)).Visible = msoTrue
ActivePresentation.Slides(1).Shapes(cekJawab(2 * i + 1)).Visible = msoFalse
nilai(i) = 10
Else
ActivePresentation.Slides(1).Shapes(cekJawab(2 * i)).Visible = msoFalse
ActivePresentation.Slides(1).Shapes(cekJawab(2 * i + 1)).Visible = msoTrue
nilai(i) = 0
End If
nilaiTotal = nilaiTotal + nilai(i)
Next
ActivePresentation.Slides(1).Shapes("nilaiAnda").TextFrame.TextRange.Text = nilaiTotal
End Sub
============================================================

dan pilih setiap tombol shape (score, reset, periksa, ceklis benar, cekcross) lakukan pilih action pada menu pada menu insert maka akan muncul dialog seperti di bawah ini; 

Kemudian pilih Run macro. Untuk tombol shapes ceklist, cekcross, dan score pilih deklarasiArray. sementara untuk tombol reset pilih tombolcelar1 dan untuk tombol periksa pilihtombolperiksa1. terakhir klik OK. Silahkan dicoba semoga artikel ini bermanfaat. Aamiin...

Contoh slide Quiz Al Quran unduh disini

Read More