Bagaimana caranya membuat simulasi mengenal bilangan pada powerpoint? Simak dan ikuti tutorial pada video ini.
download : tutorial membuat simulasi mengenal bilangan
‘Script pada module 1
Sub hideMobil()
For i = 1 To 10
ActivePresentation.Slides(1).Shapes(i).Visible = msoFalse
Next
End Sub
‘Script pada Slide 1
Private Sub SpinButton1_Change()
hideMobil
For i = 1 To Val(SpinButton1)
ActivePresentation.Slides(1).Shapes(i).Visible = msoTrue
Next
ActivePresentation.Slides(1).Shapes(“angka”).TextFrame.TextRange.Text = Val(SpinButton1)
End Sub
download : file contoh membuat simulasi mengenal bilangan
ABDUL KARIM 