Category: rumah belajar

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

Insert 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

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

Pilih 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

Untuk 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

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

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

Insert 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

Apakah 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.
Pertama 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

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 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