home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronics / 8.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  1.5 KB  |  28 lines
  1. 100  CLS
  2. 110  PRINT:INPUT "WHAT IS THE SUPPLY VOLTAGE ";V
  3. 120  PRINT :INPUT "WHAT IS THE EMITTER RESISTOR ";RE
  4. 130  PRINT :INPUT "WHAT IS THE COLLECTOR RESISTOR ";RL
  5. 140  PRINT :INPUT "WHAT IS THE VALUE OF THE RESISTOR FROM                                          THE SUPPLY TO THE BASE ";R1
  6. 150  PRINT :INPUT "WHAT IS THE VALUE OF THE RESISTOR FROM                                          BASE TO GROUND ";R2
  7. 160  PRINT :INPUT "SILICON OR GERMANIUM TRANSISTOR ";T$
  8. 170  T$ = LEFT$(T$,1)
  9. 180  IF T$ < > "S" AND T$ <> "s" AND T$ < > "G" AND T$ < > "g" THEN GOTO 160
  10. 190  PRINT :INPUT "WHAT IS THE VALUE OF THE EMITTER BYPASS                                         CAPACITOR IN FARADS ";C
  11. 200  VB= R2/(R1+R2)*V
  12. 210  IF T$= "S" THEN VD = 0.7: IF T$ = "G" THEN VD = 0.2
  13. 220  VE = VB - VD: IE = VE / RE: VRL = IE * RL
  14. 230  VCE = V - VRL - VE
  15. 240  IF VCE < = 0 THEN PRINT :PRINT "THE AMPLIFIER IS IN SATURATION AND IS NOT                                        USEFUL FOR LINEAR OPERATION":GOTO 400
  16. 250  IF VE < = 0 THEN PRINT :PRINT "THE AMPLIFIER IS IN CUT-OFF AND IS NOT                                          USEFULE FOR LINEAR OPERATION ":GOTO 400
  17. 260  PRINT :PRINT "THE QUIESCENT VOLTAGE FROM COLLECTOR TO EMITTER IS ";VCE;" VOLTS"
  18. 270  RS =0.025/IE:RR=0.05/IE
  19. 280  IF C=0 THEN A = RL/ (RE + RS):A2 = RL / (RE + RR): GOTO 300
  20. 290  A=RL/RS:A2=RL/RR
  21. 300  PRINT :PRINT "THE AMPLIFIER'S VOLTAGE GAIN SHOULD RANGE FROM ";A2;" TO ";A
  22. 310  IF C = 0 THEN GOTO 400
  23. 320  X = RE / 10:F = 1 / (X*6.28 * C)
  24. 330  PRINT :PRINT "THE AMPLIFIER'S FREQUENCY RESPONSE WILL EXTEND DOWN TO ";F;" Hz"
  25. 340  GOTO 400
  26. 400  PRINT :PRINT "               HIT SPACE BAR TO RETURN TO MENU"
  27. 410  K$ = INKEY$: IF K$=" " THEN RUN "MENU2" ELSE 410
  28.