Lesson 33 Creating Animation

Although Visual Basic 2019 is a programming language designed for creating business and other industrial applications, it can be used to create animation. In the preceding lesson, we have actually learned how to create animation using the timer. In fact, the programs we have created in the previous lesson such as the stopwatch and the digital dice are animated programs. In this lesson, we shall show you more advanced animated programs.

33.1 Creating Motion

We make use of the Left property of the picture box to create the motion. PictureBox.Left means the distance of the PictureBox from the left border of the Form . Now click on the Timer control and type in the following code:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf PictureBox1.Left < Me.Width ThenPictureBox1.Left = PictureBox1.Left + 10

Else

PictureBox1.Left = 0

End If
End Sub

In the code above, Me.Width represents the width of the Form. If the distance of the PictureBox from the left is less than the width of the Form, a value of 10 is added to the distance of the PictureBox from the left border each time the Timer tick, or every 0.1 seconds in this example. When the distance of the PictureBox from the left border is equal to the width of the form, the distance from the left border is set to 0, which move the PictureBox object to the left border and then move left again, thus creates an oscillating motion from left to right. We need to insert a button to stop motion. The code is:

Timer1.Enabled = False

To animate the PictureBox object, we insert a button and enter the following code:

Timer1.Enabled = True

The runtime interface

33.2 Creating a Graphical Dice

In preceding lessons, we have learned how to create graphics and draw objects on the form. Now we shall use the previous knowledge to create an animated graphical dice using the timer. In this program, we need to insert a timer and set its interval to 100, which means the drawings will refresh every 0.1 seconds. Next, insert a picture box which is used as the surface of a dice. Finally, add a button and change its text to Roll . Under the Timer sub procedure, we create the Graphics object and the Pen object following the procedures we have learned in preceding lessons. Next, we use a Do loop and the Select Case structure to cycle through all six surfaces of the dice. To create six random cases, we use the syntax n = Int(6 * Rnd()) + 1. We can stop the loop by introducing a variable t and the loop until condition. The condition we set here is t>1000, you can use any figure you wish.

The code

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
Dim t As Integer
t = 0
Do

MyPicBox.Refresh()

Dim n As Integer
Dim myPen As Pen

myPen = New Pen(Drawing.Color.DarkTurquoise, 10)
Dim myGraphics As Graphics = MyPicBox.CreateGraphics
n = Int(6 * Rnd()) + 1

Select Case n

Case 1
myGraphics.DrawEllipse(myPen, 80, 80, 10, 10)

Case 2
myGraphics.DrawEllipse(myPen, 40, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 120, 10, 10)

Case 3
myGraphics.DrawEllipse(myPen, 40, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 80, 80, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 120, 10, 10)

Case 4
myGraphics.DrawEllipse(myPen, 40, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 40, 120, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 120, 10, 10)
Case 5
myGraphics.DrawEllipse(myPen, 40, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 80, 80, 10, 10)
myGraphics.DrawEllipse(myPen, 40, 120, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 120, 10, 10)

Case 6
myGraphics.DrawEllipse(myPen, 40, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 40, 10, 10)
myGraphics.DrawEllipse(myPen, 40, 80, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 80, 10, 10)
myGraphics.DrawEllipse(myPen, 40, 120, 10, 10)
myGraphics.DrawEllipse(myPen, 120, 120, 10, 10)
End Select
t = t + 1
Loop Until t > 1000
Timer1.Enabled = False
End Sub

The runtime interface is as shown in Figure 33.2

33.3 Creating a Slot Machine

In this program, we add three picture boxes, a timer, a button and a label. Set the timer interval to 10, which means the images will refresh every 0.01 second. In the code, we shall introduce four variables m,a, b and c, where m is used to stop the timer and a,b,c are used to generate random images using the syntax Int(1 + Rnd() * 3).  To load the images, we use the following syntax: PictureBox.Image = Image.FromFile(Path of the image file) We employ the If...Then structure to control the timer and the Select Case.....End Select structure to generate random images. The label is used to display the message of the outcomes.

The Code

Public Class Form1
Dim m, a, b, c As Integer
Private Sub BtnSpin_Click(sender As Object, e As EventArgs) Handles BtnSpin.Click
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
m = m + 10
If m < 1000 Then

a = Int(1 + Rnd() * 3)

b = Int(1 + Rnd() * 3)

c = Int(1 + Rnd() * 3)

Select Case a
Case 1
PictureBox1.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\strawberry.jpg")
Case 2
PictureBox1.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\grape.jpg")
Case 3
PictureBox1.Image = Image.FromFile("C:\Users\admin\Documentsvb2019\images\apple.jpg")

End Select

Select Case b
Case 1
PictureBox2.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\strawberry.jpg")
Case 2
PictureBox2.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\grape.jpg")
Case 3
PictureBox2.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\apple.jpg")

End Select
Select Case c
Case 1
PictureBox3.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\strawberry.jpg")
Case 2
PictureBox3.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\grape.jpg")
Case 3
PictureBox3.Image = Image.FromFile("C:\Users\admin\Documents\vb2019\images\apple.jpg")

End Select

Else
Timer1.Enabled = False
m = 0
If a = b Then
LblMsg.Text = "Good Luck! You won $200!"
ElseIf a = c Then

LblMsg.Text = "Good Luck! You won $500!"
ElseIf b = c Then

LblMsg.Text = "Good Luck! You won $1000!"

ElseIf a = b And b = c Then

LblMsg.Text = “Jackpot! You won $1,000,000!"
Else
LblMsg.Text = “No luck, try again”

End If
End If

End Sub
End Class

The run-time interface is shown in Figure 33.3