Welcome, Guest. Please login or register.


Author Topic: String elemeinek összekeverésén alapuló program (Read 16465 times)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10108
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: String elemeinek összekeverésén alapuló program
« Reply #45 on: 2024.October.03. 12:35:36 »
Picit szépítettem a programon, de ez lehet, csak a basic programlistában vehető észre. Ha nincs más javaslat, lehet ez a végleges változat.
---
I have made the program a little better but it may only be noticed in the basic program list. If there are no other suggestions, this may be the final version.
---
Я трохи покращив програму, але її можна побачити лише в основному списку програм. Якщо немає інших пропозицій, це може бути остаточна версія.
---
Ich habe das Programm etwas verbessert, aber es soll nur in der Programmliste gesehen werden. Wenn es keine weiteren Vorschläge gibt, kann es die endgültige Version sein.
---
He mejorado un poco el programa, pero es posible que solo se ve en la lista de programa. Si no hay otras sugerencias, esto puede ser la versión final.

[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1016
  • Country: hu
Re: String elemeinek összekeverésén alapuló program
« Reply #46 on: 2024.October.03. 18:35:07 »
Kicsit feleslegesnek látom.
Code: [Select]
940 DO
  950   FOR A=0 TO 2
  960     PRINT #12:CHR$(27)&"I"&CHR$(250+A)&"PRESS FIRE"
  970     IF JOY(0)>=16 THEN LET JY=0:GOTO 1020
  980     IF JOY(1)>=16 THEN LET JY=1:GOTO 1020
  990     IF JOY(2)>=16 THEN LET JY=2:GOTO 1020
 1000   NEXT
 1010 LOOP
 

helyette
Code: [Select]
940 DO
  950   FOR A=0 TO 2
  960     PRINT #12:CHR$(27)&"I"&CHR$(250+A)&"PRESS FIRE"
  970     IF JOY(0)+JOY(1)+JOY(2)>=16 THEN 1020
 1000   NEXT
 1010 LOOP
A JY változót nem használod máshol PL.:
"
Code: [Select]
1060   SELECT CASE JOY(0)+JOY(1)+JOY(2)"
 Így elsőre.

Offline Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14779
  • Country: hu
    • http://enterprise.iko.hu/
Re: String elemeinek összekeverésén alapuló program
« Reply #47 on: 2024.October.03. 18:44:09 »
 970     IF JOY(0)+JOY(1)+JOY(2)>=16 THEN 1020

Ez akkor is teljesül, ha két joyon nyomunk felt. Vagy egyen fel és kettőn le...
Plusz helyett BOR kell.

Offline Ferro73

  • EP addict
  • *
  • Posts: 1016
  • Country: hu
Re: String elemeinek összekeverésén alapuló program
« Reply #48 on: 2024.October.03. 19:18:55 »
Ez akkor is teljesül, ha két joyon nyomunk felt. Vagy egyen fel és kettőn le...
Plusz helyett BOR kell.
A programozó ezt a hibalehetőséget figyelmen kívül hagyja.
Akkor mér növeljük a program hosszát?
6 egész Bájtot megtakarítunk.

Offline SlashNet

  • EP addict
  • *
  • Posts: 1370
  • Country: ua
  • Enterprise 128K | Cubietruck
    • My old site about Enterprise
Re: String elemeinek összekeverésén alapuló program
« Reply #49 on: 2024.October.03. 20:08:28 »

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10108
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: String elemeinek összekeverésén alapuló program
« Reply #50 on: 2024.October.03. 22:44:27 »
Ez akkor is teljesül, ha két joyon nyomunk felt. Vagy egyen fel és kettőn le...
Plusz helyett BOR kell.
Ha sör nincs, legyen bor, Ergognomik is ezt javasolta. Most már borral meglocsoltam a programot, még a RAM-ba is jutott a szeszből, az lett a Ram-szesz (fáraó). Ferro javaslatára a JY változót kiiktattam, meg még találtam két REM sort, és még ott volt az Y$ változó, aminek a teljes tartalmát korábban teljesen kiírtam többször is, azokat is behelyettesítettem. Így bor ide, bor oda, rövidebb lett a program. Belső botkormányra elindul és működik is, a külsőket nem tudtam tesztelni, remélem, azok is jók, a borban úsznak. :D
Programfutás közben a változás nem érzékelhető, így snapshotot nem teszek fel.
---
English
BOR means "wine" in Hungarian so the joke cannot be understood in other languages. Some slight modifications have been made. BOR is used, two REM lines have been deleted, usage of Y$ variable has been extended to the whole program. The game must work with all the joysticks but I could test only the internal one. The difference after the modifications is not noticeable so I attach no snapshot.
---
[ Guests cannot view attachments ]
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: 10108
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: String elemeinek összekeverésén alapuló program
« Reply #51 on: 2024.October.03. 22:51:28 »
Anyway I made a video: https://www.youtube.com/watch?v=K30-ux5UT3Y
дякую / Thank you!

Akkor mér növeljük a program hosszát?
Ferro73-nak ez volt kereken az 1000. hozzászólása, ezt meg kéne ünnepelni, mondjuk egy üveg BOR-ral.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1016
  • Country: hu
Re: String elemeinek összekeverésén alapuló program
« Reply #52 on: 2024.October.04. 07:54:15 »
Ferro73-nak ez volt kereken az 1000. hozzászólása, ezt meg kéne ünnepelni, mondjuk egy üveg BOR-ral.
Köszönöm a felajánlást.

De ez nem az 1001 éjszaka meséje:
A BASIC-rész még mindig hiba üzenettel leáll.

Keresem s talán meglelem és akkor a hibát elkergetem.

Offline SlashNet

  • EP addict
  • *
  • Posts: 1370
  • Country: ua
  • Enterprise 128K | Cubietruck
    • My old site about Enterprise
Re: String elemeinek összekeverésén alapuló program
« Reply #53 on: 2024.October.04. 10:20:12 »
BOR means "wine" in Hungarian so the joke cannot be understood in other languages.

Now I understand why Google Translate translate BOR like WINE. :)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10108
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: String elemeinek összekeverésén alapuló program
« Reply #54 on: 2024.October.04. 13:12:53 »
Ebben a verzióban nem vibrál annyira a sor, amikor tologatjuk, viszont lassabb is. Nem tudom, így jobb-e, vagy az előző volt-e jobb. Azt hittem, ez lesz a végleges, ezért a STOP-ot is letiltottam.
---
English
In this version the line is not flashing so much when pulling it. But it is slower too. I don't know if this version is better or the previous one was better. I thought this version was the final one so I disabled STOP.
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]

