Keskustelu: Koodit: QB: ASCII-animaatiota

Gwaur [19.10.2003 18:39:19]

ASCII-merkeillä animaatiota tämän koodin avulla.
Itse animaatio on DATA-taulukossa. Jos haluat odottaa tietyn verran sekunteja, kirjoita omalle rivilleen näin:
->[sekunnit]
eli jos haluat odottaa esim. 3 sekuntia, kirjoita
->3

Seuraava kuva tulee kun kirjoitat omalle rivilleen merkin #
Animaation lopettaminen vaatii ! -merkin omalla rivillään.
Kaikki muut näytetään animaation kuvana.

(Kaikki nämä esiintyvät esimerkkianimaatiossa josta tuli vähän pitkä...)

DECLARE SUB odota (sek%)
DIM animaatio AS STRING

CLS
RESTORE anim
DO
   READ animaatio
   IF animaatio = "#" THEN
      alkuaika = TIMER
      DO: LOOP UNTIL TIMER - alkuaika >= .3
      CLS
   ELSEIF LEFT$(animaatio, 2) = "->" THEN
      odota (VAL(RIGHT$(animaatio, LEN(animaatio) - 2)))
   ELSEIF animaatio = "!" THEN
      END
   ELSE
      PRINT animaatio
   END IF
LOOP UNTIL INKEY$ = CHR$(27) OR animaatio = "!"

anim:
DATA "/******************************\"
DATA "*  A                           *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  ANI                         *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  ANIMA                       *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  ANIMAAT                     *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  ANIMAATIO                   *"
DATA "*                              *"
DATA "* odotetaan pari sekuntia...   *"
DATA "*                              *"
DATA "\******************************/"
DATA "->2"
DATA "#"
DATA "/******************************\"
DATA "*  ANIMAATIOESIMERKKI          *"
DATA "*  by Saasta aka. Gwaur        *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  ANIM ATIOESIMERKKI          *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  ANI  ATIOESIMERKKI          *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  AN   ATIOESIMERKKI          *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*  A    ATIOESIMERKKI          *"
DATA "*                              *"
DATA "*                              *"
DATA "*        U                     *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       ATIOESIMERKKI          *"
DATA "*                              *"
DATA "*        U                     *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AITOESIMERKKI          *"
DATA "*        U                     *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*                              *"
DATA "*                              *"
DATA "*                              *"
DATA "\******************************/"
DATA "->1"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*         _____,               *"
DATA "*      ,-ï     |               *"
DATA "*      ~~o~~~o~~               *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*        _____,                *"
DATA "*     ,-ï     |                *"
DATA "*     ~~o~~~o~~                *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*       _____,                 *"
DATA "*    ,-ï     |                 *"
DATA "*    ~~o~~~o~~                 *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*      _____,                  *"
DATA "*   ,-ï     |                  *"
DATA "*   ~~o~~~o~~                  *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*     _____,                   *"
DATA "*  ,-ï     |                   *"
DATA "*  ~~o~~~o~~                   *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*    _____,                    *"
DATA "* ,-ï     |                    *"
DATA "* ~~o~~~o~~                    *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*   _____,                     *"
DATA "*,-ï     |                     *"
DATA "*~~o~~~o~~                     *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*  _____,                      *"
DATA "*-ï     |                      *"
DATA "*~o~~~o~~                      *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "* _____,                       *"
DATA "*ï     |                       *"
DATA "*o~~~o~~                       *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*_____,                        *"
DATA "*     |                        *"
DATA "*~~~o~~                        *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*____,                         *"
DATA "*    |                         *"
DATA "*~~o~~                         *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*___,                          *"
DATA "*   |                          *"
DATA "*~o~~                          *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*__,                           *"
DATA "*  |                           *"
DATA "*o~~                           *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*_,                            *"
DATA "* |                            *"
DATA "*~~                            *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*,                             *"
DATA "*|                             *"
DATA "*~                             *"
DATA "\******************************/"
DATA "#"
DATA "/******************************\"
DATA "*       AUTOESIMERKKI          *"
DATA "*                              *"
DATA "*       LoPpU                  *"
DATA "*       lOpPu                  *"
DATA "\******************************/"

DATA "!"

SUB odota (sek%)
   alkuaika = TIMER
   DO: LOOP UNTIL TIMER - alkuaika >= sek%
END SUB

Dustbin [20.10.2003 21:04:02]

Sais olla enemmän "kuvia" sekunnissa, tulis hienompi, mutta samalla enemmän koodia (noh, koodit on tehty muokattaviksi).
Voiskohan tämän muuten tehdä vähemmälläkin koodilla?

Gwaur [20.10.2003 21:18:29]

lainaus:

Voiskohan tämän muuten tehdä vähemmälläkin koodilla?

En tiedä... En ainakaan keksi mitään miten voisi lyhentää

T.M. [20.10.2003 22:43:10]

voisihan tuon toteuttaa niin että tekisi esimerkiksi tuosta autosta erillisen osan, ja sitä liikuttelemalla tehtäisiin se auton liike

tejeez [21.10.2003 11:25:20]

Koodihan onkin jo melko lyhyt, animaatiohan tässä on suurin osa koodista :D

kaviaari [21.10.2003 16:04:52]

Aivan hirveää kerrasaan järkyttävää! Jos tuota ei osaisi itse tehdä niin ehh...mielestäni tarpeeton

Dustbin [21.10.2003 20:42:56]

Mulle siitä ainakin oli hyötyä.

Jarkko [22.10.2003 22:52:03]

Saasta yrittää olla kova ku sai noin pitkän koodin aikaseks :P. No eih... Tosta ainakin ymmärtää datan käytön aika hyvin. Arvasin jo ku näin sanat ascii-animaatioita ja Qbasic et saastahan sen on oltava ;D.

Gwaur [30.10.2003 16:07:55]

Niin. Kuka mun lisäksi täällä vielä enää säätää QBasicia :D

Stume [20.01.2004 14:18:08]

surkea

hunajavohveli [31.03.2004 18:55:14]

Tuo DATA vie oikeastaan turhaa tilaa koodissa. Olisi hyvä, jos kuvat voisi tallentaan tiedostoon ja lukea sieltä. Putkaan pitäis saada koodivinkkeihin joku lisäys, joka kenttä mihin voisi tallentaa mahdolliset ohjelman käyttämät data-tiedostot.

hunajavohveli [31.03.2004 18:56:12]

Ja Stume, mikä kumma näppäimistöäsi riivaa?

hunajavohveli [31.03.2004 18:57:49]

Ja olisihan tuon totta kai voinut tehdä lyhyemmällä koodilla. Olisi tarvinnut piirtää kehykset ja auto ainoastaan kerran ja sitten liikuttaa autoa käyttämällä muuttujia.

JJKulmo [26.05.2004 19:35:51]

Kaunista

miiro [31.05.2004 09:16:27]

NII VOIS olla kehykset erikseen jotka sit aina printattais tai se saattais oikeestaa viedä enemmä....

aWW [26.05.2005 12:06:37]

Olipa paljon turhaa koodia.

Juhko [12.10.2006 13:16:46]

: )

gamehouse [28.05.2007 15:37:10]

Aika nopea...

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät