Keskustelu: Koodit: QB: Tekstin keskittäminen

Eli tämä mahdollisimman yksinkertainen ohjelma pistää tekstin keskelle.
Toimii ainakin: SCREEN 0, SCREEN 9, SCREEN 12

DECLARE SUB keskita (teksti$, paikkax%, vari%)
SCREEN 9
' Tämä yksinkertainen ohjelma keskittää tekstin kätevästi

keskita "tämä teksti on keskellä", 2, 9

SUB keskita (teksti$, paikkax%, vari%)
pituus% = LEN(teksti$)
paikkay% = 40 - pituus% / 2
COLOR vari%: LOCATE paikkax%, paikkay%: PRINT teksti$
END SUB

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä..

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä..

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä..

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä.. En oo jaksanut ko

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä..

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä..

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä..

En oo jaksanut koittaa, mutta näyttää ihan hyödylliseltä..

EN OO EN OO EN OO EN OO EN OO EN OO EN OO EN OO EN OO EN OO EN OO EN OO EN OO

Jollain on tainnut olla hauskaa käyttää toisten nimimerkkiä ja vähän postittaa turhaan.

Kyllä on tainnu :))

Kiva ohjelma, muttei kovin monipuolinen... Itsekin olen tehnyt aikaisemmin samantyylisen :)
BTW: Olen uusi täällä

Hyödyllinen ohjelma teksturiini. Ehkä pitäisi laittaa näihin kommentteihinkin rekisteröinti.

Öh.. Miksi tuo on tehty noin vaikeasti?

Itse tein tälläsen:

CLS
teksti$ = "T?m? teksti on keksitetty."
LOCATE , (78 - LEN(teksti$)) / 2
PRINT teksti$

Mä en oo tajunnu ennemmin miten tuommonen teherään(en oo tarvinnu).