home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C64,5 #9
/
C645_09_1997-04-20_Alliance_cs_Side_A.d64
/
paddles-program.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
148 lines
1000 print chr$(147):clr
1010 : print " prawa kirchoffa
1011 : [153] " ===============
1012 :
1020 rem program symulacyjny do nauki elektrycznosci
1021 rem w szczegolnosci : prawa ohma
1022 rem oraz : praw kirchoffa
1029 :
1099 :
1100 rem === przygotowanie ============
1101 :
1110 : rem -- funkcja zaokraglajaca --
1111 :
1120 : def fn rn(x)=int(100*x+0.5)/100
1190 :
1200 : rem -- znaki sterujace --
1201 :
1210 : kg$=chr$(145):rem kursor w gore
1220 : kl$=chr$(157):rem kursor w lewo
1230 : hm$=chr$(19) :rem kursor home
1240 : ke$=chr$(147):rem kas. ekranu
1299 :
1999 :
2000 rem === wprowadzenie =============
2001 :
2100 : rem 'pole do popisu'
2101 : rem 'tu mozesz wklepac instr.'
2999 :
3000 rem === wprow. danych i inicj.====
3001 :
3100 : print: print
3200 : print" podaj wartosci parametrow!
3210 : [153]
3290 :
3300 : [133]" napiecie zrodla [v]"; uo
3310 : [133]" calk.rezyst.potencjometru [ohm]"; rp
3320 : [133]" calk.rezyst.obciazenia [ohm]"; rv
3390 :
3500 : [143] -- wartosci poczatkowe
3501 :
3510 : ru[178]1000: [143] rez.wewn.woltom.
3520 : ra[178]0.1 : [143] rez.wewn.amperom.
3530 :
3540 : im[178]10 : [143] prad maxymalny
3998 :
3999 :
4000 [143] === schemat elektryczny ======
4001 :
4010 sz$(1)[178]"lenlenlenlen"[170]kl$[170]kl$[170]kg$[170]" "[170]kl$[170]kg$[170]" "
4020 sz$(0)[178]"to(NULL) "[170]kl$[170]kl$[170]kg$[170]"(NULL) "[170]kl$[170]kg$[170]"(NULL)"
4030 le$[178]" "[170]kl$[170]kl$[170]kl$[170]kl$[170]kl$[170]kl$
4050 :
4100 : [153] ke$
4110 [153]" orlenlenlenlenlenlenlen waitlenlenlenlenlenlenlenlenlenlenlen waitlenlenlenlenlenlenlenlenlenlen^
4120 print" [194] [194] [194] [194]
4130 [153]" peek peek peek peek
4140 print" [194] [176][177][174] [194] [176][177][174]
4150 [153]" peek peek peek peek peek peek
4160 print" [194] [194] [194] [194] [194] [194]
4170 [153]" peek peek peek peek peek peek
4180 print" [195][195][177][195][195] [194] [194] [194] [194] [194]
4190 [153]" len=len peek peek_lenlen^ peek peek peek
4200 print" [194] [194] [194] [194] [194] [194] [194]
4210 [153]" peek rp peek peek peek peek rv peek peek
4220 print" [194] [194] [194] [194] [194] [194] [194]
4230 [153]" peek peek peek peek peek /=exp
4240 print" [194] [194] [194] [194] [194] [194]
4250 [153]" peek /=exp peek (NULL)lenlenlen>lenlenlenright$ (NULL)lenlenlen>lenlenlenright$
4260 print" [194] [194] [194] [194] [194] [194] [194]
4270 [153]" peek peek peek mid$lenlenlen=lenlenlen(NULL) mid$lenlenlen=lenlenlen(NULL)
4280 print" [194] [194] [194] v [194] [194] a
4290 [153]" peek peek peek peek peek
4300 print" [194] [194] [194] [194] [194]
4310 [153]" /lenlenlenlenlenlenlenexp /lenlenlenlenlenlen waitlenlenlenlenlenlenlenlenlenlenexp
4320 print" s1 s2
4400 :
4999 :
5000 [143] == petla glowna (symulacja) ==
5001 :
5020 : [143] --- odczyt stanu paddles
5021 :
5030 : sr[178]255[171][194](56321)
5040 : dl[178][194](54297)
5050 : dr[178][194](54298)
5090 :
5100 : [143] --- wylacznik 1
5101 :
5110 : [139] sr[178]4 [167] s1[178]1[171]s1
5190 :
5200 : [143] --- potencjometr
5201 :
5210 : [139] dl[178]0 [167] dl[178]1
5220 : r1[178]rp[172]dl[173]255
5390 :
5400 : [143] --- wylacznik 2
5401 :
5410 : [139] sr[178]8 [167] s2[178]1[171]s2
5490 :
5500 : [143] --- rezystor obciazenia
5501 :
5540 : [139] dr[178]0 [167] dr[178]1
5550 : r2[178]rv[172]dr[173]255
5999 :
6000 : [143] --- obliczenia
6001 :
6010 : r3[178]1[173](1[173]r1[170]1[173]ru)
6110 :
6115 : r4[178]r2[170]ra
6120 : r5[178]1[173](1[173]r3[170]s2[173]r4)
6130 : r6[178]rp[171]r1
6140 : r[178]r5[170]r6
6190 :
6200 : u[178]s1[172]u0
6210 : i[178]u[173]r
6220 : u4[178]u[171]i[172]r6
6230 : i4[178]s2[172]u4[173]r4
6290 :
6300 : [143] --- zobrazowanie graficzne
6301 :
6400 : [151] 214,20: [143] wyl.w lini 20
6405 : [153] [199](13);
6410 : [153] [166]5);sz$(s1);[166]99);sz$(s2)
6420 :
6430 : [151] 214,15: [143] wolt.w lini15
6435 : [153] [199](13);
6440 : [153] [166]20);le$;[165] rn(u4)
6450 :
6460 : [151] 214,15: [143] amp.w lini 15
6465 : [153] [199](13);
6470 : [153] [166]31);le$;[165] rn(i4)
6490 :
6499 :
6500 : [143] --- warunek zakonczenia
6501 :
6510 : [139] i[177]im [167] 7000: [143] przepalenie bezpiecznika
6599 :
6900 : [161] t$: [139] t$[179][177]" " [167] 5020
6991 :
6995 [143] koniec petli glownej =========
6998 :
6999 :
7000 [143] === koniec ===================
7001 :
7010 : [153] hm$[170]"przepalony bezpiecznik!"
7020 :
7900 : [128]
7999 :