Enterprise Forever
:HUN => Programozás => BASIC => Topic started by: Kapitany 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:
[attachimg=1]
Vagy esetleg ezt átportolni IS BASIC-re? Összegyűjthetnénk pár ilyen progit! :)
K.
-
Itt is mentsetek már meg, légyszi! :D Holnapra kéne valami! :)
-
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é.
-
Sierpinski háromszög? Mondjuk kb. 12 perc, míg kirajzolja.
-
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
-
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.
-
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.
-
Ennyi jutott nekem eszembe, de biztos sokkal jobbat is ki lehetne ebből hozni:
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
-
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:
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
-
Esetleg gflorez programjai a The Christmas Star Challenge-A karácsonyi csillag kihivás (https://enterpriseforever.com/other-topics/the-christmas-star-challenge-a-karacsonyi-csillag-kihivas/msg87527) témából?
-
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 :)
-
Köszi mindenkinek a segítséget! Vittem BASIC feladatkát, illetve rátaláltam, hogy a kézikönyv legelején, az Első programok fejezetben vannak kifejezetten erre a célra látványosak (Tutus, ott van az az ellipszis színezős is amire mindketten emlékeztünk de nem tudtuk, hogy hol van), de végül senki nem akart BASIC programot beírni tejkaramelláért. :(