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