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

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