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

RBAK_powerfulPPTUntuk mempermudah anak-anak dalam belajar berhitung perkalian, ada baiknya seorang guru memvisualkan konsep perkalian. Pada posting ini saya akan menjelaskan bagaimana membuat visualisasi konsep perkalian bilangan 1 – 10

gbr_VisualPerkalian

Insert 100 buah shapes rectangle, 5 buah shapes textbox dan dua buah scrollbar. Pilih Visual Basic pada tab Developer kemudian insert module dan ketikkan script berikut :
Option Base 1
Public kotak As Variant
Sub kotakwarna()
Set persegi = ActivePresentation.Slides(2)
kotak = Array(persegi.Shapes(“Rectangle 1_1”), persegi.Shapes(“Rectangle 1_2”), persegi.Shapes(“Rectangle 1_3”), persegi.Shapes(“Rectangle 1_4”), persegi.Shapes(“Rectangle 1_5”), persegi.Shapes(“Rectangle 1_6”), persegi.Shapes(“Rectangle 1_7”), persegi.Shapes(“Rectangle 1_8”), persegi.Shapes(“Rectangle 1_9”), persegi.Shapes(“Rectangle 1_10”), _
persegi.Shapes(“Rectangle 2_1”), persegi.Shapes(“Rectangle 2_2”), persegi.Shapes(“Rectangle 2_3”), persegi.Shapes(“Rectangle 2_4”), persegi.Shapes(“Rectangle 2_5”), persegi.Shapes(“Rectangle 2_6”), persegi.Shapes(“Rectangle 2_7”), persegi.Shapes(“Rectangle 2_8”), persegi.Shapes(“Rectangle 2_9”), persegi.Shapes(“Rectangle 2_10”), _
persegi.Shapes(“Rectangle 3_1”), persegi.Shapes(“Rectangle 3_2”), persegi.Shapes(“Rectangle 3_3”), persegi.Shapes(“Rectangle 3_4”), persegi.Shapes(“Rectangle 3_5”), persegi.Shapes(“Rectangle 3_6”), persegi.Shapes(“Rectangle 3_7”), persegi.Shapes(“Rectangle 3_8”), persegi.Shapes(“Rectangle 3_9”), persegi.Shapes(“Rectangle 3_10”), _
persegi.Shapes(“Rectangle 4_1”), persegi.Shapes(“Rectangle 4_2”), persegi.Shapes(“Rectangle 4_3”), persegi.Shapes(“Rectangle 4_4”), persegi.Shapes(“Rectangle 4_5”), persegi.Shapes(“Rectangle 4_6”), persegi.Shapes(“Rectangle 4_7”), persegi.Shapes(“Rectangle 4_8”), persegi.Shapes(“Rectangle 4_9”), persegi.Shapes(“Rectangle 4_10”), _
persegi.Shapes(“Rectangle 5_1”), persegi.Shapes(“Rectangle 5_2”), persegi.Shapes(“Rectangle 5_3”), persegi.Shapes(“Rectangle 5_4”), persegi.Shapes(“Rectangle 5_5”), persegi.Shapes(“Rectangle 5_6”), persegi.Shapes(“Rectangle 5_7”), persegi.Shapes(“Rectangle 5_8”), persegi.Shapes(“Rectangle 5_9”), persegi.Shapes(“Rectangle 5_10”), _
persegi.Shapes(“Rectangle 6_1”), persegi.Shapes(“Rectangle 6_2”), persegi.Shapes(“Rectangle 6_3”), persegi.Shapes(“Rectangle 6_4”), persegi.Shapes(“Rectangle 6_5”), persegi.Shapes(“Rectangle 6_6”), persegi.Shapes(“Rectangle 6_7”), persegi.Shapes(“Rectangle 6_8”), persegi.Shapes(“Rectangle 6_9”), persegi.Shapes(“Rectangle 6_10”), _
persegi.Shapes(“Rectangle 7_1”), persegi.Shapes(“Rectangle 7_2”), persegi.Shapes(“Rectangle 7_3”), persegi.Shapes(“Rectangle 7_4”), persegi.Shapes(“Rectangle 7_5”), persegi.Shapes(“Rectangle 7_6”), persegi.Shapes(“Rectangle 7_7”), persegi.Shapes(“Rectangle 7_8”), persegi.Shapes(“Rectangle 7_9”), persegi.Shapes(“Rectangle 7_10”), _
persegi.Shapes(“Rectangle 8_1”), persegi.Shapes(“Rectangle 8_2”), persegi.Shapes(“Rectangle 8_3”), persegi.Shapes(“Rectangle 8_4”), persegi.Shapes(“Rectangle 8_5”), persegi.Shapes(“Rectangle 8_6”), persegi.Shapes(“Rectangle 8_7”), persegi.Shapes(“Rectangle 8_8”), persegi.Shapes(“Rectangle 8_9”), persegi.Shapes(“Rectangle 8_10”), _
persegi.Shapes(“Rectangle 9_1”), persegi.Shapes(“Rectangle 9_2”), persegi.Shapes(“Rectangle 9_3”), persegi.Shapes(“Rectangle 9_4”), persegi.Shapes(“Rectangle 9_5”), persegi.Shapes(“Rectangle 9_6”), persegi.Shapes(“Rectangle 9_7”), persegi.Shapes(“Rectangle 9_8”), persegi.Shapes(“Rectangle 9_9”), persegi.Shapes(“Rectangle 9_10”), _
persegi.Shapes(“Rectangle 10_1”), persegi.Shapes(“Rectangle 10_2”), persegi.Shapes(“Rectangle 10_3”), persegi.Shapes(“Rectangle 10_4”), persegi.Shapes(“Rectangle 10_5”), persegi.Shapes(“Rectangle 10_6”), persegi.Shapes(“Rectangle 10_7”), persegi.Shapes(“Rectangle 10_8”), persegi.Shapes(“Rectangle 10_9”), persegi.Shapes(“Rectangle 10_10”))
End Sub

