home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / electrnc / mcgarret.exe / DBM2VOLT.BAS < prev    next >
BASIC Source File  |  1988-06-24  |  518b  |  19 lines
  1. 100 REM PROGRAM CONVERTS dBm TO Vrms AND V p/p
  2. 110 CLS
  3. 120 INPUT"INPUT POWER LEVEL IN dBm: ",P
  4. 122 IF P<-20 GOTO 250
  5. 130 PRINT
  6. 140 WATTS=10^((P-30)/10)
  7. 150 VRMS=SQR(50*WATTS)
  8. 160 VPP=2.818*VRMS
  9. 170 VRMS = INT(1000*VRMS+.5)/1000
  10. 180 VPP = INT(1000*VPP+.5)/1000
  11. 190 PRINT P"dBm IN 50 OHMS IS"VRMS"RMS VOLTS, OR"VPP"VOLTS PEAK TO PEAK
  12. 200 PRINT
  13. 210 INPUT"AGAIN";ANS$
  14. 220 IF ANS$="Y" THEN 110
  15. 230 IF ANS$="y" THEN 110
  16. 240 END
  17. 250 PRINT : PRINT"PROGRAM IS NOT USEFUL BELOW -20 dBm.  SORRY."
  18. 260 GOTO 200
  19.