A voir également:
- Correction Visual Basic ( très simple )
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Visual petanque - Télécharger - Sport
- 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.
dgpilou
Messages postés
29
Date d'inscription
mercredi 13 mai 2009
Statut
Membre
Dernière intervention
18 mai 2009
4
16 mai 2009 à 22:01
16 mai 2009 à 22:01
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
