Siap Ujian Nasional 2014 SMP Nasima : Pembahasan Soal UN Matematika SMP 2012 – 2013

Beberapa bulan lagi, ujian nasional matematika smp tahun 2014 akan digelar. Untuk itu sebagai salah satu alternatif bahan belajar bagi siswa-siswi smp nasima, saya sediakan posting untuk mendownload video-video tutorial pembahasan soal – soal ujian nasional matematika smp tahun – tahun sebelumnya. Untuk postingan pertama dari seri Siap Ujian Nasional 2014 SMP Nasima, saya upload pembahasan soal – soal UN matematika smp tahun 2012/2013. Untuk update informasi  terbaru tentang “SIAP UN MATEMATIKA SMP 2014” silakan follow @thinklogic2003 di twitter.

Soal no .1 download video pembahasan

soaln01

Soal no .2 download video pembahasan

soaln02

Soal no .3 download video pembahasan

soaln03

Soal no .4 download video pembahasan

soaln04

Soal no .5 download video pembahasan

soaln05

Soal no .6  download video pembahasan

soaln06

Soal no .7  download video pembahasan

soaln07

Soal no .8  download video pembahasan

soaln08

Soal no .9  download video pembahasan

soaln09

Soal no .10  download video pembahasan

soaln10

Soal no. 11  download video pembahasan

soaln11

Soal no. 12  download video pembahasan

soaln12

Soal no. 13  download video pembahasan

soaln13

Soal no. 14 download video pembahasan

soaln14

Soal no. 15 download video pembahasan

soaln15Soal no. 16 download video pembahasan

soaln16

Soal no. 17 download video pembahasan

soaln17

Soal no. 18 download video pembahasan

soaln18

Soal no. 19 download video pembahasan

soaln19

Soal no. 20 download video pembahasan

soaln20

Soal no. 21 download video pembahasan

soaln21

Soal no. 22 download video pembahasan

soaln22

Soal no. 23 download video pembahasan

soaln23

Soal no. 24 download video pembahasan

soaln24

Soal no. 25 download video pembahasan

soaln25Soal no 26 download video pembahasan

soalno26

Soal no 27 download video pembahasan

soalno27

Soal no 28 download video pembahasan

soalno28

Soal no 29 download video pembahasan

soalno29

Soal no 30 download video pembahasan

soalno30

Soal no 31 download video pembahasan

soalno31

Soal no 32 download video pembahasan

soalno32

Soal no 33 download video pembahasan

soalno33

Soal no 34 download video pembahasan

soalno34

Soal no 35 download video pembahasan

soalno35

Soal no 36 download video pembahasan

soalno36

Soal no 37 download video pembahasan

soalno37

Soal no 38 download video pembahasan

soalno38

Soal no 39 download video pembahasan

soalno39

Soal no 40 download video pembahasan

soalno40

Learn to Code : VBA for Powerpoint di Jawa Tengah + Tutorial membuat quiz pilihan ganda

Sebelum saya paparkan (dalam video) tentang bagaimana membuat quiz pilihan ganda (variasi lain), saya ingin bercerita sedikit tentang penggunaan visual basic for application di kalangan guru – guru di  jawa tengah (khususnya dalam lomba multimedia pembelajaran).

36525_10200287541057456_263781926_nJuri – juri lomba multimedia pembelajaran interaktif LPMP Jawa Tengah tahun 2012

Tahun 2006 LPMP Jawa Tengah menyelenggarakan lomba pembuatan bahan ajar berbasis komputer untuk pertama kalinya, saat itu yang menjadi juara adalah karya multimedia pembelajaran interaktif (MPI) dari guru yang menggunakan perangkat lunak macromedia flash. Di kalangan guru pembuat MPI  pada saat itu (mungkin sampai sekarang) perangkat lunak macromedia/adobe flash  adalah yang paling populer dan yang paling diminati untuk dipelajari. Namun berdasarkan pemgamatan saya dari banyak pelatihan yang diselenggarakan di jawa tengah  hanya sedikit guru yang bisa benar-benar menguasai perangkat lunak tersebut, apalagi jika dengan “actionscript” nya. Dalam lomba bahkan pemenang pun (yang jelas-jelas menggunakan actionscript) jika diminta untuk mendemonstrasikan bagaimana membuat simulasi dengan actionscript hampir sebagian besar gagal, dan seringkali berdalih bahwa mereka membuatnya mengikuti tutorial dari buku.  Singkatnya, bagi sebagian besar guru di jawa tengah macromedia/adobe flash adalah perangkat lunak yang sangat mempesona tapi sulit untuk dikuasai dan dipelajari.

