home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his016 / ohms.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-11-11  |  2.9 KB  |  135 lines
  1. 10  'J.L. KELLEHER--------------ELECTRICITY MATH
  2. 20  CLS
  3. 30  PRINT ; "MENU FOR OHM'S LAW MATH PROBLEMS"
  4. 40  PRINT
  5. 50  PRINT ; "CODE","FUNCTION"
  6. 60  PRINT ; "----","--------"
  7. 70  PRINT ; "1","VOLTS"
  8. 80  PRINT ; "2","AMPS"
  9. 90  PRINT ; "3","OHMS"
  10. 100  PRINT ; "4","WATTS"
  11. 110  PRINT ; "5","END PROGRAM "
  12. 120  PRINT
  13. 130  INPUT " ENTER A CODE 1 THROUGH 5 "; A
  14. 140  IF A<1 THEN 160
  15. 150  IF A<=5 THEN 190
  16. 160  PRINT ; "CODE OUT OF RANGE , PLEASE TRY AGAIN"
  17. 170  GOTO 130
  18. 180  CLS
  19. 190  ON A GOTO 205,445,611,875,2020
  20. 200  ****************VOLTS**************************
  21. 205  CLS
  22. 210  PRINT "YOU HAVE CHOSEN TO SOLVE FOR VOLTAGE"
  23. 220  PRINT "WHICH VARIABLES DO YOU KNOW"
  24. 225  PRINT
  25. 230  PRINT "1) AMPS & OHMS"
  26. 240  PRINT "2) WATTS & AMPS"
  27. 250  PRINT "3) WATTS & OHMS"
  28. 255  PRINT
  29. 260  INPUT "CHOOSE 1,2 OR 3 DEPENDING ON WHICH VARIABLES YOU KNOW";B
  30. 270  ON B GOTO 275,330,390***
  31. 275  CLS
  32. 280  INPUT "AMPS";I
  33. 290  INPUT "OHMS";R
  34. 300  LET E = I*R
  35. 310  PRINT "VOLTAGE IS EQUAL TO ";E
  36. 320  GOTO 2000
  37. 330  CLS
  38. 340  INPUT "WATTS";P
  39. 350  INPUT "AMPS";I
  40. 360  LET E= P/I
  41. 370  PRINT "VOLTAGE IS EQUAL TO ";E
  42. 380  GOTO 2000
  43. 390  CLS
  44. 400  INPUT " WATTS";P
  45. 410  INPUT " OHMS";R
  46. 420  LET E = SQR(P*R)
  47. 430  PRINT "VOLTAGE IS EQUAL TO " ; E
  48. 440  GOTO 2000
  49. 445  CLS
  50. 449  '******************AMPS******************
  51. 450  PRINT "YOU HAVE CHOSEN TO SOLVE FOR AMPS"
  52. 460  PRINT "WHICH VARIABLES DO YOU KNOW"
  53. 470  PRINT "1) VOLTS & OHMS"
  54. 480  PRINT "2) WATTS & VOLTS"
  55. 490  PRINT "3) WATTS & OHMS"
  56. 500  INPUT "CHOOSE 1,2 OR 3 DEPENDING ON WHICH VARIABLES YOU KNOW";C
  57. 510  ON C GOTO 515,566,605************
  58. 515  CLS
  59. 520  INPUT "VOLTS";E
  60. 530  INPUT "OHMS";R
  61. 540  LET I=E/R
  62. 550  PRINT "AMPERAGE IS EQUAL TO";I
  63. 560  GOTO 2000
  64. 566  CLS
  65. 570  INPUT "WATTS";P
  66. 580  INPUT "VOLTS";E
  67. 590  LET I = P/E
  68. 600  PRINT "AMPERAGE IS EQUAL TO";I
  69. 604  GOTO 2000
  70. 605  CLS
  71. 606  INPUT "WATTS";P
  72. 607  INPUT "OHMS";R
  73. 608  LET I=SQR(P/R)
  74. 609  PRINT "AMPERAGE IS EQUAL TO";I
  75. 610  GOTO 2000
  76. 611  '*****************OHMS*******************
  77. 612  CLS
  78. 614  PRINT "YOU HAVE CHOSEN TO SOLVE FOR OHMS"
  79. 615  PRINT "WHICH VARIABLES DO YOU KNOW"
  80. 620  PRINT "1) VOLTS & AMPS"
  81. 625  PRINT "2) VOLTS & WATTS"
  82. 630  PRINT "3) WATTS & AMPS"
  83. 635  PRINT
  84. 640  INPUT "CHOOSE 1,2 OR 3 DEPENDING ON WHICH VARIABLES YOU KNOW";D
  85. 645  ON D GOTO 646, 669,709********
  86. 646  CLS
  87. 650  INPUT "VOLTS";E
  88. 655  INPUT "AMPS";I
  89. 660  LET R = E/I
  90. 665  PRINT "OHMS IS EQUAL TO";R
  91. 668  GOTO 2000
  92. 669  CLS
  93. 670  INPUT "WATTS";P
  94. 675  INPUT "VOLTS";E
  95. 685  LET R= E^2/P
  96. 690  PRINT "OHMS IS EQUAL TO";R
  97. 700  GOTO 2000
  98. 709  CLS
  99. 710  INPUT "WATTS";P
  100. 715  INPUT "AMPS";I
  101. 720  LET R= P/I^2
  102. 725  PRINT "OHMS IS EQUAL TO";R
  103. 730  GOTO 2000
  104. 875  CLS
  105. 879  '********************WATTS**********************
  106. 880  PRINT "YOU HAVE CHOSEN TO SOLVE FOR WATTS"
  107. 885  PRINT "WHICH VARIABLES DO YOU KNOW"
  108. 890  PRINT "1) VOLTS & OHMS"
  109. 895  PRINT "2) AMPS & OHMS"
  110. 900  PRINT "3) VOLTS & AMPS"
  111. 905  INPUT " CHOOSE 1,2, OR 3 DEPENDING ON WHICH VARIABLES YOU KNOW";E
  112. 910  ON E GOTO 915,932,944
  113. 915  CLS
  114. 916  INPUT "VOLTS";E
  115. 918  INPUT "OHMS";R
  116. 920  LET P= E^2/R
  117. 925  PRINT "WATTS IS EQUAL TO";P
  118. 930  GOTO 2000
  119. 932  CLS
  120. 934  INPUT "AMPS";I
  121. 936  INPUT "OHMS";R
  122. 938  LET P = I^2*R
  123. 940  PRINT "WATTS IS EQUAL TO";P
  124. 942  GOTO 2000
  125. 944  CLS
  126. 945  INPUT "VOLTS";E
  127. 950  INPUT "AMPS"; I
  128. 955  LET P=E*I
  129. 960  PRINT "WATTS IS EQUAL TO";P
  130. 970  GOTO 2000
  131. 2000  PRINT
  132. 2005  INPUT "PRESS RETURN KEY TO RETURN TO MAIN MENU" ; A$
  133. 2010  GOTO 20
  134. 2020  SYSTEM
  135.