Hallooww semuanyaa... :D
Pada kali ini saya akan mengajarkan tentang pembuatan
Animasi yang mana menggunakan Timer...
birong
penuh
sabit kanan
saparopat kanan
saparopat
satonga
setengah kiri
mw penuh
Apabila kalian tidak bisa menemukan gambar yang seperti
diatas, kalian bisa mengambil gambar yang diatas.. dan sesuaikan namanya dengan
nama yang sudah saya berikan diatas.. itu supaya anda tidak bingung nantinya dalam
coding...
Well... Saya akan membuat Formnya seperti ini :
Keterangan :
--------------------------------------------------------------------------------------------
SizeMode : berfungsi untuk membuat gambar yang keluar nanti
berada ditengah2 PictureBox.
--------------------------------------------------------------------------------------------
Setelah Kalian membuat Form seperti yang diatas, klik
PictureBox / ptbgambar yang ada ditengah form, cari image di Properties, lalu
klik (...) yang ada disebelah kanan anda... maka akan muncul tampilan seperti
ini :
Setelah muncul tampilan yang seperti diatas, pilik Project
resource file, kemudian klik Import...
Disini anda masukkan semua kedelapan gambar yang tadi..
Seperti ini :
Setelah itu, pilih birong lalu klik OK.
Setelah kita mengatur yang namanya Resource pada Project
ini, maka selanjutnya kita akan membuat coding untuk menjalankan animasi kita
ini... Tapi sebelumnya, tambahkan toolbox TIMER di project ini... atur
Properties timer seperti ini :
Name : tmrgambar
Interval : 1000 (untuk mengatur kecepatan timer, biasanya
untuk detik, intervalnya 1000)
Setelah mengatur timer, selanjutnya kita akan membuat
coding... dimulai dari klik 2 kali Formnya, lalu masukkan coding ini :
---------------------------------------------------------------------------------------------
Private Sub
frmfase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
tmrgambar.Start()
End Sub
----------------------------------------------------------------------------------------------
Diluar dari private sub, deklarasikan satu varibel yaitu
sec. Itu untuk mendeklarasikan detik... seperti ini :
----------------------------------------------------------------------------------------------
Dim sec As Integer = 0
---------------------------------------------------------------------------------------------
Setelah itu, klik 2 kali pada tmrgambar, lalu masukkan
coding ini :
----------------------------------------------------------------------------------------------
Private Sub
tmrgambar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
tmrgambar.Tick
sec
+= 1
If sec = 2 Then
ptbgambar.Image = My.Resources.sabit_kanan
ElseIf sec = 4 Then
ptbgambar.Image = My.Resources.satonga
ElseIf sec = 6 Then
ptbgambar.Image = My.Resources.mw_penuh
ElseIf sec = 8 Then
ptbgambar.Image = My.Resources.penuh
ElseIf sec = 10 Then
ptbgambar.Image = My.Resources.saparopat_kanan
ElseIf sec = 12 Then
ptbgambar.Image = My.Resources.setengah_kiri
ElseIf sec = 14 Then
ptbgambar.Image = My.Resources.saparopat
ElseIf sec = 16 Then
sec = 0
ptbgambar.Image = My.Resources.birong
End If
End Sub
------------------------------------------------------------------------------------------------
Keterangan :
------------------------------------------------------------------------------------------------
My.resources. = berfungsi untuk mengambil resource yang
sudah kita siapkan sebelumnya kedalam suatu picturebox atau yang lainnya.
Gambar akan berubah setiap 2 detik.
------------------------------------------------------------------------------------------------
Setelah itu, maka animasi fase perederan bulan selesai....
Sekian pengajaran saya mengenai pembuatan animasi Fase Peredaran
Bulan...
Apabila anda sekalian ada yang tidak mengerti, silahkan
berikan komentar anda di post ini, kalau tidak halangan, saya akan coba
menjawabnya...
Semoga ini bermanfaat bagi anda ^^
No comments:
Post a Comment