home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / engprog / powersup.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-07-05  |  3.1 KB  |  89 lines
  1. 10  CLS:P=0:EI=0:T=0:R=0:Z=0:RG=0
  2. 20  LOCATE 2,30:PRINT"POWER SUPPLY DESIGN"
  3. 30  LOCATE 4,32:PRINT"A K4EDE PROGRAM"
  4. 40  PRINT STRING$(75,"+")
  5. 45  PRINT:PRINT:PRINT"   A PROGRAM ALLOWING THE DESIGN OF DC POWER SUPPLIES BY SELECTING TYPE":PRINT:PRINT"    OF RECTIFIER AND COMPONENT PARAMETERS WITH PROVISIONS FOR REGULATED":PRINT:PRINT TAB(35) "OUTPUTS."
  6. 50  LOCATE 22,34:PRINT"PRESS ENTER"
  7. 60  Q$=INKEY$:IF Q$=""THEN 60
  8. 65  IF Q$ <> CHR$(13) THEN 60
  9. 70  CLS
  10. 80  INPUT"ENTER FULL SECONDARY RMS VOLTAGE";T:PRINT:PRINT"    SELECT TYPE OF RECTIFIER":PRINT:PRINT"          HALF WAVE   H":PRINT"          FULL WAVE   F":PRINT"          BRIDGE      B":INPUT A$:IF A$="H"THEN P=T*1.414-0.7
  11. 90  IF A$="F"THEN P=T*0.707-1.4
  12. 100  IF A$="B"THEN P=T*1.414-1.4
  13. 110  IF P=0 THEN 80
  14. 120  PRINT:PRINT:INPUT"ENTER FILTER CAP. IN MFD ";C:C=C/1E+06:PRINT:PRINT"WHAT IS DESIRED OUTPUT NEEDED ":INPUT"ENTER MILLIAMPERES ";MA:CLS:R=T/(MA/1000):IF A$="H" THEN GOSUB 250
  15. 130  IF A$="F" THEN GOSUB 260
  16. 140  IF A$="B" THEN GOSUB 260
  17. 150  IF Z=0 THEN 100
  18. 160  V=P-Z/2:PRINT:PRINT"DC OUTPUT VOLTAGE IS ";:PRINT USING"##.#";V;:PRINT" VOLTS":PRINT:PRINT"OUTPUT CURRENT IS ";MA;" MA":PRINT:PRINT"PEAK TO PEAK RIPPLE IS ";:PRINT USING"##.#";Z;:PRINT" VDC"
  19. 170  RP=(Z/V)*100:PRINT:PRINT"RIPPLE = ";:PRINT USING"##.#";RP;:PRINT" %":PRINT
  20. 180  GOSUB 270
  21. 190  PRINT:PRINT
  22. 200  GOTO 590
  23. 210  PRINT:PRINT"ANOTHER DESIGN? Y/N":INPUT Q$:IF Q$="Y" THEN 10
  24. 220  IF Q$="N" THEN 240
  25. 230  CLS:GOTO 350
  26. 240  CLS:LOCATE 12,36:PRINT"THE END":RUN"MAINMENU"
  27. 250  Z=P/(60*R*C):RETURN
  28. 260  Z=P/(120*R*C):RETURN
  29. 270  IF Z>3 THEN 550
  30. 280  IF V>35 THEN GOSUB 810
  31. 290  PRINT"DO YOU INTEND TO FEED THIS POWER SUPPLY INTO A REGULATOR?":PRINT:PRINT"   ENTER Y OR N";:INPUT G$:IF G$="Y" THEN 320
  32. 300  IF G$="N" THEN RETURN
  33. 310  CLS:GOTO 290
  34. 320  EI=V
  35. 330  CLS:PRINT"  SELECT REGULATOR TYPE:":PRINT:PRINT"UNREGULATED OUTPUT VOLTAGE IS ";:PRINT USING"##.#"; EI:    PRINT:PRINT"24.0 V  7824  (1)":PRINT"15.0 V  7815  (2)":PRINT"12.0 V  7812  (3)":PRINT"10.0 V  7810  (4)":PRINT" 8.0 V  7808  (5)"
  36. 335  PRINT" 5.0 V  7805  (6)":INPUT K:ON K GOTO 340,350,360,370,380,390
  37. 340  RG=24:IF EI<27 THEN 740
  38. 350  RG=15:IF EI<18 THEN 740
  39. 360  RG=12:IF EI<15 THEN 520
  40. 370  RG=10:IF EI<13 THEN 520
  41. 380  RG=8:IF EI<11 THEN 520
  42. 390  RG=5:IF EI<8 THEN 520
  43. 400  L=V-Z
  44. 410  IF L<RG THEN 550
  45. 420  J=V-RG
  46. 430  IF J>7 THEN GOSUB 580
  47. 440  IF Z<3 THEN 460
  48. 450  IF Z>3 THEN PRINT"DESIGN OK BUT RIPPLE HIGH":GOTO 480
  49. 460  PRINT:V$="CONGRATULATIONS A GOOD DESIGN!":PRINT
  50. 470  PRINT V$
  51. 480  LOCATE 22,33:PRINT"PRESS ANY KEY"
  52. 490  M$=INKEY$:IF M$=""THEN 490
  53. 500  CLS
  54. 510  GOTO 190
  55. 520  PRINT:PRINT"YOU NEED HIGHER OUTPUT":PRINT"VOLTAGE TO FEED REGULATOR":PRINT"SELECTED":PRINT"PRESS ANY KEY":V$="BAD DESIGN"
  56. 530  M$=INKEY$:IF M$=""THEN 530
  57. 540  GOTO 190
  58. 550  PRINT:PRINT"RIPPLE TOO HIGH ?":PRINT"CHANGE DESIGN PARAMETERS":PRINT"E.G. INCREASE C OR DECREASE LOAD":PRINT"PRESS ANY KEY":V$="BAD DESIGN"
  59. 560  M$=INKEY$:IF M$=""THEN 560
  60. 570  CLS:GOTO 710
  61. 580  PRINT"WATCH REGULATOR DISSIPATION!":PRINT:GOTO 440
  62. 590  CLS:PRINT"DESIGN CRITERIA USED":PRINT
  63. 600  PRINT"XFORMER SEC. E   ";TAB(20)T
  64. 610  IF A$="H"THEN A$="HALF WAVE"
  65. 620  IF A$="F"THEN A$="FULL WAVE"
  66. 630  IF A$="B"THEN A$="BRIDGE"
  67. 640  PRINT"TYPE RECTIFIER   ";TAB(21)A$
  68. 650  PRINT"FILTER CAP MFD   ";TAB(20)C*1E+06
  69. 660  PRINT"OUTPUT CURRENT MA";TAB(20)MA
  70. 670  PRINT"OUTPUT VOLTAGE   ";:PRINT TAB(21);:PRINT USING"##.#";V;:PRINT" UNREGULATED"
  71. 680  PRINT"RIPPLE  VOLTS    ";:PRINT TAB(21);:PRINT USING"##.#";Z
  72. 690  IF K=1 THEN KK=7824:RV= 24:GOTO 750
  73. 700  IF K=2 THEN KK=7815:RV= 15:GOTO 750
  74. 710  IF K=3 THEN KK=7812:RV= 12:GOTO 750
  75. 720  IF K=4 THEN KK=7810:RV= 10:GOTO 750
  76. 730  IF K=5 THEN KK=7808:RV= 8:GOTO 750
  77. 740  IF K=6 THEN KK=7805:RV= 5
  78. 750  PRINT:PRINT"REGULATOR TYPE USED IS   ";KK;
  79. 755  PRINT"  THEREFORE REGULATED OUTPUT VOLTAGE IS ";RV;" VDC."
  80. 760  PRINT:PRINT V$
  81. 770  PRINT:PRINT
  82. 780  PRINT"PRESS ANY KEY"
  83. 790  M$=INKEY$:IF M$="" THEN 790
  84. 800  CLS:GOTO 210
  85. 810  PRINT:PRINT"OUTPUT VOLTAGE TOO HIGH":PRINT"FOR 78XX REGULATORS"
  86. 820  PRINT"HIT ENTER"
  87. 830  Q$=INKEY$:IF Q$="" THEN 830
  88. 840  GOTO 190
  89.