Welcome, Guest. Please login or register.


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

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1320 on: 2019.July.06. 14:51:06 »
Karakter pókoláshoz nem árt tudni az EXOS verziót, 2.0-ban máshol van.
Ki használ EXOS 2.0 ?

Ha valami probléma lesz majd javítunk.
Tudjátok mint a windows-nál.

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 #1321 on: 2019.July.06. 15:48:39 »
Ha valami probléma lesz majd javítunk.
Ha jól sejtem, Zozo erre gondol:
[ Guests cannot view attachments ]
Ez egy basic programból kiragadott két külön rész.
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 #1322 on: 2019.July.06. 16:04:29 »
Igen valami ilyesmi.

Csak felesleges kikérni hacsak nem EXOS ROM-ban változtatták meg a címet.
BASIC-ban még nem találkoztam ennek változásával.

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1323 on: 2019.July.06. 16:34:20 »
Már megint nem tudom hol, milyen néven keressem a  ~ CHARACTER generátor basic progit.

Segítség.

Online Zozosoft

  • Global Moderator
  • EP addict
  • *
  • Posts: 14722
  • Country: hu
    • http://enterprise.iko.hu/
Re: Általános BASIC Kérdések
« Reply #1324 on: 2019.July.06. 17:30:24 »
Ki használ EXOS 2.0 ?
Minden EP64.

Offline Lacika

  • EP addict
  • *
  • Posts: 3191
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1325 on: 2019.July.06. 17:51:51 »
Szerkesztek egy DEF CHAR rutint

Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb, mint DATA-sorokból beolvasni, majd karakter-soronként POKE-ézni...

Code: [Select]
...
130 CALL HFONT
...
2410 DEF HFONT
2420   WHEN EXCEPTION USE NINCSHFONT
2430     EXT "HFONT"
2440   END WHEN
2450   HANDLER NINCSHFONT
2460     CLEAR FONT
2470     SET CHARACTER 145,24,24,60,102,126,102,102
2480     SET CHARACTER 151,24,24,126,96,120,96,126
2490     SET CHARACTER 133,28,24,60,24,24,24,60
2500     SET CHARACTER 146,6,60,102,102,102,102,60
2510     SET CHARACTER 148,66,60,102,102,102,102,60
2520     SET CHARACTER 153,102,92,102,102,102,102,60
2530     SET CHARACTER 149,24,102,102,102,102,102,60
2540     SET CHARACTER 137,102,66,102,102,102,102,60
2550     SET CHARACTER 143,51,102,102,102,102,102,60
2560     SET CHARACTER 129,24,24,60,6,62,102,62
2570     SET CHARACTER 147,24,24,60,102,126,96,60
2580     SET CHARACTER 132,28,16,56,24,24,24,60
2590     SET CHARACTER 134,24,24,60,102,102,102,60
2600     SET CHARACTER 135,102,0,60,102,102,102,60
2610     SET CHARACTER 136,102,102,60,102,102,102,60
2620     SET CHARACTER 138,24,24,102,102,102,102,60
2630     SET CHARACTER 139,102,0,102,102,102,102,60
2640     SET CHARACTER 140,54,36,102,102,102,102,60
2650   END HANDLER
2660 END DEF

Offline endi

  • EP addict
  • *
  • Posts: 7298
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
    • Honlapom
Re: Általános BASIC Kérdések
« Reply #1326 on: 2019.July.06. 17:58:26 »
Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb, mint DATA-sorokból beolvasni, majd karakter-soronként POKE-ézni...

itt most a sebesség a lényeg, ami poke-olással SOKKAL nagyobb
Vigyázat! Szektás vagyok! :)

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 #1327 on: 2019.July.06. 18:42:30 »
Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb
Karakteres animációnál jó lehet a SPOKE.

Már megint nem tudom hol, milyen néven keressem a  ~ CHARACTER generátor basic progit.
A demokazettán van ilyen. Ennek továbbfejlesztett változata szerény művem az Util programcsokorban, Itt a letöltési link, ezen belül a CHR2012-t kell keresni. Grafikus karakterek tervezéséhez Endi nagyszabású programja áll rendelkezésre valahol, és István is készített ilyet, ami PC-n is futtatható, de az szerintem nem tölthető le sehonnan már.
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 #1328 on: 2019.July.06. 18:44:56 »
Szerintem felesleges ennyire "túlmisztifikálni" a dolgot egy sima set character egyszerűbb, mint DATA-sorokból beolvasni, majd karakter-soronként POKE-ézni...


Ha simán BASIC lenne akkor a SET CHARACTER  a jobb sebesség, kevesebb memória.

viszont ha ZZZIP eled akkor már csiga lassú lesz.

Sebesség: SET CHARACTER X,......   v. SPOKE

A példa program 10x írná újra a 128 karaktert.
1. normál SET CHARACTER  .....
2. SPOKE .....
3. CALL >  DEF CHAR ... SPOKE ....

TIME:
BASIC módban
1.  00:03:48
2.  00:05:05
3.  00:09:07

ZZZIP
1.  00:00:27
2.  00:00:06
3.  00:00:06

Ezért nem mindegy mire optimalizáljuk.

Offline Ferro73

  • EP lover
  • *
  • Posts: 967
  • Country: hu
