home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Super Store 2.3 / TESTDRIVE_2.ISO / realizer / manual / sampler / tools.rlz < prev    next >
Encoding:
Text File  |  1992-09-30  |  6.9 KB  |  233 lines
  1. '***********************************************************************
  2. '    Tools.rlz                      
  3. '
  4. '    Realizer User's Guide Tutorial
  5. '
  6. '    Copyright ⌐ 1991-1992 Computer Associates International, Inc.
  7. '    All rights reserved.
  8. '
  9. '***********************************************************************
  10.  
  11. PROC formprocTools(params)
  12.     FormSelect(formTools)
  13.     SELECT CASE params[_ItemNum]
  14.         CASE 20    'Chart
  15.             ChartSelect(chartTools)
  16.             ChartControl(_Show)
  17.         CASE 30    'Sheet
  18.             SheetSelect(sheetTools)
  19.             SheetControl(_Show)
  20.         CASE 40    'Log
  21.             LogSelect(logTools)
  22.             LogControl(_Show)
  23.         CASE 50    'Boards
  24.             BoardSelect(boardTools1)
  25.             BoardControl(_Show)
  26.             BoardSelect(boardTools2)
  27.             BoardControl(_Show)
  28.         CASE 60    'Tools in a form
  29.             FormSelect(formWith)
  30.             FormControl(_Show)
  31.         CASE 70    'Main menu
  32.             ChartSelect(chartTools)
  33.             ChartControl(_Hide)
  34.             SheetSelect(sheetTools)
  35.             SheetControl(_Hide)
  36.             LogSelect(logTools)
  37.             LogControl(_Hide)
  38.             BoardSelect(boardTools1)
  39.             BoardControl(_Hide)
  40.             BoardSelect(boardTools2)
  41.             BoardControl(_Hide)
  42.             FormSelect(formWith)
  43.             FormControl(_Hide)
  44.             FormSelect(formTools)
  45.             FormControl(_Hide)
  46.             FormSelect(formMain)
  47.             FormControl(_Show)
  48.     END SELECT
  49. END PROC
  50.  
  51. PROC chartprocTools(params)
  52.     IF params[_Invoke] = _Close THEN
  53.         ChartSelect(chartTools)
  54.         ChartControl(_Hide)
  55.         params[_UseRealizer] = 0
  56.     END IF
  57. END PROC
  58.  
  59. PROC sheetprocTools(params, dummy)
  60.     IF params[_Invoke] = _Close THEN
  61.         SheetSelect(sheetTools)
  62.         SheetControl(_Hide)
  63.         params[_UseRealizer] = 0
  64.     END IF
  65. END PROC
  66.  
  67. PROC logprocTools(params)
  68.     IF params[_Invoke] = _Close THEN
  69.         LogSelect(logTools)
  70.         LogControl(_Hide)
  71.         params[_UseRealizer] = 0
  72.     END IF
  73. END PROC
  74.  
  75. PROC boardprocTools(params, family)
  76.     IF params[_Invoke] = _Close THEN
  77.         BoardSelect(params[_ItemNum])
  78.         BoardControl(_Hide)
  79.         params[_UseRealizer] = 0
  80.     END IF
  81. END PROC
  82.  
  83. PROC formprocWith(params)
  84.     IF params[_Invoke] = _Close THEN
  85.         FormSelect(formWith)
  86.         FormControl(_Hide)
  87.         params[_UseRealizer] = 0
  88.         EXIT PROC
  89.     END IF
  90.     SELECT CASE params[_ItemNum]
  91.         CASE 40    'OK
  92.             FormSelect(formWith)
  93.             FormControl(_Hide)
  94.     END SELECT
  95. END PROC
  96.  
  97. '**************************************
  98. '                  CHARTS
  99.  
  100. chartData1 = sin(index(360) * (3.14159/180))
  101. chartData2 = sin(tan(index(360) * (3.14159/180) ))
  102.  
  103. chartTools = ChartQUnique
  104. ChartNew(chartTools; "Sample Chart", _Title + _Close + _Minimize + _Size)
  105. ChartControl(_Size; 5 pct, 5 pct, 40 pct, 50 pct)
  106. ChartSetColor(_Evergreen)
  107. ChartLine(chartData1)
  108. ChartSetKey("sin(x)")
  109. ChartSetColor(_Red)
  110. ChartLine(chartData2)
  111. ChartSetKey("sin(tan(x))")
  112. ChartControlKey(_Show)
  113. ChartSetProc(chartprocTools)
  114.  
  115. '***************************************
  116. '                     SHEETS
  117.  
  118. Part = {"Computer", "Monitor", "Hard drive", "RAM Board", "Laser Printer", "Mouse"}
  119. Price = {2199.00, 1250.00, 650.00, 399.00, 2349.00, 99.00}
  120. Quantity = {1, 1, 2, 3, 1, 10}
  121.  
  122. SetFormat(Price, "####.##")
  123. SetFormat(Quantity, "P(0)")
  124.  
  125. sheetTools = SheetQUnique
  126. SheetNew(sheetTools; "Sample Sheet", _Title + _Close + _Minimize + _Size)
  127. SheetUpdate(Part, Price, Quantity; 14, 8, 12)
  128. SheetControl(_Size; 2 pct, 7 pct, 60 pct, 80 pct)
  129. SheetSetProc(sheetprocTools)
  130.  
  131. '***************************************
  132. '                       LOGS
  133.  
  134. logtext = "Once upon a midnight dreary while I pondered weak and weary"
  135. logtext = logtext + chr$(13) +"Over many a quaint and curious volume of forgotten lore"
  136. logtext = logtext + chr$(13) +"While I nodded, nearly napping suddenly there came a tapping"
  137. logtext = logtext + chr$(13) +"As of someone gently rapping, rapping at my chamber door"
  138. logtext = logtext + chr$(13) +"'Tis some visitor I muttered rapping at my chamber door"
  139. logtext = logtext + chr$(13) +"Only this and nothing more"
  140. logtext = logtext + chr$(13) +"        -- Edgar Allen Poe"
  141. logTools = LogQUnique
  142. LogNew(logTools; "Sample Log", _Title + _Close + _Minimize + _Size)
  143. LogControl(_Size; 5 pct, 20 pct, 70 pct, 50 pct)
  144. PRINT #logTools; logtext
  145. LogSetProc(logprocTools)
  146.  
  147. '****************************************
  148. '        BOARDS
  149.  
  150. Acme.high = 92.5
  151. Acme.low = 57.125
  152. Acme.close = 82.875
  153. Acme.change = -1.125
  154. Acme.volume = 22000
  155.  
  156. CoolCola.high = 41
  157. CoolCola.low = 28.75
  158. CoolCola.close = 34.25
  159. CoolCola.change = 0.75
  160. CoolCola.volume = 19500
  161.  
  162. GenTech.high = 77.25
  163. GenTech.low = 69.375
  164. GenTech.close = 73
  165. GenTech.change = -0.375
  166. GenTech.volume = 31000
  167.  
  168. fmtEighths = "?F8(W3 N1/D1)"
  169. boardTemplate1.member = {"", "High", "Low", "Close", "Change", "Volume"}
  170. boardTemplate1.format = {"", fmtEighths, fmtEighths, fmtEighths, fmtEighths, "P(0)"}
  171. boardTemplate1.layout = _FamilyRowwise
  172. boardTools1 = BoardQUnique
  173. BoardNew(boardTools1, boardTemplate1, Acme, CoolCola, GenTech; "Stock Watch")
  174. BoardControl(_Size; 10 pct, 10 pct)
  175. BoardSetProc(boardprocTools)
  176.  
  177. Q1.Home = 7
  178. Q1.Visitor = 3
  179. Q2.Home = 6
  180. Q2.Visitor = 7
  181. Q3.Home = 3
  182. Q3.Visitor = 10
  183. Q4.Home = 10
  184. Q4.Visitor = 3
  185. Final.Home = 26
  186. Final.Visitor = 23
  187. boardTemplate2.member = {"", "Home", "Visitor"}
  188. boardTemplate2.format = {"", "P(0)         ", "P(0)         "}
  189. boardTemplate2.layout = _FamilyColwise
  190. BoardTools2 = BoardQUnique
  191. BoardNew(boardTools2, boardTemplate2, Q1, Q2, Q3, Q4, Final; "Homecoming Football Game")
  192. BoardControl(_Size; 20 pct, 20 pct)
  193. BoardSetProc(boardprocTools)
  194.  
  195. boardTemplate3.member = {"", "High", "Low", "Close", "Change"}
  196. boardTemplate3.format = {"", fmtEighths, fmtEighths, fmtEighths, fmtEighths}
  197. boardTemplate3.layout = _FamilyRowwise
  198.  
  199. '****************************************
  200. '            FORM WITH TOOLS
  201.  
  202. formWith = FormQUnique
  203. FormNew(formWith; "Sample Form", _Title + _Close + _Minimize + _Size + _HotClick)
  204. FormControl(_Size; 10 pct, 1 pct, 70 pct, 98 pct)
  205. FormSetObject(50, _Board, "", _Center, 4 pct; boardTemplate3, Acme, CoolCola, GenTech)
  206. bs = BoardQ(_Size)
  207. FormSetObject(10, _Chart, "", _Left, 30 pct, 45 pct, 35 pct)
  208. FormSetObject(20, _Log, "", _Left, 67 pct, 45 pct, 30 pct)
  209. FormSetObject(30, _Sheet, "", _Right, 30 pct, 45 pct, 50 pct)
  210. FormSetObject(40, _Button, "OK", 65 pct, 85 pct, 20 pct, 10 pct)
  211.  
  212. ChartSetColor(_Evergreen)
  213. ChartLine(chartData1)
  214. ChartSetKey("sin(x)")
  215. ChartSetColor(_Red)
  216. ChartLine(chartData2)
  217. ChartSetKey("sin(tan(x))")
  218. ChartControlKey(_Show)
  219. SheetUpdate(Part, Price, Quantity; 14, 8, 12)
  220. PRINT #20, formWith; logtext
  221. FormSetProc(formprocWith)
  222.  
  223. formTools = FormQUnique
  224. FormNew(formTools; "Realizer Interface Tools", _Title + _HotClick)
  225. FormControl(_Size; 50 pct, 5 pct, 48 pct, 90 pct)
  226. FormSetObject(20, _Button, "Chart", 20 pct, 5 pct, 60 pct, 10 pct)
  227. FormSetObject(30, _Button, "Sheet", 20 pct, 17 pct, 60 pct, 10 pct)
  228. FormSetObject(40, _Button, "Log", 20 pct, 29 pct, 60 pct, 10 pct)
  229. FormSetObject(50, _Button, "Boards", 20 pct, 41 pct, 60 pct, 10 pct)
  230. FormSetObject(60, _Button, "Form with Tools...", 20 pct, 55 pct, 60 pct, 10 pct)
  231. FormSetObject(70, _Button, "Main Menu...", _Center, 80 pct, 40 pct, 10 pct)
  232. FormSetProc(formprocTools)
  233.