home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / timers.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-07  |  4.5 KB  |  107 lines
  1. 11500  CLS
  2. 11505  PRINT
  3. 11506  PRINT "          ";:FOR A=1 TO 50:PRINT CHR$(178);:NEXT A
  4. 11507  PRINT "          WEND                                                WEND
  5. 11510  PRINT "          WEND       555 TIMER COMPUTATIONS.  OPTIONS:        WEND
  6. 11520  PRINT "          WEND                                                WEND
  7. 11530  PRINT "          WEND       1) ASTABLE MULTIVIBRATOR                 WEND
  8. 11540  PRINT "          WEND       2) MONOSTABLE MULTIVBRATOR               WEND
  9. 11550  PRINT "          WEND       3) GOTO MASTER MENU                      WEND
  10. 11551  PRINT "          WEND                                                WEND
  11. 11552  PRINT "          ";:FOR A=1 TO 50:PRINT CHR$(178);:NEXT A
  12. 11555  PRINT:PRINT
  13. 11560  PRINT "          INPUT NUMBER OF YOUR CHOICE";
  14. 11570  INPUT N
  15. 11580  IF N=1 THEN GOTO 11630
  16. 11590  IF N=2 THEN GOTO 12000
  17. 11600  IF N=3 THEN RUN "MENU"
  18. 11610  PRINT:PRINT "          INVALID ANSWER":BEEP
  19. 11620  GOTO 11560
  20. 11630  CLS
  21. 11640  PRINT "                    ASTABLE MULTIVIBRATOR":PRINT
  22. 11641  PRINT "            V+ SOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUND R1 SOUNDBSAVESOUND R2 SOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  23. 11642  PRINT "                  CALL8       CALL7     CALL6    CALL5      CALL       CALL
  24. 11643  PRINT "            VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDCOLOR   CALL       C
  25. 11644  PRINT "            CALL                               CALL   CALL       CALL
  26. 11645  PRINT "            CALL                               CALL   CALL       CALL
  27. 11646  PRINT "            CLSSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'   CALL      GND
  28. 11647  PRINT "                CALL     CALL2     CALL3     CALL4          CALL
  29. 11648  PRINT "                CALL     CALL      CALL      V+          CALL
  30. 11649  PRINT "                CALL     CALL      CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND OUTPUT
  31. 11650  PRINT "               GND    CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'
  32. 11653  PRINT
  33. 11654  PRINT "
  34. 11659  PRINT "          INPUT RESISTOR R1 VALUE IN OHMS (0 IF UNKNOWN)";
  35. 11660  INPUT R
  36. 11670  PRINT "          INPUT RESISTOR R2 VALUE IN OHMS (0 IF UNKNOWN)";
  37. 11680  INPUT S
  38. 11690  PRINT "          INPUT CAPACITOR VALUE IN FARADS (0 IF UNKNOWN)";
  39. 11700  INPUT C
  40. 11710  PRINT "          INPUT FREQUENCY IN HERTZ (0 IF UNKNOWN)";
  41. 11720  INPUT F
  42. 11730  IF R*S*C*F<>0 THEN GOTO 11980
  43. 11740  IF F=0 THEN F=1.44/((R+2*S)*C)
  44. 11750  IF C=0 THEN C=1.44/((R+2*S)*F)
  45. 11760  IF R=0 THEN R=1.44/(C*F)-2*S
  46. 11770  IF S=0 THEN S=0.72/(C*F)-R/2
  47. 11780  PRINT
  48. 11790  PRINT "          FREQUENCY = ";F;" HERTZ"
  49. 11800  PRINT "          CAPACITOR = ";C;" FARADS"
  50. 11810  PRINT "          R1 = ";R;" OHMS"
  51. 11820  PRINT "          R2 = ";S;" OHMS"
  52. 11830  PRINT "          OUTPUT HIGH TIME = ";0.693*(R+S)*C;" SECONDS"
  53. 11840  PRINT "          OUTPUT LOW TIME  = ";0.693*S*C;" SECONDS"
  54. 11850  PRINT "          PERCENT HIGH TIME= ";(R+S)/(R+2*S)*100;" PERCENT"
  55. 11860  IF ABS(S)<1000 THEN PRINT "          R2 BELOW RECOMMENDED LOWER LIMIT OF 1000 OHMS"
  56. 11870  IF R+S>3.3E+06 THEN PRINT "           R1 + R2 ABOVE RECOMMENDED UPPER LIMIT OF 3.3 MEGOHMS"
  57. 11880  IF ABS(R)<1000 THEN PRINT "          R1 BELOW RECOMMENDED LOWER LIMIT OF 1000 OHMS"
  58. 11890  IF ABS(C)<0 THEN PRINT "           CAPACITOR VALUE BELOW RECOMMENDED LOWER LIMIT OF 5E-10 FARADS"
  59. 11900  IF F>1E+06 THEN PRINT "          FREQUENCY ABOVE RECOMMENDED UPPER LIMIT OF 1 MEGAHERTZ"
  60. 11910  PRINT
  61. 11920  IF R<0 OR S<0 OR C<0 THEN PRINT "           ****  WARNING-IMPOSSIBLE COMPONENT VALUES ****"
  62. 11930  PRINT:PRINT "          INPUT 1 TO REPEAT ASTABLE MULTIVIBRATOR CALCULATION."
  63. 11940  PRINT "          INPUT 2 TO GO TO 555 TIMER MENU.";
  64. 11950  INPUT N
  65. 11960  IF N=1 THEN GOTO 11630
  66. 11970  IF N=2 THEN GOTO 11500
  67. 11980  PRINT:PRINT "          INVALID INPUT":BEEP
  68. 11990  GOTO 11930
  69. 12000  CLS
  70. 12010  PRINT "                  MONOSTABLE VIBRATOR COMPUTATION"
  71. 12020  PRINT
  72. 12021  PRINT "            V+ SOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUND R SOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR
  73. 12022  PRINT "                  CALL8       CALL7     CALL6    CALL5              CALL
  74. 12023  PRINT "            VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDCOLOR           C
  75. 12024  PRINT "            CALL                               CALL           CALL
  76. 12025  PRINT "            CALL                               CALL           CALL
  77. 12026  PRINT "            CLSSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'          GND
  78. 12027  PRINT "                CALL     CALL2     CALL3     CALL4
  79. 12028  PRINT "      INPUT SOUNDSOUNDSOUNDSOUNDCALLSOUNDSOUNDSOUNDSOUNDSOUND'      CALL      V+
  80. 12029  PRINT "                CALL            CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND OUTPUT
  81. 12030  PRINT "               GND
  82. 12031  PRINT
  83. 12032  PRINT "          INPUT RESISTOR VALUE IN OHMS (0 IF UNKNOWN)";
  84. 12040  INPUT R
  85. 12050  PRINT "          INPUT CAPACITOR VALUE IN FARADS (0 IF UNKNOWN)";
  86. 12060  INPUT C
  87. 12070  PRINT "          INPUT PULSE DURATION IN SECONDS (0 IF UNKNOWN)";
  88. 12080  INPUT D
  89. 12090  IF R*C*D<0 THEN GOTO 12250
  90. 12100  IF R=0 THEN R=D/(1.1*C)
  91. 12110  IF C=0 THEN C=D/(1.1*R)
  92. 12120  IF D=0 THEN D=1.1*R*C
  93. 12130  PRINT
  94. 12140  PRINT "          RESISTOR  = ";R;" OHMS"
  95. 12150  PRINT "          CAPACITOR = ";C;" FARADS"
  96. 12160  PRINT "          PULSE DURATION = ";D;" SECONDS"
  97. 12170  IF R>3.3E+06 THEN PRINT "            RESISTOR VALUE ABOVE RECOMMENDED UPPER LIMIT OF 3.3 MEGOHMS"
  98. 12180  IF ABS(R)<1000 THEN PRINT "            RESISTOR VALUE BELOW RECOMMENDED LOWER LIMIT OF 1000 OHMS"
  99. 12190  IF ABS(C)<0 THEN PRINT "            CAPACITOR VALUE BELOW RECOMMENDED LOWER LIMIT OF 5E-10 FARADS"
  100. 12200  PRINT:PRINT "          INPUT 1 TO REPEAT MONOSTABLE MULTIVIBRATOR CALCULATION."
  101. 12210  PRINT "          INPUT 2 TO GO TO 555 TIMER MENU.";
  102. 12220  INPUT N
  103. 12230  IF N=1 THEN GOTO 12000
  104. 12240  IF N=2 THEN GOTO 11500
  105. 12250  PRINT:PRINT "          INVALID INPUT":BEEP
  106. 12260  GOTO 12200
  107.