home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_2_1992_-_de.d64 / spannungsteiler (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  125 lines
  1. 10 rem spannungsteiler ====c64/c128
  2. 80 rem c64/c128
  3. 90 rem ============================
  4. 95 gosub 60000
  5. 100 poke53280,0:poke53281,0
  6. 110 printhe$he$cl$ro$;:printrn$"            spannungsteiler             "
  7. 120 printc4$bl$                                    "
  8. 130 [153]c4$c4$rn$" e "rf$"instellbarer spannungsteiler"
  9. 135 [153]c4$c4$rn$" b "rf$"elasteter spannungsteiler"
  10. 140 [153]wh$[200](qd$,7)[200](qr$,10)rn$"bitte waehlen sie "
  11. 150 [141]950:[139]a$[178]"b"[167] 170
  12. 160 [139]a$[178]"e"[167] 680
  13. 165 [137]150
  14. 170 [151]53280,0:[151]53281,0:[137]350
  15. 180 [153]wh$cl$;
  16. 190 [153]rn$"        belasteter spannungsteiler     "
  17. 200 [153]
  18. 210 [153]bl$"      (NULL)"zm$zm$zm$zm$zm$"(NULL)"
  19. 220 [153]"            "z9$"       "rn$ye$"berechnung der u2"bl$
  20. 230 [153]"      "zj$"     (NULL)(NULL)"
  21. 240 [153]"          r1"zj$z9$
  22. 250 [153]"      "zj$"     (NULL)"zp$
  23. 260 [153]"             "zj$
  24. 270 [153]"      "zj$"      (NULL)"zm$zm$zm$zm$zm$"(NULL)"zm$zm$zm$zm$zm$zm$zm$zm$"(NULL)"
  25. 280 [153]"    u(NULL)(NULL)      "z9$"     "z9$[200](q2$,9)
  26. 290 [153]"      "[200](q2$,7)"(NULL)(NULL)    (NULL)(NULL)       "z9$
  27. 300 [153]"      "zj$"    r2"zj$z9$"  rl"zj$z9$"       "
  28. 310 [153]"             (NULL)"zp$"    (NULL)"zp$"       "z9$
  29. 320 [153]"      "zj$"       "zj$[200](q2$,5)zj$"    "fl$"u2"fo$" (NULL)(NULL)"
  30. 330 [153]"              "zj$[200](q2$,4)" "zj$"         "
  31. 340 [153]"      (NULL)"ze$ze$ze$ze$ze$ze$ze$"(NULL)"ze$ze$ze$ze$ze$"(NULL)"ze$ze$ze$ze$ze$ze$ze$zp$" "
  32. 341 [153]gr$:[142]
  33. 350 [141]180:[153]gr$
  34. 360 [153]rn$"teilwiderstand r1   "rf$;:[133]a
  35. 370 [153]c4$rn$"teilwiderstand r2   "rf$;:[133]b
  36. 380 [153]c4$rn$"lastwiderstand rl   "rf$;:[133]c
  37. 390 [153]c4$rn$"gesamtspannung u    "rf$;:[133]d
  38. 391 [139]c[179][177]0[175]b[179][177]0[167]400
  39. 392 [139]a[179][177]0[167]z[178]0:[137]420
  40. 393 [141]180:[153]:[153]"         "rn$"kurzschluss":[129]l[178]1[164]2000:[130]:[137]350
  41. 400 x[178]a[172](c[170]b)[173](c[172]b)[170]1
  42. 410 z[178]d[173]x
  43. 420 [141]180:[153]"     teilspannung bei belastung (u2)="
  44. 430 [153]
  45. 440 [153]"             "z"volt"
  46. 450 [153]wh$c4$c4$rn$[200](qr$,7)"noch eine berechnung (j/n)"
  47. 460 a[178]0:b[178]0:c[178]0:d[178]0:[141]950:[139]a$[178]"j"[167] 350
  48. 470 [139]a$[178]"n"[167][138]
  49. 475 [137]460
  50. 480 [143]
  51. 490 [143]* einstellbarer spannungsteiler *
  52. 500 [143]
  53. 510 [153]wh$cl$rn$"      einstellbarer spannungsteiler    "rf$
  54. 520 [153]bl$
  55. 530 [153]"                  (NULL)"
  56. 540 [153]"    (NULL)"zm$zm$zm$"(NULL)      (NULL)"zm$"(NULL)"zm$"(NULL)  "
  57. 550 [153]" (NULL)"zm$zm$"(NULL)"ze$ze$ze$zp$zm$zm$zm$"(NULL)"zm$zm$"(NULL)"ze$zp$ze$zp$zm$zm$zm$zm$zm$zm$zm$"(NULL)"
  58. 560 [153]"            (NULL)"ze$ze$ze$ze$zp$"         "z9$
  59. 570 [153]" "zj$"                         "z9$
  60. 580 [153]"                           (NULL)(NULL)"
  61. 590 [153]" "zj$"                       rl"zj$z9$
  62. 600 [153]"(NULL)(NULL)                         "zj$z9$
  63. 610 [153]"                           (NULL)"zp$
  64. 620 [153]" "zj$"                         "z9$" "
  65. 630 [153]"                           "z9$
  66. 640 [153]" (NULL)"[170][200](q$,25)[170]zp$
  67. 650 [151]xr,5:[151]yr,2:[158]65520:[153]fl$"rv"fo$
  68. 651 [151]xr,15:[151]yr,2:[158]65520:[153]fl$"rp"fo$
  69. 652 [151]xr,2:[151]yr,9:[158]65520:[153]"ue":[151]xr,29:[151]yr,7:[158]65520:[153]"ua max."
  70. 660 [151]xr,29:[151]yr,10:[158]65520:[153]"ua min.":[153][200](qd$,3):[142]
  71. 670 [143]
  72. 680 [141]510:[153]lr$rn$"berechnungsbeispiel:"wh$
  73. 690 [153]c4$"am rl  von  500 ohm  soll  die spannung"
  74. 700 [153]"ua min 5 volt bis 9 volt einstellbar "
  75. 710 [153]"sein. ue=12 volt."
  76. 720 [153]rn$"gesucht:"rf$bl$" rv und rp "
  77. 730 [153]ro$c4$c4$rn$"          weiter mit taste w           "
  78. 740 [141]950:[139]a$[179][177]"w"[167]740
  79. 750 [141]510:[153]ro$rn$"            ihre eingaben:             "
  80. 760 [153]gr$c4$rn$"eingangsspannung ue   "rf$;:[133]a
  81. 770 [153]           c4$rn$"ausgangsspannung max. "rf$;:[133]b
  82. 780 [153]           c4$rn$"ausgangsspannung min. "rf$;:[133]c
  83. 790 [153]           c4$rn$"lastwiderstand rl     "rf$;:[133]e
  84. 800 [141]510:[153]c4$c4$
  85. 810 [153]wh$c4$[200](qr$,11)"bitte warten ...":[129]l[178]1[164]800:[130]l
  86. 815 [139][168](a[179]b[176]a[179]c[176]b[179]c[176]c[179][178]0)[167]840
  87. 820 [153]cl$c4$c4$c4$[200](qr$,9)wh$rn$"technisch nicht moeglich"
  88. 830 [129]l[178]1[164]1000:[130]l:[137]750
  89. 840 [141]510
  90. 850 x[178]a[173]b[171]1
  91. 860 rv[178]e[172]x
  92. 870 [153]lr$rn$"                ergebnis:              "wh$
  93. 880 [153]c4$c4$"   vorwiderstand (rv) ="rv"ohm "
  94. 890 z[178]a[173]c[171]1:rp[178]z[172]e[171]rv
  95. 900 [153] c4$"widerstand d.poti(rp) ="rp"ohm "
  96. 910 [153]
  97. 920 [153]ro$c4$rn$[200](qr$,8)"noch eine berechnung (j/n)"
  98. 930 a[178]0:b[178]0:c[178]0:e[178]0:[141]950:[139]a$[178]"j"[167]750
  99. 940 [139] a$[178]"n"[167] [138]
  100. 945 [137]930
  101. 950 [161]a$:[139]a$[178]""[167]950
  102. 951 [142]
  103. 60000 [143] nachspann ===============
  104. 60010 [143] * farbcodes/steuercodes *
  105. 60020 wh$[178][199](005):c4$[178][199](017)
  106. 60030 rn$[178][199](018):he$[178][199](019)
  107. 60040 c3$[178][199](029):fl$[178][199](130)
  108. 60050 fo$[178][199](132):rf$[178][199](146)
  109. 60060 cl$[178][199](147):ye$[178][199](158)
  110. 60070 [143] *** zeichensatz/graphik *
  111. 60080 s2$[178][199](160):z9$[178][199](170)
  112. 60090 ze$[178][199](175):zj$[178][199](180)
  113. 60100 zm$[178][199](183):zp$[178][199](186)
  114. 60101 ro$[178][199](150):lr$[178][199](158)
  115. 60102 gr$[178][199](153):lb$[178][199](154)
  116. 60103 yr[178]781:xr[178]782:[139][194](772)[179][177]124[167]yr[178]7:xr[178]8
  117. 60110 [143] ********* zeichenfolgen *
  118. 60120 [129] q[178]1 [164] 40
  119. 60130 q2$[178]q2$[170]s2$:qd$[178]qd$[170]c4$
  120. 60140 qr$[178]qr$[170]c3$:qe$[178]qe$[170]ze$
  121. 60150 [130] q
  122. 60160 [142]
  123. 60170 [143] spannungsteiler =c64/c128
  124. 60180 [143] =ende====================
  125.