Powerpoint Interaktif : Perkalian dengan Metode “Lattice”

Pada posting ini, saya akan membuat 2 buah powerpoint interaktif untuk metoda lattice. Yang pertama untuk perkalian 2 x 2 digit dan yang kedua 3 x 2 digit.

Private Sub ScrollBar1_Change()
For i = 1 To 18
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next
End Sub
download : perkalian metode lattice 2×2
Metode lattice 3 x 2

Private Sub ScrollBar1_Change()
For i = 1 To 26
ActivePresentation.Slides(2).Shapes(i).Visible = msoFalse
Next
For i = 1 To Val(ScrollBar1)
ActivePresentation.Slides(2).Shapes(i).Visible = msoTrue
Next
End Sub
download : perkalian metode lattice 3×2
0 komentar:
Posting Komentar