home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 2364 / minilab / schema2.bas < prev    next >
BASIC Source File  |  1993-10-22  |  10KB  |  182 lines
  1. REM W. Prévost 1993 : MINILAB: SCHEMA2 : ALIM REGULEE
  2.  
  3. DEFINT A-Z: SCREEN 12
  4. alimfix: xp = 120: xs = xp + 30: z = 180: ct = 13: ctr = 5: GOSUB transfo
  5. cp = 12: GOSUB pont
  6. LINE (xs + 25, z + 30)-(xs + 25, z + 72), 7          ' fil masse
  7. LINE (xs + 25, z + 78)-(xs + 25, z + 110), 7: LINE -(555, z + 110), 7
  8. LINE (xs + 85, z + 30)-(xs + 85, z - 50), 12: LINE -(344, z - 50), 12
  9. P = z - 50: m = z + 110
  10. LINE (275, P)-(275, 200), 14: LINE (275, 212)-(275, m), 14    'C1
  11. cd = 275: cdy = 200: GOSUB condelec1
  12. LINE (310, P)-(310, 200), 14: LINE (310, 212)-(310, m), 14    'C2
  13. cd = 310: cdy = 200: GOSUB cond1
  14. LINE (435, P)-(435, 161), 10: LINE (435, 179)-(435, 225), 10   'DEL
  15. cdel = 10: cadel = 2: xdel = 435: ydel = 170: GOSUB del1
  16. xr = 435: yr = 225: cr = 10: GOSUB res1: LINE (435, yr + 20)-(435, m), 10
  17. LINE (345, P - 20)-(405, P + 20), 7, B                         '7812
  18. LINE (520, 125)-(520, 135), 12: LINE -(530, P), 12: LINE -(520, 125), 12
  19. PAINT (525, P), 12, 12: LINE (530, 125)-(530, 135), 12         'D2
  20. LINE (406, P)-(555, P), 12: CIRCLE (557, P), 2, 12             'fin Vcc
  21. x = 565: y = P: c = 12: GOSUB plus: GOSUB V
  22. CIRCLE (557, 290), 2, 7                                         'fin 0V
  23. x = 565: y = 290: c = 7: GOSUB zero: GOSUB V
  24. LINE (375, 150)-(375, 200), 7                                   'D1
  25. LINE (370, 200)-(380, 200), 7: LINE -(375, 210), 7: LINE -(370, 200), 7
  26. PAINT (375, 205), 7, 7: LINE (375, 210)-(375, m), 7
  27. LINE (370, 210)-(380, 210), 7
  28. LINE (480, P)-(480, 200), 14: LINE (480, 212)-(480, m), 14
  29. cd = 480: cdy = 200: GOSUB condelec1                            'C3
  30.    x = 260: y = 190: c = 14: GOSUB cm: GOSUB 1
  31.    x = 295: y = 190: c = 14: GOSUB cm: GOSUB 2
  32.    x = 460: y = 205: c = 14: GOSUB cm: GOSUB 3
  33.    x = 445: y = 240: c = 10: GOSUB rm: GOSUB 1
  34.    x = 390: y = 210: c = 7: GOSUB D: GOSUB un
  35.    x = 520: y = 115: c = 12: GOSUB D: GOSUB deux
  36. LOCATE 9, 46: COLOR 7: PRINT "78XX"
  37. LOCATE 23, 5: COLOR 12: PRINT "12 V": LOCATE 23, 11: COLOR 14: PRINT "1,5 A max"
  38. ohm$ = CHR$(234): micro$ = CHR$(230)
  39. LOCATE 26, 5: COLOR 10: PRINT "R1: 68O "; ohm$
  40. LOCATE 26, 19: COLOR 14: PRINT "C1: 22OO "; micro$; "F/16 V"
  41. LOCATE 27, 19: COLOR 14: PRINT "C2: 1O nF"
  42. LOCATE 28, 19: COLOR 14: PRINT "C3: 22 "; micro$; "F/16 V"
  43. LOCATE 26, 39: COLOR 9: PRINT "D1, D2: 1N 4O47"
  44. LOCATE 27, 39: COLOR 7: PRINT "IC: 7812"
  45. LOCATE 26, 57: COLOR 13: PRINT "F: O,1 A (tempo)"
  46. LOCATE 27, 57: COLOR 13: PRINT "TRANSFO: 15 V/2O VA"
  47. attente:        f$ = "": WHILE f$ = "": f$ = INKEY$: WEND: f$ = UCASE$(f$)
  48. IF f$ = "C" THEN GOTO calcul
  49. IF f$ = "Q" THEN GOTO quitter
  50. GOTO attente: END
  51. calcul: a = 1: aa = 638: B = 62: bb = 390: cf = 0: GOSUB box2
  52. COLOR 13
  53. LOCATE 7, 5: PRINT "CHOIX du TRANSFORMATEUR": LINE (30, 110)-(215, 110), 13
  54. COLOR 15
  55. LOCATE 9, 5: PRINT "Ut = tension efficace au secondaire du transformateur"
  56. LOCATE 10, 5: PRINT "Us = tension de sortie maxi (ici : 12 V)"
  57. LOCATE 11, 5: PRINT "Ud = chute de tension dans les diodes de redressement"
  58. LOCATE 12, 5: PRINT "Uronf = tension de ronflement"
  59. LOCATE 13, 5: PRINT "Ureg = chute de tension aux bornes du régulateur"
  60. COLOR 12
  61. LOCATE 15, 5: PRINT "Le secondaire du transformateur devra fournir, au minimum :"
  62. LOCATE 17, 10: PRINT "Ut = O,7O7 (Us + Ud + Uronf + Ureg)"
  63. LOCATE 18, 10
  64. PRINT "   = O,7O7 (12 + (2 x O,7) + 3 + 2) = O,7O7 x 18,4 V = 13 V"
  65. COLOR 14: LOCATE 20, 5
  66. PRINT "Puissance apparente = Ut x Imax = 13 V x 1,5 A = 19,5 VA"
  67. atten:   f$ = "": WHILE f$ = "": f$ = INKEY$: WEND
  68. LINE (0, 61)-(639, 390), 0, BF: LINE (0, 61)-(639, 390), 9, B
  69. COLOR 15: GOTO alimfix
  70.  
  71. quitter: COLOR 15: LINE (0, 61)-(639, 479), 0, BF: CHAIN "minilab\SCHEMAS.bas"
  72.  
  73. un: FOR vert = y - 4 TO y + 4: PSET (x, vert), c: NEXT vert
  74. PSET (x - 1, y - 4), c: PSET (x - 1, y + 4), c: PSET (x + 1, y + 4), c
  75. x = x + 9:  RETURN
  76. deux: PSET (x, y - 4), c: PSET (x + 1, y - 4), c: PSET (x - 1, y - 3), c
  77. PSET (x + 2, y - 3), c: PSET (x - 2, y - 2), c: PSET (x + 3, y - 2), c
  78. PSET (x + 3, y - 1), c: PSET (x + 2, y), c
  79. PSET (x, y + 1), c: PSET (x + 1, y), c
  80. PSET (x - 2, y + 2), c: PSET (x - 1, y + 2), c: PSET (x - 2, y + 3), c
  81. FOR hor = x - 2 TO x + 3: PSET (hor, y + 4), c: NEXT hor: x = x + 9: RETURN
  82. zero: FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
  83. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  84. FOR V = y TO y + 3: PSET (x - 2, V), c: NEXT V
  85. FOR V = y TO y + 3: PSET (x + 3, V), c: NEXT V
  86. FOR V = y - 3 TO y - 1: PSET (x - 2, V), c: NEXT V
  87. FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
  88. D: FOR vert = y - 4 TO y + 4: PSET (x - 2, vert), c: NEXT vert
  89. FOR hor = x - 1 TO x + 1: PSET (hor, y - 4), c: NEXT hor
  90. PSET (x + 2, y - 3), c
  91. FOR vert = y - 2 TO y + 2: PSET (x + 2, vert), c: NEXT vert
  92. FOR hor = x - 1 TO x + 1: PSET (hor, y + 4), c: NEXT hor
  93. PSET (x + 2, y + 3), c: x = x + 9: RETURN
  94. f: FOR vert = y - 4 TO y + 4: PSET (x - 2, vert), c: NEXT vert
  95. FOR hor = x - 1 TO x + 3: PSET (hor, y - 4), c: NEXT hor
  96. FOR hor = x - 1 TO x + 1: PSET (hor, y), c: NEXT hor: RETURN
  97. V: FOR V = y - 4 TO y + 1: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  98. FOR V = y + 2 TO y + 3: PSET (x - 1, V), c: PSET (x + 2, V), c: NEXT V
  99. PSET (x, y + 4), c: PSET (x + 1, y + 4), c: x = x + 9: RETURN
  100. plus: x = x + 3: FOR H = x - 3 TO x + 3: PSET (H, y), c: NEXT H
  101. FOR V = y - 3 TO y + 3: PSET (x, V), c: NEXT V: x = x + 9: RETURN
  102. moins: FOR H = x - 2 TO x + 2: PSET (H, y), c: NEXT H: RETURN
  103. '   minuscules
  104. 1 : y = y + 1: PSET (x - 1, y - 3), c: FOR V = y - 3 TO y + 2: PSET (x, V), c: NEXT V
  105. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: y = y - 1: x = x + 7: RETURN
  106. 2 : y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  107. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c: PSET (x + 2, y - 1), c
  108. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: PSET (x - 2, y + 1), c
  109. PSET (x - 2, y + 2), c
  110. FOR H = x - 2 TO x + 2: PSET (H, y + 3), c: NEXT H: y = y - 1: x = x + 7: RETURN
  111. 3 : y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  112. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c: PSET (x + 2, y - 1), c
  113. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: PSET (x + 2, y + 1), c
  114. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  115. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: y = y - 1: x = x + 7: RETURN
  116. cm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  117. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  118. FOR V = y - 1 TO y + 1: PSET (x - 2, V), c: NEXT V
  119. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  120. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  121. x = x + 7: y = y - 1: RETURN
  122. rm: y = y + 1: FOR V = y - 3 TO y + 3: PSET (x - 2, V), c: NEXT V
  123. PSET (x + 2, y - 2), c
  124. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  125. REM                          SYMBOLES ELECTRO
  126. transfo:                           'avec fusible et inter K
  127. FOR y = z + 5 TO z + 55 STEP 10
  128. CIRCLE (xp, y), 5, ct, (270 * .01745), (90 * .01745): NEXT y
  129. FOR T = 11 TO 19 STEP 4: LINE (xp + T, z)-(xp + T, z + 60), ctr: NEXT T
  130. FOR y = z + 5 TO z + 55 STEP 10
  131. CIRCLE (xs, y), 5, ct, (90 * .01745), (270 * .01745): NEXT y
  132. LINE (xp, z)-(xp, z - 15), ct: LINE -(xp - 60, z - 15), ct    'primaire
  133. LINE -(xp - 60, z + 10), ct
  134. LINE (xp, z + 60)-(xp, z + 75), ct: LINE -(xp - 20, z + 75), ct
  135. LINE (xp - 40, z + 75)-(xp - 60, z + 75), ct
  136. LINE (xp - 20, z + 75)-(xp - 32, z + 83), 12                  'inter K
  137. LINE (xp - 60, z + 75)-(xp - 60, z + 50), ct
  138. x = xp - 70: y = z + 30: c = ct
  139. GOSUB deux: GOSUB deux: GOSUB zero: GOSUB V
  140. LINE (xs, z)-(xs, z - 15), ct: LINE -(xs + 55, z - 15), ct    'secondaire
  141. LINE -(xs + 55, z), ct
  142. LINE (xs, z + 60)-(xs, z + 75), ct: LINE -(xs + 55, z + 75), ct
  143. LINE -(xs + 55, z + 60), ct
  144. LINE (xp - 42, z - 11)-(xp - 18, z - 19), ctr, B              'fusible
  145. x = xp - 30: y = z - 29: c = ctr: GOSUB f
  146. RETURN
  147. pont: PSET (xs + 37, z + 18), 4
  148. DRAW "H5 R10 H4 F8 H4 D10 H6":  PAINT (xs + 39, z + 16), 12, 4
  149. PSET (xs + 67, z + 48), 4
  150. DRAW "H5 R10 H4 F8 H4 D10 H6":  PAINT (xs + 69, z + 46), 12, 4
  151. PSET (xs + 67, z + 13), 4
  152. DRAW "G5 R10 G4 E8 G4 U10 G6":  PAINT (xs + 69, z + 15), 12, 4
  153. PSET (xs + 37, z + 43), 4
  154. DRAW "G5 R10 G4 E8 G4 U10 G6":  PAINT (xs + 39, z + 45), 12, 4
  155. LINE (xs + 55, z)-(xs + 25, z + 30), cp: LINE -(xs + 55, z + 60), cp
  156. LINE -(xs + 85, z + 30), cp: LINE -(xs + 55, z), cp
  157. c = cp: x = xs + 90: y = z + 30: GOSUB plus
  158. x = xs + 20: y = z + 30: GOSUB moins:
  159. RETURN
  160. condelec1: LINE (cd - 7, cdy)-(cd + 7, cdy + 4), 14, B
  161. LINE (cd - 7, cdy + 8)-(cd + 7, cdy + 12), 14, BF
  162. x = cd + 9: y = cdy - 3: c = 14: GOSUB plus: RETURN
  163. cond1: LINE (cd - 7, cdy)-(cd + 7, cdy + 4), 14, B
  164. LINE (cd - 7, cdy + 8)-(cd + 7, cdy + 12), 14, B: RETURN
  165. del1: CIRCLE (xdel, ydel), 9, cdel
  166. LINE (xdel - 4, ydel - 4)-(xdel + 4, ydel - 4), cadel
  167. LINE -(xdel, ydel + 4), cadel: LINE -(xdel - 4, ydel - 4), cadel
  168. PAINT (xdel, ydel), cdel, cadel
  169. LINE (xdel - 4, ydel + 5)-(xdel + 4, ydel + 5), cdel
  170. LINE (xdel + 11, ydel - 4)-(xdel + 15, ydel - 8), cdel: DRAW "L2 R2 D2": RETURN
  171. res1: LINE (xr - 3, yr)-(xr + 3, yr + 20), cr, B: RETURN
  172. box2: LINE (a, B)-(aa, bb), 1, BF
  173. LINE (a, B)-(aa, bb), 0, B: LINE (a + 5, B + 5)-(aa - 5, bb - 5), 0, B
  174. PAINT (a + 3, B + 10), 7, 0: LINE (a + 6, B + 6)-(aa - 6, bb - 6), cf, BF
  175. LINE (a + 1, B + 1)-(a + 1, bb - 1), 15: LINE -(aa - 1, bb - 1), 15
  176. LINE (a + 35, B)-(a + 35, B + 5), 8: LINE (a + 35, bb - 5)-(a + 35, bb - 1), 8
  177. LINE (aa - 35, B)-(aa - 35, B + 5), 8: LINE (aa - 35, bb - 5)-(aa - 35, bb - 1), 8
  178. LINE (a + 1, B + 35)-(a + 5, B + 35), 8: LINE (a + 1, bb - 35)-(a + 5, bb - 35), 8
  179. LINE (aa, B + 35)-(aa - 5, B + 35), 8: LINE (aa, bb - 35)-(aa - 5, bb - 35), 8
  180. RETURN
  181.  
  182.