Lesson 33: Creating Animation in VB2022

Public Class AnimationForm
    Private ballX As Integer = 50
    Private ballSpeed As Integer = 5

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Set up timer with 30 FPS
        Timer1.Interval = 33 ' ≈30 frames per second
    End Sub
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' Update ball position
        ballX += ballSpeed
        
        ' Reverse direction at edges
        If ballX > PictureBox1.Width - 40 Or ballX < 0 Then
            ballSpeed *= -1
        End If
        
        ' Redraw the ball
        PictureBox1.Refresh()
    End Sub
    
    Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
        ' Draw the moving ball
        e.Graphics.FillEllipse(Brushes.Red, ballX, 50, 40, 40)
    End Sub
End Class

Public Class DiceForm
    Private rnd As New Random()

    Private Sub BtnRoll_Click(sender As Object, e As EventArgs) Handles BtnRoll.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Static rollCount As Integer = 0
        rollCount += 1
        
        ' Stop after 20 rolls
        If rollCount > 20 Then
            Timer1.Enabled = False
            rollCount = 0
            Return
        End If
        
        ' Clear and redraw dice
        DiceBox.Refresh()
        
        ' Draw dice border
        Dim g As Graphics = DiceBox.CreateGraphics
        g.DrawRectangle(Pens.Black, 10, 10, 120, 120)
        
        ' Generate random dice value
        Dim diceValue As Integer = rnd.Next(1, 7)
        
        ' Draw dots based on value
        Select Case diceValue
            Case 1 ' Center dot
                g.FillEllipse(Brushes.Black, 60, 60, 20, 20)
            Case 2 ' Top-left and bottom-right
                g.FillEllipse(Brushes.Black, 30, 30, 20, 20)
                g.FillEllipse(Brushes.Black, 90, 90, 20, 20)
            ' Additional cases for other values...
        End Select
    End Sub
End Class

Public Class BouncingBallForm
    Private ballX As Single = 50
    Private ballY As Single = 50
    Private velocityX As Single = 3
    Private velocityY As Single = 0
    Private gravity As Single = 0.2
    Private friction As Single = 0.99
    Private ballSize As Integer = 40

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 16 ' ≈60 FPS
    End Sub
    
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ' Apply gravity
        velocityY += gravity
        
        ' Update position
        ballX += velocityX
        ballY += velocityY
        
        ' Boundary collision
        If ballX <= 0 Then
            ballX = 0
            velocityX = Math.Abs(velocityX) * friction
        ElseIf ballX >= BallBox.Width - ballSize Then
            ballX = BallBox.Width - ballSize
            velocityX = -Math.Abs(velocityX) * friction
        End If
        
        If ballY <= 0 Then
            ballY = 0
            velocityY = Math.Abs(velocityY) * friction
        ElseIf ballY >= BallBox.Height - ballSize Then
            ballY = BallBox.Height - ballSize
            velocityY = -Math.Abs(velocityY) * friction
        End If
        
        ' Redraw ball
        BallBox.Refresh()
    End Sub
    
    Private Sub BallBox_Paint(sender As Object, e As PaintEventArgs) Handles BallBox.Paint
        ' Draw the bouncing ball
        Dim ballBrush As New Drawing2D.LinearGradientBrush(
            New Point(ballX, ballY), 
            New Point(ballX + ballSize, ballY + ballSize),
            Color.Red, Color.DarkRed)
            
        e.Graphics.FillEllipse(ballBrush, ballX, ballY, ballSize, ballSize)
        e.Graphics.DrawEllipse(Pens.DarkRed, ballX, ballY, ballSize, ballSize)
    End Sub
End Class