Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 154822 times)

Offline szipucsu

  • EP addict
  • *
  • Posts: 7344
  • 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 #1215 on: 2017.July.06. 22:49:39 »
hát az a baj hogy nem minden karakteren szép, mert kód generálja.
Azt a néhány karaktert át lehet manuálisan szerkeszteni. Már ha használni fogja valaki ezeket pl. basic programokban.
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
OPEL #1:"Audi(o):" ACCESS DENIED

Offline endi

  • EP addict
  • *
  • Posts: 6766
  • 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.86 Chrome 59.0.3071.86
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1216 on: 2017.July.07. 18:49:04 »
sorok hullámoztatása basic-ben.
a sorokat összenyomom, és alul egy sort kihúzok, hogy az elvárt sor magasság megmaradjon és ne fusson a kép. ha most mivel már lusta vagyok és meleg is van, ez a része rosszul műxik :)
max emu sebességgel szépen hullámzik azért :)
de zippelve is simán jó lenne! szóval ezzel majd még kezdek valamit
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline endi

  • EP addict
  • *
  • Posts: 6766
  • 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 #1217 on: 2017.July.08. 23:06:56 »
na itt egy jobb, meg a zipped, ami ha nem is túl gyors, de élvezhető
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline szipucsu

  • EP addict
  • *
  • Posts: 7344
  • 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 #1218 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.
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
OPEL #1:"Audi(o):" ACCESS DENIED

Offline endi

  • EP addict
  • *
  • Posts: 6766
  • 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 #1219 on: 2017.July.09. 12:02:35 »
vízszintes, egyszerű margó állításokkal :)
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline endi

  • EP addict
  • *
  • Posts: 6766
  • 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 #1220 on: 2017.July.09. 12:05:22 »
hm érdekes, "lpt2.bas" néven nem lehet menteni, invalid file attributest ír.
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline endi

  • EP addict
  • *
  • Posts: 6766
  • 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 #1221 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 :)
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline szipucsu

  • EP addict
  • *
  • Posts: 7344
  • 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 #1222 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!
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
OPEL #1:"Audi(o):" ACCESS DENIED

Offline szipucsu

  • EP addict
  • *
  • Posts: 7344
  • 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 #1223 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 29 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 »
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
OPEL #1:"Audi(o):" ACCESS DENIED

Offline endi

  • EP addict
  • *
  • Posts: 6766
  • 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 #1224 on: 2017.July.15. 17:50:32 »
na de ez má túl hosszú :)
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline szipucsu

  • EP addict
  • *
  • Posts: 7344
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1225 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.
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
OPEL #1:"Audi(o):" ACCESS DENIED

Offline endi

  • EP addict
  • *
  • Posts: 6766
  • 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 #1226 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 :)
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline szipucsu

  • EP addict
  • *
  • Posts: 7344
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1227 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.
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
OPEL #1:"Audi(o):" ACCESS DENIED

Offline IstvanV

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

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

Offline szipucsu

  • EP addict
  • *
  • Posts: 7344
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1229 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 29 times.)
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
OPEL #1:"Audi(o):" ACCESS DENIED