Berdasarkan pengalaman (kegagalan) di lomba pertama untuk menjadi pemenang, di mana saat itu saya menggunakan perangkat lunak macromedia/adobe director. Saya memutuskan untuk menggunakan powerpoint di lomba yang sama pada tahun 2007, di event lomba MPI seperti ini, siapa yang memperhitungkan powerpoint untuk menjadi juara? –  powerpoint untuk   melawan karya-karya MPI yang menggunakan flash ibaratnya kisah nabi Daud melawan Jalut (atau David vs Goliath). Pada tahap final, dipilihlah 10 karya dari sekitar 200 an karya yang mengikuti lomba.  Dan 9 dari karya yang lolos ke final semuanya dibuat dengan perangkat lunak flash, satunya-satunya powerpoint yang lolos adalah karya saya. Alhamdulillah, pada saat pengumuman para juara, karya saya menempati rangking 1. Sejak saat itu muncullah joke “lebih baik menggunakan powerpoint bercita rasa flash, daripada menggunakan flash tapi mirip powerpoint”. Pada lomba ini, pada bagian evaluasi/test saya sudah menggunakan visual basic for application (vba) for powerpoint sehingga setelah menyelesaikan test siswa/pengguna dapat melihat hasilnya.

Setelah 6 tahun berlalu, kini setiap tahun di lomba – lomba pembuatan multimedia pembelajaran interaktif di jawa tengah yang diselenggarakan oleh LPMP atau BPTIKP, karya MPI  yang menggunakan powerpoint dengan vba nya sudah tidak asing lagi. Meskipun saya tidak pernah bisa untuk ikut lomba lagi di Jawa Tengah, karena selalu ditunjuk menjadi juri 🙂 baik di LPMP ataupun BPTIKP Jawa Tengah. Era saya sebagai guru peserta lomba di Jawa Tengah memang harus berakhir, sebagai gantinya dengan “track record” sebagai juara lomba MPI tahun 2007, saya mengisi workshop-worskhop di LPMP, BPTIKP dan di sekolah-sekolah.

P1010286

Berikut ini adalah cuplikan materi yang saya sampaikan di Workshop “VBA for Powerpoint ” pada tanggal 2, 16, 23 Februari 2013 di SMAN 3 Pekalongan.

Membuat Quiz Pilihan Ganda dalam Satu Slide

download : video tutorial quiz pilihan ganda

Script VBA untuk membuat quiz pilihan ganda dalam satu slide.

‘===================

‘Pilih Jawaban no. 1

‘===================

Sub pilihA1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE1()
ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 2

‘===================

Sub pilihA2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE2()
ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 3

‘===================

Sub pilihA3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE3()
ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Pilih Jawaban no. 4

‘===================

Sub pilihA4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “A”
End Sub
Sub pilihB4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “B”
End Sub
Sub pilihC4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “C”
End Sub
Sub pilihD4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “D”
End Sub
Sub pilihE4()
ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text = “E”
End Sub

‘===================

‘Procedure periksa jawaban

‘===================

Sub periksa()
Dim jawaban, kunciJawab, rBenar, rSalah As Variant
Dim i As Integer
Dim nilai As Integer
Dim j1, j2, j3, j4 As String
j1 = ActivePresentation.Slides(1).Shapes(“jawab1”).TextFrame.TextRange.Text
j2 = ActivePresentation.Slides(1).Shapes(“jawab2”).TextFrame.TextRange.Text
j3 = ActivePresentation.Slides(1).Shapes(“jawab3”).TextFrame.TextRange.Text
j4 = ActivePresentation.Slides(1).Shapes(“jawab4”).TextFrame.TextRange.Text
jawaban = Array(j1, j2, j3, j4)
kunciJawab = Array(“A”, “A”, “A”, “A”)
rBenar = Array(“responBenar_1”, “responBenar_2”, “responBenar_3”, “responBenar_4”)
rSalah = Array(“responSalah_1”, “responSalah_2”, “responSalah_3”, “responSalah_4”)
For i = 0 To 3
If jawaban(i) = kunciJawab(i) Then
nilai = nilai + 25
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = True
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Else
nilai = nilai + 0
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = True
End If
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = nilai
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = False
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = True
End Sub

‘===================

‘Procedure Reset

‘===================

Sub reset()
Dim jawab, rBenar, rSalah As Variant
Dim i As Integer
jawab = Array(“jawab1”, “jawab2”, “jawab3”, “jawab4”)
rBenar = Array(“responBenar_1”, “responBenar_2”, “responBenar_3”, “responBenar_4”)
rSalah = Array(“responSalah_1”, “responSalah_2”, “responSalah_3”, “responSalah_4”)
For i = 0 To 3
ActivePresentation.Slides(1).Shapes(jawab(i)).TextFrame.TextRange.Text = “”
ActivePresentation.Slides(1).Shapes(rBenar(i)).Visible = False
ActivePresentation.Slides(1).Shapes(rSalah(i)).Visible = False
Next
ActivePresentation.Slides(1).Shapes(“nilaiAnda”).TextFrame.TextRange.Text = “0”
ActivePresentation.Slides(1).Shapes(“periksa_btn”).Visible = True
ActivePresentation.Slides(1).Shapes(“reset_btn”).Visible = False
End Sub

