DP Tool Club 12/CD_ASCQ_12_0294.iso/maj/2364/minilab/schema17.bas

BASIC Source File | 1993-10-22 | 6KB | 110 lines

REM W. Prévost 1993 : MINILAB: SCHEMA17 : ALIM SYMETRIQUE (1)

DEFINT A-Z: SCREEN 12
xt1 = 390: yt1 = 140: xt2 = 390: yt2 = 220
CIRCLE (xt1, yt1), 17, 11           'T 1
CIRCLE (xt2, yt2), 17, 11           'T 2
LINE (xt1 - 3, yt1 - 10)-(xt1, yt1 + 10), 11, BF
LINE (xt2 - 3, yt2 - 10)-(xt2, yt2 + 10), 11, BF
c = 15: x = 415: y = 140: GOSUB T: GOSUB 1
x = 415: y = 220: GOSUB T: GOSUB 2
c = 4: x = 510: y = 85: GOSUB plus: GOSUB Vcc
PSET (xt1, yt1), 11
DRAW "E12 U37 D37 G12 F12 U3 G3 R2 D27 R45 L45 D28 G4 U3 F3 L2 G8 F12 D48"
LINE (310, 180)-(340, 180), 11: LINE (340, 140)-(340, 220), 11
LINE -(390, 220), 11: LINE (340, 140)-(390, 140), 11
LINE (310, 180)-(260, 155), 13: LINE -(260, 205), 13: LINE -(310, 180), 13
x = 265: y = 170: c = 13: GOSUB plus: x = 265: y = 190: GOSUB moins
x = 270: y = 180: GOSUB AOP
LINE (285, 168)-(285, 90), 12: LINE (285, 192)-(285, 280), 7
LINE (260, 170)-(200, 170), 10
LINE (200, 90)-(200, 120), 10: LINE (196, 120)-(204, 145), 10, B
LINE (200, 145)-(200, 195), 10: LINE (196, 195)-(204, 220), 10, B
LINE (200, 220)-(200, 280), 10
x = 185: y = 132: c = 10: GOSUB R: x = 190: y = 207: GOSUB R
LINE (200, 170)-(170, 170), 14: LINE -(170, 200), 14
LINE (162, 200)-(178, 204), 14, B: LINE (162, 207)-(178, 211), 14, BF
LINE (170, 211)-(170, 280), 14
x = 150: y = 205: c = 14: GOSUB c
LINE (260, 190)-(230, 190), 3: LINE -(230, 276), 3
LINE (230, 284)-(230, 300), 3: LINE -(510, 300), 3: LINE -(510, 179), 3
LINE -(402, 179), 3: x = 520: y = 179: c = 3: GOSUB 0: GOSUB V
LINE (450, 160)-(450, 197), 3
CIRCLE (450, 158), 2, 7: CIRCLE (450, 199), 2, 9
LINE (450, 90)-(450, 120), 12: CIRCLE (450, 122), 2, 12
LINE (450, 280)-(450, 260), 7: CIRCLE (450, 258), 2, 7
x = 445: y = 140: c = 12: GOSUB Vcc: GOSUB slash: GOSUB 2
x = 445: y = 230: c = 9: GOSUB moins: GOSUB Vcc: GOSUB slash: GOSUB 2
ba = 115: LINE (500, 90)-(ba, 90), 12: LINE -(ba, 170), 12
LINE (ba - 10, 170)-(ba + 10, 170), 12
LINE (500, 280)-(ba, 280), 7: LINE -(ba, 185), 7
LINE (ba - 6, 186)-(ba + 6, 178), 7, BF
x = ba + 8: y = 164: c = 4: GOSUB plus
ohm$ = CHR$(234): micro$ = CHR$(230)
LOCATE 26, 4: COLOR 10: PRINT "R : 47 k"; ohm$
LOCATE 28, 4: COLOR 11: PRINT "T1 (NPN) : BC 337, 2N 2222..."
LOCATE 26, 19: COLOR 14: PRINT "C : 47 "; micro$; "F"
LOCATE 26, 39: COLOR 13: PRINT "AOP : "; micro$; "A 741, TL O81..."
LOCATE 28, 39: COLOR 9: PRINT "T2 (PNP) : BC 327, 2N 29O6..."
attente:   f$ = "": WHILE f$ = "": f$ = INKEY$: WEND: f$ = UCASE$(f$)
           IF f$ = "Q" THEN GOTO quitter
