VB.NET Code 128 Reader & Scanner SDK

Dim datas As String() = BarcodeScanner.Scan(
    "code-128-barcode-image.gif", BarcodeType.Code128)

' Read image file into a byte array
Dim dataBytes As Byte() = File.ReadAllBytes("code128-barcode.png")

' Create a MemoryStream from the byte array
Dim barcodeInStream As Stream = New MemoryStream(dataBytes)

' Scan Code 128 barcode from the Stream object
Dim datas As String() = BarcodeScanner.Scan(barcodeInStream, BarcodeType.Code128)

' Scan mixed barcodes: Code 128 and Code 39 in one operation
Dim datasInDetail As BarcodeDetail() = BarcodeScanner.ScanInDetails(
    "sample-barcodes.png", BarcodeType.Code128 Or BarcodeType.Code39)

' Check if valid scanning results are returned
If datasInDetail IsNot Nothing AndAlso datasInDetail.Length > 0 Then
    ' Iterate all detected barcode records
    For Each barcodeInfo As BarcodeDetail In datasInDetail
        ' Identify and process Code 128 barcode
        If barcodeInfo.Type = BarcodeType.Code128 Then
            Dim Code128Text As String = barcodeInfo.GetMessage()
        End If
    Next
End If

' Scan Code 128 barcode and retrieve detailed barcode information
Dim result As BarcodeDetail() = BarcodeScanner.ScanInDetails(
    "Code128-sample-image.png", BarcodeType.Code128)

' Check if valid barcode results are detected
If result IsNot Nothing AndAlso result.Length > 0 Then
    ' Iterate all scanned barcode records
    For Each barcodeInfo As BarcodeDetail In result
        Console.WriteLine("Barcode Format: {0}", barcodeInfo.Type)
        Console.WriteLine("Code 128 text: {0}", barcodeInfo.GetMessage())
        Console.WriteLine("Code 128 ASCII text: {0}", barcodeInfo.GetASCIITextMessage())
    Next
End If

' Scan Code 128 barcode and retrieve detailed information
Dim result As BarcodeDetail() = BarcodeScanner.ScanInDetails(
    "Code128-sample-image.png", BarcodeType.Code128)

' Check if valid barcode data is detected
If result IsNot Nothing AndAlso result.Length > 0 Then
    ' Iterate all scanned barcode records
    For Each barcodeInfo As BarcodeDetail In result
        ' Output basic barcode text
        Console.WriteLine("Barcode Format: {0}", barcodeInfo.Type)
        Console.WriteLine("Code 128 text: {0}", barcodeInfo.GetMessage())
        Console.WriteLine("Code 128 ASCII text: {0}", barcodeInfo.GetASCIITextMessage())

        ' Output rotation and position coordinates
        Console.WriteLine("Rotation angle: {0}", barcodeInfo.Rotation)
        Console.WriteLine("Barcode Position X1: {0}, Y1: {1}", barcodeInfo.X1, barcodeInfo.Y1)
        Console.WriteLine("Barcode Position X2: {0}, Y2: {1}", barcodeInfo.X2, barcodeInfo.Y2)
        Console.WriteLine("Barcode Position X3: {0}, Y3: {1}", barcodeInfo.X3, barcodeInfo.Y3)
        Console.WriteLine("Barcode Position X4: {0}, Y4: {1}", barcodeInfo.X4, barcodeInfo.Y4)

        ' Extract advanced Code 128 properties
        If barcodeInfo.Type = BarcodeType.Code128 Then
            Dim props As Code128Props = CType(barcodeInfo.GetBarcodeProps(), Code128Props)
            
            ' Output advanced encoding properties
            Console.WriteLine("Start Set:   {0}", props.StartSet.ToString())
            Console.WriteLine("Is Mix Set:  {0}", props.IsMixSet.ToString())
            Console.WriteLine("Checksum:    {0}", props.Checksum.ToString())
        End If
    Next
End If

' Scan Code 128 barcode with control characters
Dim result As String() = BarcodeScanner.Scan(
    "C:\Input\code128-none-printable-chars.png", BarcodeType.Code128)

' Process and display raw and formatted messages
For Each msg As String In result
    Debug.WriteLine("Barcode Raw Message: '" & msg & "'")
    ' Replace carriage return control character with [CR]
    Dim tmp As String = msg.Replace(vbCr, "[CR]")
    Debug.WriteLine("Barcode Message: '" & tmp & "'")
Next

' Configure scanning options
Dim opts As New ScanOptions(BarcodeType.Code128)

' Scan and retrieve detailed barcode information
Dim datas As BarcodeDetail() = BarcodeScanner.Scan(
    "C:\Input\code128-none-printable-chars.png", opts)

' Get automatically formatted ASCII text
For Each obj As BarcodeDetail In datas
    Debug.WriteLine("Barcode Text: " & obj.GetASCIITextMessage())
Next