Coder chiffres

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 612 fois - Téléchargée 17 fois

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

Ajouter un commentaire

Commentaires

merci merci
Messages postés
74
Date d'inscription
jeudi 10 août 2006
Statut
Membre
Dernière intervention
24 mars 2013

continue tu va y arriver.
salut à toi.
Messages postés
4
Date d'inscription
dimanche 3 juin 2007
Statut
Membre
Dernière intervention
2 février 2012

AAAAAAAAH TOI JE T'AIME !!!!
Ca fait plus d'une heure que j'en chie avec ce truc!!!!!!!!!!!!!

MEEEEEEEEEEEEERRRRRRRRRRCCCCCCCCCIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII :D

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.