Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Hieno kumpu halutusta sanasta

Sivun loppuun

Gwaur [08.11.2002 09:57:28]

#

Tämä koodi tekee halutusta sanasta hienon kummun. Sen ei kannata olla pitkä, mutta jos haluat nähdä mitä käy pitkälle sanalle niin siitä vaan.

CLS
DIM kaannett AS STRING
DIM ttennaak AS STRING
DIM ttenaak AS STRING
INPUT "Minkä sanan haluat muodostaa?", kaannett
CLS
kaannett = kaannett + " " 'ekan ja vikan merkin ON oltava väli
FOR letter = 1 TO LEN(kaannett)
        ttennaak = MID$(kaannett, letter)
        ttenaak = ttenaak + ttennaak
        ttennaak = ttennaak + ttenaak
        PRINT ttennaak
NEXT letter
PRINT ttenaak

Gwaur [09.11.2002 01:16:06]

#

kommentteja vastaanotetaan mielellään...

KimmoKM [09.11.2002 09:44:31]

#

Ihan hienosti näyttää toimivan. Aika yksinkertainen tosin

snakari [09.11.2002 10:12:03]

#

no olipa nyt hieno :D

N [09.11.2002 10:30:10]

#

Joo todel hieon :)

Sose [09.11.2002 11:41:06]

#

Ei kovin hieno...

Tumpi [09.11.2002 20:34:26]

#

Ei oikeen sovi grafiikat-osioon

snakari [09.11.2002 21:44:06]

#

ei sovi minnekkään osioon, mitä ton ees pitäis tehä?

Tatu Peltola [22.04.2003 20:59:27]

#

Täh???

kaviaari [23.07.2003 16:23:40]

#

Siis ihan surkee!!

JJKulmo [26.05.2004 20:05:09]

#

Ompa hieno :p

Sivun alkuun

Vastaus

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

Tietoa sivustosta