home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / misc / hamutil2 / op-amp.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  1.5 KB  |  41 lines
  1. 100  CLS :REM "OP-AMP"
  2. 110  REM A.KASS-1984
  3. 120  PRINT TAB(17);"**** OP-AMP VOLTAGE and DB GAIN CALCULATOR ****" :PRINT
  4. 130  PRINT :PRINT "ENTER TWO RESISTORS or ONE RESISTOR and a GAIN VALUE"
  5. 140  PRINT :PRINT "NOTE: RESISTORS LIMITED TO 10 MEG OHMS";
  6. 150  PRINT "; ENTER 0 FOR ALL UNKNOWNS." :PRINT
  7. 160  PRINT :BEEP :INPUT "ENTER Rin (K-OHMS)";RI :IF RI>10^4 THEN 490
  8. 170  PRINT :BEEP :INPUT "ENTER Rf  (K-OHMS)";RF :IF RF>10^4 THEN 490
  9. 180  IF RI=0 AND RF=0 THEN 490
  10. 190  PRINT :BEEP :INPUT "ENTER VOLTAGE GAIN ";AV
  11. 200  PRINT :BEEP :INPUT "ENTER DECIBEL GAIN ";DB
  12. 210  IF AV=0 THEN AV=10^(DB/20)
  13. 220  IF RI=0 THEN RI=RF/AV
  14. 230  IF RF=0 THEN RF=RI*AV
  15. 240  IF AV=0 OR DB=0 THEN AV=RF/RI
  16. 250  DB=20*(LOG(AV)/LOG(10))
  17. 260  CLS :PRINT "BASED ON THE ABOVE ENTRIES:" :PRINT
  18. 270  PRINT "INPUT    R=";INT(RI*10)/10;"K-OHMS"
  19. 280  PRINT "FEEDBACK R=";INT(RF*10)/10;"K-OHMS" :PRINT
  20. 290  PRINT "VOLTAGE GAIN=";INT(AV*100)/100
  21. 300  PRINT "DECIBEL GAIN=";INT(DB*100)/100;"DB"
  22. 310  PRINT :PRINT "IF in the INVERTING MODE    INPUT R=";INT(RI*10)/10;"K-OHMS"
  23. 320  PRINT :PRINT "IF NON-INVERTING MODE INPUT BIAS RF=";INT(RF*10)/10;"K-OHMS"
  24. 330  PRINT :BEEP :PRINT "HARD COPY REQUIRED? (Y/N)"
  25. 340  P$=INKEY$ :IF P$="" THEN 340
  26. 350  IF P$="N" THEN 440
  27. 360  IF P$<>"Y" THEN 340
  28. 370  LPRINT TAB(27);"*** OP-AMP CALCULATOR ***" :LPRINT
  29. 380  LPRINT TAB(10);"INPUT  R=";INT(RI*10)/10;"K-OHMS";
  30. 390  LPRINT TAB(40);"FEEDBACK  R=";INT(RF*10)/10;"K-OHMS"
  31. 400  LPRINT TAB(10);"VOLTAGE GAIN =";INT(AV*100)/100;
  32. 410  LPRINT TAB(40);"DECIBEL GAIN =";INT(DB*100)/100;"DB" :LPRINT
  33. 420  LPRINT TAB(10);"IF in the INVERTING MODE    INPUT R=";INT(RI*10)/10;"K-OHMS"
  34. 430  LPRINT TAB(10);"IF NON-INVERTING MODE INPUT BIAS RF=";INT(RF*10)/10;"K-OHMS"
  35. 440  PRINT :BEEP :PRINT "CONTINUE? (Y/N)"
  36. 450  A$=INKEY$ :IF A$="" THEN 450
  37. 460  IF A$="Y" THEN 100
  38. 470  IF A$="Y" THEN 100
  39. 480  IF A$<>"N" THEN 450 ELSE END
  40. 490  PRINT :PRINT "DATA ENTERED INCORRECTLY" :PRINT :PRINT :GOTO 160
  41.