home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / MY_MEM / MYGLOBAL.BAS next >
Encoding:
BASIC Source File  |  1992-01-27  |  3.9 KB  |  124 lines
  1. 'Default Values to determine Field Sizes
  2. Global Const DefaultXSquares% = 12
  3. Global NumberXSquares As Integer
  4. Global Const DefaultYSquares% = 8
  5. Global NumberYSquares As Integer
  6. Global Const DefaultSquareSize% = 40
  7. Global SquareSize As Integer
  8. Global Const DefaultTimer! = 2
  9. Global SetTimer As Single
  10.  
  11. Global ScreenPixelSizeX As Integer
  12. Global ScreenPixelSizeY As Integer
  13.  
  14. Global XSquares As Integer
  15. Global YSquares As Integer
  16. Global SaveFile As Integer
  17. Global SaveFileChange As Integer
  18. Global IniFile As String
  19. Global Const SelectSaveFileNo% = 1
  20. Global Const SelectSaveFileWIN% = 2
  21. Global Const SelectSaveFileWEP% = 3
  22. Global Const SelectSaveFileMy% = 4
  23. Global Const SelectMy$ = "mymemory.ini"
  24. Global Const SelectWEP$ = "entpack.ini"
  25. Global Const SelectWIN$ = "win.ini"
  26. Global Const SelectHeader = "MyMemory"
  27.  
  28. Global SaveScore As Integer
  29. Global ScoreArray(5, 2) As Integer
  30. Global ScoreArrayName(5, 2) As String
  31. Global Const NoScore% = 32767
  32.  
  33. Global NL As String
  34. Global MoveWord As String
  35.  
  36. 'conversion data - twips per pixel
  37. Global Const TwipsPerPixel% = 15
  38. 'Form label heights in pixels
  39. Global Const FormLabel& = 22
  40. 'Form position and size in twips
  41. Global Const FormBorder& = 30
  42. Global Const FormHeader& = 600
  43. Global Const FormTop& = 705 'Value to use to see VB Menu Bar during development
  44.  
  45. 'Provide status of each field
  46. Global FieldStatus As Integer
  47. Global Const FieldNotReady% = 0
  48. Global Const FieldReady% = 1
  49. Global Const FieldSolved% = 2
  50.  
  51. 'Provide status of each square of field
  52. Global SquareStatusArray() As Integer
  53. Global Const SquareClosed% = 0
  54. Global Const SquareOpen% = 1
  55. Global Const SquareSolved% = 2
  56.  
  57. 'Provide scene behind square
  58. Global SquareSceneArray() As Integer
  59.  
  60. 'Provide status of current game
  61. 'Indicate 1st or 2nd guess
  62. Global CurrentSquare As Integer
  63. 'Keep data on 1st guess
  64. Global CurrentSquare1 As Integer
  65. Global CurrentSquare1X As Integer
  66. Global CurrentSquare1Y As Integer
  67. 'Keep track of number of moves
  68. Global CurrentMoves As Integer
  69. 'Keep track of number of squares solved
  70. Global CurrentSolved As Integer
  71.  
  72. ' Booleans
  73. Global Const TRUE = -1
  74. Global Const FALSE = 0
  75.  
  76. ' Button and Shift (KeyDown, KeyUp, MouseDown, MouseMove, MouseUp)
  77. Global Const LEFT_BUTTON = 1
  78. Global Const RIGHT_BUTTON = 2
  79.  
  80. ' MsgBox parameters
  81. Global Const MB_OK = 0                 ' OK button only
  82. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  83. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  84. Global Const MB_YESNO = 4              ' Yes and No buttons
  85.  
  86. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  87. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  88. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  89.  
  90. ' MsgBox return values
  91. Global Const IDOK = 1                  ' OK button pressed
  92. Global Const IDCANCEL = 2              ' Cancel button pressed
  93. Global Const IDYES = 6                 ' Yes button pressed
  94. Global Const IDNO = 7                  ' No button pressed
  95.  
  96. ' Show (form)
  97. Global Const MODAL = 1
  98.  
  99. ' BackColor, ForeColor, FillColor (standard RGB colors: form, controls)
  100. Global Const BLACK = &H0&
  101. Global Const RED = &HFF&
  102. Global Const GREEN = &HFF00&
  103. Global Const YELLOW = &HFFFF&
  104. Global Const BLUE = &HFF0000
  105. Global Const MAGENTA = &HFF00FF
  106. Global Const CYAN = &HFFFF00
  107. Global Const WHITE = &HFFFFFF
  108. Global Const GRAY_LIGHT = &HC0C0C0
  109. Global Const GRAY_MEDIUM = &H808080
  110.  
  111. ' FillStyle (form, picture box, Printer)
  112. Global Const SOLID = 0                 ' 0 - Solid
  113. Global Const TRANSPARENT = 1           ' 1 - Transparent
  114.  
  115. ' MousePointer (form, controls)
  116. Global Const DEFAULT = 0               ' 0 - Default
  117. Global Const HOURGLASS = 11            ' 11 - Hourglass
  118.  
  119. ' Value (check box)
  120. Global Const UNCHECKED = 0             ' 0 - Unchecked
  121. Global Const CHECKED = 1               ' 1 - Checked
  122. Global Const GRAYED = 2                ' 2 - Grayed
  123.  
  124.