'----- schnipp ---------------- Alles oberhalb dieser Linie Loeschen --------
nochmal:
COLOR 14, 9
CLS
COLOR 12, 9
PRINT
PRINT "            Konstantstromquelle mit Festspannungsregler-IC "
PRINT " ----  --------------------------------------------------- "
PRINT
COLOR 14, 9
INPUT "   Wie hoch ist die Eingangsspannung der gesam. Schaltung (V)"; uein
INPUT " Wie hoch w„re die stabilisierte Ausgangsspannung des ICs (V)"; uaus
INPUT "          Wie hoch ist der maximale Ausgangstrom des ICs (mA)"; iic
INPUT "   Wie hoch soll der Konstant-Strom der Stromquelle sein (mA)"; ikonst
      
       xx = 2  'minimale zulaessige Spannungsdifferenz des ICs
     
    rs = uaus / ikonst      'Serienwiderstand in kOhm
   prs = uaus * ikonst      'max. Verlustleistung des Serienwiderstands
 ueinmin = uaus + xx           'min. Eingangsspannung des ICs
   pic = 2 * ikonst         'Verlustleistung des ICs
    rl = (uein - uaus - xx) / ikonst 'max. Groesse des Lastwider. in kOhm

PRINT
COLOR 12, 9
PRINT " ********************************************************************"
COLOR 15, 9
PRINT
PRINT " Serienwiderstand Rs in kOhm..................................:"; rs
PRINT " Verlustleistung des Rs in mW.................................:"; prs
PRINT " minimale Eingangsspannung des ICs in Volt....................:"; uein
PRINT " Verlustleistung des ICs in mW................................:"; pic
PRINT " maximale Groesse des Lastwiderstands in kOhm.................:"; rl
COLOR 12, 9
PRINT : INPUT "                   M”chten Sie nochmal (j/n)"; weiter$
IF weiter$ = "n" THEN GOTO beenden
GOTO nochmal
beenden:
'SHELL "konsticb"
COLOR 7, 0
SYSTEM
'------------------------ Alles unterhalb dieser Linie Loeschen -- schnipp --

