Animasi Sprite dengan Object Mario Bros

Siapa yang tek kenal dengan Mario Bross? Yup betul, itu adalah salah satu karakter dalam permainan Nintendo.. Disini saya mencoba membuat simulasi permainan Mario Bros, dimana si Mario nya berjalan maju/mundur jongkok dan lompat...
Dengan tekhnik BitBlt (Sprite). Jangan lupa beri komentarnya yach..OKEEE!!

1. Mask Tiles













2. Object Tiles













Kalian dapat mendownload simulasinya di :
http://www.4shared.com/file/242847711/6919c03/Super_Mario_Bros_Animation.html

Source Code :
http://www.4shared.com/file/242849179/ba42b836/Animation_Sprite_SMB.html

Untuk menndapatkan passwordnya silahkan konfirmasi ke Facebook saya!

Sprite Image

Contoh membuat background object menjadi transparant!
Langkah 1: Buat 2 buah gambar 1 dengan backgound hitam dan satunya background putih dengan warna object hitam dan ukuran yang sama. seperti dibawah ini! dibawah ini conntoh ukuran 297 x 295






Langkah 2: Masuk ke VB. Buat project baru dan tambahkan komponen picture1 dan picture2 isi dengan dua buah gambar tersebut! kemudian tambahkan timer1 dengan interval = 10. Isi form dengan gambar supaya dapat diketahui bahwa background image sudah berhasil di transparankan.



Langkah 3: Tambahkan code dibawah ini!

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Dim xx, yy, jml
Dim Rest As Long
Dim s As Long

Private Sub Form_Load()
xx = Me.ScaleWidth - 100
yy = (ScaleHeight - 296) \ 2
End Sub

Private Sub Timer1_Timer()
Static s As Long
Me.Cls
Rest = BitBlt(hDC, xx - s, yy, 297, 294, Picture2.hDC, 0, 0, vbSrcAnd)
Rest = BitBlt(hDC, xx - s, yy, 297, 294, Picture1.hDC, 0, 0, vbSrcPaint)
jml = xx - s

s = s + 32
Me.Refresh
If jml <= (Me.ScaleWidth - 297) / 2 Then Timer1.Enabled = False End Sub