home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 2364 / minilab / schema5.bas < prev    next >
BASIC Source File  |  1993-10-22  |  6KB  |  121 lines
  1. REM W. Prévost 1993 : MINILAB: SCHEMA5 : TEMPORISATEUR NE555
  2.  
  3. DEFINT A-Z: SCREEN 12
  4. LOCATE 26, 5: COLOR 7: PRINT "CI : NE 555 timer"
  5. LOCATE 26, 28: COLOR 14: PRINT "C1 : 1O nF"
  6. COLOR 10: LOCATE 26, 43: PRINT "R1 : 27 k"; CHR$(234)
  7. LOCATE 26, 60: PRINT "R2 : 47O "; CHR$(234)
  8. COLOR 11: LOCATE 28, 5
  9. PRINT "La durée de la temporisation sera égale à : T = 1,1 x (Ra + Rb) C"
  10. VAR1: LINE (2, 61)-(637, 389), 0, BF: GOSUB schema
  11. LINE (340, 110)-(340, 170), 12: X = 340: y = 180: c = 7: GOSUB 4
  12. LOCATE 6, 5: COLOR 7: PRINT "NON-REDECLENCHABLE": COLOR 15
  13. frap: GOSUB Attente
  14.   IF f$ = "V" THEN GOSUB VAR2
  15.   IF f$ = "Q" THEN GOTO quitter
  16.   GOTO frap
  17.  
  18. VAR2: LINE (2, 61)-(637, 389), 0, BF: GOSUB schema
  19. LINE (360, 185)-(385, 185), 9: LINE -(385, 210), 9
  20. X = 350: y = 185: c = 7: GOSUB 4
  21. LOCATE 6, 5: COLOR 7: PRINT "REDECLENCHABLE": COLOR 15
  22. frap2: GOSUB Attente
  23.   IF f$ = "V" THEN GOSUB VAR1
  24.   IF f$ = "Q" THEN GOTO quitter
  25.   GOTO frap2
  26.  
  27. quitter: LINE (0, 61)-(639, 479), 0, BF: COLOR 15: CHAIN "minilab\SCHEMAS.bas"
  28. Attente: f$ = "": WHILE f$ = "": f$ = INKEY$: WEND: f$ = UCASE$(f$): RETURN
  29.  
  30. B: FOR V = y - 4 TO y + 4: PSET (X - 2, V), c: NEXT V         'B
  31. FOR H = X - 1 TO X + 2: PSET (H, y - 4), c: NEXT H
  32. FOR H = X - 1 TO X + 2: PSET (H, y), c: NEXT H
  33. FOR H = X - 1 TO X + 2: PSET (H, y + 4), c: NEXT H
  34. FOR V = y - 3 TO y - 1: PSET (X + 3, V), c: NEXT V
  35. FOR V = y + 1 TO y + 3: PSET (X + 3, V), c: NEXT V: X = X + 9: RETURN
  36. P: FOR V = y - 4 TO y + 4: PSET (X - 2, V), c: NEXT V
  37. FOR H = X - 1 TO X + 1: PSET (H, y - 4), c: NEXT H
  38. PSET (X + 2, y - 3), c: PSET (X + 3, y - 2), c: PSET (X + 2, y - 1), c
  39. FOR H = X - 1 TO X + 1: PSET (H, y), c: NEXT H: X = X + 9: RETURN
  40. 1 : PSET (X - 1, y - 3), c: FOR V = y - 3 TO y + 2: PSET (X, V), c: NEXT V
  41. FOR H = X - 1 TO X + 1: PSET (H, y + 3), c: NEXT H: RETURN
  42. 2 : FOR H = X - 1 TO X + 1: PSET (H, y - 3), c: NEXT H
  43. PSET (X - 2, y - 2), c: PSET (X + 2, y - 2), c: PSET (X + 2, y - 1), c
  44. FOR H = X - 1 TO X + 1: PSET (H, y), c: NEXT H: PSET (X - 2, y + 1), c
  45. PSET (X - 2, y + 2), c
  46. FOR H = X - 2 TO X + 2: PSET (H, y + 3), c: NEXT H: RETURN
  47. 3 : FOR H = X - 1 TO X + 1: PSET (H, y - 3), c: NEXT H
  48. PSET (X - 2, y - 2), c: PSET (X + 2, y - 2), c: PSET (X + 2, y - 1), c
  49. FOR H = X - 1 TO X + 1: PSET (H, y), c: NEXT H: PSET (X + 2, y + 1), c
  50. PSET (X - 2, y + 2), c: PSET (X + 2, y + 2), c
  51. FOR H = X - 1 TO X + 1: PSET (H, y + 3), c: NEXT H: RETURN
  52. 4 : FOR V = y - 3 TO y + 3: PSET (X + 1, V), c: NEXT V
  53. PSET (X, y - 2), c: PSET (X - 1, y - 1), c
  54. FOR H = X - 2 TO X + 2: PSET (H, y), c: NEXT H: RETURN
  55. 5 : FOR H = X - 2 TO X + 2: PSET (H, y - 3), c: NEXT H
  56. PSET (X - 2, y - 2), c: PSET (X - 2, y - 1), c
  57. FOR H = X - 1 TO X + 1: PSET (H, y), c: NEXT H: PSET (X + 2, y + 1), c
  58. PSET (X - 2, y + 2), c: PSET (X + 2, y + 2), c
  59. FOR H = X - 1 TO X + 1: PSET (H, y + 3), c: NEXT H: RETURN
  60. 6 : FOR H = X - 1 TO X + 1: PSET (H, y - 3), c: NEXT H
  61. PSET (X - 2, y - 2), c: PSET (X - 2, y - 1), c: PSET (X - 2, y - 1), c
  62. FOR H = X - 2 TO X + 1: PSET (H, y), c: NEXT H
  63. PSET (X - 2, y + 1), c: PSET (X + 2, y + 1), c
  64. PSET (X - 2, y + 2), c: PSET (X + 2, y + 2), c
  65. FOR H = X - 1 TO X + 1: PSET (H, y + 3), c: NEXT H: RETURN
  66. 7 : FOR H = X - 2 TO X + 2: PSET (H, y - 3), c: NEXT H
  67. PSET (X - 2, y - 2), c: PSET (X + 2, y - 2), c: PSET (X + 2, y - 1), c
  68. PSET (X + 1, y), c: PSET (X, y + 1), c: PSET (X - 1, y + 2), c
  69. PSET (X - 2, y + 3), c: RETURN
  70. 8 : FOR H = X - 1 TO X + 1: PSET (H, y - 3), c: NEXT H
  71. PSET (X - 2, y - 2), c: PSET (X + 2, y - 2), c
  72. PSET (X + 2, y - 1), c: PSET (X - 2, y - 1), c
  73. FOR H = X - 1 TO X + 1: PSET (H, y), c: NEXT H
  74. PSET (X + 2, y + 1), c: PSET (X - 2, y + 1), c
  75. PSET (X - 2, y + 2), c: PSET (X + 2, y + 2), c
  76. FOR H = X - 1 TO X + 1: PSET (H, y + 3), c: NEXT H: RETURN
  77. cond: LINE (cd - 7, cdy)-(cd + 7, cdy + 4), 14, B
  78. LINE (cd - 7, cdy + 8)-(cd + 7, cdy + 12), 14, BF: RETURN
  79. condo: LINE (cd - 7, cdy)-(cd + 7, cdy + 4), 14, B
  80. LINE (cd - 7, cdy + 8)-(cd + 7, cdy + 12), 14, BF: RETURN
  81. res: LINE (xr - 3, yr)-(xr + 3, yr + 20), cr, B: RETURN
  82. del1: CIRCLE (xdel, ydel), 9, cdel
  83. LINE (xdel - 4, ydel - 4)-(xdel + 4, ydel - 4), cadel
  84. LINE -(xdel, ydel + 4), cadel: LINE -(xdel - 4, ydel - 4), cadel
  85. PAINT (xdel, ydel), cdel, cadel
  86. LINE (xdel - 4, ydel + 5)-(xdel + 4, ydel + 5), cdel
  87. LINE (xdel + 11, ydel - 4)-(xdel + 15, ydel - 8), cdel: DRAW "L2 R2 D2": RETURN
  88. rvar: LINE (xr - 3, yr)-(xr + 3, yr + 30), cr, B
  89. LINE (xr - 8, yr + 25)-(xr + 8, yr + 5), cr
  90. DRAW "L3 R4 D3": RETURN
  91. schema: LINE (140, 110)-(500, 110), 12: LINE (140, 350)-(500, 350), 7
  92. LINE (280, 170)-(360, 270), 7, B
  93. LINE (300, 110)-(300, 170), 12: X = 300: y = 180: c = 7: GOSUB 8
  94. LINE (345, 270)-(345, 300), 14: cd = 345: cdy = 300: GOSUB cond
  95. LINE (345, 310)-(345, 350), 14: X = 345: y = 260: c = 7: GOSUB 5
  96. LINE (300, 270)-(300, 350), 7: X = 300: y = 260: c = 7: GOSUB 1
  97. LINE (360, 240)-(407, 240), 10: X = 350: y = 240: c = 7: GOSUB 3
  98. LINE (413, 240)-(490, 240), 10: CIRCLE (492, 240), 2, 10
  99. xdel = 465: ydel = 270: cdel = 10: cadel = 2: GOSUB del1
  100. LINE (xdel, 240)-(xdel, 265), 10: LINE (xdel, 275)-(xdel, 305), 10
  101. xr = xdel: yr = 305: cr = 10: GOSUB res
  102. LINE (xdel, 325)-(xdel, 350), 10
  103. LINE (505, 240)-(505, 220), 10: LINE -(535, 220), 10: LINE -(535, 240), 10
  104. LINE -(545, 240), 10
  105. LINE (360, 210)-(410, 210), 9: X = 350: y = 210: c = 7: GOSUB 2
  106. LINE (210, 110)-(210, 125), 13: xr = 210: yr = 125: cr = 13: GOSUB res
  107. LINE (210, 145)-(210, 170), 13: xr = 210: yr = 170: cr = 13: GOSUB rvar
  108. LINE (210, 200)-(210, 290), 13: cd = 210: cdy = 290: GOSUB condo
  109. LINE (210, 304)-(210, 350), 13
  110. LINE (280, 215)-(210, 215), 13: X = 290: y = 215: c = 7: GOSUB 7
  111. LINE (280, 245)-(210, 245), 13: X = 290: y = 245: c = 7: GOSUB 6
  112. LINE (410, 110)-(410, 160), 9: xr = 410: yr = 160: cr = 9: GOSUB res
  113. LINE (410, 180)-(410, 300), 9: LINE (410, 310)-(410, 350), 9
  114. LINE (417, 300)-(418, 310), 9, B: X = 427: y = 305: c = 9: GOSUB B: GOSUB P
  115. COLOR 13: LOCATE 12, 23: PRINT "Rb": LOCATE 9, 23: PRINT "Ra"
  116. COLOR 9: LOCATE 11, 54: PRINT "R1": COLOR 10: LOCATE 20, 60: PRINT "R2"
  117. COLOR 14: LOCATE 19, 24: PRINT "C": LOCATE 19, 46: PRINT "C1"
  118. COLOR 12: LOCATE 7, 65: PRINT "Vcc (9 V)"
  119. RETURN
  120.  
  121.