Welcome, Guest. Please login or register.


Author Topic: BASIC program beíró feladatok? (Read 220 times)

Offline Kapitany

  • EP user
  • *
  • Posts: 313
  • Country: hu
BASIC program beíró feladatok?
« on: 2024.April.25. 10:59:57 »
Sziasztok!

Van esetleg valamilyen vagány, látványos, maximum 10-20 sorból álló BASIC programotok, amit rendezvényen a laikusokkal be lehet gépeltetni, hogy örüljenek?

Ilyesmire gondoltam, mint ez a Speccy BASIC program:
[ Guests cannot view attachments ]

Vagy esetleg ezt átportolni IS BASIC-re? Összegyűjthetnénk pár ilyen progit! :)

K.

Offline Kapitany

  • EP user
  • *
  • Posts: 313
  • Country: hu
Re: BASIC program beíró feladatok?
« Reply #1 on: 2024.April.26. 12:43:00 »
Itt is mentsetek már meg, légyszi! :D Holnapra kéne valami! :)

Offline SlashNet

  • EP addict
  • *
  • Posts: 1213
  • Country: ua
  • Enterprise 128K | Cubietruck
    • My old site about Enterprise
Re: BASIC program beíró feladatok?
« Reply #2 on: 2024.April.26. 14:28:58 »
You need ask Endi in Facebook.
He there posts many fun graphical experiments.

Kérd meg Endit a Facebookon. Sok szórakoztató grafikai kísérletet tesz közzé.

Offline Povi

  • EP addict
  • *
  • Posts: 2300
  • Country: hu
    • http://povi.fw.hu
Re: BASIC program beíró feladatok?
« Reply #3 on: 2024.April.26. 15:45:01 »
Sierpinski háromszög? Mondjuk kb. 12 perc, míg kirajzolja.
*** Speicherplatz zu klein

Offline Povi

  • EP addict
  • *
  • Posts: 2300
  • Country: hu
    • http://povi.fw.hu
Re: BASIC program beíró feladatok?
« Reply #4 on: 2024.April.26. 15:46:23 »
You need ask Endi in Facebook.
He there posts many fun graphical experiments.
Igen, Enditől rengeteg jó példa van itt:
https://www.facebook.com/groups/112679608813524
*** Speicherplatz zu klein

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9952
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #5 on: 2024.April.26. 16:06:51 »
Egyszer itt a fórumon is volt egy egysoros program felhívás, amiből talán lett 2-3-4 soros is, de nem találom.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9952
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #6 on: 2024.April.26. 16:13:49 »
Lehetne valami karakteranimáció. Képernyőtörlés után a szóköz karakterét definiálná át és animálná, valami trükkös módszerrel, amihez nem kell 20 soron keresztül SET CHARACTER utasításokat adni meg, hanem FOR cikluson belül valami más, pl. gyökfüggvény, moduloosztás, akármi alapján rajzolna animációt.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9952
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #7 on: 2024.April.26. 16:34:23 »
Ennyi jutott nekem eszembe, de biztos sokkal jobbat is ki lehetne ebből hozni:

Code: [Select]
  100 TEXT 40
  110 DO
  120   LET A=1
  130   FOR B=1 TO 7
  140     SET CHARACTER 32,A,A,A,A,A,A,A,A,A
  150     LET A=A*2
  160   NEXT
  170   FOR B=1 TO 7
  180     LET A=A/2
  190     SET CHARACTER 32,A,A,A,A,A,A,A,A,A
  200   NEXT
  210 LOOP
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 9952
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #8 on: 2024.April.26. 16:50:03 »
Ha nem csak látvány lehet, hanem hang is, akkor valami ilyesmi is elmenne, de talán a 170-es sorban az ORD(A$) helyett valami jobb megoldás is létezhet:

Code: [Select]
  100 SET KEY CLICK OFF
  110 SET 6,2
  120 ENVELOPE NUMBER 1;0,63,63,1;RELEASE;0,-33,-33,6;0,-30,-30,60
  130 LET A=0
  140 DO
  150   LET A$=INKEY$
  160   IF A$="" THEN GOTO 150
  170   SOUND PITCH ORD(A$),ENVELOPE 1,SOURCE A,DURATION 2
  180   LET A=A+1
  190   IF A=3 THEN LET A=0
  200 LOOP
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline ergoGnomik

  • EP addict
  • *
  • Posts: 1299
  • Country: hu
  • Stray cat from Commodore alley
Re: BASIC program beíró feladatok?
« Reply #9 on: 2024.April.26. 19:12:39 »
Esetleg gflorez programjai a The Christmas Star Challenge-A karácsonyi csillag kihivás témából?

Offline Tutus

  • EP lover
  • *
  • Posts: 682
  • Country: hu
    • Enterprise 128
Re: BASIC program beíró feladatok?
« Reply #10 on: Yesterday at 09:29 »
Igen, Enditől rengeteg jó példa van itt:
https://www.facebook.com/groups/112679608813524
Igen, de Kapitánynak erre a linkre valamiért ezt dobja a buta face...
Most már mindegy, lassan indul a Regamex :)