Word Programında Hedefe Ok Atışı Oyununu Kodlayınız

Yeni bir Paket Programlar dersi makalesi ile birlikteyiz.,

Çok güzel bir uygulama ile karşınızdayız. Birden fazla nesne ile yapılan bir animasyon yapacağız. Word programında oyun yapılmaz, animasyon düzenlenmez diyen arkadaşların mutlaka okumasını ve uygulamasını isterim.

Belgemizi açalım. Aşağıdaki senaryoyu belgemizde oluşturalım. Daha sonra butona ait Click olayını düzenleyelim.

Private Sub CommandButton1_Click()

    Label1.Caption = "Ha Bismillah"

    r = 40

    ActiveDocument.Shapes(4).Select

   

    For i = 1 To 10

      Selection.ShapeRange.Width = r

      r = r - 3

      DoEvents

    Next i

   

    ActiveDocument.Shapes(5).Select

   

    m = 0

    For i = 1 To 86

      Selection.ShapeRange.Left = m

      m = m + 5

      DoEvents

    Next i

   

    For i = 1 To 5000

      Label1.Caption = "Yaşasın Hedefi Vurdum"

      DoEvents

    Next i

    ActiveDocument.Shapes(4).Select

    Selection.ShapeRange.Width = 40

    ActiveDocument.Shapes(5).Select

    Selection.ShapeRange.Left = 0

   

    Label1.Caption = "Ha Bismillah"

End Sub

Projeyi çalıştırdığımızda okun hedefe doğru gittiğini ve hedefi vurduğunu görebilirsiniz.

Uygulamayı buradan indirebilirsiniz.