Keskustelu: Koodit: QB: vierivä teksti

Hankala tätä on hirveästi kuvailla. Pikkuinen koodivinkki, joka tekee näytölle semmoisen vierivän tekstin.

CLS
teksti$ = "Vierivä teksti - Tehnyt Jogge - www.ohjelmointiputka.net - " 'vieritettävä teksti
m = 10 'montako merkkiä näytetään
h = 12 'hidastus
DO

  FOR hidastus = 1 TO h
    DO: LOOP UNTIL (INP(&H3DA) AND &H8) <> 0 'hidastus
    DO: LOOP UNTIL (INP(&H3DA) AND &H8) = 0 'hidastus
  NEXT

  FOR n = 1 TO LEN(teksti$) - 1
    a1$ = MID$(teksti$, n, 1)
    a2$ = MID$(teksti$, n + 1, 1)
    MID$(teksti$, n + 1, 1) = a1$
    MID$(teksti$, n, 1) = a2$
  NEXT
  LOCATE 1, 1: PRINT MID$(teksti$, 1, m) 'tulostetaan näytölle
LOOP

Vieriikö tämä sulavasti vai niinku "pätkien" eli merkki kerrallaan kai tajuat?

merkki kerrallaan, koska ollaan tekstitilassa.

miten ton saa toimii kertokaa tyhmälle

jos kirjottaa ton notepadiin niin mihin muotoon se pitää tallentaa niin et se toimii

Tässä ohjeet pähkinänkuoressa:
------------------------------
1. Avaa Notepad (= muistio).
2. Kopioi lähdekoodi sinne.
3. Tallenna lähdekoodi .bas-tiedostoksi
4. Avaa .bas Q(uick)Basicilla ja suorita se.
5. Gimme some food :(

eih, toi bas-tiedostoksi on liian vaikeaa nykyään. helpompaa tallentaa txt-muotoon, mutta sitten on taas ongelmana sen tiedoston löytäminen... sekin on niin pirun vaikeaa, huh. no eikai sitten muu auta kuin lopettaa koodaus :/

Rauha maassa!

lainaus:

eih, toi bas-tiedostoksi on liian vaikeaa nykyään. helpompaa tallentaa txt-muotoon, mutta sitten on taas ongelmana sen tiedoston löytäminen...

nii mut ku menee siihen tiedoston avaus ikkunaan joka on siinä jossai, nii kirjottaa siihen tiedostonimiruutuun *.* tai vaikka *.txt ja painaa enteriä niin sitten siihen tulee ne ja sieltä voi ettiskellä. pässi ei osaa pistää qbasic juttuja omiin hakemistoihinsa