Sprite 02 - One Static Image (Bitmap), Single Frame, Memory Bitmap per Frame

Category: Sprite Tutor Series

Date: 03-28-2012

Return to Index


 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
#Include "Win32API.inc"
#Resource "gbsnippets.pbr"
 
Type spriteInfo
   w As Long
   h As Long
   x As Long
   y As Long
   dx As Long
   dy As Long
   hBMP As DWord
End Type
 
   Global hDlg As DWord, sprite As spriteInfo, iCount As Long
   Global canvasW As Long, canvasH As Long, hSprite As DWord
   %ID_Graphic = 300 : %ID_Timer = 400 : %Delta = 2
 
Function PBMain() As Long
   canvasW = 300 : canvasH = 300
   Dialog New Pixels, 0, "Graphic Control Test",300,300,400,400, %WS_SysMenu, 0 To hDlg
   Control Add Graphic, hDlg, %ID_Graphic,"", 0,0,canvasW,canvasH, %WS_Visible Or %SS_Sunken
   Definesprite
   Graphic Attach hDlg, %ID_Graphic
   Graphic Color %Black,%White
   Graphic Clear
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Select Case CB.Msg
      Case %WM_InitDialog
         SetTimer(CB.Hndl, %ID_Timer, 20, ByVal %NULL)   'uses callback messages
      Case %WM_Timer
         Incr iCount : Dialog Set Text hDlg, Str$(iCount)
         Movesprite
         Drawsprite
         Control Redraw hDlg, %ID_Graphic
      Case %WM_Destroy
         KillTimer CB.Hndl, %ID_Timer
      Case %WM_Command
         If CB.Ctl = %ID_Graphic Then
 
         End If
   End Select
End Function
 
Sub Drawsprite
   Graphic Clear
   Graphic Copy sprite.hBMP, 0 To (sprite.x, sprite.y)
End Sub
 
Sub Movesprite
   sprite.x = sprite.x + sprite.dx
   sprite.y = sprite.y + sprite.dy
 
   If sprite.x < 0 Then
      sprite.x = 0
      sprite.dx = %Delta
   ElseIf sprite.x + sprite.w > canvasW Then
      sprite.x = canvasW - sprite.w
      sprite.dx = - %Delta
   End If
 
   If sprite.y < 0 Then
      sprite.y = 0
      sprite.dy = %Delta
   ElseIf sprite.y + sprite.h > canvasH Then
      sprite.y = canvasH - sprite.h
      sprite.dy = - %Delta
   End If
End Sub
 
Sub Definesprite
   sprite.w = 32
   sprite.h = 32
   sprite.x = 50
   sprite.y = 150
   sprite.dx = %Delta
   sprite.dy = %Delta
   Graphic Bitmap Load "cowgirl", 32, 32 To sprite.hBMP
End Sub
 
'gbs_00451
'Date: 03-10-2012


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm