Sananmuuntaja
Posted: Sun Mar 20, 2011 12:52 am
Joo mä tiedän et tää on ollu foorumeil mutta sorsan linkki on vanhentunut. Siksipä tein esimerkin. Tiiän et on purkkanen, mut on kuitenki. Ideana siis on että tehdään merkkijonosta kaksi sanaa ja otetaan molemmista muistiin kaksi ensimmäistä kirjainta ja poistetaan ne sanojen alusta. Sitten liitetään sanan 1 alku sanan 2 alkuun ja toisinpäin. Koodi:
Code: Select all
Repeat
sanat$ = Input ("Kirjoita sanat: ")
DrawScreen
Until KeyHit(28)
CloseInput
sana1$ = GetWord (sanat, 1)
sana2$ = GetWord (sanat, 2)
väli1$ = Left (sana1, 2)
väli2$ = Left (sana2, 2)
sana1$ = StrRemove (sana1$, 1, 2)
sana2$ = StrRemove (sana2$, 1, 2)
sana1 = väli2 + sana1
sana2 = väli1 + sana2
Print sana1+" "+sana2
WaitKey