Fase Peredaran Bulan (Visual Basic 2010)


Hallooww semuanyaa... :D
Pada kali ini saya akan mengajarkan tentang pembuatan Animasi yang mana menggunakan Timer...

Disini saya membutuhkan 8 gambar Fase Peredaran Bulan.. Seperti yang dibawah ini.. :




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.EventArgsHandles 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 ^^


Chang Min Web Developer

Semoga apa yang Saya postingkan dapat bermanfaat bagi yang sedang membaca, kritik, saran atau komentar dapat disampaikan pada komen dibawah ini, Terimas kasih banyak

No comments:

Post a Comment