vlahonick vlahonick a écrit : > > hi again...sorry about the delay in my reply :D > but i really didnt understand ur example here.... > of course now i realise that even the textbox2.text had the reasult i wanted > the problem will > be in the letters appering because of their bytes... > but the main problem is not solved yet.... > still in the textbox2.text appears what i am writing in the textbox1.text and > not what i want... > and abou the example u gave me with if then else end if is a bad idea because > if for example we want to > converter a word i have to put many boxes and the user to write a letter in > every box to have in that many other boxes a result.... > (anyway i tried this but just didnt work...) > so plz if u can tell me how i can make with two boxes every character i wrote > in the first box to appear what i want in the second box.... > what i wrote wrong???why at the 2nd box appears what i am writing in the 1st > box??? > plz solve this and then if this problem is solved but in the second or first > textbox the charactes doesnt appears in the way the should i will try to set > somehow that they are UTF-8 characters so they have more bytes... > ty again for ur replies :D:D:D > > vlahonick...LOVE AND GREETINGS FROM GREECE :D > also u can see some of my work in the www.vlahonick.freehost.gr (of course u > dont gonna understand many because site is in greek but u can try download my > games->www.vlahonick.freehost.gr/downloads.html and press Παιχνίδια=games) > > here my code for one more time : > > ' Gambas class file > > PUBLIC SUB _new() > > END > > PUBLIC SUB Form_Open() > > END > > PUBLIC SUB Button1_Click() > DIM nI AS Integer > DIM sAnyChar AS String > TextBox2.text = "" > FOR nI = 1 TO Len(TextBox1.Text) > sAnyChar = Mid(TextBox1.Text, nI, 1) > TextBox2.Text = TextBox2.Text & Gronverter(sAnyChar) > NEXT > END > > FUNCTION Gronverter(sInChar AS String) AS String > DIM sRetChar AS String = sInChar > > IF sInChar = "α" THEN sRetChar = "a" > IF sInChar = "β" THEN sRetChar = "v" > IF sInChar = "γ" THEN sRetChar = "g" > IF sInChar = "δ" THEN sRetChar = "d" > IF sInChar = "ε" THEN sRetChar = "e" > IF sInChar = "ζ" THEN sRetChar = "z" > IF sInChar = "η" THEN sRetChar = "ι" > IF sInChar = "θ" THEN sRetChar = "th" > IF sInChar = "ι" THEN sRetChar = "i" > IF sInChar = "κ" THEN sRetChar = "k" > IF sInChar = "λ" THEN sRetChar = "l" > IF sInChar = "μ" THEN sRetChar = "m" > IF sInChar = "ν" THEN sRetChar = "n" > IF sInChar = "ξ" THEN sRetChar = "x" > IF sInChar = "ο" THEN sRetChar = "o" > IF sInChar = "π" THEN sRetChar = "p" > IF sInChar = "ρ" THEN sRetChar = "r" > IF sInChar = "σ" THEN sRetChar = "s" > IF sInChar = "τ" THEN sRetChar = "t" > IF sInChar = "υ" THEN sRetChar = "i" > IF sInChar = "φ" THEN sRetChar = "f" > IF sInChar = "χ" THEN sRetChar = "h" > IF sInChar = "ψ" THEN sRetChar = "ps" > IF sInChar = "ω" THEN sRetChar = "o" > RETURN sRetChar > > END > > PUBLIC SUB Button2_Click() > > TextBox1.text = "" > TextBox2.text = "" > END > >>
Hi, You have to use the String class because each greek character is 2 bytes long. Change the SUB Button1_Click() as below and all will be fine! (I've tested it) PUBLIC SUB Button1_Click() DIM nI AS Integer DIM sAnyChar AS String TextBox2.text = "" FOR nI = 1 TO String.Len(TextBox1.Text) sAnyChar = String.Mid(TextBox1.Text, nI, 1) TextBox2.Text = TextBox2.Text & Gronverter(sAnyChar) NEXT END ------------------------------------------------------------------------------ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user