Welcome, Guest. Please login or register.


Author Topic: Általános BASIC Kérdések (Read 418724 times)

Offline Tuby128

  • EP addict
  • *
  • Posts: 1436
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1605 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.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9842
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1606 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.)
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Lacika

  • EP addict
  • *
  • Posts: 3182
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1607 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 :-)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9842
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1608 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.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline geco

  • EP addict
  • *
  • Posts: 7013
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1609 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

Offline BruceTanner

  • EP lover
  • *
  • Posts: 607
  • Country: gb
Re: Általános BASIC Kérdések
« Reply #1610 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:

Offline geco

  • EP addict
  • *
  • Posts: 7013
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1611 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

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9842
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1612 on: 2024.February.19. 22:32:38 »
Yes, I just edited the original code, and entered 2 typos :D
Csak a sorszám volt probléma? Más nem volt?
Was the problem only the line number? Nothing else?

Köszi az ötletet! Na, én ezért sem lennék programozó, mert az ilyen egyszerű dolgokat nem tudom megoldani.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9842
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1613 on: 2024.February.20. 00:00:50 »
Csak a sorszám volt probléma? Más nem volt?
Most nézem, az utolsó CN végéről lemaradt az N, pótoltam.
A karakter nem alulról nő ki, hanem fölülről jön le. Ezt még meg tudnátok csinálni, hogy alulról nőjön ki?
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline geco

  • EP addict
  • *
  • Posts: 7013
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1614 on: 2024.February.20. 09:29:16 »
óóó persze, mert az 1. érték a teteje, és nem az alja :D
Persze

Offline geco

  • EP addict
  • *
  • Posts: 7013
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1615 on: 2024.February.20. 09:39:21 »
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
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
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(9-I+J)=C(9-I+J)
4270   NEXT J
4290 NEXT I

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9842
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1616 on: 2024.February.20. 14:49:04 »
Persze
Köszi! :smt041
Biztos egyszerű az ilyeneket megcsinálni, de nekem semmi érzékem az ilyen programozáshoz...

És ha egyszerre úszna be alulról és fölülről is a karakter, ahhoz kellene még egy tömb, az lenne a CNN? :D (Erre már nincs szükség amúgy.)
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9842
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1617 on: 2024.February.20. 16:55:09 »
óóó persze, mert az 1. érték a teteje, és nem az alja :D
Most nézem, ez kirajzolja a karaktert úgy, hogy először az alját rajzolja ki, és úgy megy felfelé pixelsoronként. Én arra gondoltam, hogy először a legteteje jelenik meg alul, az menne felfelé, és így a többi része is. Mint amikor pl. egy csatornából kidugja a fejét egy ember, aki beleesett. Most próba szerencse alapon átírtam ezt:

Code: [Select]
4260     CN(9-I+J)=C(9-I+J)
Erre:

Code: [Select]
4260     CN(9-I+J)=C(J)
És pont azt csinálja, amire gondoltam. Hogy miért, azt nem tudom, de a korábbi programrészben is csak J volt az egyik függvény értéktartományában:

Code: [Select]
4260     CN(J)=C(9-I+J)
Így gondoltam, beteszem ide is, és bejött.
Nem rossz, hogy ilyen sokféle karakterbeúsztató effektünk van már, ezeket fel lehetne használni demókban, játékokban.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline geco

  • EP addict
  • *
  • Posts: 7013
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1618 on: 2024.February.20. 17:50:42 »
Igen, pont a kocsiban hazafelé jutott eszembe, hogy amit eredetileg írtam, az nem pont az, amire gondoltál, és ez kell helyette:

Code: [Select]
CN(9-I+J)=C(J)