GOTO attente

quitter: COLOR 15: LINE (0, 61)-(639, 479), 0, BF: CHAIN "minilab\SCHEMAS.bas"

Vcc: GOSUB V: GOSUB cm: GOSUB cm: RETURN
AOP: GOSUB A: GOSUB 0: GOSUB P: RETURN
REM
1 : FOR vert = y - 4 TO y + 4: PSET (x, vert), c: NEXT vert
PSET (x - 1, y - 4), c: PSET (x - 1, y + 4), c: PSET (x + 1, y + 4), c
x = x + 8:  RETURN
2 : PSET (x, y - 4), c: PSET (x + 1, y - 4), c: PSET (x - 1, y - 3), c
PSET (x + 2, y - 3), c: PSET (x - 2, y - 2), c: PSET (x + 3, y - 2), c
PSET (x + 3, y - 1), c: PSET (x + 2, y), c
PSET (x, y + 1), c: PSET (x + 1, y), c
PSET (x - 2, y + 2), c: PSET (x - 1, y + 2), c: PSET (x - 2, y + 3), c
FOR hor = x - 2 TO x + 3: PSET (hor, y + 4), c: NEXT hor: x = x + 9: RETURN
0 : FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
FOR V = y TO y + 3: PSET (x - 2, V), c: NEXT V
FOR V = y TO y + 3: PSET (x + 3, V), c: NEXT V
FOR V = y - 3 TO y - 1: PSET (x - 2, V), c: NEXT V
FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
REM
A: PSET (x, y - 4), c: PSET (x + 1, y - 4), c
PSET (x - 1, y - 3), c: PSET (x + 2, y - 3), c
FOR vert = y - 2 TO y + 4: PSET (x - 2, vert), c: PSET (x + 3, vert), c: NEXT vert
FOR hor = x - 1 TO x + 2: PSET (hor, y + 1), c: NEXT hor: x = x + 9: RETURN
c: PSET (x, y - 4), c: PSET (x + 1, y - 4), c
PSET (x - 1, y - 3), c: PSET (x + 2, y - 3), c
FOR vert = y - 2 TO y + 2: PSET (x - 2, vert), c: NEXT vert
PSET (x + 3, y - 2), c: PSET (x + 3, y + 2), c
PSET (x, y + 4), c: PSET (x + 1, y + 4), c
PSET (x - 1, y + 3), c: PSET (x + 2, y + 3), c: x = x + 9: RETURN
P: FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: x = x + 9: RETURN
R:  FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H
FOR V = y + 1 TO y + 4: PSET (x + 2, V), c: NEXT V: x = x + 9: RETURN
T:  FOR V = y - 3 TO y + 4: PSET (x, V), c: NEXT V
FOR H = x - 3 TO x + 3: PSET (H, y - 4), c: NEXT H: x = x + 9: RETURN
V: FOR V = y - 4 TO y + 1: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
FOR V = y + 2 TO y + 3: PSET (x - 1, V), c: PSET (x + 2, V), c: NEXT V
PSET (x, y + 4), c: PSET (x + 1, y + 4), c: x = x + 9: RETURN
REM
plus: FOR H = x - 2 TO x + 2: PSET (H, y), c: NEXT H
FOR V = y - 2 TO y + 2: PSET (x, V), c: NEXT V: x = x + 9: RETURN
moins: FOR H = x - 2 TO x + 2: PSET (H, y), c: NEXT H: x = x + 8: RETURN
slash: LINE (x - 3, y + 4)-(x + 3, y - 4), c: x = x + 11: RETURN
cm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
FOR V = y - 1 TO y + 1: PSET (x - 2, V), c: NEXT V
PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
x = x + 7: y = y - 1: RETURN