molmark

Utente Medio
Autore del topic
24 Novembre 2007
188
0
Miglior risposta
0
Salve a tutti.
Vorrei fare in modo da creare un "Alfabeto numerico" strano.
Vorrei fare in modo che una lettera nel TextBox1 corrisponda ad un'altra lettera o numero nel TextBox2.
All'inizio avevo pensato ad un banale If + Then.

Codice:
Perfavore, Entra oppure Registrati per vedere i codici!

Ma se scrivevo qualcos'altro che non era "a" non mi cambiava niente.
Come faccio?
 
Non basta un if e un then
Sinceramente sono argomenti molto difficili gli encoder, devi definire ogni singolo carattere tramite api e poi covertirlo a string...
Non è per niente facile.
 
Ah ok. Allora faniente (:
Però vorrei chiedervi, qual'è il comando per inviare un eMail tramite VisualBasic 6?
 
allora per criptare una frase devi usare Replace:

Replace (Text1.text,"LETTERADACRIPTARE","LETTERACRIPTATA")

;)

per le email crea un'altro topic ;)
 
se poi si vuole fare una cosa per bene anche in vb.net

Dim Key as String
key.replace("aaa,↔")
textbox2.text = key è un esempio !! fatto al volo xD
 
Grazie per le risposte.
Invece riguardo agli UP, segnalami pure. Io l'ho fatto perchè poi finiva in fondo alle discussioni e nessuno rispondeva.
--------------- AGGIUNTA AL POST ---------------
EDIT:
niente non funziona.

2eqcdjo.jpg
 
Ultima modifica:
Quell'errore avviene perchè la funzione Replace necessita di essere inserita o comparata con qualcosa :soso:
Una variabile,una textbox ecc...
 
cioè devi mettere text1.text = Replace(text1.text,"parola","parola") ;)
 
Ottimo. Il programma è quasi venuto.
Il problema è uno, ma sono sicuro che si risolverà senza problemi.
Il fatto è che, una volta che ho cliccato sul bottone e cryptato il testo, si ripete solo una volta e se cambio la frase non me lo crypta più.
Credo che questo sia facilmente correggibile, però non so il comando che consenta al "reverse" di essere ripetuto all'infinito.
Altro problema invece è che viene cryptata per prima la A, visto che è la prima scritta. Poi, se riclicco, la A non viene più cryptata ma solo la B, mentre la A che secondo il cryptaggio in questo caso sarebbe 99-, torna A.

Quindi vi chiedo, come posso fare per far intervenire tutti i Reverse contemporaneamente e inoltre avere la possibilità di rifare il cryptaggio infinite volte?
 
TextBox2.Text = Crypt.Text.Replace("a", "/¬")
TextBox2.Text = Crypt.Text.Replace("b", "'^")
TextBox2.Text = Crypt.Text.Replace("c", "öä")

Strano , crypta sempre e solo l'ultimo :|
 
Dà quell'errore poichè dovete ridefinire la variabile a fine cryptazione :emoji_relieved:
Sennò la variabile assume un significato che non è più suo.
--------------- AGGIUNTA AL POST ---------------
Codice giusto per vb8:
Dim Replacciati As String
Replacciati = TextBox1.Text.Replace("A", "B")

E poi:
Textboxbla.text = Replacciati :emoji_relieved:
--------------- AGGIUNTA AL POST ---------------
Ecco, ci son stato 1 minutino:
Public Class Form1
Dim Replacciati As String
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged


End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text.Contains("a") Then
Replacciati = TextBox1.Text.Replace("a", "♦")
ElseIf TextBox1.Text.Contains("b") Then
Replacciati = TextBox1.Text.Replace("b", "•")
End If
TextBox1.Text = Replacciati
End Sub
End Class
 
Ultima modifica: