Welcome, Guest. Please login or register.


Author Topic: BASIC program beíró feladatok? (Read 196 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: Yesterday at 12:43 »
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: Yesterday at 14:28 »
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: Yesterday at 15:45 »
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: Yesterday at 15:46 »
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: 9950
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #5 on: Yesterday at 16:06 »
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: 9950
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #6 on: Yesterday at 16:13 »
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: 9950
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #7 on: Yesterday at 16:34 »
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: 9950
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC program beíró feladatok?
« Reply #8 on: Yesterday at 16:50 »
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: Yesterday at 19:12 »
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: Today 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 :)