Materi Perkuliahan

Permainan Tangram (VBA Powerpoint)

Dipublikasikan pada : 29 Januari 2019.

Sub kanan()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft 10
End Sub
Sub kiri()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementLeft -10
End Sub
Sub atas()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementTop -10
End Sub
Sub bawah()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementTop 10
End Sub
Sub satu()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 1
End Sub
Sub dua()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 2
End Sub
Sub putar1()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementRotation 10
End Sub
Sub putar2()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).IncrementRotation -10
End Sub
Sub tampilkan()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).Visible = msoTrue
End Sub
Sub sembunyikan()
ActivePresentation.Slides(1).Shapes(“kotak” & ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text).Visible = msoFalse
End Sub
Sub tiga()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 3
End Sub
Sub empat()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 4
End Sub
Sub lima()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 5
End Sub
Sub enam()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 6
End Sub
Sub tujuh()
ActivePresentation.Slides(1).Shapes(“kontrol”).TextFrame.TextRange.Text = 7
End Sub
Sub delapan()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = True
End Sub
Sub sembilan()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = True
End Sub
Sub sepuluh()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = True
End Sub
Sub sebelas()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = True
End Sub
Sub duabelas()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = Fales
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = True
End Sub
Sub tigabelas()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = True
End Sub
Sub empatbelas()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = False
End Sub
Sub balik()
ActivePresentation.Slides(1).Shapes(“kotak1”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak8”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak2”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak9”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak3”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak10”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak4”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak11”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak5”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak12”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak6”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak13”).Visible = True
ActivePresentation.Slides(1).Shapes(“kotak7”).Visible = False
ActivePresentation.Slides(1).Shapes(“kotak14”).Visible = True
End Sub

id_IDIndonesian
id_IDIndonesian