Ich habe zwei Barcodetypen: CODABAR und Code39.<BR>
Ich weiß, daß man die Prüfziffer bei CODABAR nach Modulo16 und bei Code39 nach Modulo43 berechnet.
Ich habe hier auch jeweils ein Beispiel zur Erklärung:<BR>
<B>CODABAR</B><BR>
Code : A 7 8 9 A<BR>
Referenzzahlen* : 16 7 8 9 16<BR>
Summe der Ref.Zahlen : 56<BR>
Modulo 16 : 56 / 16 = 3 Rest 8<BR>
Differenz : 16 - 8 = 8<BR>
Prüfziffer Referenzzahl 8 = "8"<BR>
*Referenzzahlen für Codabar:<BR>
00 = 0<BR>
01 = 1<BR>
02 = 2<BR>
03 = 3<BR>
04 = 4<BR>
05 = 5<BR>
06 = 6<BR>
07 = 7<BR>
08 = 8<BR>
09 = 9<BR>
10 = -<BR>
11 = $<BR>
12 = :<BR>
13 = /<BR>
14 = .<BR>
15 = +<BR>
16 = A<BR>
17 = B<BR>
18 = C<BR>
19 = D<BR>
<B>Code39</B><BR>
Code ("159AZ") 1 5 9 A Z<BR>
Referenzzahlen* 1 +5 +9 +10 +35 = 60 (Summe)<BR>
60 / 43 = 1 rest 17<BR>
Die Prüfziffer ist "H" (Referenznr. 17)<BR>
*Die Referenzzahlen des Code 39 sind wie folgt:<BR>
00 0<BR>
01 1<BR>
02 2<BR>
03 3<BR>
04 4<BR>
05 5<BR>
06 6<BR>
07 7<BR>
08 8<BR>
09 9<BR>
10 A<BR>
11 B<BR>
12 C<BR>
13 D<BR>
14 E<BR>
15 F<BR>
16 G<BR>
17 H<BR>
18 I<BR>
19 J<BR>
20 K<BR>
21 L<BR>
22 M<BR>
23 N<BR>
24 O<BR>
25 P<BR>
26 Q<BR>
27 R<BR>
28 S<BR>
29 T<BR>
30 U<BR>
31 V<BR>
32 W<BR>
33 X<BR>
34 Y<BR>
35 Z<BR>
36 -<BR>
37 .<BR>
38 Space<BR>
39 $<BR>
40 /<BR>
41 +<BR>
42 %<BR>
Aber wie setzte ich das in jeweils eine schöne Delphi- Funktion um?
Bitte bitte helft mir!
Ich weiß, daß man die Prüfziffer bei CODABAR nach Modulo16 und bei Code39 nach Modulo43 berechnet.
Ich habe hier auch jeweils ein Beispiel zur Erklärung:<BR>
<B>CODABAR</B><BR>
Code : A 7 8 9 A<BR>
Referenzzahlen* : 16 7 8 9 16<BR>
Summe der Ref.Zahlen : 56<BR>
Modulo 16 : 56 / 16 = 3 Rest 8<BR>
Differenz : 16 - 8 = 8<BR>
Prüfziffer Referenzzahl 8 = "8"<BR>
*Referenzzahlen für Codabar:<BR>
00 = 0<BR>
01 = 1<BR>
02 = 2<BR>
03 = 3<BR>
04 = 4<BR>
05 = 5<BR>
06 = 6<BR>
07 = 7<BR>
08 = 8<BR>
09 = 9<BR>
10 = -<BR>
11 = $<BR>
12 = :<BR>
13 = /<BR>
14 = .<BR>
15 = +<BR>
16 = A<BR>
17 = B<BR>
18 = C<BR>
19 = D<BR>
<B>Code39</B><BR>
Code ("159AZ") 1 5 9 A Z<BR>
Referenzzahlen* 1 +5 +9 +10 +35 = 60 (Summe)<BR>
60 / 43 = 1 rest 17<BR>
Die Prüfziffer ist "H" (Referenznr. 17)<BR>
*Die Referenzzahlen des Code 39 sind wie folgt:<BR>
00 0<BR>
01 1<BR>
02 2<BR>
03 3<BR>
04 4<BR>
05 5<BR>
06 6<BR>
07 7<BR>
08 8<BR>
09 9<BR>
10 A<BR>
11 B<BR>
12 C<BR>
13 D<BR>
14 E<BR>
15 F<BR>
16 G<BR>
17 H<BR>
18 I<BR>
19 J<BR>
20 K<BR>
21 L<BR>
22 M<BR>
23 N<BR>
24 O<BR>
25 P<BR>
26 Q<BR>
27 R<BR>
28 S<BR>
29 T<BR>
30 U<BR>
31 V<BR>
32 W<BR>
33 X<BR>
34 Y<BR>
35 Z<BR>
36 -<BR>
37 .<BR>
38 Space<BR>
39 $<BR>
40 /<BR>
41 +<BR>
42 %<BR>
Aber wie setzte ich das in jeweils eine schöne Delphi- Funktion um?
Bitte bitte helft mir!
Comment