home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_1_94 / vbwin / visio / zahnrad.frm (.txt) < prev    next >
Visual Basic Form  |  1993-10-27  |  9KB  |  216 lines
  1. frmGEAR
  2.     GEARMAKER
  3. "System
  4. LLLLLLLLLLLLLLLL
  5. LLLLL
  6. LLLLLLLLLL
  7. LLLLLJLLLL
  8. LLLLLLLLLLLLLLLL
  9. LLLLLLLLLLLLLLLL
  10. Form15
  11. lstUnitList
  12.     txtNteeth
  13. txtRin
  14. txtRout
  15. Command3
  16. &Draw Gear
  17. Command2
  18. &Quit
  19. Command1
  20.     &New Page
  21. Frame1
  22. Gear Properties
  23. Label3
  24. &Teeth 
  25. Label2
  26. &In Rad.
  27. Label1
  28.     &Out Rad.
  29.     Statusbar
  30.     Statusbar
  31. @    Form_Load
  32. vaoGetObject
  33. visOK
  34. g_Appvisio
  35. ActiveDocument
  36. Command1_Click
  37. Drawing+
  38. object&
  39.     DocumentsU
  40. Command2_Clickn
  41. Text1_Change-
  42. lblRin_Click
  43. Label3_Click
  44. Label2_Clicky
  45. SetWindowPos0
  46. HWND_TOPMOST
  47. SWP_NOACTIVATEv
  48. SWP_SHOWWINDOW
  49. AppConnect
  50. FormUpdateF
  51. txtRout_Change
  52. Command3_Click
  53. Theta
  54.     txtNteeth
  55. Text0
  56. txtWatchW
  57. HWND_NOTOPMOST
  58. hWndInsertAfterY
  59. wFlags
  60. txtWatch_Change
  61. txtRout
  62. txtRin/
  63. drawline
  64. visio
  65. activepage
  66. activewindow
  67. Xcenter    
  68. YcenterX
  69. DrawRectangle
  70. AddRow
  71. visSectionGeometry
  72. visSectionGeometry1
  73. visTagLineTos
  74. visSectionFirstComponent
  75. visRowFirst
  76. CellsSRC
  77. visRowVertex
  78. Formula
  79. First
  80. Nteeth
  81. cells
  82. WidthC
  83. heightg
  84. RoutF
  85. Sizeg
  86. Rectsize
  87. Frame1_DragDrop
  88. Source
  89. Control
  90. Form_Resized
  91. Picture1_Click
  92. Text_Click
  93. About_ClickX
  94. Form_Activate
  95. Form_QueryUnload
  96. Cancel
  97. UnloadModem
  98. Form_LostFocusO
  99. DoubleYc
  100. Text1
  101. Text2
  102. onerr
  103. continue
  104. OnError4
  105. optUnits_Click
  106. index
  107. Units~
  108. optunits
  109. Value
  110. Form_GotFocus
  111. Form_Deactivate
  112. txtRout_DragDrop
  113. txtRin_Change
  114. txtRin_LostFocus]
  115. Parse
  116. txtRout_LostFocus
  117. txtRout_KeyPress
  118. KeyAscii4
  119.     CheckText)
  120. txtNteeth_Changet
  121. TextBoxJ
  122. txtNteeth_KeyPress
  123. txtRin_KeyPress
  124. Status
  125.     Statusbar
  126. Combo1_Change
  127. lstUnitList
  128. stClient
  129. lstUnitList_Change
  130.     ListIndex
  131. lstUnitList_Click
  132. -- Window Position Constants & Declarationsl
  133. CheckText
  134. If KeyAscii ain't a number, a point, or a backspace then do nothing.
  135. Command1_Click
  136.  Make a new page when the button is clicked
  137. Command2_Click
  138. Command3_Click
  139. Counters, temporary variables.
  140. 3.1415926538
  141. Size of dummy rectangle that becomes the gear.
  142. Location of dummy rectangle on page.
  143. Number of gear teeth, from txtNTeeth. 
  144. In/out radii of gear, from txtRin & txtRout.
  145. X locations of gear geometry.e
  146. Y locations of gear geometry.
  147. A = Angle; changes often, used in loops.
  148. Aw = Angle of wedge.
  149. Width of gear = 2 times outside radius.2
  150. Units of gear, from optUnits.h
  151. Width of gear = 2 x Outside radius.e
  152. Initialize "homemade" status bar.n
  153. Get units for gear. 
  154. Setup Visio as object stuff.
  155. No Active page!
  156. Set the centerof the gear on the page.
  157. Calculate all of the points on the gear and load them into p
  158. Px and Py string arrays.
  159. Point 11
  160. Width*
  161. ###0.######
  162. Height*
  163. ###0.######
  164. Point 22
  165. Width*
  166. ###0.######
  167. Height*
  168. ###0.######
  169. Point 31
  170. Width*
  171. ###0.######
  172. Height*
  173. ###0.######
  174. Point 4 
  175. Width*
  176. ###0.######
  177. Height*
  178. ###0.######
  179. Draw a square.
  180. Modify the square by adding all of the rows needed to make the gear.
  181. Size the rectangle to the size of the gear
  182. width
  183. ###0.######
  184. height
  185. ###0.######
  186. Load the values from the arrays Px() & Py() into the geometry sections
  187. of the gear.
  188. Determines position in Px() & Py() arrays during following loop.
  189. Change to kth Geometry row, (k), X cell.
  190. Change to kth Geometry row, Y cell.o
  191. Update "home made" status bar.
  192. Close up the object by referring the last X and Y to the first ones.
  193. Geometry1.X1
  194. Geometry1.Y1
  195. Form_Load
  196. --- Form_Load 
  197. --   On startup we set the window to *ALWAYS* be on top.  After that weO
  198. -- connect to an instance of Visio through VISREG.BAS.
  199.  If AppConnect() Then FormUpdate
  200. couldn't get instance of Visio
  201. Millimeter
  202. Zentimeter
  203. Meter
  204. Form_Resize
  205. --- Form_Load 
  206. --   On startup we set the window to *ALWAYS* be on top.  After that we
  207. -- connect to an instance of Visio through VISREG.BAS.
  208.  If AppConnect() Then FormUpdate
  209. couldn't get instance of Visio
  210. txtNteeth_KeyPress
  211. Check keystrokes for numbers, points, or backspace.
  212. txtRin_KeyPress
  213. Check keystrokes for numbers, points, or backspace.
  214. txtRout_KeyPress
  215. Check keystrokes for numbers, points, or backspace.
  216.