home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / my_mem / mymemory.frm (.txt) < prev    next >
Visual Basic Form  |  1992-01-27  |  12KB  |  228 lines
  1. MyMemory
  2. Your Memory Is What?
  3. wwwwwwww
  4. wwwwwww
  5. Form1/
  6. MyMemory
  7. Z    FieldDesc
  8. LabelFieldStatus
  9. LabelSquareStatus
  10. MenuGame
  11. &Game
  12. MenuNew
  13.     &New Game
  14. MenuSettings
  15.     &Settings
  16. MenuShowRecord
  17. Show &Record
  18. MenuSepBar
  19. MenuExit
  20. E&xit
  21. MenuHelp
  22. &Help
  23.     FloodFill
  24. Color
  25. HORZRES3
  26. VERTRES
  27. GetDeviceCaps{
  28. nIndex
  29.     Form_Load
  30. NumberXSquares
  31. DefaultXSquares
  32. NumberYSquaress
  33. DefaultYSquaresi
  34. SquareSize2
  35. DefaultSquareSize
  36. SetTimer
  37. DefaultTimern
  38. SaveFile{
  39. SelectSaveFileNo
  40.     SaveScore
  41.     UNCHECKED
  42. ScoreArray
  43. NoScore
  44. ScreenPixelSizeX
  45. ScreenPixelSizeY
  46. SaveFileChange
  47. FALSEj
  48.     MyProfile
  49. SquareStatusArray
  50. SquareSceneArray
  51. FieldStatus
  52. FieldNotReady
  53. ResizeMyMemoryForm
  54. Form_MouseDown 
  55. Button
  56. Shift
  57. LEFT_BUTTON3
  58. FieldReady
  59. FieldClosed
  60. Scenev
  61. CurrentSquare@
  62. ShowSquare
  63. CurrentSquare1D
  64. CurrentSquare1XP
  65. CurrentSquare1YU
  66. SquareOpen
  67. LabelSquareStatusv
  68. Caption
  69. MyTimer
  70. BuildSquare
  71. SquareClosed
  72. SquareSolved'
  73. CurrentSolved
  74. CurrentMoves?
  75. LabelFieldStatus
  76. MoveWordH
  77. SaveMyScore
  78. FieldSolved
  79.     InitFieldY
  80. MenuExit_ClickI
  81. Response
  82. MB_YESNO
  83. IDYES
  84. SaveMyProfile\
  85. MenuNew_Click
  86. Timerval
  87. Start
  88. Finish
  89. current
  90. GRAY_LIGHT
  91. BLACK
  92. Color2
  93. WHITE
  94. YELLOW`
  95. GREEN
  96. MAGENTA
  97.     FillColor
  98.     FillStyle
  99. SOLID
  100. TRANSPARENT^
  101. CurrentX
  102. CurrentYx
  103. MenuHelp_Click
  104. MyHelp
  105. MenuSettings_Click
  106. MousePointer
  107.     HOURGLASS
  108. MySet
  109. OptionH8
  110. Value
  111. TRUE*
  112.     OptionH107
  113.     OptionH12
  114.     OptionH14
  115.     OptionH16
  116.     OptionH18
  117. OptionV6Q
  118. OptionV8D
  119.     OptionV10j
  120.     OptionP32
  121.     OptionP40
  122.     OptionP48
  123. OptionS1=
  124. OptionS2S
  125. OptionS3
  126. OptionS4
  127. OptionS5
  128. OptionSaveNo
  129. CheckScore
  130. Enabled
  131. SelectSaveFileWIN
  132. OptionSaveWIN#
  133. SelectSaveFileWEP
  134. OptionSaveWEPn
  135. SelectSaveFileMy
  136. OptionSaveMy
  137. FieldY
  138. MyMemory
  139. Height
  140.     FieldDesc
  141. FormHeader
  142. TwipsPerPixel
  143. DEFAULT
  144. MODAL
  145. Form_Paint
  146. MenuShowRecord_Click
  147. PGame
  148. PScore
  149. PName
  150. ScoreArrayName
  151. Form_Unload
  152. Cancel
  153. From example in VB Language Reference manual page 141
  154. Needed to get physical size of screen (from WINAPI.TXT)
  155. Form_Load
  156. initialize user settings, in case no profile
  157. Indicate no change to Game Setup since beginning or after reading profileF
  158. See if there is a game setup (profile) in an INI filef
  159. Change array size to match number of squares, especially if MyProfile changed size
  160. indicate game not startedh
  161. set form size - Form set smaller during development because 
  162. it was easier to work with
  163. Form_MouseDown
  164. Get X and Y offsets for scene and status variable arrays
  165. Get X and Y pixel offsets for square
  166. Process left button click, ignore right or middle button
  167. is game in progress 
  168. process square only if closed, ignore if open with scene
  169. open square and show scene, but don't allow a third to show 
  170. before processing first two (if you click ahead 3 times)
  171. get first square of pair
  172. get second square of pair and see if they match 
  173. Squares do not Match!"
  174. give VB time to display caption
  175. Squares Match!
  176. after showing second square, reset and updatec
  177. You have made"
  178.  moves."
  179. see if user solved available number of pairs
  180. Game Solved"
  181. Field not ready or solved, go build fieldi
  182. MenuExit_Click
  183. Do you really want to quit?"
  184. MenuNew_Click
  185. If game started, see if user really wants to quit
  186. You haven't finished playing the current game!
  187. Do you really want to start a new game?"
  188. New Game
  189. Status not ready, solved or user wanted new game
  190. MyTimer
  191. wait seconds asked for by caller
  192. ShowSquare
  193. clear the square first
  194. set offset to center
  195. set size of object, size% is offset from center
  196. Select Color
  197. now show scene
  198. draw square, no fill color
  199. draw square, filled
  200. draw circle, no fill color
  201. draw circle, filled
  202. draw triangle, no fill color
  203. draw triangle, filled
  204. draw upside down triangle, no fill color
  205. draw upside down triangle, filled
  206. draw diamond, no fill color
  207. draw diamond, filled
  208. draw double square, filled
  209. draw double circle, filled
  210. In case I missed one
  211. MenuHelp_Click
  212. MenuSettings_Click
  213. Tell player to waite
  214. load in the dialog box but don't show
  215. Reflect current number of squares in the X direction
  216. Reflect current number of squares in the Y direction
  217. Reflect current size of squarese
  218. Reflect current timer valuea
  219. Reflect current settings file if any
  220. Disable invalid X, Y and Square sizes
  221. Tell player we're thru
  222. now show the form 
  223. Form_Paint
  224. Build existing game, SquareOpen should not be a problem
  225. because its status will soon changeu
  226. MenuShowRecord_Click
  227. Form_Unload
  228.