Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 178016 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8069
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 14.0.1 Firefox 14.0.1
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #360 on: 2012.August.05. 21:59:41 »
De, szerintem tuti, hogy változik. Ha megjelenik az OK, akkor kicsit amúgy is begyorsul a lejátszás, és ha még OUT 191,12-vel gyorsítva van, ez még inkább érezhetõ. Majd ha ráérek, töltök fel snapshotot vagy mp3-at ilyenrõl.
Lehet, hogy elbeszéltünk egymás mellett, és én másra gondoltam. Nem értek ezekhez az EXOS-os dolgokhoz.
Itt egy "hangminta", az elsõ lejátszásnál nem volt OUT 191,12, a második lejátszásnál volt. Mindkét lejátszás végén begyorsul a lejátszás az utolsó taktusokra, az OUT 191,12-es lejátszásnál még elõbb kezdõdik a begyorsulás és talán a gyorsulás mértéke is nagyobb, ezt nem tudom.
Snapshot is mellékelve, ahol (nálam legalábbis) reprodukálható a jelenség.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13521
  • Country: hu
  • OS:
  • Windows 7 Windows 7
  • Browser:
  • Firefox 14.0.1 Firefox 14.0.1
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #361 on: 2012.August.05. 22:32:50 »
Mindkét lejátszás végén begyorsul a lejátszás az utolsó taktusokra
Ez jelzi, hogy alapvetõen a programban van a hiba, amire a ZZZIP nyilván csak rátesz egy lapáttal  :oops:
Az EXOS SOUND-ja 50Hz-es megszakítással van idõzítve, így ha jól van etetve, nem szabadna ilyennek elõfordulni!
Kéne látni az eredeti programot, hogy kitaláljuk, mi lehet a gond. Eleve miért kell ezt a nem túl bonyolultnak hangzó dolgot Zzzippelni?

Offline Lacika

  • EP addict
  • *
  • Posts: 2929
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 10.0.2 Firefox 10.0.2
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #362 on: 2012.August.05. 22:46:13 »
Én is épp ezt próbáltam ki. A SOUND hangja ugyanaz 4 és 6 MHz-n is.

Offline szipucsu

  • EP addict
  • *
  • Posts: 8069
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 14.0.1 Firefox 14.0.1
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #363 on: 2012.August.05. 22:59:46 »
Kéne látni az eredeti programot
Valami pofonegyszerû. RESTORE, DO, READ IF MISSING EXIT DO X,Y,Z, SOUND PITCH X,DURATION Z (meg ilyesmik), LOOP, DATA hangok.
Kb. így néz ki, de ha fontos, elõkereshetem.
Zzzip nélkül már 2-es tempóval is akadozik, úgy emlékszem, mert sokcsatornás, envelope is van benne, meg a hangerõt is változtatja, és basic-ben ez már akadozást okoz.
De basic programoknál is gyakran tapasztaltam ezt, amikor restore, data, stb. megoldással szólt a zene.

UI: Így néz ki a basic program eleje:

Code: [Select]
    1 INPUT PROMPT "Tempo:":T
  100 CLEAR SOUND
  110 ENVELOPE NUMBER 1;0,63,63,1;0,-5,-10,1;0,-53,-23,3;0,10,-40,60
  111 ENVELOPE NUMBER 2;0,63,63,1;0,-63,-63,5
  112 ENVELOPE NUMBER 3;0,63,63,1;-10,-63,-63,10
  120 RESTORE
  130 DO
  140   READ IF MISSING EXIT DO:G,H,J
  150   LET G=G+24:LET H=H/T
  160   SOUND PITCH G,DURATION H,ENVELOPE 1,SYNC 3
  170   SOUND PITCH G-36,DURATION H,ENVELOPE 1,SYNC 3,SOURCE 2,STYLE 0
  180   SOUND SOURCE 3,SYNC 3,ENVELOPE 2,DURATION H,LEFT J,RIGHT J
  185   SOUND SOURCE 1,ENVELOPE 3,SYNC 3,PITCH 30,DURATION H,LEFT J,RIGHT J
  190   LET J=0
  200 LOOP
  210 DATA 127,200,0
  220 DATA 32,20,0,37,10,255,37,20,0,36,20,0,37,10,127,37,20,0,41,20,0,37,10,255,37,20,0,36,20,0,37,30,127
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13521
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 14.0.1 Firefox 14.0.1
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #364 on: 2012.August.06. 11:51:12 »
Zzzip nélkül már 2-es tempóval is akadozik, úgy emlékszem, mert sokcsatornás, envelope is van benne, meg a hangerõt is változtatja, és basic-ben ez már akadozást okoz.
Itt akkor az a baj, hogy a BASIC nem tudja elég gyorsan etetni a SOUND eszközt, és így a BASIC lassúság is beépül a "kottába", ami nem éppen ideális megoldás.
Áthidaló megoldás lehet esetleg a végére egy csomó "csendhangot" rakni, hogy annak kiküldözgetése lassítson a zene adatok kiküldése után is.

A jobb megoldás az valami célzott gyorsítás, esetleg némi CODE-val.
Felraksz egy teljes programot, amivel lehet próbálkozni?

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: BASIC
« Reply #365 on: 2012.August.06. 12:19:18 »
na most én hogyan csináltam hogy a dizzy lord zenéje nem rimushibás? azaz a basic lassúsága nem zavart be.
ugyanis az a zene egy basic zeneszerkesztõ programmal van csinálva és a dizzy lordban escape szekvenciákkal van lejátszva

