'----- schnipp ---------------- Alles oberhalb dieser Linie Loeschen --------
nochmal:
aa = 8         'Hintergrund 4rot 5lila 6dunkelorange 7grau 8sw,
COLOR 14, aa
CLS
COLOR 3, aa
PRINT
PRINT "         Transistorverstaerker mit Spannungsgegenkopplung        "
PRINT " --------------------------------------------------------------- "
PRINT " Die Schaltung besteht aus dem Kollektorwiderstand Rc, dem Transistor"
PRINT " T1 und dem Widerstand Rg, welcher zwischen C und E geschaltet wird."
PRINT " Alle Angaben in kOhm, Volt und mA. Ic darf zwis. 0.5 und 5 mA liegen."
COLOR 14, aa
PRINT
INPUT "   Wie hoch waehlen Sie den Kollektorruhestrom Ic (mA)"; ic
INPUT "     Wie hoch waehlen Sie die Speisespannung Ub (Volt)"; ub
caendern:
INPUT " Wie hoch ist der mittlere Stromverstaerkungsfaktor von T1"; beta

        ube = .7 'Si-Schwellenspannung
        rc = (.5 * ub) / ic
        ib = ic / beta
        rg = (ub - ube - (ib + ic) * rc) / ib
         v = 20 * ub

PRINT
COLOR 3, aa
PRINT " ********************************************************************"
COLOR 15, aa
PRINT
PRINT "  Rg in kOhm.............................:"; rg
PRINT "  Rc in kOhm.............................:"; rc
PRINT "  Spannungsverstaerkung V (genaehert)......:"; v
COLOR 3, aa
PRINT
INPUT "    Moechten Sie nochmal (j), beenden (n), nur B aendern (b)"; weiter$
IF weiter$ = "n" THEN GOTO beenden
IF weiter$ = "b" THEN GOTO caendern
GOTO nochmal
beenden:
COLOR 7, 0
CLS
SYSTEM
'------------------------ Alles unterhalb dieser Linie Loeschen -- schnipp --

