home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Killer_Sno18221211272004.psc / Module1.bas < prev   
BASIC Source File  |  2004-11-26  |  2KB  |  34 lines
  1. Attribute VB_Name = "Module1"
  2. 'These 2 api calls do the same job as 'Point' and 'PSet'
  3. 'But they do it a lot faster
  4. Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
  5. 'Only problem with setpixel, is you can only draw a single pixel, where
  6. 'with PSet you can set the draw width to be any size you wish.
  7. 'You can get around this by using SetPixel to draw 4 or more pixels in a tiny circle
  8. 'But this means you have to draw (4 * 'number of flakes') each cycle of the loop
  9. 'which would be slower than using PSet.  doh!
  10. 'This function isnt actually being used in the program, but I thought I would include
  11. 'it as it may be of use to someone.
  12. Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
  13.  
  14. 'A simple snow structure
  15. 'Could you a class instead if you want, doesnt make a lot of difference.
  16. Type Snow
  17.     x As Long   'Current X Coordinates
  18.     y As Long   'Current Y Coordinates
  19.     oldX As Long    'Old X Coordinates
  20.     oldY As Long    'Old Y Coordinates
  21.     xSpeed As Long  'Horizontal Speed
  22.     ySpeed As Long  'Vertical Speed
  23.     FlakeSize As Long   'Size of flake
  24. End Type
  25.  
  26. Public Flakes() As Snow 'Create an array of type 'Snow', this will be ReDimmed during 'Setup'
  27.  
  28. 'Global Variables for our snow
  29. Public mLeftWind As Long    'Stores the 'wind' factor
  30. Public mRightWind As Long   '   '   '   '   '   '   '
  31. Public mSnowColor As Long   'Colour of the snow flakes
  32. Public mFlakeNum As Long    'How many snow flakes are we having
  33. Public mfrmMainHDC As Long  'The hDC of frmMain. This is the form's handle
  34. Public mtStopSnow As BoolwisCsa u