Membuat Visualisasi Perkalian 20 x 20 dengan PPT VBA

Posted on by Abdul Karim

perkalianVisual

Script VBA :

Private Sub ScrollBar1_Change()

For i = 1 To 20
For j = 1 To 20
If Val(ScrollBar1) > i – 1 And Val(ScrollBar2) > j – 1 Then
ActivePresentation.Slides(2).Shapes(20 * (i – 1) + j).Visible = msoTrue
Else
ActivePresentation.Slides(2).Shapes(20 * (i – 1) + j).Visible = msoFalse
End If
Next
Next

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)

End Sub

Private Sub ScrollBar2_Change()
ScrollBar1_Change
End Sub

 

download file : Visualisasi Perkalian 20 x 20 pptm

Published by Abdul Karim

Berupaya mengintegrasikan Matematika dengan Teknologi agar pembelajaran menjadi bermakna dan menyenangkan

Leave a Reply

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

Gravatar
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 )

Cancel

Connecting to %s