Re: Általános BASIC Kérdések
« Reply #1329 on: 2019.July.09. 22:59:51 »
Nem értek a hang képzéshez.
De látom van sok SOUND egymás után ami a zenét adja pl: Főcimzene de ha hosszú a zene vissza tartja a programot.
Esetleg lehet úgy programozni, hogy két SOUND közé betenni pl a karakter változókat helyezni?
Gondolok :
Code: [Select]
FOR ZENE=1 TO 100
   READ  A,B,C,D
   SOUND ...A, ...B,
   SOUND ...C, ...D,
NEXT ZENE
SET CHARACTER ...
SET CHARACTER ...
SET CHARACTER ...
SET CHARACTER ...

Helyett:
Code: [Select]
FOR ZENE=1 TO 100
   READ  A,B,C,D
   SOUND ...A, ...B,
   SET CHARACTER ...
   SOUND ...C, ...D,
   SET CHARACTER ...
NEXT ZENE

Írom nem értek hozzá.
Még.

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 #1330 on: 2019.July.09. 23:31:56 »
Esetleg lehet úgy programozni, hogy két SOUND közé betenni pl a karakter változókat helyezni?
Betenni be lehet éppen. Csak késni fog egymáshoz képest a két sound, ha két különböző csatornát használ (pl. egyik a source 1-et, a másik a source 2-t). De SYNC paraméterrel így is megoldható, hogy egyszerre szólaljon meg a két hang.
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 #1331 on: 2019.July.10. 09:23:28 »
Akkor lehet rosszul magyarázok.
A sound-ba nem mélyültem el azokat össze ollóztam mindig.
Írnál egy 3-10 másodperces 1 csatornás zenét? Vágy ki ollózhatsz valahonnan.
 PL.: főcím, lehet több csatornás is.
Akár még az Entersnake -ba is bele tehető lesz.
Ha lefordítjuk ZZZIP-el akkor is normál sebbességgel játtsza le?

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 #1332 on: 2019.July.10. 13:48:16 »
Ha lefordítjuk ZZZIP-el akkor is normál sebbességgel játtsza le?
Igen. A DURATION paraméter megadja a hang hosszát 1/50 másodpercben, ez akkor is annyi marad, ha Zzzippel van fordítva. A hang megszakításból megy, tehát mást is tud közben csinálni a gép. Viszont Zzzippel fordítva a "hangtár" (vagy mi a neve) megtelhet, a sok sound utasítás egymás után mindig elküldi a hangot a memóriának, hogy majd onnan játssza le a gép, de ez a tár megtelhet. Ezért kell valami késleltetés is (pl. FOR-NEXT ciklussal). A Hungry Creature játékban is így oldottam meg a menüben. (De annak nincs fent a basic változata, azt hiszem, de talán a fórumra egyszer feltettem.)
Sajnos (tudtommal) csak tippelni lehet, mekkora késleltetés kell a zzzippelt zenéhez, mert a basic lassabb, és később telik be a tár. Ha betelik a tár, akkor addig áll a program futása, míg az adott hang véget nem ér.

Az Entersnake-be én is gondolkodtam már zenén, van is tervben. A játék közbeni zenék közül lenne az egyik (nem kellenek külön DATA sorok), csak más hangzással. De attól még csinálhatsz te is zenét, hátha az jobb lesz, vagy máshova jó lesz.
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: 9898
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1333 on: 2019.July.10. 13:56:18 »
Írnál egy 3-10 másodperces 1 csatornás zenét?
Ha ez kell a teszteléshez:

Code: [Select]
100 RESTORE
110 FOR I=1 TO 36
120   READ G
130   SOUND PITCH G,DURATION 10
140 NEXT I
150 DATA 37,39,37,39,37,39,41,42,44,44,44,44
160 DATA 37,39,37,36,37,39,37,36,34,32,34,34
170 DATA 49,48,46,48,49,48,44,46,42,44,41,37

A hangzáson még lehetne dobni sokat sokféleképpen, ha érdekel, pl.

Code: [Select]
130 SOUND PITCH G+.2,DURATION 10,SOURCE 2,SYNC 1
135 SOUND PITCH G,DURATION 10,SYNC 1,STYLE 128
A 130-as sorba +.2 helyett lehet pl. +.3 vagy +.1 vagy +.05, de Zzzippel ez nem fog így szólni, mert az mindent kerekít.

Vagy:
Code: [Select]
130 SOUND PITCH G,DURATION 10,SOURCE 0,SYNC 1,STYLE 64
135 SOUND PITCH G+7,DURATION 10,SYNC 1,SOURCE 1
A 135-ös sorba itt a 7 helyett lehet írni pl. 12-t vagy 19-et, más lesz a hangzás. (Ha kapásból jól írtam mindent.)
« Last Edit: 2019.July.10. 14:01:39 by szipucsu »
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 #1334 on: 2019.July.10. 14:46:16 »
Na valami ilyesmire gondolok.

listázd
futtasd
00:00:06       zene lefutási ideje, rész idő
00:00:10       program mérés vége

210  ! SET ...
220  ! SET ...

160    SET ...
170    SET ...

futtasd
00:00:06       zene lefutási ideje, rész idő
00:00:06       program mérés vége

Nos ezen már el lehet gondolkodni.