Animasi Interaktif Powerpoint VBA : Perkalian Sebagai Penjumlahan Berulang

Pada artikel ini akan dijelaskan bagaimana membuat animasi interaktif “perkalian sebagai penjumlahan berulang”

gbr_JmlhBerulang

Susun obyek-obyek seperti pada gambar di atas : 2 buah scrollbar dan 27 buah textbox – beri nama sesuai dengan yang tertera pada selection pane. (lihat pada file contoh)

Pada module ketikkan script berikut :

Option Base 1
Public kelipatan As Variant
Public tambah As Variant

Sub perkalian()
Set SLD = ActivePresentation.Slides(2)
kelipatan = Array(SLD.Shapes(“bilangan 2_1”), SLD.Shapes(“bilangan 2_2”), SLD.Shapes(“bilangan 2_3”), SLD.Shapes(“bilangan 2_4”), SLD.Shapes(“bilangan 2_5”),  SLD.Shapes(“bilangan 2_6”), SLD.Shapes(“bilangan 2_7”), SLD.Shapes(“bilangan 2_8”), SLD.Shapes(“bilangan 2_9”), SLD.Shapes(“bilangan 2_10”))

tambah = Array(SLD.Shapes(“simb_tambah 1”), SLD.Shapes(“simb_tambah 2”), SLD.Shapes(“simb_tambah 3”), SLD.Shapes(“simb_tambah 4”), SLD.Shapes(“simb_tambah 5”),  SLD.Shapes(“simb_tambah 6”), SLD.Shapes(“simb_tambah 7”), SLD.Shapes(“simb_tambah 8”), SLD.Shapes(“simb_tambah 9”))
End Sub

Klik kanan salah satu ScrollBar kemudian pilih View Code dan ketikkan script berikut :
Private Sub ScrollBar1_Change()
perkalian
ActivePresentation.Slides(2).Shapes(“bilangan 1”).TextFrame.TextRange.Text = Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(“bilangan 2”).TextFrame.TextRange.Text = Val(ScrollBar2)
ActivePresentation.Slides(2).Shapes(“hasil”).TextFrame.TextRange.Text = Val(ScrollBar1) * Val(ScrollBar2)
For i = 1 To 19
ActivePresentation.Slides(2).Shapes(4 + i).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
kelipatan(i).Visible = msoTrue
kelipatan(i).TextFrame.TextRange.Text = Val(ScrollBar2)
Next
For i = 1 To Val(ScrollBar1) – 1
tambah(i).Visible = msoTrue
Next
End Sub
Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

download : file perkalian sebagai penjumlahan berulang

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