home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 2364 / minilab / schema10.bas < prev    next >
BASIC Source File  |  1993-10-22  |  7KB  |  127 lines
  1. REM W. Prévost 1993 : MINILAB: SCHEMA10 : AMPLIFICATEUR de TENSION
  2.  
  3. DEFINT A-Z: SCREEN 12
  4. debut: LINE (350, 132)-(350, 161), 12: CIRCLE (350, 130), 2, 12
  5. x = 335: y = 115: c = 12: GOSUB plus: GOSUB V: GOSUB cm: GOSUB cm
  6. LINE (350, 188)-(350, 220), 15: CIRCLE (350, 222), 2, 15
  7. x = 335: y = 237: c = 15: GOSUB moins: GOSUB V: GOSUB cm: GOSUB cm
  8. mas = 325: fin = 485: LINE (220, mas)-(fin, mas), 7
  9. LINE -(fin, mas - 20), 7: CIRCLE (fin, mas - 22), 2, 7
  10. x = fin + 10: y = mas - 22: c = 7: GOSUB m0: x = x + 4: GOSUB V
  11. xr = 300: yr = 280: cr = 10: GOSUB res1
  12. LINE (320, 190)-(300, 190), cr: LINE -(300, yr), cr
  13. x = xr - 15: y = yr + 10: c = cr: GOSUB rm: GOSUB 1             'R1
  14. LINE (xr, yr + 20)-(xr, mas), cr: LINE (xr, yr - 15)-(xr + 40, yr - 15), cr
  15. LINE (xr + 40, yr - 11)-(xr + 65, yr - 19), cr, B
  16. LINE (xr + 65, yr - 15)-(xr + 100, yr - 15), cr: LINE -(xr + 100, 175), cr
  17. x = xr + 50: y = yr: GOSUB rm: GOSUB 2                           'R2
  18. LINE (320, 160)-(270, 160), 14: CIRCLE (268, 160), 2, 14
  19. x = 268: y = 148: c = 14: GOSUB U: GOSUB em
  20. LINE (320, 150)-(320, 200), 5: LINE -(385, 175), 5: LINE -(320, 150), 5 'CI
  21. x = 310: y = 152: c = 5: GOSUB plus: x = 310: y = 195: GOSUB moins
  22. x = 330: y = 175: c = 13: GOSUB A: GOSUB m0: GOSUB P
  23. LINE (385, 175)-(fin, 175), 5: LINE -(fin, 195), 5   'sortie
  24. CIRCLE (fin, 197), 2, 5: x = fin + 10: y = 197: c = 13: GOSUB U: GOSUB sm
  25. y = 250: c = 14: k = 13: x = 450: FOR A = 180 TO 360 STEP 6
  26. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  27. FOR A = 0 TO 180 STEP 4
  28. ang! = A * .01745: PSET (x + 60 + A / 6, y + k * SIN(ang!)), c: NEXT A
  29. x = 510: FOR A = 180 TO 360 STEP 6
  30. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  31.   y = 250: c = 13: k = 36
  32. x = 450: FOR A = 180 TO 360 STEP 6
  33. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  34. FOR A = 0 TO 180 STEP 4
  35. ang! = A * .01745: PSET (x + 60 + A / 6, y + k * SIN(ang!)), c: NEXT A
  36. x = 510: FOR A = 180 TO 360 STEP 6
  37. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  38.  
  39. attente:        F$ = "": WHILE F$ = "": F$ = INKEY$: WEND: F$ = UCASE$(F$)
  40. IF F$ = "Q" THEN GOTO quitter
  41. IF F$ = "C" THEN GOSUB calcul
  42.                 GOTO attente
  43. END
  44. quitter: LINE (0, 61)-(639, 479), 0, BF: CHAIN "minilab\SCHEMAS.bas"
  45.  
  46. m0: FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
  47. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  48. FOR V = y TO y + 3: PSET (x - 2, V), c: NEXT V
  49. FOR V = y TO y + 3: PSET (x + 3, V), c: NEXT V
  50. FOR V = y - 3 TO y - 1: PSET (x - 2, V), c: NEXT V
  51. FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
  52. REM ==============================================================
  53. A: PSET (x, y - 4), c: PSET (x + 1, y - 4), c
  54. PSET (x - 1, y - 3), c: PSET (x + 2, y - 3), c
  55. FOR vert = y - 2 TO y + 4: PSET (x - 2, vert), c: PSET (x + 3, vert), c: NEXT vert
  56. FOR hor = x - 1 TO x + 2: PSET (hor, y + 1), c: NEXT hor: x = x + 9: RETURN
  57. P: FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
  58. FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
  59. PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
  60. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: x = x + 9: RETURN
  61. V: FOR V = y - 4 TO y + 1: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  62. FOR V = y + 2 TO y + 3: PSET (x - 1, V), c: PSET (x + 2, V), c: NEXT V
  63. PSET (x, y + 4), c: PSET (x + 1, y + 4), c: x = x + 9: RETURN
  64. U:  FOR V = y - 4 TO y + 3: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  65. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H: x = x + 9: RETURN
  66. x: x = x + 2: F = x - 3: FOR D = y - 3 TO y + 3: PSET (F, D), c: F = F + 1: NEXT D
  67. F = x + 3: FOR D = y - 3 TO y + 3: PSET (F, D), c: F = F - 1: NEXT D
  68. PSET (x + 3, y + 4), c: PSET (x + 3, y - 4), c
  69. PSET (x - 3, y + 4), c: PSET (x - 3, y - 4), c: x = x + 11: RETURN
  70. plus: x = x + 2: FOR H = x - 3 TO x + 3: PSET (H, y), c: NEXT H
  71. FOR V = y - 3 TO y + 3: PSET (x, V), c: NEXT V: x = x + 8: RETURN
  72. moins: x = x + 2: FOR H = x - 3 TO x + 3: PSET (H, y), c: NEXT H
  73. x = x + 8: RETURN
  74. '                      minuscules
  75. 1 : y = y + 1: PSET (x - 1, y - 3), c: FOR V = y - 3 TO y + 2: PSET (x, V), c: NEXT V
  76. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: y = y - 1: x = x + 7: RETURN
  77. 2 : y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  78. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c: PSET (x + 2, y - 1), c
  79. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: PSET (x - 2, y + 1), c
  80. PSET (x - 2, y + 2), c
  81. FOR H = x - 2 TO x + 2: PSET (H, y + 3), c: NEXT H: y = y - 1: x = x + 7: RETURN
  82. cm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  83. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  84. FOR V = y - 1 TO y + 1: PSET (x - 2, V), c: NEXT V
  85. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  86. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  87. x = x + 7: y = y - 1: RETURN
  88. em: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  89. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  90. PSET (x - 2, y - 1), c: PSET (x + 2, y - 1), c
  91. FOR H = x - 2 TO x + 1: PSET (H, y), c: NEXT H: PSET (x - 2, y + 1), c
  92. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  93. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: x = x + 7
  94. y = y - 1: RETURN
  95. sm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  96. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c: PSET (x - 2, y - 1), c
  97. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: PSET (x + 2, y + 1), c
  98. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  99. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  100. rm: y = y + 1: FOR V = y - 3 TO y + 3: PSET (x - 2, V), c: NEXT V
  101. PSET (x + 2, y - 2), c
  102. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  103. res1: LINE (xr - 3, yr)-(xr + 3, yr + 20), cr, B: RETURN
  104. calcul: A = 1: aa = 264: B = 62: bb = 380: cf = 0: GOSUB box2
  105. LOCATE 6, 3: COLOR 13: PRINT "AMPLIFICATION a": LINE (15, 95)-(135, 95), 13
  106. LOCATE 8, 3: COLOR 15: PRINT "a = Us/Ue = 1 + (R1/R2)"
  107. LOCATE 10, 3: PRINT "Avec R1=11O k"; CHR$(234); " et R2= 1O k"; CHR$(234); " :"
  108. LOCATE 12, 3: PRINT "a = 1 + (11O/1O) = 12"
  109. LOCATE 14, 3: PRINT "Si Ue = O,6 V, Us = 7,2 V"
  110. LOCATE 16, 3: COLOR 12: PRINT "TENSION de SATURATION Ue(max)"
  111. LINE (15, 254)-(245, 254), 12
  112. LOCATE 18, 3: COLOR 15: PRINT "Ue(max) = Vcc/a (environ)"
  113. LOCATE 20, 3: COLOR 3: PRINT "FREQUENCE MAXI f(max)"
  114. LINE (15, 321)-(183, 321), 3
  115. LOCATE 22, 3: COLOR 15: PRINT "f(max) = 15 à 2O kHz"
  116. GOTO attente
  117. box2: LINE (A, B)-(aa, bb), 1, BF
  118. LINE (A, B)-(aa, bb), 0, B: LINE (A + 5, B + 5)-(aa - 5, bb - 5), 0, B
  119. PAINT (A + 3, B + 10), 7, 0: LINE (A + 6, B + 6)-(aa - 6, bb - 6), cf, BF
  120. LINE (A + 1, B + 1)-(A + 1, bb - 1), 15: LINE -(aa - 1, bb - 1), 15
  121. LINE (A + 35, B)-(A + 35, B + 5), 8: LINE (A + 35, bb - 5)-(A + 35, bb - 1), 8
  122. LINE (aa - 35, B)-(aa - 35, B + 5), 8: LINE (aa - 35, bb - 5)-(aa - 35, bb - 1), 8
  123. LINE (A + 1, B + 35)-(A + 5, B + 35), 8: LINE (A + 1, bb - 35)-(A + 5, bb - 35), 8
  124. LINE (aa, B + 35)-(aa - 5, B + 35), 8: LINE (aa, bb - 35)-(aa - 5, bb - 35), 8
  125. RETURN
  126.  
  127.