Keskustelu: Koodit: QB: Nykivä kirjoitus

Vähän niinkuin nykivää kirjoitusta,toinenkin löytyy.

Cls
Print "J"
Sleep 2
cls
Print "Jo"
Sleep 2
cls
Print "Jou"
Sleep 5

Kommentteja kiitos!

Lähes kuka vain osaa tehdä tällaisen... (ei millään pahalla)

no voi niitä herjauksii tehä,mut ei tääl tämmöst ollu!

ja sitäpaitsi tää on kaikkein helpoin ton tapanen.

En tarkoittanut sitä herjauksena, vaan pelkkänä huomautuksena.
Tämä on luultavasti helpoin ja lyhin tapa tämän mittaisella, mutta jos se on paljonkin pidempi niin se kannattaisi toteuttaa eri tavalla (esim. lisäämällä yksi kirjain kerrallaan vanhojen perään, perässä esimerkki pidemmille teksteille).

CLS
teksti$ = "Tässä on pitkä pätkä tekstiä ja hieman enemmänkin..."

FOR i = 1 TO LEN(teksti$)
  PRINT MID$(teksti$, i, 1);
  odota = TIMER + .1
  DO WHILE odota > TIMER
  LOOP
NEXT

Ääh, eikö tällaiset voisi poistaa? Jotain tasoa...

Joo,mut noi on monimutkasempii