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 Penjumlahan (Visual) dengan Powerpoint

RBAK_powerfulPPT

Pada posting ini, saya akan menjelaskan bagaimana membuat animasi Interaktif Penjumlahan (Visual).
gbr_penjumlahan

Untuk bilangan pertama, insert 40 shapes rectangle; bilangan kedua insert shapes 40 rectangle dan untuk hasil penjumlahan bilangan pertama dan kedua insert shapes 40 rectangle. Kemudian insertkan dua buah scrollbar dan tiga buah textbox.

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

Private Sub ScrollBar1_Change()
For i = 1 To 40
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoFalse
ActivePresentation.Slides(2).Shapes(40 + i).Visible = msoFalse
Next

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

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

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

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

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 = Val(ScrollBar1) + Val(ScrollBar2)

End Sub

Private Sub ScrollBar2_Change()

ScrollBar1_Change

End Sub

download : file animasi interaktif

Posted in Uncategorized

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