Oyun yazmak aslında o kadar da basit bir iş değil. Zaten yapacağımız şey tam olarak oyun yazmak değil. Ancak iki boyutlu görüntüleri arka arkaya yerleştirerek haraketli görüntü sağlayabiliriz. Burada en önemli şey maske oluşturma; çizilen resimde saydam olacak rengi belirleyip bu rengi saydamlaştırma. Daha sonra, arkaplan resmini ve ardından saydam renk içeren resmimizi arka arkaya BitBlt API'ını çağırarak picturebox nesnesine çizdireceğiz. Programda çağrılan APIlar :Private Declare Function GetBkColor Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function SetBkColor Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
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
Private Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long) As Long
Private Declare Function GetTextColor Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
   Yukarda ekran görüntüsü bulunan örneği indirmek için resmin üzerine tıklayabilirsiniz. Programda formun onloadunda bulunan adım atma genişliklerini, zıplama yüksekliğini vb. ayarlayabilirsiniz. Yenileme hızlarını da timerların interval değerleri ile oynayarak değiştirebilirsiniz...
 
Onaylı yorum bulunmuyor.