Newsgroup: it.comp.lang.vo-clipper
Titolo: fonti barcode

Qualcuno ha già utilizzato delle fonti per Barcode ?
Come si usano ?
Dove si trovano (magari gratis !) ?
Grazie a tutti .
Buon lavoro. Alessandro

 Dove si trovano (magari gratis !) ?
Alcuni, freeware e shareware li trovi su
http://www.guolo.com/printfil/idown.htm
 , ma in rete ne trovi di tutti i
tipi. Prova a fare una ricerca su Google.
Ciao,
Davide.
--------------------------------------------------------------
Printfil - Windows Printing System for Applications
 
http://www.guolo.com/printfil
Odbc4All - Connection to ODBC Data Sources for any Application
 
http://www.guolo.com/odbc4all
--------------------------------------------------------------

 e dietro al codice, ma di solito niente di complicato.
A me risulta che almeno l'EAN13 abbisogna di apposita funzione di
conversione (se serve l'ho già scritta in Clipper).
EMG
--
EMAG Software Homepage:     
http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: 
http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: 
http://www.emagsoftware.it/tbosg

 conversione (se serve l'ho già scritta in Clipper).
Io di solito uso il CODE39, comunque per quanto riguarda l'EAN mi pare di
ricordare che esiste un algoritmo per calcolare il check digit nel caso tu
voglia "costruire" il codice partendo da un codice prodotto interno
(ovviamente devi essere iscritto all'associazione). Non ricordo se nel caso
in cui hai già il codice EAN corretto basta stampare le cifre usando il font
giusto o devi applicare una piccola regola di conversione in base alla
posizione della cifra all'interno del codice. Di sicuro con il Code39 non
hai questo problema.
Ciao.


 ha scritto nel
messaggio news:40E3F70B...@emagsoftware.it...


 ha scritto nel messaggio
news:YIREc.29487$c_1.9...@twister1.libero.it...


 (ovviamente devi essere iscritto all'associazione).
Sì, però io parlavo di come stampare il codice non di come generarlo.
Per stamparlo con i font hai bisogno di applicare prima una conversione.


 check digit mi faresti un grosso piacere.
Non si tratta solo del check digit ma proprio di una conversione da
effettuare su tutto il codice prima di stamparlo. Vuoi entrambe le
funzioni, quella che calcola il check digit e quella che converte
l'intero codice a barre per la stampa?


cut
scusate se mi intrometto nella discussione, ma l'oggetto capita a proposito,
avrei bisogno di istruzioni su come stampare l'ean13/ean8 o meglio di un
esempio
grazie mille
ESerra

 ha scritto nel
messaggio news:40E49186...@emagsoftware.it...


 esempio
Con Clipper/DOS? Non saprei. Io uso la libreria free Barlib con le
Fivewin.


 Direi quelle necessarie per stampare un EAN 13
Va be', te le riporto entrambe:
FUNCTION EAN13CHK( cBarCode )
    LOCAL nChk1 := 0
    LOCAL nChk2 := 0
    LOCAL i
    FOR i = 1 TO 12 STEP 2
        nChk1 += VAL( SUBSTR( cBarCode, i, 1 ) )
        nChk2 += VAL( SUBSTR( cBarCode, i + 1, 1 ) )
    NEXT
    RETURN CHR( ( 10 - ( nChk2 * 3 + nChk1 ) % 10 ) % 10 + ASC( "0" ) )
FUNCTION EAN13CNV( cBarCode )
    LOCAL aV1 := { { "a", "b", "c" },;
                   { "d", "e", "f" },;
                   { "g", "h", "i" },;
                   { "j", "k", "l" },;
                   { "m", "n", "o" },;
                   { "p", "q", "r" },;
                   { "s", "t", "u" },;
                   { "v", "w", "x" },;
                   { "y", "z", "A" },;
                   { "B", "C", "D" } }
    LOCAL aV2 := { "000000", "001011", "001101", "001110", "010011",
"011001", "011100", "010101", "010110", "011010" }
    LOCAL cRes := LEFT( cBarCode, 1 )
    LOCAL cCod := VAL( LEFT( cBarCode, 1 ) )
    LOCAL i
    FOR i = 2 TO 7
        cRes += aV1[ VAL( SUBSTR( cBarCode, i, 1 ) ) + 1, VAL( SUBSTR(
aV2[ cCod + 1 ], i - 1, 1 ) ) + 1 ]
    NEXT
    cRes += "G"
    FOR i = 8 TO 13
        cRes += aV1[ VAL( SUBSTR( cBarCode, i, 1 ) ) + 1, 3 ]
    NEXT
    cRes += "F"
    RETURN cRes


 ha scritto nel
messaggio news:40E553D2...@emagsoftware.it...
