Animasi Interaktif Powerpoint VBA : Perkalian Sebagai Penjumlahan Berulang

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

gbr_JmlhBerulang

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

Advertisements

Powerpoint Interaktif : Latihan Soal Persiapan Ujian Nasional Matematika 2015 – SMP

coverLatUN2015Tidak 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
gbrsoalTampilan lembar evaluasi, solusi hanya dapat dilihat hanya jika user menjawab benar

gbrevaluasiDownlaod 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

 

 

Powerpoint Interaktif (dengan VBA) : Penjumlahan Dua Bilangan Pecahan

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

gbr_jumlahpecahanBerikut 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

 

Powerpoint Interaktif (dengan VBA) : Menentukan KPK dari 2 Bilangan

RBAK_powerfulPPTKali ini saya memanfaatkan  script VB dari http://www.devx.com/vb2themax/Tip/19015 untuk membuat powerpoint interaktif menentukan KPK dari 2 bilangan.
gbr_KPKBerikut 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

Powerpoint Interaktif (dengan VBA) : Penjumlahan dalam Lambang Bilangan Romawi

RBAK_powerfulPPTPada 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”
gbr_romanAdapun 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

Powerpoint Interaktif (dengan VBA) : Pembagian dengan 2

RBAK_powerfulPPTPada posting ini, akan saya jelaskan bagaimana membuat powerpoint interaktif untuk pembagian dengan 2

gbr_pembagian2Insert shapes rectangle, text box dan command button seperti pada gambar. Kemudian pilih View Code pada kelompok Controls – tab Developer ketikkan script berikut :

Private Sub ScrollBar1_Change()
For i = 1 To 20
ActivePresentation.Slides(2).Shapes(i).Fill.BackColor.RGB = RGB(255, 255, 255)
ActivePresentation.Slides(2).Shapes(i).Fill.ForeColor.RGB = RGB(255, 255, 255)
Next

For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Fill.BackColor.RGB = RGB(255, 0, 0)
ActivePresentation.Slides(2).Shapes(i).Fill.ForeColor.RGB = RGB(255, 0, 0)
Next

For i = 1 To 10
ActivePresentation.Slides(2).Shapes(20 + i).Visible = msoFalse
Next

ActivePresentation.Slides(2).Shapes(“Bilangan 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“hasil”).TextFrame.TextRange.Text = “”

End Sub

Private Sub CommandButton1_Click()
For i = 1 To 10
ActivePresentation.Slides(2).Shapes(20 + i).Visible = msoFalse
Next

For i = 1 To Val(ScrollBar1) / 2
ActivePresentation.Slides(2).Shapes(20 + i).Visible = msoTrue
Next
ActivePresentation.Slides(2).Shapes(“hasil”).TextFrame.TextRange.Text = Val(ScrollBar1) / 2

End Sub

download : file powerpoint interaktif

Powerpoint Interaktif (dengan VBA) : Visualisasi Perkalian bilangan 1 – 10 (Versi lain)

RBAK_powerfulPPT

Artikel ini, merupakan versi lain (sedikit modifikasi) dari posting sebelumnya – visualisasi perkalian 1 – 10 – dengan melakukan sedikit perubahan pada scriptnya.

gbr_VisualPerkalian_visiblePilih View Code pada kelompok Controls – tab Developer ketikkan script berikut :

Private Sub ScrollBar1_Change()

kotakwarna

For i = 1 To 10
For j = 1 To 10
If Val(ScrollBar1) > i – 1 And Val(ScrollBar2) > j – 1 Then
kotak(10 * (i – 1) + j).Visible = msoTrue

Else
kotak(10 * (i – 1) + j).Visible = msoFalse

End If
Next
Next

ActivePresentation.Slides(2).Shapes(“bilangan 1”).TextFrame.TextRange.Text = Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(“bilangan 2”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“hasil”).TextFrame.TextRange.Text = Val(ScrollBar1) * Val(ScrollBar2)

End Sub

Private Sub ScrollBar2_Change()

ScrollBar1_Change

End Sub

download : file animasi Interaktif