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

nrt

Nouveau membre
1 Mars 2010
6
0
33
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
 

nrt

Nouveau membre
1 Mars 2010
6
0
33
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
 

-anonyme-

Légende
26 Février 2001
66 286
2 673
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

Nouveau membre
1 Mars 2010
6
0
33
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

Membre junior
5 Juillet 2002
99
4
Valais
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

ex modéraptor
Club MacG
28 Octobre 2004
44 209
3 456
67
Sous la limite KT
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

Membre junior
5 Juillet 2002
99
4
Valais
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