Attribute VB_Name = "IDAutomation_DCFE_DEMO"
'**************************************************************
' To provide the quickest implementation, consider
' licensing this product instead of using the demo.
' The licensed version is provided with a 30 day
' money back satisfaction guarantee.
'
' To order, please visit:
' https://www.idautomation.com/barcode-fonts/2d/dotcode/
'
' Limitations of the Demo Version:
' The demo version of this product includes a fully
' functional 2D font and is designed only for the
' purpose of testing the font in various applications
' and point sizes. To generate dynamic symbols,
' a font encoder is required to format the data being
' encoded into the 2D symbol.
'
' Only static data can be provided for the encoders
' in the demo version, because providing a working
' encoder would reveal the complete source code,
' which is only available in the licensed version.
'**************************************************************

Private DEMO As Integer
Private DECount As Integer

Public Function IDAutomation_DotCode_FontEncoder_DEMO(DataToEncode As String) As String
    Dim NewLineCharacter As String
    NewLineCharacter = vbCrLf
    Dim FontEncoderText As String
    FontEncoderText = ""
    FontEncoderText = FontEncoderText & "pppopppppopopppopppppopopopppppopopopopppp" & NewLineCharacter
    FontEncoderText = FontEncoderText & "ppplnkflflpopkhpfohonknkhlflppnkhpplfkhppp" & NewLineCharacter
    FontEncoderText = FontEncoderText & "pppohlnkplflnohkponlhpfonlhlfknlhlpkfohppp" & NewLineCharacter
    FontEncoderText = FontEncoderText & "ppppnohlhofkfoflpphohknlflnknohofphkfpnppp" & NewLineCharacter
    FontEncoderText = FontEncoderText & "ppplhknkflnonoflppfonlhonkhkplfpplhkflpppp" & NewLineCharacter
    FontEncoderText = FontEncoderText & "ppplhlhlppplhphlhpplppplhlplhphlplpphlhppp"
    IDAutomation_DotCode_FontEncoder_DEMO = FontEncoderText
    
    If DEMO <> 3 Then
        DECount = 1
        MsgBox "The demo version of this product includes a fully functional 2D font and is designed only for the purpose of testing the font in various applications and point sizes. To generate dynamic symbols, a font encoder is required to format the data being encoded into the 2D symbol. Only static data can be provided for the encoders in the demo version, because providing a working encoder would reveal the complete source code, which is only available in the licensed version. To order, please visit: www.idautomation.com/barcode-fonts/2d/dotcode/" & vbCrLf & vbCrLf & "This product is available as an instant download with a 30-day money-back guarantee if not completely satisfied.", , "DEMO Notice"
        DEMO = 3
    End If
    DECount = DECount + 1
    
End Function


