Welcome, Guest. Please login or register.


Recent Posts

Pages: 1 [2] 3 4 5 6 7 8 9 10
11
BASIC / Re: Általános BASIC Kérdések
« Last post by geco on 2024.February.19. 22:11:37 »
Bug at the end of line 4220 :lol:
The second 4220! :lol: :lol:
:lol:
Yes, I just edited the original code, and entered 2 typos :D

corrected:
Code: [Select]
4225 CN(1)=0:CN(2)=0:CN(3)=0:CN(4)=0:CN(5)=0:CN(6)=0:CN(7)=0:CN(8)=0:CN(9)=0
12
BASIC / Re: Általános BASIC Kérdések
« Last post by BruceTanner on 2024.February.19. 18:38:50 »
de, tedd be egy másik 9-es tömbbe, a karakter kilenc sorának értékét, C(1)-C(9) legyen 0, és a for ciklusban kezdd el feltölteni a karakter értékét a másik tömbből.
Code: [Select]
4210 NUMERIC C(9)
4215 NUMERIC CN(9)
4220 C(1)=102:C(2)=255:C(3)=255:C(4)=159:C(5)=15:C(6)=159:C(7)=255:C(8)=255:C(9)=102
4220 CN(1)=0:CN(2)=0:CN(3)=0:CN(4)=0:CN(5)=0:CN(6)=0:CN(7)=0:CN(8)=0:C(9)=0
4230 FOR I=1 TO 9
4240   SET CHARACTER 0,CN(1),CN(2),CN(3),CN(4),Cn(5),CN(6),CN(7),CN(8),CN(9)
4250   FOR J=1 TO I
4260     CN(J)=C(9-I+J)
4270   NEXT J
4290 NEXT I
Bug at the end of line 4220 :lol:
The second 4220! :lol: :lol:
13
BASIC / Re: Általános BASIC Kérdések
« Last post by geco on 2024.February.19. 12:21:13 »
de, tedd be egy másik 9-es tömbbe, a karakter kilenc sorának értékét, C(1)-C(9) legyen 0, és a for ciklusban kezdd el feltölteni a karakter értékét a másik tömbből.
Code: [Select]
4210 NUMERIC C(9)
4215 NUMERIC CN(9)
4220 C(1)=102:C(2)=255:C(3)=255:C(4)=159:C(5)=15:C(6)=159:C(7)=255:C(8)=255:C(9)=102
4220 CN(1)=0:CN(2)=0:CN(3)=0:CN(4)=0:CN(5)=0:CN(6)=0:CN(7)=0:CN(8)=0:C(9)=0
4230 FOR I=1 TO 9
4240   SET CHARACTER 0,CN(1),CN(2),CN(3),CN(4),Cn(5),CN(6),CN(7),CN(8),CN(9)
4250   FOR J=1 TO I
4260     CN(J)=C(9-I+J)
4270   NEXT J
4290 NEXT I
15
BASIC / Re: Általános BASIC Kérdések
« Last post by szipucsu on 2024.February.18. 17:43:29 »
Code: [Select]
4210 NUMERIC C(9)
4220 C(1)=102:C(2)=255:C(3)=255:C(4)=159:C(5)=15:C(6)=159:C(7)=255:C(8)=255:C(9)=102
4230 FOR I=1 TO 9
4240   SET CHARACTER 0,C(1),C(2),C(3),C(4),C(5),C(6),C(7),C(8),C(9)
4250   FOR J=9 TO 2 STEP -1
4260     C(J)=C(J-1)
4270   NEXT J
4280   C(1)=0
4290 NEXT I
Ennek a fordítottját meg lehet csinálni valahogy viszonylag egyszerűen?
Itt elsüllyesztettünk egy karaktert. Most az kéne, hogy a karakter kinőjön a földből.
16
Egyéb témák / Re: Régészeti leletek
« Last post by Lacika on 2024.February.17. 23:49:35 »
LISP programozási segédletből van angol?
A magyar fordítás kritikán aluli és tele van hibákkal...
17
BASIC / Re: Általános BASIC Kérdések
« Last post by Lacika on 2024.February.17. 17:29:40 »
Én is tegnap, Win11 frissítés után másoltam Jegyzettömbből szöveg-file-ba FORTRAN programot gond nélkül :-)
18
BASIC / Re: Általános BASIC Kérdések
« Last post by szipucsu on 2024.February.17. 17:09:05 »
Jegyzettömböt használok Win10 Pro/Enterprise verziókon
Nekem Win 10 Pro van, és mentésnél át tudtam állítani ANSI-re a kódolást, újra jó lett, ahogy Zozo írta. Sima jegyzettömböt használok.

Egyébként a héten volt egy Win frissítés, és lehet, hogy ezzel lett alapértelmezett a nem ANSI-s kódolás.
A másik lehetőség, hogy a weboldalam beépített poszt-szerkesztőjével szerkesztettem a basic program listáját, és onnan jegyzettömbbe másolva állította be az UTF kódolást. (Munkahelyi gépre ugye nem lehet telepíteni emulátort, és a mailes melléklet küldése is le van tiltva, így mindezt kicselezve tudtam így szerkeszteni programot munka közben.)
19
BASIC / Re: Általános BASIC Kérdések
« Last post by Tuby128 on 2024.February.17. 16:42:47 »
Ez egy nagyon érdekes dolog. Jegyzettömböt használok Win10 Pro/Enterprise verziókon, és egyszer abba estem bele, hogy nem tud már ANSI-ba menteni.
Win10-ben már alapból UTF-fel dolgozik a jegyzettömb, és annyira extrém lett a helyzet, hogy Ansi-ba mentettem de mégis UTF maradt.
Végül aztán Notepad++ végetvetett ennek a rémálomnak.
Kezd a windows arrafelé menni ami már nekem nem tetszik.
20
Játékok / Re: Örökéletesítések
« Last post by pojo on 2024.February.16. 14:52:02 »
Enduro racer-hez kérnék idő megduplázást. Nagyon kevés az idő amit alapból ad, és a plusz idők is kevesek.

http://www.ep128.hu/Ep_Games/Prg/Enduro_Racer.rar

Idő nem fogy:
Pages: 1 [2] 3 4 5 6 7 8 9 10