Seleksi ScrollBar, kemudian pilih View Code pada kelompok Controls – tab Developer ketikkan script berikut :
Private Sub ScrollBar1_Change()
hasilkali
For i = 1 To 101
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
hasil(i – 1).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next
hasil(Val(ScrollBar1) – 1).Visible = msoTrue
End Sub

download : file animasi interaktif

Powerpoint Interaktif (dengan VBA) : Tabel Perkalian

RBAK_powerfulPPT

Kali ini saya akan jelaskan secara singkat bagaimana membuat tabel perkalian interaktif dengan powerpoint VBA

gbr_TabelPerkalianInsert shapes textbox 200 buah, 100 buah hasil perkalian pada tabel dan 100 buah untuk menampilkan perkalian dari 1 sampai dengan 10. Tambahkan ScrollBar.
Pilih Visual Basic pada tab Developer kemudian insert module dan ketikkan script berikut :

Sub hasilkali()
Set kali = ActivePresentation.Slides(2)
hasil = Array(kali.Shapes(“hasil_0_0”), kali.Shapes(“hasil_1_1”), kali.Shapes(“hasil_1_2”), kali.Shapes(“hasil_1_3”), kali.Shapes(“hasil_1_4”), kali.Shapes(“hasil_1_5”), kali.Shapes(“hasil_1_6”), kali.Shapes(“hasil_1_7”), kali.Shapes(“hasil_1_8”), kali.Shapes(“hasil_1_9”), kali.Shapes(“hasil_1_10”), _
kali.Shapes(“hasil_2_1”), kali.Shapes(“hasil_2_2”), kali.Shapes(“hasil_2_3”), kali.Shapes(“hasil_2_4”), kali.Shapes(“hasil_2_5”), kali.Shapes(“hasil_2_6”), kali.Shapes(“hasil_2_7”), kali.Shapes(“hasil_2_8”), kali.Shapes(“hasil_2_9”), kali.Shapes(“hasil_2_10”), _
kali.Shapes(“hasil_3_1”), kali.Shapes(“hasil_3_2”), kali.Shapes(“hasil_3_3”), kali.Shapes(“hasil_3_4”), kali.Shapes(“hasil_3_5”), kali.Shapes(“hasil_3_6”), kali.Shapes(“hasil_3_7”), kali.Shapes(“hasil_3_8”), kali.Shapes(“hasil_3_9”), kali.Shapes(“hasil_3_10”), _
kali.Shapes(“hasil_4_1”), kali.Shapes(“hasil_4_2”), kali.Shapes(“hasil_4_3”), kali.Shapes(“hasil_4_4”), kali.Shapes(“hasil_4_5”), kali.Shapes(“hasil_4_6”), kali.Shapes(“hasil_4_7”), kali.Shapes(“hasil_4_8”), kali.Shapes(“hasil_4_9”), kali.Shapes(“hasil_4_10”), _
kali.Shapes(“hasil_5_1”), kali.Shapes(“hasil_5_2”), kali.Shapes(“hasil_5_3”), kali.Shapes(“hasil_5_4”), kali.Shapes(“hasil_5_5”), kali.Shapes(“hasil_5_6”), kali.Shapes(“hasil_5_7”), kali.Shapes(“hasil_5_8”), kali.Shapes(“hasil_5_9”), kali.Shapes(“hasil_5_10”), _
kali.Shapes(“hasil_6_1”), kali.Shapes(“hasil_6_2”), kali.Shapes(“hasil_6_3”), kali.Shapes(“hasil_6_4”), kali.Shapes(“hasil_6_5”), kali.Shapes(“hasil_6_6”), kali.Shapes(“hasil_6_7”), kali.Shapes(“hasil_6_8”), kali.Shapes(“hasil_6_9”), kali.Shapes(“hasil_6_10”), _
kali.Shapes(“hasil_7_1”), kali.Shapes(“hasil_7_2”), kali.Shapes(“hasil_7_3”), kali.Shapes(“hasil_7_4”), kali.Shapes(“hasil_7_5”), kali.Shapes(“hasil_7_6”), kali.Shapes(“hasil_7_7”), kali.Shapes(“hasil_7_8”), kali.Shapes(“hasil_7_9”), kali.Shapes(“hasil_7_10”), _
kali.Shapes(“hasil_8_1”), kali.Shapes(“hasil_8_2”), kali.Shapes(“hasil_8_3”), kali.Shapes(“hasil_8_4”), kali.Shapes(“hasil_8_5”), kali.Shapes(“hasil_8_6”), kali.Shapes(“hasil_8_7”), kali.Shapes(“hasil_8_8”), kali.Shapes(“hasil_8_9”), kali.Shapes(“hasil_8_10”), _
kali.Shapes(“hasil_9_1”), kali.Shapes(“hasil_9_2”), kali.Shapes(“hasil_9_3”), kali.Shapes(“hasil_9_4”), kali.Shapes(“hasil_9_5”), kali.Shapes(“hasil_9_6”), kali.Shapes(“hasil_9_7”), kali.Shapes(“hasil_9_8”), kali.Shapes(“hasil_9_9”), kali.Shapes(“hasil_9_10”), _
kali.Shapes(“hasil_10_1”), kali.Shapes(“hasil_10_2”), kali.Shapes(“hasil_10_3”), kali.Shapes(“hasil_10_4”), kali.Shapes(“hasil_10_5”), kali.Shapes(“hasil_10_6”), kali.Shapes(“hasil_10_7”), kali.Shapes(“hasil_10_8”), kali.Shapes(“hasil_10_9”), kali.Shapes(“hasil_10_10”))
End Sub

