home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / progr9.bas (.txt) < prev   
Encoding:
GW-BASIC  |  1988-10-27  |  1.6 KB  |  55 lines
  1. 900  REM  METER MULTIPLIERS AND SHUNTS
  2. 901  CLS
  3. 902  PRINT "THIS PROGRAM CALCULATES MULTIPLIER, SHUNT, INPUT, AND INTERNAL"
  4. 903  PRINT "RESISTANCES FOR UP TO SIX VOLTAGE AND SIX CURRENT RANGES."
  5. 904  PRINT
  6. 905  PRINT "ENTER ALL DATA IN BASE UNITS."
  7. 906  PRINT
  8. 907  PRINT "PLEASE ENTER THE FOLLOWING METER MOVEMENT RATNGS:"
  9. 908  INPUT; "     THE FULL-SCALE CURRENT IS"; IFS :PRINT " AMPERES"
  10. 909  INPUT; "     THE INTERNAL RESISTANCE IS"; R : PRINT " OHMS"
  11. 910  LET VFS = IFS * R
  12. 911  PRINT
  13. 912  PRINT "HOW MANY VOLTAGE RANGES ? (IF NO VOLTAGE RANGES ARE DESIRED,";
  14. 913  INPUT "ENTER 0.)", VOLTRANGES
  15. 914  IF VOLTRANGES = 0 THEN 925
  16. 915  IF VOLTRANGES > 6 OR VOLTRANGES < 0 THEN 912
  17. 916  DIM VR(VOLTRANGES)
  18. 917  FOR I = 1 TO VOLTRANGES
  19. 918  PRINT "     VOLTAGE RANGE"; I;
  20. 919  INPUT; VR(I)
  21. 920  PRINT " VOLTS"
  22. 921  IF VR(I) > VFS THEN 924
  23. 922  PRINT "    VOLTAGE RANGES MUST BE GREATER THAN"; VFS
  24. 923  GOTO 918
  25. 924  NEXT I
  26. 925  PRINT
  27. 926  PRINT "HOW MANY CURRENT RANGES? (IF NO CURRENT RANGES ARE DESIRED,";
  28. 927  INPUT "ENTER 0.", CURRANGES
  29. 928  IF CURRANGES = 0 THEN 939
  30. 929  IF CURRANGES > 6 OR CUARRANGES <0 THEN 926
  31. 930  DIM IR(CURRANGES)
  32. 931  FOR I = 1 TO CURRANGES
  33. 932  PRINT "     CURRENT RANGE"; I;
  34. 933  INPUT ; IR(I)
  35. 934  PRINT "     AMPERES"
  36. 935  IF IR(I) > IFS THEN 938
  37. 936  PRINT "     CURRENT RANGES MUST BE GREATER THAN"; IFS
  38. 937  GOTO 932
  39. 938  NEXT I
  40. 939  IF VOLTRANGES = 0 THEN 946
  41. 940  PRINT
  42. 941  PRINT "VOLTAGE RANGE"; TAB(25) "MULTIPLIER RESISTANCE" TAB(50)
  43. 942  PRINT "INPUT RESISTANCE"
  44. 943  FOR I = 1 TO VOLTRANGES
  45. 944  PRINT VR(I); TAB(25) (VR(I)-VFS)/IFS; TAB(50) VR(I)/IFS
  46. 945  NEXT I
  47. 946  IF CURRANGES = O THEN 960
  48. 947  PRINT
  49. 948  PRINT "CURRENT RANGE" TAB(25) "SHUNT RESISTANCE" TAB(50)
  50. 949  PRINT "INTERNAL RESISTANCE"
  51. 950  FOR I = 1 TO CURRANGES
  52. 951  PRINT IR(I); TAB(25) VFS/(IR(I)-IFS); TAB(50) VFS/IR(I)
  53. 952  NEXT I
  54. 960  LOCATE 25,20: INPUT ; "MORE CALCULATIONS (Y/N) ",A$: IF A$="Y"OR A$="y" THEN RUN 900 ELSE IF A$="N" OR A$="n" THEN CLS:END
  55.