Category: rumah belajar

Pada artikel ini akan dijelaskan bagaimana membuat animasi interaktif “perkalian sebagai penjumlahan berulang”

Susun obyek-obyek seperti pada gambar di atas : 2 buah scrollbar dan 27 buah textbox – beri nama sesuai dengan yang tertera pada selection pane. (lihat pada file contoh)

Pada module ketikkan script berikut :

Option Base 1
Public kelipatan As Variant
Public tambah As Variant

Sub perkalian()
Set SLD = ActivePresentation.Slides(2)
kelipatan = Array(SLD.Shapes(“bilangan 2_1”), SLD.Shapes(“bilangan 2_2”), SLD.Shapes(“bilangan 2_3”), SLD.Shapes(“bilangan 2_4”), SLD.Shapes(“bilangan 2_5”),  SLD.Shapes(“bilangan 2_6”), SLD.Shapes(“bilangan 2_7”), SLD.Shapes(“bilangan 2_8”), SLD.Shapes(“bilangan 2_9”), SLD.Shapes(“bilangan 2_10”))

tambah = Array(SLD.Shapes(“simb_tambah 1”), SLD.Shapes(“simb_tambah 2”), SLD.Shapes(“simb_tambah 3”), SLD.Shapes(“simb_tambah 4”), SLD.Shapes(“simb_tambah 5”),  SLD.Shapes(“simb_tambah 6”), SLD.Shapes(“simb_tambah 7”), SLD.Shapes(“simb_tambah 8”), SLD.Shapes(“simb_tambah 9”))
End Sub

Klik kanan salah satu ScrollBar kemudian pilih View Code dan ketikkan script berikut :
Private Sub ScrollBar1_Change()
perkalian
ActivePresentation.Slides(2).Shapes(“bilangan 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“bilangan 2”).TextFrame.TextRange.Text = Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(“hasil”).TextFrame.TextRange.Text = Val(ScrollBar1) * Val(ScrollBar2)
For i = 1 To 19
ActivePresentation.Slides(2).Shapes(4 + i).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
kelipatan(i).Visible = msoTrue
kelipatan(i).TextFrame.TextRange.Text = Val(ScrollBar2)
Next
For i = 1 To Val(ScrollBar1) – 1
tambah(i).Visible = msoTrue
Next
End Sub
Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

download : file perkalian sebagai penjumlahan berulang

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

 

Kali ini saya memanfaatkan  script VB dari http://www.devx.com/vb2themax/Tip/19015 untuk membuat powerpoint interaktif menentukan KPK dari 2 bilangan.
Berikut ini tambahan script VBA yang saya berikan untuk mengontrol obyek-obyek pada slide

Private Sub ScrollBar1_Change()
ActivePresentation.Slides(2).Shapes(“TextBox 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“TextBox 2”).TextFrame.TextRange.Text = Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(“TextBox 3”).TextFrame.TextRange.Text = LCM(Val(ScrollBar1), Val(ScrollBar2))
End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

download : file powerpoint KPK

Pada artikel ini, saya memanfaatkan Procedure function pada link http://www.vb-helper.com/howto_roman_arabic.html untuk membuat powerpoint interaktif “penjumlahan dalam lambang bilangan romawi”
Adapun tambahan script yang saya berikan untuk mengontrol obyek-obyek pada slide adalah sebagai berikut :

Private Sub ScrollBar1_Change()
Set SLD = ActivePresentation.Slides(2)
SLD.Shapes(“TextBox 1”).TextFrame.TextRange.Text = ArabicToRoman(Val(ScrollBar1))
SLD.Shapes(“TextBox 2”).TextFrame.TextRange.Text = ArabicToRoman(Val(ScrollBar2))
SLD.Shapes(“TextBox 3”).TextFrame.TextRange.Text = ArabicToRoman(Val(ScrollBar1) + Val(ScrollBar2))
SLD.Shapes(“TextBox 4”).TextFrame.TextRange.Text = Val(ScrollBar1)
SLD.Shapes(“TextBox 5”).TextFrame.TextRange.Text = Val(ScrollBar2)
SLD.Shapes(“TextBox 6”).TextFrame.TextRange.Text = Val(ScrollBar1) + Val(ScrollBar2)

End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

Private Sub ToggleButton1_Click()

Set SLD = ActivePresentation.Slides(2)
If ToggleButton1.Value = True Then
ToggleButton1.Caption = “sembunyikan angka arab”
SLD.Shapes(“TextBox 4”).Visible = msoTrue
SLD.Shapes(“TextBox 5”).Visible = msoTrue
SLD.Shapes(“TextBox 6”).Visible = msoTrue
Else
ToggleButton1.Caption = “tampilkan angka arab”
SLD.Shapes(“TextBox 4”).Visible = msoFalse
SLD.Shapes(“TextBox 5”).Visible = msoFalse
SLD.Shapes(“TextBox 6”).Visible = msoFalse
End If
End Sub

download file : Jumlah bilangan romawi