Correction Visual Basic ( très simple )
Florian
-
italo57 -
italo57 -
Bonjour,
Je tente de créer un programme avec un textbox et un bouton ...
Ce prog permetterait de " crypter " par exemple des mail , cela décalerait d'une place les lettre exemple :
AAA devient BBB
ABC devient BCD
Etc...
Voici mon code :
Private Sub Command1_Click()
Dim s As String
s = Text1.Text
s = s.Replace("a", "b")
s = s.Replace("b", "c")
s = s.Replace("c", "d")
s = s.Replace("d", "e")
s = s.Replace("e", "f")
s = s.Replace("f", "g")
s = s.Replace("g", "h")
s = s.Replace("h", "i")
s = s.Replace("i", "j")
s = s.Replace("j", "k")
s = s.Replace("k", "l")
s = s.Replace("l", "m")
s = s.Replace("m", "n")
s = s.Replace("n", "o")
s = s.Replace("o", "p")
s = s.Replace("p", "q")
s = s.Replace("q", "r")
s = s.Replace("r", "s")
s = s.Replace("s", "t")
s = s.Replace("t", "u")
s = s.Replace("u", "v")
s = s.Replace("v", "w")
s = s.Replace("w", "x")
s = s.Replace("x", "y")
s = s.Replace("y", "z")
s = s.Replace("z", "a")
End Sub
Je ne vois pas d'ou viens l'erreur ...
Je travaille avec VB 6.0
Je tente de créer un programme avec un textbox et un bouton ...
Ce prog permetterait de " crypter " par exemple des mail , cela décalerait d'une place les lettre exemple :
AAA devient BBB
ABC devient BCD
Etc...
Voici mon code :
Private Sub Command1_Click()
Dim s As String
s = Text1.Text
s = s.Replace("a", "b")
s = s.Replace("b", "c")
s = s.Replace("c", "d")
s = s.Replace("d", "e")
s = s.Replace("e", "f")
s = s.Replace("f", "g")
s = s.Replace("g", "h")
s = s.Replace("h", "i")
s = s.Replace("i", "j")
s = s.Replace("j", "k")
s = s.Replace("k", "l")
s = s.Replace("l", "m")
s = s.Replace("m", "n")
s = s.Replace("n", "o")
s = s.Replace("o", "p")
s = s.Replace("p", "q")
s = s.Replace("q", "r")
s = s.Replace("r", "s")
s = s.Replace("s", "t")
s = s.Replace("t", "u")
s = s.Replace("u", "v")
s = s.Replace("v", "w")
s = s.Replace("w", "x")
s = s.Replace("x", "y")
s = s.Replace("y", "z")
s = s.Replace("z", "a")
End Sub
Je ne vois pas d'ou viens l'erreur ...
Je travaille avec VB 6.0
A voir également:
- Correction Visual Basic ( très simple )
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Iphone 14 simple - Guide
2 réponses
Bonjour,
Pour faire ton programme de cryptage, le plus simple est d'utiliser les codes ASCII.
Les codes ASCII sont des nombres entiers qui représentent les caractères. Par exemple le code de "a" est 97, le code de "b" est 98 etc..
Si on veut changer "a" par "b" , on change le code 97 en 98. Simple non?
la fonction qui donne le code ASCII d'un caractère est asc()
la fonction qui donne le caractère associé à un code ASCII est chr()
Exemple de programmation:
Sur ta form, mets deux textbox et un bouton
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer
Dim s1 As String, s2 As String, c as String
s1 = Text1.Text ' affecter à s1 le contenu de text1
n = Len(s1) ' longueur du texte à coder
For i = 1 To n ' boucle sur chaque caractère du texte
c= Mid(s1,i,1) ' c est le ième caractère du texte
a = Asc(c) + 1 ' a est le code ascii de t incrémenté de 1
If a = 33 Then a = 32 ' si c'est un espace on conserve sa valeur (le code de l'espace est 32)
s2 = s2 + Chr(a) ' on recompose la chaine avec les codes modifiés
Next
Text2.Text = s2 ' on ecrit le resultat dans text2
End Sub
salut.
Pour faire ton programme de cryptage, le plus simple est d'utiliser les codes ASCII.
Les codes ASCII sont des nombres entiers qui représentent les caractères. Par exemple le code de "a" est 97, le code de "b" est 98 etc..
Si on veut changer "a" par "b" , on change le code 97 en 98. Simple non?
la fonction qui donne le code ASCII d'un caractère est asc()
la fonction qui donne le caractère associé à un code ASCII est chr()
Exemple de programmation:
Sur ta form, mets deux textbox et un bouton
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer
Dim s1 As String, s2 As String, c as String
s1 = Text1.Text ' affecter à s1 le contenu de text1
n = Len(s1) ' longueur du texte à coder
For i = 1 To n ' boucle sur chaque caractère du texte
c= Mid(s1,i,1) ' c est le ième caractère du texte
a = Asc(c) + 1 ' a est le code ascii de t incrémenté de 1
If a = 33 Then a = 32 ' si c'est un espace on conserve sa valeur (le code de l'espace est 32)
s2 = s2 + Chr(a) ' on recompose la chaine avec les codes modifiés
Next
Text2.Text = s2 ' on ecrit le resultat dans text2
End Sub
salut.
salut
Je ne connais pas la programmation vb mais je pense que l'ordre de decalage n'est pas bon puisque
si je suit le programme que tu as mis , tu dois toujours remplacer la premiere lettre puisque tu remplace
en premiere ligne A par B puis a la deuxieme ligne B par C ect......
Dis moi quelle est le resultat que tu obtient avec ton programme pour poussé un peu plus loin l'analyse.
à plus
Je ne connais pas la programmation vb mais je pense que l'ordre de decalage n'est pas bon puisque
si je suit le programme que tu as mis , tu dois toujours remplacer la premiere lettre puisque tu remplace
en premiere ligne A par B puis a la deuxieme ligne B par C ect......
Dis moi quelle est le resultat que tu obtient avec ton programme pour poussé un peu plus loin l'analyse.
à plus