home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / res.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-05  |  3.8 KB  |  115 lines
  1. 10  CLS
  2. 20  CLEAR
  3. 30  PRINT:PRINT
  4. 40  PRINT "           ";:FOR A=1 TO 58:PRINT CHR$(178);:NEXT A
  5. 50  PRINT "           WEND                                                        WEND
  6. 60  PRINT "           WEND          RESISTOR CIRCUITS MENU.  OPTIONS:             WEND
  7. 70  PRINT "           WEND                                                        WEND
  8. 80  PRINT "           WEND          1) SERIES AND PARALLEL RESISTORS              WEND
  9. 90  PRINT "           WEND          2) OHM'S LAW                                  WEND
  10. 100  PRINT "           WEND          3) VOLTAGE DIVIDER                            WEND
  11. 110  PRINT "           WEND          4) GO TO MASTER MENU                          WEND
  12. 120  PRINT "           WEND                                                        WEND
  13. 130  PRINT "           ";:FOR A=1 TO 58:PRINT CHR$(178);:NEXT A
  14. 140  PRINT:PRINT:PRINT:
  15. 150  PRINT "           INPUT THE NUMBER OF YOUR CHOICE";
  16. 160  INPUT N
  17. 170  IF N=1 THEN GOTO 220
  18. 180  IF N=2 THEN GOTO 460
  19. 190  IF N=3 THEN GOTO 790
  20. 200  IF N=4 THEN RUN "MENU"
  21. 210  IF N<1 OR N>4 THEN BEEP:GOTO 10
  22. 220  CLS
  23. 230  T=0
  24. 240  P=0
  25. 250  PRINT:PRINT:PRINT
  26. 260  PRINT "                  SERIES/PARALLEL RESISTOR COMPUTATION"
  27. 270  PRINT
  28. 280  PRINT "                       INPUT HOW MANY RESISTORS";
  29. 290  INPUT N
  30. 300  PRINT
  31. 310  FOR M=1 TO N
  32. 320  PRINT "                      INPUT VALUE OF R";M;" IN OHMS";
  33. 330  INPUT X
  34. 340  T=T+X
  35. 350  P=P+1/X
  36. 360  NEXT M
  37. 370  PRINT:PRINT "                       SERIES RESISTANCE = ";T
  38. 380  PRINT "                       PARALLEL RESISTANCE = ";1/P
  39. 390  PRINT:PRINT "               INPUT 1 TO REPEAT SERIES/PARALLEL COMPUTATION."
  40. 400  PRINT "               INPUT 2 TO GO TO RESISTOR MENU.";
  41. 410  INPUT N
  42. 420  IF N=1 THEN GOTO 220
  43. 430  IF N=2 THEN GOTO 10
  44. 440  PRINT:PRINT "               INVALID INPUT":BEEP
  45. 450  GOTO 390
  46. 460  CLS
  47. 470  PRINT "                         OHM'S LAW COMUTATION"
  48. 480  PRINT:PRINT
  49. 490  PRINT "                                    E                       E
  50. 500  PRINT "          E = IR                R = -                   I = -
  51. 510  PRINT "                                    I                       R
  52. 520  PRINT:PRINT
  53. 530  PRINT "         YOU WILL BE ASKED FOR VOLTAGE, CURRENT, AND RESISTANCE."
  54. 540  PRINT
  55. 550  PRINT "         ANSWER 0 FOR THE ONE YOU DO NOT KNOW.
  56. 560  PRINT
  57. 570  PRINT "         INPUT VOLTAGE ACROSS RESISTOR IN VOLTS";
  58. 580  INPUT V
  59. 590  PRINT "         INPUT CURRENT THROUGH RESISTOR IN AMPS";
  60. 600  INPUT C
  61. 610  PRINT "         INPUT RESISTANCE OF RESISTOR IN OHMS";
  62. 620  INPUT R
  63. 630  IF V=0 THEN V=C*R
  64. 640  IF C=0 THEN C=V/R
  65. 650  IF R=0 THEN R=V/C
  66. 660  PRINT
  67. 670  PRINT "              VOLTAGE = ";V;" VOLTS."
  68. 680  PRINT "              CURRENT = ";C;" AMPS."
  69. 690  PRINT "              RESISTANCE = ";R;" OHMS."
  70. 700  PRINT "              POWER CONSUMPTION = ";V*C;" WATTS."
  71. 710  PRINT
  72. 720  PRINT "          INPUT 1 TO REPEAT OHM'S LAW COMPUTATION."
  73. 730  PRINT "          INPUT 2 TO GO TO RESISTOR MENU.";
  74. 740  INPUT N
  75. 750  IF N=1 THEN GOTO 460
  76. 760  IF N=2 THEN GOTO 10
  77. 770  PRINT:PRINT "              INVALID INPUT":BEEP
  78. 780  GOTO 720
  79. 790  CLS
  80. 800  PRINT "                         VOLTAGE DIVIDER CIRCUIT"
  81. 810  PRINT:PRINT
  82. 820  PRINT "        VARPTR<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND TOTAL VOLTAGE ACROSSS RESISTORS SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>COLOR
  83. 830  PRINT "        CALL                                                       CALL
  84. 840  PRINT "        CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND R2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL
  85. 850  PRINT "        CALL                           CALL                           CALL
  86. 860  PRINT "        CLS<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND V1 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>CALL<SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND V2 SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND>'
  87. 870  PRINT:PRINT
  88. 880  PRINT "             INPUT VALUE OF R1 IN OHMS (0 IF UNKNOWN)";
  89. 890  INPUT M
  90. 900  PRINT "             INPUT VALUE OF R2 IN OHMS";
  91. 910  INPUT N
  92. 920  PRINT "             INPUT VOLTAGE V ACROSS R1-R2 COMBINATION";
  93. 930  INPUT V
  94. 940  IF M<>0 THEN GOTO 1020
  95. 950  PRINT "             INPUT DESIRED VOLTAGE ACROSS R2";
  96. 960  INPUT X
  97. 970  PRINT
  98. 980  PRINT "             VALUE OF R1 = ";(V-X)*N/X;" OHMS"
  99. 990  PRINT "             VOLTAGE ACROSS R1 = ";V-X;" VOLTS"
  100. 1000  C=X/N
  101. 1010  GOTO 1060
  102. 1020  C=V/(M+N)
  103. 1030  PRINT
  104. 1040  PRINT "             VOLTAGE ACROSS R1 = ";C*M;" VOLTS."
  105. 1050  PRINT "             VOLTAGE ACROSS R2 = ";C*N;" VOLTS."
  106. 1060  PRINT "             CURRENT THROUGH R1 AND R2 = ";C;" AMPS."
  107. 1070  PRINT "             TOTAL POWER LOSS IN R1 AND R2 = ";C*V;" WATTS."
  108. 1080  PRINT:PRINT "             INPUT 1 TO REPEAT VOLTAGE DIVIDER COMPUTATION."
  109. 1090  PRINT "             INPUT 2 TO GO TO RESISTOR MENU.";
  110. 1100  INPUT N
  111. 1110  IF N=1 THEN GOTO 790
  112. 1120  IF N=2 THEN GOTO 10
  113. 1130  PRINT:PRINT "             INVALID INPUT":BEEP
  114. 1140  GOTO 1080
  115.