<-- Previous || Up || Next -->

Morse Code Encode Sample Sub
Codes Ciphers Class

Private Sub MorseCodeEncodeSample()
    ' Print the characters which are supported with a Morse representation.

    Dim intCurAsc As Integer
    For intCurAsc = 0 To 255
        Dim strANSI As String
        strANSI = Chr$(intCurAsc)

        Dim strMorse As String
        strMorse = MorseCodeEncode(strANSI)

        If Len(strMorse) Then
            Debug.Print IllustrateValue(strANSI) & " --> " & strMorse
        End If
    Next intCurAsc
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.