Seleksi ScrollBar, kemudian pilih View Code pada kelompok Controls – tab Developer ketikkan script berikut :

Private Sub ScrollBar1_Change()
hasilkali
For i = 1 To 101
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
hasil(i – 1).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next
hasil(Val(ScrollBar1) – 1).Visible = msoTrue
End Sub

download : file powerpoint Interaktif

Powerpoint Interaktif : Perkalian dengan Metode “Lattice”

RBAK_powerfulPPTApakah metoda “Lattice”? Untuk lebih jelasnya simak dahulu viedo berikut ini,

Pada posting ini, saya akan membuat 2 buah powerpoint interaktif untuk metoda lattice. Yang pertama untuk perkalian 2 x 2 digit dan yang kedua  3 x 2 digit.
gbr_lattice2x2Pertama siapkan shapes (textbox) dan sebuah scrollbar seperti pada gambar di atas. Kemudian pilih View Code pada kelompok Controls – tab Developer ketikkan script berikut :

Private Sub ScrollBar1_Change()

For i = 1 To 18
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
Next

For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next

End Sub

download : perkalian metode lattice 2×2

Metode lattice 3 x 2

gbr_lattice3x2Siapkan shapes (textbox) dan sebuah scrollbar seperti pada gambar di atas. Kemudian pilih View Code pada kelompok Controls – tab Developer ketikkan script berikut :

