Rechercher : dans
Par :

Correction Visual Basic ( très simple )

Dernière réponse le 17 mai 2009 à 01:08:54 Florian, le 16 mai 2009 à 21:30:43 
 Signaler ce message aux modérateurs

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

Configuration: VisualBasic 6.0

Meilleures réponses pour « Correction Visual Basic ( très simple ) » dans :
Erreur système : Microsoft Visual Basic VoirEn ouvrant Excel, vous rencontrez un message d'erreur. Une fenêtre au nom de "Microsoft Visual Basic" s'ouvre avec le contenu suivant : Erreur système &H80004005 (-2147467259). Erreur non spécifiée Pour corriger le problème, suivez les...
Télécharger Visual Basic 6 Runtime (VB6 DLL) VoirLe Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...
Introduction à Visual Basic VoirPrésentation de Visual Basic Visual Basic est un outil développé par Microsoft pour développer facilement des applications fonctionnant sous Microsoft Windows ©. Visual Basic est, comme son nom l'indique, un outil visuel permettant de créer...
Introduction à VBScript VoirPrésentation de VB Script VBScript (aussi appelé Visual Basic Scripting Edition) est un sous-ensemble du langage Visual Basic for Applications (VBA), un langage propriétaire de Microsoft prévu pour être intégré aux produits Microsoft Office©,...
Généralités sur Visual Basic VoirConcept de Visual Basic l'Environnement de Développement intégré

1

dgpilou, le 16 mai 2009 à 22:01:49

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

Répondre à dgpilou

2

 italo57, le 17 mai 2009 à 01:08:54

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.

Répondre à italo57
Collection CommentÇaMarche.net