Imports Bytescout.BarCode

Module Module1

	Sub Main()

		' Create and activate Barcode object instance
		Dim barcode = New Barcode()
		barcode.RegistrationName = "demo"
		barcode.RegistrationKey = "demo"

		' Set barcode symbology (type) 
		barcode.Symbology = SymbologyType.MaxiCode
		' Set MaxiCode mode
		barcode.Options.MaxiCodeMode = 2 ' 2 or 3 depending on the postal code

		' Make barcode dots larger (5 pixels)
		barcode.NarrowBarWidth = 5


		' Prepare barcode value:

		' Special data signatures
		Dim mode23Signature = "[)>" + ChrW(&H1E) + "01" + ChrW(&H1D) + "96"
		Dim separator = ChrW(&H1D)
		Dim endingSignature = ChrW(&H1E) + ChrW(&H4)

		' Mandatory data part.
		Dim postalCode = "123456789" ' 5 or 9 digits in the USA (Mode 2); 1-6 alphanumeric characters in other countries (Mode 3)
		Dim countryCode = "840"	' 3 digits (840 for USA) 
		Dim classOfService = "001" ' 3 digits 
		Dim trackingNumber = "S1Z12345678G"	' 10-character alphanumeric
		Dim upsStandardCarrierAlphaCode = "UPSN"

		' Optional data part.
		' Note, you can use empty strings for unneeded field values like `packageInShipment` or `weightInPounds` 
		' but they should delimited with the separator anyway.
		Dim upsShipperNumber = "S06X610" ' 6-character alphanumeric 
		Dim julianDayOfPickup = "159" ' 3 digits 
		Dim shipmentIdNumber = "1234567" ' 1-30 character alphanumeric 
		Dim packageInShipment = "1/2" ' 1-4 digits “/” 1-4 digits 
		Dim weightInPounds = "3.1" ' 1-5 digits
		Dim addressValidation = "Y"	' “Y” or “N”
		Dim shipToAddress = "S123 MAIN ST" ' 1-35 alphanumeric
		Dim shipToCity = "YORK"	' 1 - 35 alphanumeric
		Dim shipToState = "PA" ' 2-character alpha


		' Generate minimal postal code:

		Dim minimalValue = mode23Signature +
							postalCode + separator +
							countryCode + separator +
							classOfService + separator +
							trackingNumber + separator +
							upsStandardCarrierAlphaCode +
							endingSignature

		barcode.Value = minimalValue
		barcode.SaveImage("postal-maxicode-min.png")


		' Generate full postal code:

		Dim fullValue = mode23Signature +
						postalCode + separator +
						countryCode + separator +
						classOfService + separator +
						trackingNumber + separator +
						upsStandardCarrierAlphaCode + separator +
						upsShipperNumber + separator +
						julianDayOfPickup + separator +
						shipmentIdNumber + separator +
						packageInShipment + separator +
						weightInPounds + separator +
						addressValidation + separator +
						shipToAddress + separator +
						shipToCity + separator +
						shipToState +
						endingSignature

		barcode.Value = fullValue
		barcode.SaveImage("postal-maxicode-full.png")

	End Sub

End Module

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.42000
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My.Resources
    
    'This class was auto-generated by the StronglyTypedResourceBuilder
    'class via a tool like ResGen or Visual Studio.
    'To add or remove a member, edit your .ResX file then rerun ResGen
    'with the /str option, or rebuild your VS project.
    '''<summary>
    '''  A strongly-typed resource class, for looking up localized strings, etc.
    '''</summary>
    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
    Friend Module Resources

        Private resourceMan As Global.System.Resources.ResourceManager

        Private resourceCulture As Global.System.Globalization.CultureInfo

        '''<summary>
        '''  Returns the cached ResourceManager instance used by this class.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
            Get
                If Object.ReferenceEquals(resourceMan, Nothing) Then
                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("PostalMaxiCode.Resources", GetType(Resources).Assembly)
                    resourceMan = temp
                End If
                Return resourceMan
            End Get
        End Property

        '''<summary>
        '''  Overrides the current thread's CurrentUICulture property for all
        '''  resource lookups using this strongly typed resource class.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Friend Property Culture() As Global.System.Globalization.CultureInfo
            Get
                Return resourceCulture
            End Get
            Set(ByVal value As Global.System.Globalization.CultureInfo)
                resourceCulture = value
            End Set
        End Property
    End Module
End Namespace

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.42000
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My

    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
    Partial Friend NotInheritable Class MySettings
        Inherits Global.System.Configuration.ApplicationSettingsBase

        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)

#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
        Private Shared addedHandler As Boolean

        Private Shared addedHandlerLockObject As New Object

        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
            If My.Application.SaveMySettingsOnExit Then
                My.Settings.Save()
            End If
        End Sub
#End If
#End Region

        Public Shared ReadOnly Property [Default]() As MySettings
            Get

#If _MyType = "WindowsForms" Then
                   If Not addedHandler Then
                        SyncLock addedHandlerLockObject
                            If Not addedHandler Then
                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
                                addedHandler = True
                            End If
                        End SyncLock
                    End If
#End If
                Return defaultInstance
            End Get
        End Property
    End Class
End Namespace

Namespace My
    
    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
    Friend Module MySettingsProperty
        
        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
        Friend ReadOnly Property Settings() As Global.PostalMaxiCode.My.MySettings
            Get
                Return Global.PostalMaxiCode.My.MySettings.Default
            End Get
        End Property
    End Module
End Namespace