home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / ee3 / db-volts.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-22  |  727 b   |  19 lines
  1. 100  COLOR 4,7,1:CLS
  2. 105  PRINT "PROGRAM BY JIM ONDERKO"
  3. 110  PRINT:PRINT "        THIS PROGRAM IS USED FOR CALCULATING THE DB LOSS OF AN OUTPUT"
  4. 120  PRINT "        VOLTAGE COMPARED TO ITS REFERENCE VOLTAGE USING THE EQUATION:":PRINT
  5. 130  PRINT:PRINT:PRINT:PRINT "                          DB'S  =  20 * LOG (Vout/Vin)"
  6. 140  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT "PRESS <CR> TO START PROGRAM" ; Q$:CLS
  7. 150  PRINT:INPUT "OUTPUT VOLTAGE EQUALS";VA:CLS
  8. 160  PRINT:INPUT "REFERENCE VOLTAGE EQUALS";VOLT
  9. 170  DB = 20 * LOG (VA/VOLT) / LOG (10)
  10. 180  CLS:PRINT
  11. 190  PRINT "THE OUTPUT VOLTAGE EQUALS"VA:PRINT
  12. 200  PRINT "THE REFERENCE VOLTAGE EQUALS"VOLT:PRINT
  13. 210  PRINT "AND THE dB LOSS IS EQUAL TO "DB" dB's":PRINT:COLOR 5
  14. 220  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:INPUT "DO YOU WANT TO TRY AGAIN (Y/N)" ; H$
  15. 230  COLOR 4:IF H$ = "Y" THEN 270
  16. 250  IF H$ = "Y" THEN 100
  17. 260  END
  18. 270  CLS:GOTO 150
  19.