Welcome, Guest. Please login or register.


Author Topic: Ugribugri Sundibundi (Read 2088 times)

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #30 on: 2024.March.26. 17:51:22 »
Egyébként még egyszerűbben meg lehetne csinálni, hogy az I$(szin) megadásával is működjön, és ne kelljen I$&CHR$(szin).

Nem rossz ötlet letesztelem melyik a legjobb BASICban és zzzip ben.

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Ugribugri Sundibundi
« Reply #31 on: 2024.March.26. 18:55:24 »
1. SET INK x                            BASIC 00:03:21    ZZZiP 00:01:07
2. CHR$(27)&"I"&CHR$(x)   BASIC 00:03:24    ZZZiP 00:01:03
3. I$&CHR$(x)                       BASIC 00:03:07    ZZZiP 00:01:02
4. IS$(x)                                BASIC 00:03:07    ZZZiP 00:01:02

Én EP128emu-n mértem.
Valódi gépen kilehetne próbálni.
Mellékelem a progikat /Basic és ZZZiP/

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #32 on: 2024.March.26. 20:21:51 »
Én EP128emu-n mértem.
Kicsit meglepő a végeredmény.
Az I$(szin)-t én így gondolnám:
Code: [Select]
   10 GRAPHICS ATTRIBUTE
   20 PRINT #101,AT 2,2:I$(1)&"TEXT "&I$(2)&"ENTER"&I$(3)&"PRISE"
   30 PRINT #101,AT 4,2:I$(4)&"128"&I$(5)&" kilobytes"
  100 DEF I$(X)
  110   LET I$=CHR$(27)&"I"&CHR$(X)
  120 END DEF
(Tehát csak megadjuk paraméterben a szín kódját, és át is váltja a színt.)
Amit te írtál, az más, ha jól értem.
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: Ugribugri Sundibundi
« Reply #33 on: 2024.March.27. 21:25:39 »
Kicsit meglepő a végeredmény.
Az I$(szin)-t én így gondolnám:
Code: [Select]
  10 GRAPHICS ATTRIBUTE
   20 PRINT #101,AT 2,2:I$(1)&"TEXT "&I$(2)&"ENTER"&I$(3)&"PRISE"
   30 PRINT #101,AT 4,2:I$(4)&"128"&I$(5)&" kilobytes"
  100 DEF I$(X)
  110   LET I$=CHR$(27)&"I"&CHR$(X)
  120 END DEF
(Tehát csak megadjuk paraméterben a szín kódját, és át is váltja a színt.)
Amit te írtál, az más, ha jól értem.
Nem, rosszul érted
DEF -et CALL al éred el.


Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Ugribugri Sundibundi
« Reply #34 on: 2024.March.27. 21:28:53 »
DEF -et CALL al éred el.
Ezt nem tudom, hogyan érted. Nem csak CALL-lal, hanem PRINT-tel is el lehet érni a DEF-et. PRINT I$(x) kb. meghívja a DEF I$(x) részt és onnan meríti a tennivalóját, ez szerintem több idő, mint ha PRINT után adjuk meg ezt egyből.
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: Ugribugri Sundibundi
« Reply #35 on: 2024.March.27. 21:44:33 »
Részben igazad van.
Bár ha megnézted volna rendesen a programot láthattad volna a hibámat.

mindegy.
Javítottam és bele raktam az 5.-nek variációdat
1. SET INK x                            BASIC 00:03:21    ZZZiP 00:01:07
2. CHR$(27)&"I"&CHR$(x)   BASIC 00:03:24    ZZZiP 00:01:03
3. I$&CHR$(x)                       BASIC 00:03:07    ZZZiP 00:01:02
4. IS$(x)                    hibás   BASIC 00:03:07    ZZZiP 00:01:02
4. IS$(x)                                 BASIC 00:03:32
5. ISD$(x)      def                   BASIC 00:05:01

Így az elgondolásod a legrosszabb.