A BASIC-rész még mindig hiba üzenettel leáll.
Nekem nem állt le, legalábbis ameddig futtattam. A fel-le lépkedés nagyon lassú basicben, hogy a zzzippes program sebessége jó legyen.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1016
  • Country: hu
Re: String elemeinek összekeverésén alapuló program
« Reply #55 on: 2024.October.04. 17:23:26 »
Nekem nem állt le, legalábbis ameddig futtattam. A fel-le lépkedés nagyon lassú basicben, hogy a zzzippes program sebessége jó legyen.
Próbáld végig játszani legalább egy pályát.

Az első oszlop kirakása után jelentkezik.

Offline Ferro73

  • EP addict
  • *
  • Posts: 1016
  • Country: hu
Re: String elemeinek összekeverésén alapuló program
« Reply #56 on: 2024.October.04. 18:55:31 »
A toliga. v4 még jól működik. /09.22/ amiből v5.2 készült.
A toligator v5.5 már hibával le áll. BASIC-ban

Most itt keresgélek.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10108
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: String elemeinek összekeverésén alapuló program
« Reply #57 on: 2024.October.04. 19:59:23 »
A toligator v5.5 már hibával le áll. BASIC-ban
Milyen hibát jelez és hányas sorban? A DISPLAY TEXT utasítással (vagy SHIFT+F5) eltűnnek a videolapok és látható a hibaüzenet. Vagy F5 (TEXT), utána print exline, extype, majd cause <extype után kapott érték> kiírja a hibaüzenetet, az exline a sor számát adja meg, amelyben a hiba volt.

UI.: Megnéztem, az 1200-as sorban áll le mindig. Számomra nem érthető, hogy miért. Amikor balra mozgatunk, akkor áll be a hiba mindig, pedig jobbra mozgatásnál is teljesen ugyanaz az eljárás van megadva. A figura színét meghatározó tömbben mellélő valamiért és tartományon kívül keresgél, pedig ugyanazok a változók vannak itt is és ugyanúgy változnak, mint jobbra mozgatásnál. Az is fura, hogy nem egyből jelentkezik a hiba, hanem egy idő után, rejtély, miben lesz más valami annyi idő alatt.
« Last Edit: 2024.October.04. 20:22:48 by szipucsu »
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: 10108
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: String elemeinek összekeverésén alapuló program
« Reply #58 on: 2024.October.04. 20:54:50 »
EP64-en el sem indul, a CALL EPI-re azt írja, nincs ilyen eljárás, pedig van. Ha kiveszem az ALLOCATE-t a program elejéről, akkor már nem akad meg a CALL EPI-n, persze akkor a karakterkészletet nem tölti be, mert ahhoz gépi kódú részek kellenek. Ha ALLOCATE 180 helyett csak ALLOCATE 40-et adok meg neki, az is sok, és megakad a CALL EPI-n. Peidg maga a program nem olyan nagyon nagy, és a memóraigényes részek (videolapok megnyitása) is később kerülnek sorra. Volt pár nagyon hosszú sor a program elején, azokat töröltem (EP64-en úgyis átugorja azokat), az sem segített. Túl sok EP64-en az ALLOCATE 40 is. Pedig a Dots and Gems-ben is így volt megoldva a karakterkészlet betöltése, akkor az sem működne EP64-en, ha nincs lefordítva Zzzippel?
Nincs EP64-en korlátozás arra, hogy maximum mennyit lehet az ALLOCATE-tel lefoglalni?

Egyébként Zzzippel fordítva működik a 64-es és a 128-as változat is, basicben meg leállnak hibával, de máshol. Ha azt nézzük, a probléma elhanyagolható, hiszen Zzzippel oké minden. :D
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Ferro73

  • EP addict
  • *
  • Posts: 1016
  • Country: hu
Re: String elemeinek összekeverésén alapuló program
« Reply #59 on: 2024.October.04. 23:34:29 »
Egyébként Zzzippel fordítva működik a 64-es és a 128-as változat is, basicben meg leállnak hibával, de máshol. Ha azt nézzük, a probléma elhanyagolható, hiszen Zzzippel oké minden. :D
Akár a JOY- nál ?

A Zzzipnél ha egy változónak nincs értéke akkor 0 ad neki.
Ez is hiba. BASIC -hiba szorozva Zzzip -hiba egyenlő pozitívum.