Powerpoint Interaktif (dengan VBA) : Visualisasi Perkalian bilangan 1 – 10 (Versi lain)

RBAK_powerfulPPT

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

gbr_VisualPerkalian_visiblePilih 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

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