Private Sub BaudotEncodeSample() ' Sample of the BaudotEncode function which illustrates the portion of the ANSI Windows character set that ' the Baudot code supports. Dim intCurAsc As Integer For intCurAsc = 0 To 255 Dim strANSI As String strANSI = Chr$(intCurAsc) Dim strBaudot As String strBaudot = BaudotEncode(Chr$(intCurAsc)) If Len(strBaudot) Then Debug.Print IllustrateValue(strANSI) & " --> " & IllustrateValue(strBaudot) End If Next intCurAsc End Sub
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.