Coder chiffres

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_alpha5)