EAN 13 vonalkód

Az EAN 13 vonalkód  világszerte elterjedt a kiskereskedelemben. Az EAN 13 vonalkód 13 karaktert kódol: az első két vagy három szám az országkód mely jelzi, hogy melyik országban regisztrált a gyártó. Az országkódot  9 vagy 10 adat karakter követi, és egy ellenőrző szám (checksum). Az EAN 13 vonalkód két vagy öt karakteres kiegészítő vonalkóddal bővíthető, így elérhető a 14 vagy 17 karakteres vonalkód.  Az ellenőrző szám  a következő módon képződik: (Modulo 10 kalkuláció checkszum):

1. Add össze a páros számú számjegyeket: 2, 4, 6, stb.
2. Az eredményt 3 -al beszorozni.
3. Add össze a páratlan számú számjegyeket: 1, 3, 5, stb.
4. Add össze a 2. és 3. végeredményét.
5. A check karakter a legkisebb szám mely a 4. lépéshez adható, hogy a 10 többszöröse legyen az eredmény.

Például: Legyen a vonalkód adata = 001234567890

1. 0 + 2 + 4 + 6 + 8 + 0 = 20
2. 20 * 3 = 60
3. 0 + 1 + 3 + 5 + 7 + 9 = 25
4. 60 + 25 = 85
5. 85 + X = 90 (10 többszöröse legyen az eredmény), tehát X = 5 (checkszum)

Visual Basic minta funkció a checkszum kikalkulálásához: Function Append_EAN_Checksum (RawString as String) Dim Position as Integer Dim CheckSum as Integer CheckSum = 0 For Position = 2 to 12 step 2 Checksum = Checksum + Val(Mid$(RawString, Position, 1)) Next Position CheckSum = CheckSum * 3 For Position = 1 to 11 Step 2 CheckSum = CheckSum + Val(Mid$(RawString, Position, 1)) Next Position CheckSum = CheckSum Mod 10 CheckSum = 10 – CheckSum If CheckSum = 10 Then CheckSum = 0 End If Append_Ean_Checksum = RawString & Format$(CheckSum, „0”) End Function

Egyszerű vonalkódolvasó az EAN13 kód olvasására

EAN 13 vonalkód országkódok

A listában találhatóak a vonalkódok megfejtéséhez szükséges országkódok. Magyarország EAN 13 országkódja az 599 – vagyis ezzel a számmla kezdődik minden forgalomba hozott magyar termék kódja.