Welcome, Guest. Please login or register.


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

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1560 on: 2022.March.27. 09:07:20 »
De egyébként Szipucsu megoldása lesz a leggyorsabb mind közül :-) Cserébe az foglalja a legtöbb helyet.
Zzzippel úgyis le lesz fordítva, a sebesség mindegy, mindenképpen még lassítani is kell rajta. A lassításhoz célszerű, ha csak egyszer kell betenni lassító FOR-NEXT ciklust az egészbe, ebből a szempontból az enyém a legrosszabb. De nem Zzzippel fordított basic programhoz talán tényleg az a legjobb.

Közben így oldottam meg:
Code: [Select]
6531 LET A=RND(10)+1
 6532 FOR CKL=2 TO 7
 6533   LET COLV(CKL),COLV(CKL+6)=COLT(A,CKL)
 6534 NEXT
 6535 FOR CIKL=1 TO 15
 6536   FOR CKL=2 TO 7
 6537     FOR A1=1 TO 900
 6538     NEXT
 6539     SET #2:PALETTE COLT(A,1),COLV(CKL),COLV(CKL+1),COLV(CKL+2),COLV(CKL+3),COLV(CKL+4),COLV(CKL+5)
 6540   NEXT
 6541 NEXT

Annyi a lényege, hogy attribútum videolapon az alsó 7 (vagy 8?) színt cserélgesse egymással, tehát a paletta következő színe megkapja az előző színkódját, ha pedig nincs következő, akkor az elsőnek adja át a botot, persze a háttérszínt kihagyva a dologból, így jó kis vizuális effektet lehet elérni. Lehet, rosszul emlékszem, de mintha Geco is használna ilyet néhány játékban, ahol lent az Enterprise felirat alatti vonalak színei "hullámzanak" (a következő vonal színe megkapja az előző vonal színét), de lehet, hogy annak más az elve, már nem emlékszem.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1561 on: 2022.March.27. 10:01:20 »
Sima BASIC-ban azonos változó nevekkel:
szipucs:    660
geco:        236
ferro73:     260

100 szor ismételve:
szipucs:    00:01:00
geco:        00:02:50
ferro73:     00:00:54

mellékelem a tesztet


Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1562 on: 2022.June.03. 19:27:55 »
Be lehet valahogy állítani a botkormányokra olyasmit, ami a billentyűzeten a KEY DELAY? Az lenne a lényege, hogy ha pl. jobbra döntjük a botkormányt, ne menjen a krapek folyamatosan jobbra, hanem csak egyet lépjen jobbra. Csak akkor lépjen újra egyet, ha a botit elengedjük, majd újra megdöntjük.
A JOY() függvény teljesen figyelmen kívül hagyja a KEY DELAY-t, még belső joynál is. Hiába nem szól a click, de ha meg van döntve a botkormány, a JOY() függvény értéke már nem nulla.
De így belegondolva, lehet, kellene a programba egy rész, ami figyelni, volt-e 0 a JOY függvény értéke, és ha igen, akkor átállít egy változóértéket, és ezt a változóértéket figyelembe véve lépteti vagy nem lépteti a krapekot a léptetőeljárás.
Most mindjárt meg is válaszoltam a kérdésem, de azért már elküldöm ezt, ha begépeltem.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1563 on: 2022.June.03. 21:22:46 »
És ha ügyesen  írod a progit akkor akár többet is léphetne körönként.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1564 on: 2022.October.03. 22:19:04 »
Azon gondolkodtam, lehetne-e olyan basic programsort (esetleg teljes programot) írni, mely visszafele olvasva is ugyanaz. Sajnos csak a 111-es sor lesz itt ilyen:

110 LET TNIRP=1
111 PRINT TNIRP 111

vagy még:

110 DATA ATAD 011
120 REM MER 021

Ha a sorszámoktól eltekintünk, könnyebb lehet:

100 CALL LLAC
110 DEF LLAC
stb.

