home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / LIFE / LIFE.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1991-08-18  |  8.2 KB  |  145 lines
  1. Matrix
  2.     Mini Life
  3. Form1
  4. Picture1
  5. Picture1
  6. Picture1
  7. Picture1
  8. Picture1
  9. Picture1
  10. Picture1
  11. Picture1
  12. Picture1
  13. Picture1
  14. Picture1
  15. Picture1
  16. Picture1
  17. Picture1
  18. Picture1
  19. Picture1
  20. Picture1
  21. Picture1
  22. Picture1
  23. Picture1
  24. Picture1
  25. Picture1
  26. Picture1
  27. Picture1
  28. Picture1
  29. Picture1
  30. Picture1
  31. Picture1
  32. Picture1
  33. Picture1
  34. Picture1
  35. Picture1
  36. Picture1
  37. Picture1
  38. Picture1
  39. Picture1
  40. Picture1
  41. Picture1
  42. Picture1
  43. Picture1
  44. Picture1
  45. Picture1
  46. Picture1
  47. Picture1
  48. Picture1
  49. Picture1
  50. Picture1
  51. Picture1
  52. Picture1
  53. Picture1
  54. Picture1
  55. Picture1
  56. Picture1
  57. Picture1
  58. Picture1
  59. Picture1
  60. Picture1
  61. Picture1
  62. Picture1
  63. Picture1
  64. Picture1
  65. Picture1
  66. Picture1
  67. Picture1
  68. MenuFile
  69. &File
  70. FileExit
  71. E&xit
  72. MenuRun
  73. &Restart
  74. Form_Click
  75. @    Form_Loadi
  76. Picture1
  77. Visible
  78. SumNeighbs
  79.     SumNiegbs
  80. SumNieghbs
  81. ThenPicture1J
  82. SumNeights
  83. Form_Resize
  84. qbcolor
  85.     backcolorW
  86. CurrentColor
  87. ifPicture14
  88. State
  89. Stete
  90.     LifeState
  91.     SumStates
  92. FileExit_Click
  93. MenuRun_Click
  94. Form_MouseDown
  95. Button
  96. Shift
  97. Form_Unload
  98. Cancel
  99. FileRun
  100. Enabled
  101. MenuRun 
  102. Form_Resize
  103. FileExit_Click
  104. MenuRun_Click
  105. Turn 'em all off to make the initialization look plainer.u
  106. Set the cellular automata matrix to a random (50%) state of existence.
  107. The real action is here.
  108. The "Game of Life" rules are public domain.
  109. This Visual Basic adaptation by Rick Wagner (CIS 76427,2611) is given to the public by the author.
  110. Thanks to all the MSLANG Forum Visual Basic section who have uploaded code or given assistance
  111. through messages.e
  112. The form for this sample/demo was created with an 800 x 600 16 color machine. Please let me 
  113. know if there are problems with the form at other resolutions. I know I have to redo forms
  114. for 8414/A because of 1) system fonts are different and 2) bitmaps are smaller. There area
  115. none of those in this sample, but I moved the project window over so VGA types can see it.
  116. This sample program exhibits all the classic forms of the "Game of Life:" blinkers, squares, etc.t
  117. Expanding the picture box array size and applying this code to it should work fine.n
  118. Note: To implement really large matrices you may find better performance in using a pair of 2D integer arrays to
  119.  hold alternating state vectors for the matrix, one for the current generation, one for the next.g
  120.  Using 2D matrices will make dealing with "ghost" cells easier. 
  121.   MenuRun.Enabled = -1                    'Enables the "Restart" menu option
  122. Flag turns true when all cells are dead.
  123. Add some variety to the colors, and trace the loop visually.
  124. Lemme outta here... (otherwise you get a real secure system).a
  125. This loop establishes the sums of living neighbors for each cell
  126. and assigns future (next cycle) life states based on the "Game of Life" rules.
  127. A small (8 x 8) matrix implemented with a one dimensional control array.
  128. Initialize the sum of neighbors (non-border cells can have 8 neighbors).
  129. These conditions exclude nonexistent picture boxes.e
  130. Excludes from right column cells the touch of ghosts
  131. Exclude from left column cells the touch of ghosts
  132. Excludes from rights
  133. Excludes from left t
  134. Excldes from left
  135. Excludes from rights
  136. These are the "Game of Life" rules: 
  137. This loop assigns visibility (aliveness) depending on states assigned above.
  138. Used to detect total death
  139. Sets the cell color for the current cycles
  140. They're all dead!"
  141. Form_Load
  142. Sets the cellular automata matrix to an initial random (50%) state of existence.
  143. Add some variety to the initial color 
  144. Sets the cell color for the initial stateo
  145.