modgeneral.bas

德国二战时期的电文编码系统,我增加了一些测试.

Attribute VB_Name = "modGeneral"
Public CharCode(41, 1) As String

Public Sub AryInit()
    CharCode(0, 0) = "A"
    CharCode(1, 0) = "B"
    CharCode(2, 0) = "C"
    CharCode(3, 0) = "D"
    CharCode(4, 0) = "E"
    CharCode(5, 0) = "F"
    CharCode(6, 0) = "G"
    CharCode(7, 0) = "H"
    CharCode(8, 0) = "I"
    CharCode(9, 0) = "J"
    CharCode(10, 0) = "K"
    CharCode(11, 0) = "L"
    CharCode(12, 0) = "M"
    CharCode(13, 0) = "N"
    CharCode(14, 0) = "O"
    CharCode(15, 0) = "P"
    CharCode(16, 0) = "Q"
    CharCode(17, 0) = "R"
    CharCode(18, 0) = "S"
    CharCode(19, 0) = "T"
    CharCode(20, 0) = "U"
    CharCode(21, 0) = "V"
    CharCode(22, 0) = "W"
    CharCode(23, 0) = "X"
    CharCode(24, 0) = "Y"
    CharCode(25, 0) = "Z"
    CharCode(26, 0) = "?"
    CharCode(27, 0) = "/"
    CharCode(28, 0) = "("
    CharCode(29, 0) = "-"
    CharCode(30, 0) = "·"
    CharCode(31, 0) = "1"
    CharCode(32, 0) = "2"
    CharCode(33, 0) = "3"
    CharCode(34, 0) = "4"
    CharCode(35, 0) = "5"
    CharCode(36, 0) = "6"
    CharCode(37, 0) = "7"
    CharCode(38, 0) = "8"
    CharCode(39, 0) = "9"
    CharCode(40, 0) = "0"
    CharCode(41, 0) = ")"
    
    CharCode(0, 1) = "·——"
    CharCode(1, 1) = "—···"
    CharCode(2, 1) = "—·—·"
    CharCode(3, 1) = "—··"
    CharCode(4, 1) = "·"
    CharCode(5, 1) = "··—·"
    CharCode(6, 1) = "——·"
    CharCode(7, 1) = "····"
    CharCode(8, 1) = "··"
    CharCode(9, 1) = "·———"
    CharCode(10, 1) = "—·—"
    CharCode(11, 1) = "·—··"
    CharCode(12, 1) = "——"
    CharCode(13, 1) = "—·"
    CharCode(14, 1) = "———"
    CharCode(15, 1) = "·——·"
    CharCode(16, 1) = "——·—"
    CharCode(17, 1) = "·—·"
    CharCode(18, 1) = "···"
    CharCode(19, 1) = "—"
    CharCode(20, 1) = "··—"
    CharCode(21, 1) = "···—"
    CharCode(22, 1) = "·——"
    CharCode(23, 1) = "—··—"
    CharCode(24, 1) = "—·——"
    CharCode(25, 1) = "——··"
    CharCode(26, 1) = "··——··"
    CharCode(27, 1) = "—··—·"
    CharCode(28, 1) = "··——··"
    CharCode(29, 1) = "—···—"
    CharCode(30, 1) = "·—·—·—"
    CharCode(31, 1) = "·———"
    CharCode(32, 1) = "··———"
    CharCode(33, 1) = "···——"
    CharCode(34, 1) = "····"
    CharCode(35, 1) = "·····"
    CharCode(36, 1) = "——····"
    CharCode(37, 1) = "——···"
    CharCode(38, 1) = "———··"
    CharCode(39, 1) = "————·"
    CharCode(40, 1) = "—————"
    CharCode(41, 1) = "——·——"
End Sub