Анимация: как сделать что бы шарик двигался снизу вверх, а не сверху вниз - Visual Basic .NET

Формулировка задачи:

ublic Class Form1
    Dim x, y, h, w As Integer
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim Graph As Graphics
        Graph = Me.CreateGraphics
        Graph.DrawEllipse(Pens.LightGray, 200, x, 40, 40)
        x = x + 1
        Graph.FillEllipse(Brushes.Beige, 200, x, 40, 40)
        If (x = h - 40) Or (y = w - 40) Then Timer1.Stop()
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
             Me.BackColor = Color.LightGray
    End Sub
End Class

как сделать что бы шарик двигался снизу вверх..а не сверху вниз?? помогите плиз

Решение задачи: «Анимация: как сделать что бы шарик двигался снизу вверх, а не сверху вниз»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Dim x As Integer = 250
    Dim h As Integer
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim Graph As Graphics
 
        Graph = Me.CreateGraphics
        Graph.DrawEllipse(Pens.LightGray, 200, x, 40, 40)
        x = x - 1
        Graph.FillEllipse(Brushes.Beige, 200, x, 40, 40)
        If (x = h - 40) Then Timer1.Stop()
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.LightGray
    End Sub
End Class
                        

Оцени полезность:

10 голосов , оценка 3.9 из 5

Похожие ответы