Day: July 3, 2014

Tidak terasa tahun ajaran baru 2014/2015 akan dimulai. Tahun ini kelas 9 SMP merupakan angkatan terakhir yang menggunakan kurikulum KTSP 2006.  Untuk persiapan ujian nasional matematika SMP tahun 2014/2015,  saya telah membuat powerpoint interaktif yang berisi latihan soal dan solusinya. Mudah-mudahan file-file powerpoint ini mampu membantu siswa untuk belajar mandiri di rumah.

Tampilan Soal
Tampilan lembar evaluasi, solusi hanya dapat dilihat hanya jika user menjawab benar

Downlaod file :

SKL 1 : Himpunan, Bilangan Bulat dan Pecahan

SKL 2 : Skala dan Perbandingan, Bentuk Akar dan  Aritmetika Sosial

SKL 3 :  Barisan – Deret dan Operasi Aljabar

SKL 4 : Persamaan dan Pertidaksamaan Linear

SKL 5 : Fungsi, Sudut & Garis Sejajar, Persegi Panjang & Lingkaran

SKL 6 : Bangun datar & Kesebangunan

SKL 7 : Bangun ruang, Statistika dan Peluang

 

 

Pada artikel ini saya masih menggunakan script LCM dari http://www.devx.com/vb2themax/Tip/19015 untuk membuat powerpoint interaktif penjumlahan dua bilangan pecahan

Berikut ini tambahan script VBA yang saya berikan untuk mengontrol obyek-obyek pada slide
Private Sub ScrollBar1_Change()
Slide2.ScrollBar1.Max = Val(ScrollBar2)
Slide2.ScrollBar3.Max = Val(ScrollBar4)
Set SLD2 = ActivePresentation.Slides(2)
SLD2.Shapes(“pembilang 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
SLD2.Shapes(“penyebut 1”).TextFrame.TextRange.Text = Val(ScrollBar2)
SLD2.Shapes(“pembilang 2”).TextFrame.TextRange.Text = Val(ScrollBar3)
SLD2.Shapes(“penyebut 2”).TextFrame.TextRange.Text = Val(ScrollBar4)
SLD2.Shapes(“pembilang 3”).TextFrame.TextRange.Text = Val(ScrollBar1)
SLD2.Shapes(“pembilang 4”).TextFrame.TextRange.Text = Val(ScrollBar3)
SLD2.Shapes(“penyebut 3”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4))
SLD2.Shapes(“pengali 1”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar2)
SLD2.Shapes(“pengali 2”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar4)
SLD2.Shapes(“penyebut 4”).TextFrame.TextRange.Text = LCM(Val(ScrollBar2), Val(ScrollBar4))
SLD2.Shapes(“pembilang 5”).TextFrame.TextRange.Text = (LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar2)) * Val(ScrollBar1) + (LCM(Val(ScrollBar2), Val(ScrollBar4)) / Val(ScrollBar4)) * Val(ScrollBar3)
End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub
Private Sub ScrollBar3_Change()
ScrollBar1_Change
End Sub
Private Sub ScrollBar4_Change()
ScrollBar1_Change
End Sub

download : file powerpoint Interaktif