VB2017 VB2015 VB2013 VB2012 VB2010 VB2008 VB6 VB Sample Codes 中文VB About Us

Lesson 33 Creating Animation


Although Visual Basic 2017 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 can create a moving object using the timer. The motion can be from left to right or from top to bottom motion or diagonal.First, insert a picture box into the form. In the picture box properties window, select the image property and click to import an image in your storage devices such as your hard drive. We have inserted an image of a bunch of grapes.Next, insert the Timer control into the form and set its Interval property to 100, which is equivalent to 0.1 seconds. Finally, add two buttons to the form, name one of them as AnimateBtn and the other one as StopBtn, and change to caption to Animate and Stop respectively.

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

Figure 33.1
 

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 VB2013_figure32.2  

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 the 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.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\strawberry.jpg")
Case 2
PictureBox1.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\grape.jpg")
Case 3
PictureBox1.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\apple.jpg")

End Select

Select Case b
Case 1
PictureBox2.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\strawberry.jpg")
Case 2
PictureBox2.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\grape.jpg")
Case 3
PictureBox2.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\apple.jpg")

End Select
Select Case c
Case 1
PictureBox3.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\strawberry.jpg")
Case 2
PictureBox3.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\images\grape.jpg")
Case 3
PictureBox3.Image = Image.FromFile("C:\Users\admin.DESKTOP-G1G4HEK\Documents\Visual Studio 2015\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

casino

Figure 33.3 


❮ Previous Lesson Next Lesson ❯


Copyright©2008 Dr.Liew Voon Kiong. All rights reserved |Contact|Privacy Policy