download : file latihan membuat quiz pilihan ganda dalam satu slide

Learn to Code : Hitung Penjumlahan Interaktif dengan Powerpoint

Bagaimanakah caranya membuat hitung penjumlahan interaktif dengan  powerpoint? Simak dan ikuti tutorial pada video ini.

download : video tutorial penjumlahan

‘Script VBA  untuk tombol soal baru

Sub Soalbaru()
ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text = Int((999999 – 111111) * Rnd + 111111)
ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text = Int((999999 – 111111) * Rnd + 111111)
Slide1.TextBox1.Text = “”
End Sub

‘Script VBA  untuk tombol periksa

Sub periksa_penjumlahan()
If Slide1.TextBox1.Text = _
Val(ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text) + Val(ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text) Then
MsgBox (“Jawaban kamu benar”)
Else
MsgBox (“Jawaban kamu salah”)
End If
End Sub

download : file latihan membuat hitung penjumlahan

5000 PPT Interaktif : Pembagian 10 (SD Kelas 2)

Misi dari proyek ini adalah membuat dan menyediakan 5000 bahan ajar interaktif berbasis powerpoint untuk guru dan siswa SD – SMP – SMA di Indonesia, yang dapat di download gratis (rencana akan ada website khusus).

Petunjuk Penggunaan file powerpoint macro enabled show (ppsm), jika di klik file powerpoint yang menggunakan VBA (ppsm), maka akan muncul dialog box seperti pada gambar di bawah. Pilih “enable content for this session” kemudian klik “OK

petunjukcover powerpoint interaktif pembagian 10

coverIloveMath_pembagian10screenshot

pembagian30_10download : powerpoint interaktif pembagian 10 (file ppsm)

Learn to Code : Hitung Perkalian dengan Powerpoint

Bagaimanakah caranya membuat hitung perkalian dengan  powerpoint? Simak dan ikuti tutorial pada video ini.

download : video tutorial hitung perkalian

Script VBA ‘Hitung Perkalian”

‘script untuk tombol soal baru

Sub Soalbaru()
ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text = Int((999999 – 111111) * Rnd + 111111)
ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text = Int((999999 – 111111) * Rnd + 111111)
ActivePresentation.Slides(1).Shapes(“hasilkali”).TextFrame.TextRange.Text = “”
End Sub

‘script untuk tombol hitung

Sub hitung_perkalian()
ActivePresentation.Slides(1).Shapes(“hasilkali”).TextFrame.TextRange.Text = _
Val(ActivePresentation.Slides(1).Shapes(“bilangan1”).TextFrame.TextRange.Text) * Val(ActivePresentation.Slides(1).Shapes(“bilangan2”).TextFrame.TextRange.Text)
End Sub

download : file latihan untuk membuat hitung perkalian

5000 PPT Interaktif : Pembagian 9 (SD Kelas 2)

Misi dari proyek ini adalah membuat dan menyediakan 5000 bahan ajar interaktif berbasis powerpoint untuk guru dan siswa SD – SMP – SMA di Indonesia, yang dapat di download gratis (rencana akan ada website khusus).

Petunjuk Penggunaan file powerpoint macro enabled show (ppsm), jika di klik file powerpoint yang menggunakan VBA (ppsm), maka akan muncul dialog box seperti pada gambar di bawah. Pilih “enable content for this session” kemudian klik “OK

petunjukcover powerpoint interaktif pembagian 9

coverIloveMath_pembagian9screenshot

pembagian45_9download : powerpoint interaktif pembagian 9 (file ppsm)

5000 PPT Interaktif : Pembagian 8 (SD Kelas 2)

Misi dari proyek ini adalah membuat dan menyediakan 5000 bahan ajar interaktif berbasis powerpoint untuk guru dan siswa SD – SMP – SMA di Indonesia, yang dapat di download gratis (rencana akan ada website khusus).

Petunjuk Penggunaan file powerpoint macro enabled show (ppsm), jika di klik file powerpoint yang menggunakan VBA (ppsm), maka akan muncul dialog box seperti pada gambar di bawah. Pilih “enable content for this session” kemudian klik “OK

petunjukcover powerpoint interaktif pembagian 8

coverIloveMath_pembagian8screenshot

pembagian40_8download : powerpoint interaktif pembagian 8 (file ppsm)