VB.NET Code 39 Reader & Scanner SDK

' Scan and decode Code 39 barcode from image file
Dim datas As String() = BarcodeScanner.Scan("code-39-barcode-image.gif", BarcodeType.Code39)

' Create scanning configuration for Code 39
Dim ops As New ScanOptions(BarcodeType.Code39)
' Enable checksum validation and processing
ops.Code39WithCheckCharacter = True

' Scan the barcode image with enabled checksum verification
Dim result As BarcodeDetail() = BarcodeScanner.Scan(imgFilePath, ops)

If result IsNot Nothing AndAlso result.Length > 0 Then
    ' Process each detected barcode
    For Each b As BarcodeDetail In result
        Console.WriteLine("Message: {0}", b.GetMessage())
        
        ' Get Code 39 advanced properties
        Dim props As Code39Props = CType(b.GetBarcodeProps(), Code39Props)
        
        If props IsNot Nothing AndAlso props.HasChecksum Then
            ' Output checksum value and display character
            Console.WriteLine("Checksum: {0} ('{1}')", props.Checksum, props.ShowChar)
        Else
            Console.WriteLine("No Checksum")
        End If
    Next
Else
    Console.WriteLine("No Barcode Found")
End If