Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 130354 times)

Online endi

  • EP addict
  • *
  • Posts: 5696
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 59.0.3071.115 Chrome 59.0.3071.115
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1230 on: 2017.July.15. 00:50:48 »
megalkottam a legegyszerűbb rajzolóprogramot ep-re :)

text 80
set character 32,255,255,255,255,255,255,255,255,255

kész :)

Online szipucsu

  • EP addict
  • *
  • Posts: 6262
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 54.0 Firefox 54.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1231 on: 2017.July.15. 09:59:40 »
megalkottam a legegyszerűbb rajzolóprogramot ep-re :)
Adáskimaradás:

10 TEXT 40 :SET STATUS UFF
20 DO
30   SET CHARACTER 32,RND(255),RND(255),RND(255),RND(255),RND(255),RND(255),RND(255),RND(255),RND(255) ! vagy csak eggyel kevesebb szám kell ide, nem tudom.
40 LOOP

Igény esetén kiadható még:
5 RANDOMIZE
de túl nagy jelentősége nincs.

Esetleg még az RND-k helyett lehet valami ORD(INKEY$) is, az tényleg rajzolóprogram lenne már. Ha meg még a SOUND PITCH ORD(INKEY$)-t is beletesszük a programba, audiovizuális multimédiás program lesz belőle. Az INKEY$ által meghatározott torzítás, paletta, bias témát már ne is említsük!

Online szipucsu

  • EP addict
  • *
  • Posts: 6262
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 54.0 Firefox 54.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1232 on: 2017.July.15. 10:31:03 »
Na, megszállt az ihlet, csináltam valami hasonlót. A gombnyomásra színváltást végül kivettem belőle, kicsit túlzás, de a 125-ös sorban a ! eltávolításával színváltós is lesz. Ha alapból nyomjuk a gombokat, túl magasak a hangok, de shift-tel és alt-tal már jobb, így az "orgonának" más "regiszterei" lesznek elérhetők. A funkcióbillentyűket is érdemes használni a program futása közben.
Még azon gondolkozom, hogyan lehetne látványosabbá tenni. Úgy kéne definiálni funkcióbillentyűket, hogy a kettes számrendszerben a karakter alakjában folyamatos változásokat okozzon, pl. 00001 után 000010 jöjjön, aztán 000100, majd 001000, 010000, stb.

* multimédiás audiovizuáis interaktív program.ep128s (192.81 kB - downloaded 16 times.)

UI: A snapshotot először az asztalra akartam menteni, de nem engedte, valami error volt. Csak az emuból kijelölt mappába engedte menteni, és az ékezetes karakterek helyett ott krixkrax jelent meg. Erről a laptopról ritkán használom az emulátort, más gépen nem volt ilyen probléma.

   10 TEXT 40
   12 OUT 191,12
   13 SET #102:COLOR 1,251
   15 SET KEY CLICK OFF
   20 SET STATUS OFF
   50 WHEN EXCEPTION USE VEGE
  100   LET A$=INKEY$
  110   IF A$="" THEN GOTO 100
  120   SOUND PITCH ORD(A$),DURATION 5,INTERRUPT
  125   !SET #102:COLOR 1,ORD(A$)
  130   SET CHARACTER 32,ORD(A$),ORD(A$),ORD(A$),ORD(A$),ORD(A$),ORD(A$),ORD(A$),ORD(A$),ORD(A$)
  140   GOTO 100
  150 END WHEN
  160 HANDLER VEGE
  170   CLEAR FONT
  180   TEXT 40
  190   END
  200 END HANDLER
« Last Edit: 2017.July.15. 10:36:27 by szipucsu »

Online endi

  • EP addict
  • *
  • Posts: 5696
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 59.0.3071.115 Chrome 59.0.3071.115
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1233 on: 2017.July.15. 17:50:32 »
na de ez má túl hosszú :)

Online szipucsu

  • EP addict
  • *
  • Posts: 6262
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1234 on: 2017.July.15. 19:12:11 »
na de ez má túl hosszú :)
Van itt bármi megkötés, hogy milyen programot lehet írni? Amihez éppen kedvünk van. Holnap reggel lehet, az a program jut eszembe, hogy 10 PING 20 GOTO 10. :D Bár azt nem tenném fel ide azért.

