Invertitore di frasi

[Gianluigi]

Ho visto una mail di Benoit (purtroppo l'ho cancellata involontariamente) che rispondeva con una frase capovolta e mi ha ispirato.
Questo è solo un codice basico, se volete migliorarlo...
Scrivete la frase che volete (numeri arabi esclusi più altre cose, se il carattere non è previsto appare un cancelletto), poi agite sul pulsante.
Potete copiare la frase capovolta e incollarla in qualunque posto che supporti il richtext (editor di testo, e-mail ecc.)

 

[kicco]

Grazie.
 

[vuott]

Aggiungerei che la codifica in HTML dei caratteri UNICODE è accettata anche dalle Classi che permettono l'uso del protocollo HTML:

- TextLabel (con la Proprietà ".Text");
- InputBox (per il solo 1° parametro "Prompt");
- Message (per il solo 1° parametro "Message" del Metodo .Info);
- Balloon (per il 1° parametro "Message" del Metodo .Info);
- GridView[n, n] (con la Proprietà ".RichText");
- WebView  (con la Proprietà ".HTML");
- Paint (con i Metodi ".DrawRichText" e ".RichText").

Per i restanti Controlli si dovrà utilizzare il Metodo ".Chr()" della Classe String con codice del carattere UNICODE espresso nella normale rappresentazione decimale o esadecimale.

[Gianluigi]

Secondo voi a cosa potrebbe servire, oltre al cazzeggio?
Magari scrivere mail senza farsi capire dalla AI ?

 

[vuott]

Questo è solo un codice basico, se volete migliorarlo...

Non so se comporta un miglioramento, ma si potrebbe usare un vettore di stringhe:

Codice: [Seleziona]

Private caratteri As String[] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "h", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " ", "(", "+", ",", "-", ".", "/", "\\", "<", ">", "=", ")", "?", "!", "'", ";", "&#xA4EF;", "&#xA4ED;", "&#xA4DB;", "&#xA4F7;", "&#xA4F1;", "&#xA4DE;", "&#xA4E8;", "&#x0048;", "&#x0049;", "&#xA4E9;", "&#xA4D8;", "&#xA4F6;", "&#x019C;", "&#x004E;", "&#x004F;", "&#x0500;", "&#xA779;", "&#xA4E4;", "&#x0053;", "&#xA4D5;", "&#xA4F5;", "&#xA4E5;", "&#x004D;", "&#x0058;", "&#x2144;", "&#x005A;", "&#x0250;", "&#x071;", "&#x0254;", "&#x0070;", "&#x01DD;", "&#x025F;", "&#x0253;", "&#x0265;", "&#x1D09;", "&#x017F;", "&#x029E;", "&#xA781;", "&#x026F;", "&#x0075;", "&#x006F;", "&#x0064;", "&#x0062;", "&#x0279;", "&#x0073;", "&#x0287;", "&#x006E;", "&#x028C;", "&#x028D;", "&#x0078;", "&#x028E;", "&#x007A;", "&#x0020;", "&#x0029;", "&#x002B;", "&#x0027;", "&#x002D;", "&#x16eb;", "&#x005C;", "&#x002F;", "&#x003E;", "&#x003C;", "&#x003D;", "&#x0028;", "&#x00BF;", "&#x00A1;", "&#x060C;", "&#x061B;"]


Public Sub Form_Open()

  TextEdit1.Text = "www.gambas-it.org e' la Comunita' dei programmatori Gambas!"

End


Public Sub Button1_Click()

  Dim s As String

  For c As Short = (TextEdit1.Text.Len - 1) To 0 Step -1
    s &= caratteri[caratteri.Find(TextEdit1.Text[c, 1]) + 68]
  Next 
  
  TextEdit2.RichText = s
  
End

[vuott]

Secondo voi a cosa potrebbe servire, oltre al cazzeggio?

...ai neofiti a incontrare e a cimentarsi con il protocollo UNICODE in Gambas.

[Gianluigi]

Questo è solo un codice basico, se volete migliorarlo...

Non so se comporta un miglioramento, ma si potrebbe usare un vettore di stringhe:

Codice: [Seleziona]

Private caratteri As String[] = ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "h", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", " ", "(", "+", ",", "-", ".", "/", "\\", "<", ">", "=", ")", "?", "!", "'", ";", "&#xA4EF;", "&#xA4ED;", "&#xA4DB;", "&#xA4F7;", "&#xA4F1;", "&#xA4DE;", "&#xA4E8;", "&#x0048;", "&#x0049;", "&#xA4E9;", "&#xA4D8;", "&#xA4F6;", "&#x019C;", "&#x004E;", "&#x004F;", "&#x0500;", "&#xA779;", "&#xA4E4;", "&#x0053;", "&#xA4D5;", "&#xA4F5;", "&#xA4E5;", "&#x004D;", "&#x0058;", "&#x2144;", "&#x005A;", "&#x0250;", "&#x071;", "&#x0254;", "&#x0070;", "&#x01DD;", "&#x025F;", "&#x0253;", "&#x0265;", "&#x1D09;", "&#x017F;", "&#x029E;", "&#xA781;", "&#x026F;", "&#x0075;", "&#x006F;", "&#x0064;", "&#x0062;", "&#x0279;", "&#x0073;", "&#x0287;", "&#x006E;", "&#x028C;", "&#x028D;", "&#x0078;", "&#x028E;", "&#x007A;", "&#x0020;", "&#x0029;", "&#x002B;", "&#x0027;", "&#x002D;", "&#x16eb;", "&#x005C;", "&#x002F;", "&#x003E;", "&#x003C;", "&#x003D;", "&#x0028;", "&#x00BF;", "&#x00A1;", "&#x060C;", "&#x061B;"]


Public Sub Form_Open()

  TextEdit1.Text = "www.gambas-it.org e' la Comunita' dei programmatori Gambas!"

End


Public Sub Button1_Click()

  Dim s As String

  For c As Short = (TextEdit1.Text.Len - 1) To 0 Step -1
    s &= caratteri[caratteri.Find(TextEdit1.Text[c, 1]) + 68]
  Next 
  
  TextEdit2.RichText = s
  
End

Se lo testo con le scritte di prova del mio progetto, ottengo dei risultati differenti es. k e lettere accentate, select case inoltre permette in modo più semplice di provare nuovi codici, aggiunte...