Np-barre générateur de code barre

Soyez le premier à donner votre avis sur cette source.

Vue 12 768 fois - Téléchargée 1 197 fois

Description

Ce gnérateur /Dégénérateur compil et décompile de code barre de facon simple mais astucieuse
Ce code a été créé pour répondre a une question du forum
A propos de L'algoritme du QR-barre
Mais je n'ai pas tout compris alors j'ai créer mon propre algoritme
Regardé la Source et le Zip puis
CRITIQUEZ !!! :p

Source / Exemple :


'Procédure NP-Barre
Picture1.Cls 'Efface l'ancien code barre
Dim Dec As String
Dim Bin As String
Dim Inter As String

For x = 1 To Len(Text1.Text)
    Dec = Str(Asc(Mid(Text1.Text, x, 1)))   'enreg dans Dec le numéro ascii de le lettre de Text1.text à la position x
    Inter = Decimal2Binaire(Dec)            ' Transforme de code ascii (code décimal) et Binaire"
    Inter = Trim(Inter)                     '----------- donne une longueur de 8 caratére a la chaine--------
    If Len(Inter) <> 8 Then
        For y = 1 To 8 - Len(Inter)
            Inter = "0" + Inter
        Next y
    End If                                  '----------------------------------------------------------------

    Bin = Bin + Inter                       'enregistre les caractéres de la chaine à la suite
Next x

'ce code permet d'écrire du binaire sur une bande de dessin de 64 pixels de coté
'Attention a bien avoir la Picutre1 en mode Pixel et épaisseur 1 !!

Dim Colone
Dim Ligne
Ligne = 1
Colone = 1

For x = 1 To Len(Bin)                                   'traite les caractéres (0 ou 1) l'un apres l'autre
    If Mid(Bin, x, 1) = "1" Then                        'si le caractére est 1
        Picture1.PSet (Colone, Ligne), &H0&             'On écrit en noir
    Else
        Picture1.PSet (Colone, Ligne), &HFFFFFF         'Sinon en Blanc
    End If

Colone = Colone + 1                                     'Déplacer le curseur de pointage d'un cran à Droite
If Colone = 65 Then                                     'Si on est en fin de bande (on a écrit sur 64 pixel)
    Ligne = Ligne + 1                                   'On passe a la lign suivante
    Colone = 1                                          'et on replace le marqueur a la position 1
End If

Next x

Conclusion :


Regarder le ZIP :p
Je met initié a cause du Bianire et decimal
Je met en sécurité car c'est un moyen de passer du texte par mail sans se faire reconaitre !!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
395
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
1
Voila le code est complet !!
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
<< -Le code n'est pas finalisé sur le décodage c'est pour cella que je ne le publie pas !! >>

OK, pourtant si on commente cette source c'est qu'elle a été publiée à moment donné me semble-t-il

QR-barre, j'ai laissé tomber ce soir, pas le temps je me prend la tete avec l'install d'un serveur FTP. J'en ai besoin pour demain et il me prend pas le bon réseau --> nuit blanche en perspective.
Messages postés
395
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
19 juin 2009
1
Merci pour toutes ces critiques constructive !
Pour ton information:
-Le code n'est pas finalisé sur le décodage c'est pour cella que je ne le publie pas !!
-La réponce pour le forum montre en faite une aute facon simple de créer un code bar simple

Et si tu trouve un algorithme compréhensive fait le moi savoir !
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
Pas top du tout, ne sert à rien pour l'instant

Ouverture d'un code : aucun fichier n'apparait dans la liste (alors qu'il en existe 7 dans le dossier), la fenetre indique "Enregistrer sous ..." au lieu d'ouvrir

<< Le code pour décodé n'est pas finalisé >> j'aurais plutot dit décodage inexsistant.

Pour le codage, attention au copier/coller, après avoir coller il faut penser à faire le ménage, faire les modifs necessaire, etc ...

<< Ce code a été créé pour répondre a une question du forum >> NON la question portait sur un code QR et tu dit toi même que tu n'as rien pigé au QR donc que ta source ne le gère pas.

Je ne met pas de note car le code est à peine commencé, ceci dit ce peut-etre un code intérssant lorqu'il sera fini.

Je m'en vais voir ce qu'est cette bete, QR-barre qu'ils l'appellent tous.
Messages postés
186
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
21 janvier 2008

Le seul problème est qu'un tel code barre, une fois imprimé puis scanné, est impossible à décoder...
Afficher les 6 commentaires

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.