Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 194116 times)

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • 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 #1185 on: 2017.July.08. 23:06:56 »
na itt egy jobb, meg a zipped, ami ha nem is túl gyors, de élvezhető
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8390
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 54.0 Firefox 54.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1186 on: 2017.July.09. 08:58:35 »
na itt egy jobb, meg a zipped, ami ha nem is túl gyors, de élvezhető
Ez jó, ezt majd fel lehet használni basic programokban!
Régebben nyitottál egy topikot, ahova az ilyen valamire biztos jó lesz, basic dolgokat tetted. Oda is be lehetne tenni.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • 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 #1187 on: 2017.July.09. 12:02:35 »
vízszintes, egyszerű margó állításokkal :)
Vigyázat! Szektás vagyok! :)

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • 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 #1188 on: 2017.July.09. 12:05:22 »
hm érdekes, "lpt2.bas" néven nem lehet menteni, invalid file attributest ír.
Vigyázat! Szektás vagyok! :)

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • 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 #1189 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 :)
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8390
  • 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 #1190 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!
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline szipucsu

  • EP addict
  • *
  • Posts: 8390
  • 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 #1191 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 48 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 »
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • 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 #1192 on: 2017.July.15. 17:50:32 »
na de ez má túl hosszú :)
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8390
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1193 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.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • 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 #1194 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 :)
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 8390
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1195 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.
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Offline IstvanV

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

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

Offline szipucsu

  • EP addict
  • *
  • Posts: 8390
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1197 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 47 times.)
100 SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
110 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
120 SOUND PITCH 25,SYNC 2
Videos

Online gflorez

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

Offline endi

  • EP addict
  • *
  • Posts: 7305
  • 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 #1199 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 :)
Vigyázat! Szektás vagyok! :)