Welcome, Guest. Please login or register.

Login with username, password and session length


Author Topic: BASIC (Read 127355 times)

Online endi

  • EP addict
  • *
  • Posts: 5395
  • 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 :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 5929
  • 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!

Offline szipucsu

  • EP addict
  • *
  • Posts: 5929
  • 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 12 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: 5395
  • 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ú :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 5929
  • 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: 5395
  • 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 :)

Offline szipucsu

  • EP addict
  • *
  • Posts: 5929
  • 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: 3725
  • 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 19 times.)

Offline szipucsu

  • EP addict
  • *
  • Posts: 5929
  • 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 7 times.)

Online gflorez

  • EP addict
  • *
  • Posts: 1887
  • 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....