GTIN und Barcode #

Funktionen zur Erzeugung und Validierung von GTIN-Codes (EAN) sowie zur Kommunikation mit Barcode-Scannern.

GTIN-Validierung #

IsGTIN13 #

IsGTIN13(Value: String): Boolean

Prüft, ob ein String eine gültige 13-stellige GTIN (EAN-13) ist, einschließlich korrekter Prüfziffer.

If ellib.IsGTIN13("4006381333931") Then
  MsgBox "Gültige EAN-13"
End If

IsGTIN8 #

IsGTIN8(Value: String): Boolean

Prüft, ob ein String eine gültige 8-stellige GTIN (EAN-8) ist.

GTIN-Erzeugung #

MakeGTIN13 #

MakeGTIN13(Value: String): String

Erzeugt aus einer 12-stelligen Nummer eine vollständige EAN-13 mit korrekter Prüfziffer.

Dim ean
ean = ellib.MakeGTIN13("400638133393")
MsgBox "EAN-13: " & ean
' Ergebnis: "4006381333931"

MakeGTIN8 #

MakeGTIN8(Value: String): String

Erzeugt aus einer 7-stelligen Nummer eine vollständige EAN-8 mit Prüfziffer.

GTIN-Extraktion #

GTIN13 #

GTIN13(Value: String): String

Extrahiert eine GTIN-13 aus einem String (z.B. aus einem längeren Barcode).

GTIN8 #

GTIN8(Value: String): String

Extrahiert eine GTIN-8 aus einem String.

Barcode-Kommunikation #

InitBarcode #

InitBarcode(Options: String): Variant

Initialisiert die Barcode-Kommunikation.

FinitBarcode #

FinitBarcode

Beendet die Barcode-Kommunikation und gibt Ressourcen frei.

BarcodeSendMessage #

BarcodeSendMessage(Address: String, Message: String): Variant

Sendet eine Nachricht an einen bestimmten Barcode-Scanner.

BarcodeBroadcast #

BarcodeBroadcast(Message: String): Variant

Sendet eine Nachricht an alle verbundenen Barcode-Scanner.

Serielle Schnittstellen #

AvailableComPorts #

AvailableComPorts: Variant

Gibt eine Liste der verfügbaren seriellen Schnittstellen (COM-Ports) zurück. Nützlich zur Konfiguration von Barcode-Scannern und anderen seriellen Geräten.

MsgBox ellib.AvailableComPorts