Gépi kódú részen is lehetne gondolkozni (HEX$ utáni, 16-os számrendszerbeli számokra gondolok), de sajnos a végén mindig C9-nek kell lennie, ami az elején viszont nem lehet.

Még ötlet? :D

100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline AoC

  • User
  • *
  • Posts: 63
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1565 on: 2022.October.04. 09:30:09 »
Még ötlet? :D

100 REM Géza kék az éG MER 001

Offline ergoGnomik

  • EP addict
  • *
  • Posts: 1291
  • Country: hu
  • Stray cat from Commodore alley
Re: Általános BASIC Kérdések
« Reply #1566 on: 2022.October.04. 10:02:55 »
L'art pour l'art nyelvi játszadozásnak nem utolsó. :D Kérdés, hogy lehet-e így működő programot írni? Nekem nem nagyon tűnik valószínűnek még úgy sem, ha megengedjük hogy a program tartalmazzon olyan segédrészeket (pl.: a DEF LLAC szipucsu példájában), amikre nem vonatkozik a megkötés. De ki is lehet erre írni egy versenyt. :mrgreen:

Offline Tomato77

  • EP user
  • *
  • Posts: 397
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1567 on: 2022.October.04. 10:50:21 »
1 ! 1
:)
Kotasoft

Offline AoC

  • User
  • *
  • Posts: 63
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1568 on: 2022.October.04. 11:00:13 »

Offline Spidermans Friend

  • EP fan
  • *
  • Posts: 175
Re: Általános BASIC Kérdések
« Reply #1569 on: 2022.December.18. 02:32:30 »
Hogy tudok egy basic programlistát txt-be, vagy bármibe konvertálni, amit a pc-n be tudok olvasni?
LLIST, virtuális nyomtatóeszközzel a windowsban? De melyik emulátor emulál nyomtatót?

Offline Tomato77

  • EP user
  • *
  • Posts: 397
  • Country: hu
    • Támogató Támogató
Re: Általános BASIC Kérdések
« Reply #1570 on: 2022.December.18. 03:00:46 »
Hogy tudok egy basic programlistát txt-be, vagy bármibe konvertálni, amit a pc-n be tudok olvasni?
LLIST, virtuális nyomtatóeszközzel a windowsban? De melyik emulátor emulál nyomtatót?

A 104-es csatornát be kell zárni, át kell irányítani egy txt fájlba, amibe az LLIST beleírja a forrást:

CLOSE #104
OPEN #104:"lista.bas" ACCESS OUTPUT
LLIST
CLOSE #104
OPEN #104:"PRINTER:" ACCESS OUTPUT

Az LLIST után mindenképp le kell zárni a csatornát, hogy a fájlt rendesen bezárja.
Kotasoft

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14722
  • Country: hu
    • http://enterprise.iko.hu/
Re: Általános BASIC Kérdések
« Reply #1571 on: 2022.December.18. 09:05:16 »
Nem kell LLIST, és #104, elég simán így:
OPEN #1:"lista.bas" ACCESS OUTPUT
LIST #1
CLOSE #1

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1572 on: 2022.December.18. 11:09:28 »
OPEN #1:"lista.bas" ACCESS OUTPUT
"lista.bas" helyett "lista.txt" még jobb, akkor egyből jegyzettömbben lehet megnyitni és szerkeszteni.
Visszaolvasni a szöveges listát a LOAD-dal lehet.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Spidermans Friend

  • EP fan
  • *
  • Posts: 175
Re: Általános BASIC Kérdések
« Reply #1573 on: 2022.December.18. 12:53:21 »
Köszi néktek, bevált! :)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1574 on: 2022.December.18. 13:00:55 »
Hogy tudok egy basic programlistát txt-be, vagy bármibe konvertálni, amit a pc-n be tudok olvasni?
Van valahol egy LUA script is az emulátorhoz, amit talán Zozo írt, és ha az lefut, akkor a LLIST (shift+F2) is kirakja txt fájlba a listát. Ez gyorsabb lehet annak, aki lassan gépeli be a parancsokat.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos