quelle application pour les code barres 2D????

[nrt]

Salut a vous les macgénérationneur!!!!

je recherche une appli pr mac, si possible gratuite permettant de créer ses propres code barres en 2D!!!!

et accessoirement une pr les lire sur iphone!


merci de votre aide!!

NRT

 

[Membre supprimé 2]

Bonjour,

Il y a Code Barre X, un petit gratuiciel.

Ou un générateur de codes-barres en ligne : FreeBarcode.

RedLaser permet de lire des codes-barres via un iPhone.

 

[nrt]

MERCI POUR TA RÉPONSE RAPIDE, MAIS CE QUE TU PROPOSE NE FAIT QUE LES CODES BARRE LINEAIRE. JE RECHERCHE UN LOGICIEL POUR FAIRE DES CODES BARRE 2D

 

[Membre supprimé 2]

OK, j'avais lu, mais pas vraiment percuté. Pour les lecteurs sur smartphones, j'ai trouvé ce site, qui donne pas mal de références.

 

[nrt]

jue viens de trouver mon bonheur, pour ceux que ça interresse:
ICI on peut créer gratuitement tout type de codes barres, en 2D j'ai resté les vcard, les image, les textes, les code barre qui envoie un sms, un mms, qui redirige vers un sire internet.....
enfin super complet et completement gratuit!

Pour les lire, j'ai trouvé i-nigma, sur iphone, completement gratuit et gère tous les formats!!!!

 

[stratovirus]

Bonjour,

je serais intéressé d savoir ce que tu as trouvé pour créer du code 2D sur Mac, de préférence en format ouvert (pas de licence)

 

[Pascal 77]

Moi, je fais ça avec Excel 2004, avec une macro appelée "ean13" qui fait ça très bien !

Voici la macro (je n'en suis pas l'auteur, mais suis incapable de me souvenir où je l'ai dénichée)

Public Function ean13(chaine$)
'V 1.0
'Paramètres : une chaine de 12 chiffres
'Retour : * une chaine qui, affichée avec la police EAN13.TTF, donne le code barre
' ********* une chaine vide si paramètre fourni incorrect
Dim i%, checksum%, first%, CodeBarre$, tableA As Boolean
ean13 = ""
'Vérifier qu'il y a 12 caractères
If Len(chaine$) = 12 Then
'Et que ce sont bien des chiffres
For i% = 1 To 12
If Asc(Mid$(chaine$, i%, 1)) < 48 Or Asc(Mid$(chaine$, i%, 1)) > 57 Then
i% = 0
Exit For
End If
Next
If i% = 13 Then
'Calcul de la clé de contrôle
For i% = 2 To 12 Step 2
checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
Next
checksum% = checksum% * 3
For i% = 1 To 11 Step 2
checksum% = checksum% + Val(Mid$(chaine$, i%, 1))
Next i%
chaine$ = chaine$ & (10 - checksum% Mod 10) Mod 10
'Le premier chiffre est pris tel quel, le deuxième vient de la table A
CodeBarre$ = Left$(chaine$, 1) & Chr$(65 + Val(Mid$(chaine$, 2, 1)))
first% = Val(Left$(chaine$, 1))
For i% = 3 To 7
*tableA = False
Select Case i%
Case 3
Select Case first%
Case 0 To 3
*tableA = True
End Select
Case 4
Select Case first%
Case 0, 4, 7, 8
*tableA = True
End Select
Case 5
Select Case first%
Case 0, 1, 4, 5, 9
*tableA = True
End Select
Case 6
Select Case first%
Case 0, 2, 5, 6, 7
*tableA = True
End Select
Case 7
Select Case first%
Case 0, 3, 6, 8, 9
*tableA = True
End Select
End Select
If tableA Then
CodeBarre$ = CodeBarre$ & Chr$(65 + Val(Mid$(chaine$, i%, 1)))
Else
CodeBarre$ = CodeBarre$ & Chr$(75 + Val(Mid$(chaine$, i%, 1)))
End If
Next
CodeBarre$ = CodeBarre$ & "*" 'Ajout séparateur central / Add middle separator

For i% = 8 To 13
CodeBarre$ = CodeBarre$ & Chr$(97 + Val(Mid$(chaine$, i%, 1)))
Next
CodeBarre$ = CodeBarre$ & "+" 'Ajout de la marque de fin / Add end mark
ean13 = CodeBarre$
End If
End If
End Function

 

[stratovirus]

jue viens de trouver mon bonheur, pour ceux que ça interresse:
ICI on peut créer gratuitement tout type de codes barres, en 2D j'ai resté les vcard, les image, les textes, les code barre qui envoie un sms, un mms, qui redirige vers un sire internet.....
enfin super complet et completement gratuit!

Pour les lire, j'ai trouvé i-nigma, sur iphone, completement gratuit et gère tous les formats!!!!

merci, mais il n'y a pas de version Mac… seulement PC