Input -ongelma

[Koodari]

Eli en ole ehtinyt perehtyä tuohon inputtiin sen tarkemmin... Eli miten saadaan ohjelma tunnistamaan kirjoitettu sana?
Eli jos kirjoitat inputtiin sanan moi, niin ohjelma tunnistaa sen... (Tarkoitan, että miten voin ohjelmoida ohjelman tunnistamaan sen...)

Näin ei ainakaan toimi:

Code: Select all

AddText "Terve!"
DrawScreen
Repeat
    Sana=Input("Vastaa: ")
    DrawScreen
Until KeyHit(cbkeyreturn)
If Sana = Moi Then Text 0,26,"Moi sullekin!" Else Text 0,26,"Kirjoita 'Moi'!"
DrawScreen
WaitKey

Tossa se vastaa aina "Moi sullekin!"

Voiskohan joku vähän fixata koodia, että toimii...

[Tuxi]

Nyt toimii:

Code: Select all

AddText "Terve!"
    DrawScreen
    Repeat
        Sana$=Input("Vastaa: ")
        DrawScreen
    Until KeyHit(cbkeyreturn)
    If Lower(Sana$) = "moi" Then Text 0,26,"Moi sullekin!" Else Text 0,26,"Kirjoita 'Moi'!"
    DrawScreen
    WaitKey

Koska muuttuja sana sisältää tekstiä se täytyy määritellä merkkijonoksi $-merkillä. Lower on siksi siellä, että sillä ei ole väliä, kirjoittaako sanan isolla vai pienellä ja sitten pitää olla "-merkit moi sanan ympärillä, koska siinä verrataan moi-sanaa merkkijonoon.

EDIT:

100. viesti. Minusta tuli Active Member.

[legend]

Muuta sana - sana$
Muuta moi - "moi"
Sun kannattaa myös käyttää sanan tarkistuksessa lower() functiota.

EDIT:

Tuxi ehti jo vastata.

[Koodari]

Kiitos
Arvasin, et joku osaa ton