Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: suomi - peelo kääntäjä

Sivun loppuun

snakari [03.07.2002 14:07:30]

#

Tässä on nyt tämmönen suomi - peelo kääntäjä.
Käyttöä tälle ei varmaan voi keksiä :D

DECLARE FUNCTION peelo$ (teksti AS STRING)

CLS

PRINT peelo$("suomi - peelo kääntäjä")
PRINT peelo$("by: snakari")

FUNCTION peelo$ (teksti AS STRING)
FOR k = 1 TO LEN(teksti)
IF UCASE$(MID$(teksti, k, 1)) = "A" THEN teksti = LEFT$(teksti, k - 1) + "4" + MID$(teksti, k + 1, LEN(teksti))
IF UCASE$(MID$(teksti, k, 1)) = "E" THEN teksti = LEFT$(teksti, k - 1) + "3" + MID$(teksti, k + 1, LEN(teksti))
IF UCASE$(MID$(teksti, k, 1)) = "G" THEN teksti = LEFT$(teksti, k - 1) + "6" + MID$(teksti, k + 1, LEN(teksti))
IF UCASE$(MID$(teksti, k, 1)) = "I" THEN teksti = LEFT$(teksti, k - 1) + "1" + MID$(teksti, k + 1, LEN(teksti))
IF UCASE$(MID$(teksti, k, 1)) = "O" THEN teksti = LEFT$(teksti, k - 1) + "0" + MID$(teksti, k + 1, LEN(teksti))
IF UCASE$(MID$(teksti, k, 1)) = "S" THEN teksti = LEFT$(teksti, k - 1) + "5" + MID$(teksti, k + 1, LEN(teksti))
IF UCASE$(MID$(teksti, k, 1)) = "T" THEN teksti = LEFT$(teksti, k - 1) + "7" + MID$(teksti, k + 1, LEN(teksti))
NEXT k
peelo$ = teksti
END FUNCTION

Dj Wolf [04.07.2002 21:23:15]

#

Heh... Ihan h4u5k4 :)

snakari [05.07.2002 21:05:52]

#

k41p 7ää 517 0n!!!!!!!!!111111111

ThePaladin [08.07.2002 13:21:30]

#

Mä 731n 70574 53ll4153n v3r510n 377ä 544 k1rj017744 54n4n j4 51773n 53 5u0m3n744 53n 7ällä53nä 73k571nä.
SUOMENNETUNA:
Mä tein tosta sellaisen version että saa kirjoittaa sana ja sitten se suomentaa sen tälläsenä tekstinä.

progo [04.12.2002 08:16:07]

#

Loistava :)

Fisher [04.05.2004 20:38:11]

#

7051 h13n0

JJKulmo [26.05.2004 11:45:55]

#

Li3väs71 l3s0

moptim [04.07.2006 11:02:45]

#

5215k0 V15u4l B451c1ll3? 741 b1n44r1n4...

moptim [16.09.2006 20:37:27]

#

31 51773nk44

moptim [16.09.2006 20:43:19]

#

vb-purkka:

Function Peeloksi(teksti As String)
  For i = 1 To Len(teksti)
    Select Case UCase(Mid(teksti, i, 1))
    Case "A"
      Peeloksi = Peeloksi & "4"
    Case "E"
      Peeloksi = Peeloksi & "3"
    Case "I"
      Peeloksi = Peeloksi & "1"
    Case "O"
      Peeloksi = Peeloksi & "0"
    Case "S"
      Peeloksi = Peeloksi & "5"
    Case "T"
      Peeloksi = Peeloksi & "7"
    Case Else
      Peeloksi = Peeloksi & UCase(Mid(teksti, i, 1))
    End Select
  Next i
End Function

EDIT: nyt sisennettynä

Sivun alkuun

Vastaus

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

Tietoa sivustosta