Programmazione > Progetti degli utenti
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.)
:ciao:
kicco:
Grazie.
:ciao:
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 ?
:ciao:
vuott:
--- Citazione da: Gianluigi - 24 Luglio 2023, 13:35:55 ---Questo è solo un codice basico, se volete migliorarlo...
--- Termina citazione ---
Non so se comporta un miglioramento, ma si potrebbe usare un vettore di stringhe:
--- Codice: ---
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", " ", "(", "+", ",", "-", ".", "/", "\\", "<", ">", "=", ")", "?", "!", "'", ";", "ꓯ", "ꓭ", "ꓛ", "ꓷ", "ꓱ", "ꓞ", "ꓨ", "H", "I", "ꓩ", "ꓘ", "ꓶ", "Ɯ", "N", "O", "Ԁ", "Ꝺ", "ꓤ", "S", "ꓕ", "ꓵ", "ꓥ", "M", "X", "⅄", "Z", "ɐ", "q", "ɔ", "p", "ǝ", "ɟ", "ɓ", "ɥ", "ᴉ", "ſ", "ʞ", "ꞁ", "ɯ", "u", "o", "d", "b", "ɹ", "s", "ʇ", "n", "ʌ", "ʍ", "x", "ʎ", "z", " ", ")", "+", "'", "-", "᛫", "\", "/", ">", "<", "=", "(", "¿", "¡", "،", "؛"]
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
--- Termina codice ---
Navigazione
[0] Indice dei post
Vai alla versione completa