Meskipun
Visual Basic 2013 adalah bahasa pemrograman yang dirancang untuk menciptakan
bisnis dan aplikasi industri lainnya dan bukan untuk menciptakan animasi, tapi dapat
digunakan untuk membuat animasi. Dalam pelajaran ini, kita akan menunjukkan
program animasi lebih maju.
Dalam program
ini, kita menambahkan tiga kotak gambar, timer, tombol dan label. Mengatur
interval waktu sampai 10, yang berarti gambar akan menyegarkan setiap 0,01
detik. Dalam kode, kita akan memperkenalkan empat variabel m, a, b dan c, di
mana m digunakan untuk menghentikan timer dan a, b, c yang digunakan untuk
menghasilkan gambar acak menggunakan Int sintaks (1 + Rnd () * 3) . Untuk
memuat gambar, kita menggunakan sintaks berikut:
PictureBox.Image
= Image.FromFile(Path of the image file)
Menggunakan Fungsi IF ...Then untuk mengontrol waktu dan Select Case ...
..End untuk menghasilkan gambar acak. Masukkan atau Copas kode Progam Berikut :
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\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\apple.gif”)
Case 2
PictureBox1.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\grape.gif”)
Case 3
PictureBox1.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\strawberry.gif”)
End Select
Select Case b
Case 1
PictureBox2.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\apple.gif”)
Case 2
PictureBox2.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\grape.gif”)
Case 3
PictureBox2.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\strawberry.gif”)
End Select
Select Case c
Case 1
PictureBox3.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\apple.gif”)
Case 2
PictureBox3.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\grape.gif”)
Case 3
PictureBox3.Image =
Image.FromFile(“C:\Users\Toshiba\Documents\Liew
Folder\vb2010\vb2010_Image\strawberry.gif”)
End Select
Else
Timer1.Enabled = False
m = 0
If 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
Maka hasil dari Kode Program diatas akan menghasilkan gambar seperti Berikut ini ;
Sekarang kita telah membuat Langkah Pertama dalam pembuatan Animasi dengan Visual Basic 2013 , Silahkan Anda kembangkan lagi dan belajar lebih banyak teknik pemrograman VB2013.
Pelajari Juga Tutorial Visual Basic 2013 berikut ini ;
Salam...,
No comments:
Post a Comment