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