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

 

Author: Abdul Karim

Integrasi Matematika dan Teknologi merupakan fokus perhatian saya, dalam memberikan kontribusi kepada pendidikan matematika di Indonesi

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s