nem emlékszem hogy volt :) pedig a zeneszerkesztõt is én csináltam :)
Vigyázat! Szektás vagyok! :)

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13521
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 14.0.1 Firefox 14.0.1
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #366 on: 2012.August.06. 12:30:18 »
Becsukod a 103-as csatornát, és megnyitod fájlnak, akkor elég egyszerûen össze lehet gyûjteni az escape szekvenciákat.  :)

Lehet az is az egyik kipróbálandó gyorsítási ötlet, hogy a bonyolult SOUND utasítások helyett PRINT #103-al írni escape szekvenciákat, a megfelelõ helyen belerakva a paramétereket.

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: BASIC
« Reply #367 on: 2012.August.06. 12:41:29 »
persze, így lett kimentve és lejátszva a DL gépi kódjából

de akkor rá is jöttem. lehet hogy az escape lejátszó mivel ügye rendszer szintû, nem lassú mint a basic!
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8069
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 14.0.1 Firefox 14.0.1
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #368 on: 2012.August.06. 23:22:22 »
Felraksz egy teljes programot, amivel lehet próbálkozni?
Itt a music.bas lenne az.

Ha jól emlékszem egyébként, egy- és kétszólamú zenéknél nem volt ilyen gyorsulás, tehát ahol kevesebb paramétert kellett DATA sorokban megadni.
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Lacika

  • EP addict
  • *
  • Posts: 2929
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 6.0.2 Firefox 6.0.2
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #369 on: 2012.August.27. 10:35:42 »
Mostanában fraktálok rajzolásával múlatom az idõmet, sutyiban kiegészítettem ezt. Érez kedvet valaki bõvíteni a fraktál-kollekciót?
Konkrétan pl. Sierpinski-háromszögekre érdekelne elegáns, teknõc grafikás megoldás. A csomagban arra csak egy gagyi, Turbo Pascal-os megoldás van átültetve. Vagy egy "jó kis" Gosper-görbe is pofás.  :cool:
« Last Edit: 2012.August.27. 10:45:11 by Lacika »

Offline Lacika

  • EP addict
  • *
  • Posts: 2929
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 15.0 Firefox 15.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #370 on: 2012.September.04. 00:58:53 »
Abszolút hiánypótló program...
 :ds_icon_cheesygrin:

Offline szipucsu

  • EP addict
  • *
  • Posts: 8069
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 15.0 Firefox 15.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #371 on: 2012.September.04. 13:05:22 »
Abszolút hiánypótló program...
 :ds_icon_cheesygrin:
Ügyes!
Ezt magadtól csináltad, vagy átírtad valahonnan?
Próbálgattam mindenféle számokkal, jól mûködik.

Nem lett volna egyszerûbb a "tíz" és "húsz" szót is a DATA sorokba tenni, mint ott külön CASE ágban megnézegetni, hogy az-e? Bár nem néztem át a program mûködését, lehet, hogy valami ezt indokolja.

Itt nem szerepel a decilliárd, de biztos létezik attól még olyan is.
Amúgy tudtátok, hogy a googol nagyon nagy számot jelent (10 a 100-adikon), és a google is innen kapta a nevét?
« Last Edit: 2012.September.04. 13:10:09 by szipucsu »
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 8069
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 15.0 Firefox 15.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #372 on: 2012.September.04. 14:30:27 »
Még nem látom át a program mûködését. Más nyelvre ezt hogyan lehetne megcsinálni? Angolban és sok más nyelvben is külön nevük van a 10 és 20 közötti számoknak, és egyéb apróbb eltérések is vannak. Pl. az, hogy kétezerig egybe írjuk a számokat, csak magyar sajátosság.
Laci, azt tudtad, hogy az English is Fun, French is Fun, German is Fun programokban van olyan rész, hogy beírsz egy kétjegyû számot és kiírja betûkkel? Gondolom, azt nem használtad fel.

A SAY programmal lenne még jó egybeépíteni: beírsz egy tetszõleges számjegyet, a gép pedig kiolvassa. De ha a SAY-t vissza lehetne fejteni, akár bele is lehetne építeni, hogy így olvassa fel a számjegyeket.

UI: "Kérek egy tetszõleges számot:" Ennek a végére felkiáltójel kéne, nem kettõspont. :)
« Last Edit: 2012.September.04. 14:42:53 by szipucsu »
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos

Offline Lacika

  • EP addict
  • *
  • Posts: 2929
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 6.0.2 Firefox 6.0.2
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #373 on: 2012.September.04. 14:58:02 »
Ügyes!
Ezt magadtól csináltad, vagy átírtad valahonnan?

Saját. Három napig rajzolgattam, hogy lehet a legkevesebb kivétellel megcsinálni, ez lett belõle.
Nem azért, de amit találtam a neten, meg Ep-re is volt RLS-féle BASIC program, de azok sokkal bonyolultabbak voltak.
A Számítástechnika középfokon c. könyvben "haladó" gyakorló feladatként kérik (megoldás nincs benne, piszkálta a csõrömet), majd azt ki fogom egészíteni vele.
« Last Edit: 2012.September.04. 15:12:39 by Lacika »

Offline Lacika

  • EP addict
  • *
  • Posts: 2929
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 6.0.2 Firefox 6.0.2
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #374 on: 2012.September.04. 14:59:37 »
Nem lett volna egyszerûbb a "tíz" és "húsz" szót is a DATA sorokba tenni, mint ott külön CASE ágban megnézegetni, hogy az-e? Bár nem néztem át a program mûködését, lehet, hogy valami ezt indokolja.

Amennyire néztem, nem hiszen a "tíz" és a "tizen..." illetve a "húsz" és a huszon" eltérõek. De nagyon több kivételkezelés nincs is a programban (még a "nulla") és ez is csak azért mert a kivétel a nyelvünkben van  :)
« Last Edit: 2012.September.04. 18:31:10 by Lacika »