Discussion :

[napster94700]

Bonsoir à tous,
Voilà je voulais m'amuser à faire un petit traducteur.
Juste pour le plaisir conertir la lettre en chiffre
Exemple
a = 1
b = 2
....

Deux textes box
Un boutton convertir
Lorsque je clique sur convertir et que dans la texte box 1 il y a "ab"
alors ecrire dans la textebox 2 "12"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 If TextBox1.Text = "a" Then TextBox2.Text = "1"
 If TextBox1.Text = "b" Then TextBox2.Text = "2"

Merci
Bonne soirée

[Danyel]

Une seule ligne de code pour faire cela.
Va voir la commande Replace

[napster94700]

Merci beaucoup pour la commande mais j'ai bien regarder et je n'arrive pas trop a l'appliquer.
Aurais tu un exemple ?

[Sankasssss]

Hello,
un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim tabStrARemplacer() as string = {"a", "b", "c", "d"} ' Continuer la chaine...
Dim tabStrRemplace() as string = {"1", "2", "3","4"} ' Continuer la chaine...
for i as integer = 0 to tabStrARemplacer.length
    TextBox1.Text = String.replace(TextBox1.Text, tabStrARemplacer(i) , tabStrRemplace(i))
next

ce code à été écrit à la volée, je ne garantit pas son fonctionnement direct, il est à adapter...
Bien à toi

[napster94700]

Merci à toi je vais essayer de comprendre sa et de l'appliqué

[napster94700]

J'ai réussit a me dépatouiller
Encore une petite question je voudrais :
Si textbox 1 contient des chiffre alors boutton 2 désactivé

Je pensais a un truc du style

If textbox1.text = numerique then button2.enabled = false
?
MERCI