Online endi

  • EP addict
  • *
  • Posts: 5696
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 59.0.3071.115 Chrome 59.0.3071.115
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1235 on: 2017.July.15. 20:08:11 »
Van itt bármi megkötés, hogy milyen programot lehet írni? Amihez éppen kedvünk van. Holnap reggel lehet, az a program jut eszembe, hogy 10 PING 20 GOTO 10. :D Bár azt nem tenném fel ide azért.

semmi megkötés nincs.
de az poén ha 2 soros kóddal rajzolni lehet :)

Online szipucsu

  • EP addict
  • *
  • Posts: 6262
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1236 on: 2017.July.15. 21:21:29 »
semmi megkötés nincs.
de az poén ha 2 soros kóddal rajzolni lehet :)
Egysorossal is lehet. Egy sorba kell írni: TEXT 80 :SET CHARACTER akármennyi. Ha meg nem fér ki egy sorba, akkor a végéről le kell hagyni a számok egy részét, rajznak az is rajz.

Offline IstvanV

  • EP addict
  • *
  • Posts: 4033
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1237 on: 2017.July.16. 15:22:32 »
Adáskimaradás:

* noise.bas (0.87 kB. 94x3 - viewed 37 times.)

Online szipucsu

  • EP addict
  • *
  • Posts: 6262
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1238 on: 2017.July.16. 15:34:44 »
noise.bas
Hát ez nagyon jó, tökéletes!
Kicsit kibővítetettem, így még jobb (hangszóró is kell hozzá):
* noise2.bas (0.92 kB - downloaded 14 times.)

Online gflorez

  • EP addict
  • *
  • Posts: 1978
  • Country: es
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1239 on: 2017.July.16. 16:43:00 »
Természetesen a zaj....

Online endi

  • EP addict
  • *
  • Posts: 5696
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 59.0.3071.115 Chrome 59.0.3071.115
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1240 on: 2017.August.16. 10:52:40 »
pár dolog amit így nosztalgia programozás közben feltűnt... egy kis basic kritika :)

-listázásnál 4 karakterrel beljebb jelennek meg a sorok. pazarlás. elég lett volna 1 vagy 0 karakter. a basic sorok for, def stb estén 2 karakterrel beljébb jelennek meg a sorok. elég lett volna 1 is. 40 karakteres módban ezek elég nagy pazarlások, és átlátható lenne a kód kevesebb "beljébb tolással" is.
-nem teljesen értem néha miért nem lehet kettősponttal új parancsokat beírni egy adott sorba. most pl felfedeztem hogy egy hosszabb sound sor esetén nem engedi. meg van még pár másik furcsa eset is.
-soft reset esetén törlődnek a saját funkció billentyű beállítások. lényegében én ezért nem használtam ezt semmire. mivel sűrűn használtam a soft resetet :)
-színek: ez is alapbeállításra áll TEXT parancs vagy soft reset esetén. kár... már csak azért is mert az alap beállítás eléggé semmilyen és közepesen szép csak...

na mára ennyit. ettől még az EP csúcs jó persze :)

Offline IstvanV

  • EP addict
  • *
  • Posts: 4033
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1241 on: 2017.August.16. 11:03:58 »
-listázásnál 4 karakterrel beljebb jelennek meg a sorok. pazarlás. elég lett volna 1 vagy 0 karakter. a basic sorok for, def stb estén 2 karakterrel beljébb jelennek meg a sorok. elég lett volna 1 is. 40 karakteres módban ezek elég nagy pazarlások, és átlátható lenne a kód kevesebb "beljébb tolással" is.

Azért jelennek meg beljebb a sorok, mert a sor száma (ami valószínűleg 16 bites egész) legfeljebb 5 karakteres lehet, és az olvashatóság miatt jobbra van igazítva.
18566-0
A FOR, DEF, stb. 2 karakteres beljebb kezdése is az olvashatóságot javítja, jobban lehet látni, hogy hány FOR (vagy egyéb) van egymásba ágyazva.

Célszerűbb egyébként 40 helyett 80 karakteres módot használni, bár az lassabb, több video memóriát fogyaszt, és 6x8 méretűre csonkítja a karaktereket.

Quote
-nem teljesen értem néha miért nem lehet kettősponttal új parancsokat beírni egy adott sorba. most pl felfedeztem hogy egy hosszabb sound sor esetén nem engedi. meg van még pár másik furcsa eset is.

Talán korlátozott a sorok maximális hossza, legalábbis bizonyos esetekben.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 12538
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1242 on: 2017.August.16. 11:16:22 »
Quote
-listázásnál 4 karakterrel beljebb jelennek meg a sorok. pazarlás. elég lett volna 1 vagy 0 karakter.
Leghosszabb sorszámnál 1 karakterrel van beljebb, többi ehhez igazodik, szépen.

18570-0

Quote
a basic sorok for, def stb estén 2 karakterrel beljébb jelennek meg a sorok. elég lett volna 1 is.
Kettővel szerintem áttekinthetőbb.

Quote
40 karakteres módban ezek elég nagy pazarlások, és átlátható lenne a kód kevesebb "beljébb tolással" is.
Ha nem C64/Spectrum stílusban van írva a program, akkor bőven kifér.

Quote
-nem teljesen értem néha miért nem lehet kettősponttal új parancsokat beírni egy adott sorba.
Na ez a kettőspontozás pont az emlegetett C64/Spectrum stílus :ds_icon_cheesygrin: Programozás órán egyes járt érte.

Quote
most pl felfedeztem hogy egy hosszabb sound sor esetén nem engedi. meg van még pár másik furcsa eset is.
Block utasítások (IF, FOR-NEXT,stb) biztosan nem lehet. A hosszabb sor meg eleve nem lehet teljes képernyős :-) és itt pl az is csalóka lehet, hogy a számok több helyett is foglalhatnak mint kiírva a képernyőn. (Volt erre egyszer egy egysoros program versenyünk.)

Quote
-soft reset esetén törlődnek a saját funkció billentyű beállítások. lényegében én ezért nem használtam ezt semmire. mivel sűrűn használtam a soft resetet :)
Normális programozással, főleg BASIC-ben soha egyetlen alkalommal se kéne a reset gombhoz nyúlni. Normális legrosszabb esetre ott a STOP gomb.
Resetnél bezáródik minden csatorna, így a KEYBOARD is, persze, hogy törlődnek a beállításai. Amúgy ZOZOTOOLS-ba raktam funkcióbillentyű mentést/töltést :-)

Quote
-színek: ez is alapbeállításra áll TEXT parancs vagy soft reset esetén. kár... már csak azért is mert az alap beállítás eléggé semmilyen és közepesen szép csak...
Resetnél a VIDEO is bezáródik... meg a TEXT-nél is. Ott van helyette a CLEAR TEXT :-)
Én ahol csak lehet azóta is mindenütt fekete alapon zöld betűket állítok be.

Online endi

  • EP addict
  • *
  • Posts: 5696
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 59.0.3071.115 Chrome 59.0.3071.115
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1243 on: 2017.August.16. 11:28:10 »
na ja a nagyobb sorszám jogos
a többi nem teljesen :)

Offline Zozosoft

  • EP addict
  • *
  • Posts: 12538
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1244 on: 2017.August.16. 11:30:01 »
Talán korlátozott a sorok maximális hossza, legalábbis bizonyos esetekben.
Így van, az emlegetett egysoros versenynél derült ki:
"Nálunk a már tokenizált sor hossza lehet 254 bájt, ebből 1 a hossz, 2 a sorszám, 1 a bekezdési szint, így marad 250 az utasításokra. Azonban a sor beírásra is van 255-ös korlát"
És ennél a tokenizálásnál jön az, hogy a számok letárolva többet foglalnak.

Az én egysoros kő-papír-olló programom 196 beírt karakterrel eredményez 248 bájtos programot. (Kimentéskor ehhez még hozzá jön 2 db 16 bájtos modul fejléc, így lesz összesen 280 bájt).