Private Sub ScrollBar1_Change()

For i = 1 To 26
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
Next

For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next

End Sub

download : perkalian metode lattice 3×2

 

Animasi Interaktif dengan Powepoint : Grafik Persamaan Lingkaran

RBAK_powerfulPPTBagaimana membuat grafik persamaan lingkaran dengan titik pusat (0, 0) dengan jari-jari yang bisa berubah? Pada artikel ini saya jelaskan bagaimana cara membuatnya.

gbr_persamaanlingkaranInsert Shapes 30 buah Oval (lingkaran) dengan ukuran yang berbeda, atur seperti pada gambar. Insert ScrollBar dan beberapa TextBox untuk menampilkan panjang jari-jari lingkaran dan persamaan lingkaran.

Selanjutnya, View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :

Private Sub ScrollBar1_Change()

For i = 1 To 30
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
Next

ActivePresentation.Slides(2).Shapes(Val(ScrollBar1)).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(Val(ScrollBar1)).Visible = msoTrue

ActivePresentation.Slides(2).Shapes(“jarijari”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“jarijari2”).TextFrame.TextRange.Text = Val(ScrollBar1) ^ 2

End Sub

download : file animasi interaktif

 

Animasi Interaktif dengan Powerpoint : Grafik Persamaan Garis Lurus (1)

RBAK_powerfulPPTBagaimana membuat animasi interaktif grafik persamaan garis lurus dengan powerpoint? Pada posting ini, saya berbagi trik untuk membuatnya.

gbr_persamaanGarisInsert Shapes line sebanyak 23 buah dan sebuah ScrollBar. Tambahkan juga textbox untuk menampilkan persamaan garis lurusnya.

Selanjutnya, View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :

Private Sub ScrollBar1_Change()

For i = 1 To 23
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
Next

ActivePresentation.Slides(2).Shapes(Val(ScrollBar1) + 12).Visible = msoTrue
ActivePresentation.Slides(2).Shapes(“konstanta”).TextFrame.TextRange.Text = Val(ScrollBar1)

End Sub

download : file animasi interaktif

 

Animasi Interaktif dengan Powerpoint Mengenal Bilangan 1 – 10

RBAK_powerfulPPT

Kali ini kita akan membuat animasi interaktif Mengenal Bilangan 1 – 10.

Pertama, kita insert shapes 10 buah Oval, 1 TextBox untuk tempat menampilkan bilangan dan sebuah ScrollBar – ActiveX Control (pada tab Developer)

rmengenalbilangan_gbr

Seleksi ScrollBar atur (Poperties) nilai minimum (min) sama dengan 1 dan nilai maksimum (max) sama dengan 10 kemudian pilih View Code pada kelompok Controls – tab Developer untuk mengetikkan script berikut :

Private Sub ScrollBar1_Change()

For i = 1 To 10
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

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

End Sub

download : file animasi interaktif