Ce petit programme permet de coder les chiffres de 0 à 9 en code alphabétique.Il est écrit Visual Basic 2008 express.J'espere qu'il servirat à quelqu'un.
Source / Exemple :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Coder
Button1.Enabled = False
Button2.Enabled = True
Dim a, x As Integer
Dim clé, T As String
clé = "EZSDFHUIOW"
Dim Max As Integer
Max = Len(clé)
Dim SeRr(Max) As Char
For a = 0 To Max - 1
SeRr(a) = clé.Substring(a, 1)
Next
Dim Max2 As Integer
Max2 = Len(TextBox1.Text)
For a = 1 To Max2
Dim caract As Char
caract = Mid(TextBox1.Text, a, 1)
If caract = "," Then
T &= "^"
ElseIf caract = Chr(32) Then
T &= Space(1)
Else
If x & Val(caract) >= Max Then
x = 0
End If
x = x & Val(caract)
T &= SeRr(x)
End If
Next
TextBox1.Text = T
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Décoder
Button2.Enabled = False
Button1.Enabled = True
Dim a, b As Integer
Dim clé As String
Dim Max As Integer
clé = "EZSDFHUIOW"
Max = Len(clé)
Dim SeRr(Max) As Char
For a = 0 To Max - 1
SeRr(a) = clé.Substring(a, 1)
Next
Dim T As String
Dim Max2 As Integer
Max2 = Len(TextBox1.Text)
For a = 1 To Max2
Dim caract As Char
caract = Mid(TextBox1.Text, a, 1)
For b = 0 To Max - 1
If caract = "^" Then
T &= ","
Exit For
ElseIf caract = Chr(32) Then
T &= Space(1)
Exit For
Else
If SeRr(b) = caract Then
T = T & b
Exit For
End If
End If
Next
Next
TextBox1.Text = T
End Sub
End Class
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.