'Codabar Sample Code

'This sample code can be incorporated into your application as long as the 
'copyright notice is left intact.  Redistribution of Azalea Software's fonts 
'requires a separate licensing fee.

'Input error checking is your responsibility.  Check for the correct Codabar 
'character set from within your application.

'The Codabar character set includes the numbers 0-9, the characters:  - + / $ : .
'with the characters "A", "B", "C", and "D" used as the start and stop bars.


Function AzaleaCodabarA(ByVal yourString as String) as String
' Codabar v5.0  2002 jwhiting Azalea Software, Inc.   www.azalea.com
' Copyright 2002 Jerry Whiting.  All rights reserved.

' This function creates Codabar bar codes using "A" for the start and stop bars.
' Format the output, AzaleaCodabarA, using Azalea Software's Codabar font.
'   yourContainer.text = AzaleaCodabarA(yourString)
 
  AzaleaCodabarA = "A" + yourString + "A"

End Function



Function AzaleaCodabarB(ByVal yourString as String) as String
' Codabar v5.0  2002  jwhiting Azalea Software, Inc.   www.azalea.com
' Copyright 2002 Jerry Whiting.  All rights reserved.

' This function creates Codabar bar codes using "B" for the start and stop bars.
' Format the output, AzaleaCodabarB, using Azalea Software's Codabar font.
'   yourContainer.text = AzaleaCodabarB(yourString)
 
  AzaleaCodabarB = "B" + yourString + "B"

End Function



Function AzaleaCodabarC(ByVal yourString as String) as String
' Codabar v5.0  2002  jwhiting Azalea Software, Inc.   www.azalea.com
' Copyright 2002 Jerry Whiting.  All rights reserved.

' This function creates Codabar bar codes using "C" for the start and stop bars.
' Format the output, AzaleaCodabarC, using Azalea Software's Codabar font.
'   yourContainer.text = AzaleaCodabarC(yourString)
 
  AzaleaCodabarC = "C" + yourString + "C"

End Function



Function AzaleaCodabarD(ByVal yourString as String) as String
' Codabar v5.0  2002 jwhiting Azalea Software, Inc.   www.azalea.com
' Copyright 2002 Jerry Whiting.  All rights reserved.

' This function creates Codabar bar codes using "D" for the start and stop bars.
' Format the output, AzaleaCodabarD, using Azalea Software's Codabar font.
'   yourContainer.text = AzaleaCodabarD(yourString)
 
  AzaleaCodabarD = "D" + yourString + "D"

End Function