home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 2364 / minilab / schema20.bas < prev    next >
BASIC Source File  |  1993-10-22  |  11KB  |  198 lines
  1. REM W. Prévost 1993 : MINILAB: SCHEMA20 : COMPARATEUR A FENETRE
  2.  
  3. DEFINT A-Z: SCREEN 12
  4. A = 300: B = 130: c = 355
  5. LINE (A, B)-(A, B + 50), 13: LINE -(c, B + 25), 13: LINE -(A, B), 13
  6. B = 200: LINE (A, B)-(A, B + 50), 13: LINE -(c, B + 25), 13: LINE -(A, B), 13
  7. x = A + 17: y = 155: c = 5: GOSUB A: x = A + 17: y = B + 25: c = 5: GOSUB B
  8. x = A + 5: y = 140: c = 12: GOSUB plus: x = A + 5: y = 210: GOSUB plus
  9. x = A + 5: y = 170: c = 7: GOSUB moins: x = A + 5: y = 240: GOSUB moins
  10. LINE (327, 143)-(327, 90), 12: LINE (327, 238)-(327, 300), 7
  11. FOR x = 290 TO 365 STEP 5: PSET (x, 120), 5: NEXT x
  12. FOR x = 290 TO 365 STEP 5: PSET (x, 260), 5: NEXT x
  13. FOR y = 120 TO 260 STEP 5: PSET (290, y), 5: NEXT y
  14. FOR y = 120 TO 260 STEP 5: PSET (365, y), 5: NEXT y
  15. c = 355: d = c + 25
  16. LINE (d, 150)-(d, 160), 9: LINE -(d + 10, 155), 9: LINE -(d, 150), 9
  17. PAINT (d + 5, 155), 9, 9: LINE (d + 10, 150)-(d + 10, 160), 9:
  18. LINE (d, 220)-(d, 230), 9: LINE -(d + 10, 225), 9: LINE -(d, 220), 9
  19. PAINT (d + 5, 225), 9, 9: LINE (d + 10, 220)-(d + 10, 230), 9:
  20. LINE (c, 155)-(c + 60, 155), 9: LINE -(c + 60, 225), 9: LINE -(c, 225), 9
  21. x = d + 5: y = 142: c = 9: GOSUB dm: x = d + 5: y = 235: GOSUB dm
  22. j = 190: K = d + 65
  23. LINE (d + 36, j)-(d + 100, j), 10: CIRCLE (d + 102, j), 2, 10
  24. LINE (K, j)-(K, j + 40), 10
  25. LINE (d + 61, j + 40)-(d + 69, j + 70), 10, B
  26. LINE (K, j + 70)-(K, 300), 10
  27. LINE (300, 145)-(280, 145), 3: LINE -(280, 235), 3: LINE -(300, 235), 3
  28. LINE (280, 190)-(258, 190), 3: LINE (242, 190)-(200, 190), 3
  29. CIRCLE (198, 190), 2, 3: x = 180: y = 190: c = 3: GOSUB UE
  30. R = 250: S = 120
  31. LINE (R, 90)-(R, S), 14: LINE (R - 4, S)-(R + 4, S + 30), 14, B
  32. LINE (R, S + 30)-(R, S + 55), 14: LINE (R - 4, S + 55)-(R + 4, S + 85), 14, B
  33. LINE (R, S + 85)-(R, S + 110), 14
  34. LINE (R - 4, S + 110)-(R + 4, S + 140), 14, B
  35. LINE (R, S + 140)-(R, 300), 14
  36. LINE (R, 165)-(276, 165), 14: LINE (284, 165)-(300, 165), 14
  37. LINE (R, 215)-(276, 215), 14: LINE (284, 215)-(300, 215), 14
  38. x = R - 20: y = S + 15: c = 14: GOSUB R: GOSUB 1
  39. x = R - 20: y = S + 60: GOSUB R: GOSUB 2
  40. x = R - 20: y = S + 125: GOSUB R: GOSUB 3
  41. LINE (160, 90)-(500, 90), 12: CIRCLE (158, 90), 2, 12
  42. x = 138: y = 90: c = 12: GOSUB plus: GOSUB V
  43. LINE (160, 300)-(500, 300), 7: CIRCLE (158, 300), 2, 7
  44. x = 50: y = 345: c = 15: GOSUB UA: GOSUB tref: GOSUB A: x = x + 20
  45. GOSUB UB: GOSUB tref: GOSUB B: x = x + 20: c = 14
  46. GOSUB S: GOSUB om: GOSUB im: GOSUB tm: x = x + 8
  47. GOSUB UA: x = x + 8: PSET (x, y), c: DRAW "H4 F4 G4": x = x + 8: GOSUB UB
  48. x = 50: y = 370: c = 12: GOSUB S: GOSUB im: x = x + 8: GOSUB UE: x = x + 8
  49. PSET (x, y), c: DRAW "H4 F4 G4": x = x + 8: GOSUB UA: GOSUB vrg
  50. GOSUB A: GOSUB egal: GOSUB 1: GOSUB vrg: GOSUB B: GOSUB egal: GOSUB 0
  51. x = x + 20: c = 10: GOSUB S: GOSUB im: x = x + 8: GOSUB UB: x = x + 3
  52. PSET (x, y), c: DRAW "E4 G4 F4": x = x + 12: GOSUB UE: x = x + 3
  53. PSET (x, y), c: DRAW "E4 G4 F4": x = x + 12: GOSUB UA: GOSUB vrg
  54. GOSUB A: GOSUB egal: GOSUB 0: GOSUB vrg: GOSUB B: GOSUB egal: GOSUB 0
  55. x = x + 20: c = 12: GOSUB S: GOSUB im: x = x + 8: GOSUB UE: x = x + 3
  56. PSET (x, y), c: DRAW "E4 G4 F4": x = x + 12: GOSUB UB: GOSUB vrg
  57. GOSUB A: GOSUB egal: GOSUB 0: GOSUB vrg: GOSUB B: GOSUB egal: GOSUB 1
  58. REM Composants
  59. LOCATE 26, 7: COLOR 13: PRINT "AOP = 1/2 LM 324"
  60. LOCATE 26, 26: COLOR 12: PRINT "Vcc = 9 V"
  61. LOCATE 26, 38: COLOR 10: PRINT "R1 = R2 = R3 = 1O k"; CHR$(234)
  62. LOCATE 26, 61: COLOR 9: PRINT "d = 1N 4148"
  63. LOCATE 28, 20: COLOR 10
  64. PRINT "La sortie sera à 1 si Ue > 6 V ou Ue < 3 V."
  65. attente:   f$ = "": WHILE f$ = "": f$ = INKEY$: WEND: f$ = UCASE$(f$)
  66.            IF f$ = "Q" THEN GOTO quitter
  67. GOTO attente: END
  68. quitter: LINE (0, 61)-(639, 479), 0, BF: CHAIN "minilab\SCHEMAS.bas"
  69.  
  70. 1 : FOR vert = y - 4 TO y + 4: PSET (x, vert), c: NEXT vert
  71. PSET (x - 1, y - 4), c: PSET (x - 1, y + 4), c: PSET (x + 1, y + 4), c
  72. x = x + 8:  RETURN
  73. 2 : PSET (x, y - 4), c: PSET (x + 1, y - 4), c: PSET (x - 1, y - 3), c
  74. PSET (x + 2, y - 3), c: PSET (x - 2, y - 2), c: PSET (x + 3, y - 2), c
  75. PSET (x + 3, y - 1), c: PSET (x + 2, y), c
  76. PSET (x, y + 1), c: PSET (x + 1, y), c
  77. PSET (x - 2, y + 2), c: PSET (x - 1, y + 2), c: PSET (x - 2, y + 3), c
  78. FOR hor = x - 2 TO x + 3: PSET (hor, y + 4), c: NEXT hor: x = x + 9: RETURN
  79. 3 : FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
  80. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  81. PSET (x - 2, y - 3), c: PSET (x - 2, y + 3), c
  82. FOR H = x - 1 TO x + 2: PSET (H, y), c: NEXT H
  83. FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V
  84. FOR V = y + 1 TO y + 3: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
  85. 0 : FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
  86. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  87. FOR V = y TO y + 3: PSET (x - 2, V), c: NEXT V
  88. FOR V = y TO y + 3: PSET (x + 3, V), c: NEXT V
  89. FOR V = y - 3 TO y - 1: PSET (x - 2, V), c: NEXT V
  90. FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
  91. egal: x = x + 2: FOR H = x - 2 TO x + 3: PSET (H, y - 2), c: NEXT H
  92. FOR H = x - 2 TO x + 3: PSET (H, y + 1), c: NEXT H: x = x + 11: RETURN
  93. A: PSET (x, y - 4), c: PSET (x + 1, y - 4), c
  94. PSET (x - 1, y - 3), c: PSET (x + 2, y - 3), c
  95. FOR vert = y - 2 TO y + 4: PSET (x - 2, vert), c: PSET (x + 3, vert), c: NEXT vert
  96. FOR hor = x - 1 TO x + 2: PSET (hor, y + 1), c: NEXT hor: x = x + 9: RETURN
  97. c: PSET (x, y - 4), c: PSET (x + 1, y - 4), c
  98. PSET (x - 1, y - 3), c: PSET (x + 2, y - 3), c
  99. FOR vert = y - 2 TO y + 2: PSET (x - 2, vert), c: NEXT vert
  100. PSET (x + 3, y - 2), c: PSET (x + 3, y + 2), c
  101. PSET (x, y + 4), c: PSET (x + 1, y + 4), c
  102. PSET (x - 1, y + 3), c: PSET (x + 2, y + 3), c: x = x + 9: RETURN
  103. B: FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
  104. FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
  105. FOR H = x - 1 TO x + 2: PSET (H, y), c: NEXT H
  106. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  107. FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V
  108. FOR V = y + 1 TO y + 3: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
  109. I: x = x - 2: FOR vert = y - 4 TO y + 4: PSET (x, vert), c: NEXT vert
  110. PSET (x - 1, y - 4), c: PSET (x - 1, y + 4), c: PSET (x + 1, y + 4), c
  111. PSET (x + 1, y - 4), c: x = x + 6: RETURN
  112. P: FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
  113. FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
  114. PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
  115. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: x = x + 9: RETURN
  116. R:  FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
  117. FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
  118. PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
  119. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H
  120. FOR V = y + 1 TO y + 4: PSET (x + 2, V), c: NEXT V: x = x + 9: RETURN
  121. S: FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H        'S
  122. FOR H = x - 1 TO x + 2: PSET (H, y), c: NEXT H
  123. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  124. FOR V = y - 3 TO y - 1: PSET (x - 2, V), c: NEXT V
  125. FOR V = y + 1 TO y + 3: PSET (x + 3, V), c: NEXT V
  126. PSET (x + 3, y - 3), c: PSET (x - 2, y + 3), c: x = x + 9: RETURN
  127. U:  FOR V = y - 4 TO y + 3: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  128. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H: x = x + 9: RETURN
  129. V: FOR V = y - 4 TO y + 1: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  130. FOR V = y + 2 TO y + 3: PSET (x - 1, V), c: PSET (x + 2, V), c: NEXT V
  131. PSET (x, y + 4), c: PSET (x + 1, y + 4), c: x = x + 9: RETURN
  132. dot: x = x - 2: PSET (x, y + 4), c: x = x + 9: RETURN
  133. plus: FOR H = x - 2 TO x + 2: PSET (H, y), c: NEXT H
  134. FOR V = y - 2 TO y + 2: PSET (x, V), c: NEXT V: x = x + 8: RETURN
  135. pt2: PSET (x, y + 3), c: PSET (x + 1, y + 3), c
  136. PSET (x, y - 3), c: PSET (x + 1, y - 3), c: x = x + 15: RETURN
  137. vrg: PSET (x, y + 4), c: PSET (x, y + 5), c: PSET (x - 1, y + 6), c
  138. x = x + 10: RETURN
  139. apos: x = x - 1: PSET (x, y - 4), c: PSET (x, y - 3), c: PSET (x - 1, y - 2), c
  140. x = x + 6: RETURN
  141. moins: FOR H = x - 2 TO x + 2: PSET (H, y), c: NEXT H: x = x + 8: RETURN
  142. '                      minuscules
  143. am: y = y + 1: FOR V = y - 2 TO y + 2: PSET (x - 2, V), c: NEXT V
  144. FOR V = y - 3 TO y + 3: PSET (x + 2, V), c: NEXT V
  145. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  146. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  147. x = x + 7: y = y - 1: RETURN
  148. bm: y = y + 1: FOR V = y - 5 TO y + 3: PSET (x - 2, V), c: NEXT V
  149. FOR V = y - 2 TO y + 2: PSET (x + 2, V), c: NEXT V
  150. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  151. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  152. x = x + 7: y = y - 1: RETURN
  153. dm: y = y + 1: FOR V = y - 5 TO y + 3: PSET (x + 2, V), c: NEXT V
  154. FOR V = y - 2 TO y + 2: PSET (x - 2, V), c: NEXT V
  155. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  156. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  157. x = x + 7: y = y - 1: RETURN
  158. em: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  159. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  160. PSET (x - 2, y - 1), c: PSET (x + 2, y - 1), c
  161. FOR H = x - 2 TO x + 1: PSET (H, y), c: NEXT H: PSET (x - 2, y + 1), c
  162. PSET (x - 2, y + 2), c:
  163. FOR H = x - 1 TO x + 2: PSET (H, y + 3), c: NEXT H: x = x + 7
  164. y = y - 1: RETURN
  165. fm: y = y + 1: FOR V = y - 4 TO y + 3: PSET (x - 2, V), c: NEXT V
  166. PSET (x + 2, y - 4), c: FOR H = x - 1 TO x + 1: PSET (H, y - 1), c: NEXT H
  167. FOR H = x - 1 TO x + 1: PSET (H, y - 5), c: NEXT H: x = x + 7: y = y - 1: RETURN
  168. im: y = y + 1: PSET (x, y - 4), c: FOR V = y - 2 TO y + 3: PSET (x, V), c: NEXT V
  169. PSET (x - 1, y - 2), c: PSET (x - 1, y + 3), c: PSET (x + 1, y + 3), c
  170. x = x + 7: y = y - 1: RETURN
  171. nm: y = y + 1: PSET (x - 2, y - 3), c: PSET (x, y - 3), c: PSET (x + 1, y - 3), c
  172. FOR V = y - 2 TO y + 3: PSET (x - 1, V), c: NEXT V
  173. FOR V = y - 2 TO y + 3: PSET (x + 2, V), c: NEXT V: x = x + 7: y = y - 1: RETURN
  174. om: y = y + 1: FOR V = y - 2 TO y + 2: PSET (x - 2, V), c: NEXT V
  175. FOR V = y - 2 TO y + 2: PSET (x + 2, V), c: NEXT V
  176. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  177. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  178. rm: y = y + 1: FOR V = y - 3 TO y + 3: PSET (x - 2, V), c: NEXT V
  179. PSET (x + 2, y - 2), c
  180. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  181. sm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  182. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c: PSET (x - 2, y - 1), c
  183. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: PSET (x + 2, y + 1), c
  184. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  185. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  186. tm: y = y + 1: FOR V = y - 4 TO y + 2: PSET (x - 2, V), c: NEXT V
  187. FOR H = x - 1 TO x + 1: PSET (H, y - 2), c: NEXT H
  188. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  189. AOP: GOSUB A: GOSUB 0: GOSUB P: RETURN
  190. tref: GOSUB egal: GOSUB tm: GOSUB em: GOSUB nm: GOSUB sm
  191. GOSUB im: GOSUB om: GOSUB nm: x = x + 8: GOSUB dm: GOSUB em: x = x + 8
  192. GOSUB rm: GOSUB em: GOSUB fm: GOSUB dot: GOSUB dm: GOSUB em
  193. x = x + 6: GOSUB 1: GOSUB apos: GOSUB AOP: x = x + 6: RETURN
  194. UE: GOSUB U: GOSUB em: RETURN
  195. UA: GOSUB U: GOSUB am: RETURN
  196. UB: GOSUB U: GOSUB bm: RETURN
  197.  
  198.