publicfun_module.bas

应用研究计算上的许多地方上用的到的算法

        Case &H804
            isEnglish = False
        Case &H409
            isEnglish = True
    End Select
End Sub
Public Sub ConstCRC()
    CRCListHi(0) = &H0
    CRCListHi(1) = &HC1
    CRCListHi(2) = &H81
    CRCListHi(3) = &H40
    CRCListHi(4) = &H1
    CRCListHi(5) = &HC0
    CRCListHi(6) = &H80
    CRCListHi(7) = &H41
    CRCListHi(8) = &H1
    CRCListHi(9) = &HC0
    CRCListHi(10) = &H80
    CRCListHi(11) = &H41
    CRCListHi(12) = &H0
    CRCListHi(13) = &HC1
    CRCListHi(14) = &H81
    CRCListHi(15) = &H40
    CRCListHi(16) = &H1
    CRCListHi(17) = &HC0
    CRCListHi(18) = &H80
    CRCListHi(19) = &H41
    CRCListHi(20) = &H0
    CRCListHi(21) = &HC1
    CRCListHi(22) = &H81
    CRCListHi(23) = &H40
    CRCListHi(24) = &H0
    CRCListHi(25) = &HC1
    CRCListHi(26) = &H81
    CRCListHi(27) = &H40
    CRCListHi(28) = &H1
    CRCListHi(29) = &HC0
    CRCListHi(30) = &H80
    CRCListHi(31) = &H41
    CRCListHi(32) = &H1
    CRCListHi(33) = &HC0
    CRCListHi(34) = &H80
    CRCListHi(35) = &H41
    CRCListHi(36) = &H0
    CRCListHi(37) = &HC1
    CRCListHi(38) = &H81
    CRCListHi(39) = &H40
    CRCListHi(40) = &H0
    CRCListHi(41) = &HC1
    CRCListHi(42) = &H81
    CRCListHi(43) = &H40
    CRCListHi(44) = &H1
    CRCListHi(45) = &HC0
    CRCListHi(46) = &H80
    CRCListHi(47) = &H41
    CRCListHi(48) = &H0
    CRCListHi(49) = &HC1
    CRCListHi(50) = &H81
    CRCListHi(51) = &H40
    CRCListHi(52) = &H1
    CRCListHi(53) = &HC0
    CRCListHi(54) = &H80
    CRCListHi(55) = &H41
    CRCListHi(56) = &H1
    CRCListHi(57) = &HC0
    CRCListHi(58) = &H80
    CRCListHi(59) = &H41
    CRCListHi(60) = &H0
    CRCListHi(61) = &HC1
    CRCListHi(62) = &H81
    CRCListHi(63) = &H40
    CRCListHi(64) = &H1
    CRCListHi(65) = &HC0
    CRCListHi(66) = &H80
    CRCListHi(67) = &H41
    CRCListHi(68) = &H0
    CRCListHi(69) = &HC1
    CRCListHi(70) = &H81
    CRCListHi(71) = &H40
    CRCListHi(72) = &H0
    CRCListHi(73) = &HC1
    CRCListHi(74) = &H81
    CRCListHi(75) = &H40
    CRCListHi(76) = &H1
    CRCListHi(77) = &HC0
    CRCListHi(78) = &H80
    CRCListHi(79) = &H41
    CRCListHi(80) = &H0
    CRCListHi(81) = &HC1
    CRCListHi(82) = &H81
    CRCListHi(83) = &H40
    CRCListHi(84) = &H1
    CRCListHi(85) = &HC0
    CRCListHi(86) = &H80
    CRCListHi(87) = &H41
    CRCListHi(88) = &H1
    CRCListHi(89) = &HC0
    CRCListHi(90) = &H80
    CRCListHi(91) = &H41
    CRCListHi(92) = &H0
    CRCListHi(93) = &HC1
    CRCListHi(94) = &H81
    CRCListHi(95) = &H40
    CRCListHi(96) = &H0
    CRCListHi(97) = &HC1
    CRCListHi(98) = &H81
    CRCListHi(99) = &H40
    CRCListHi(100) = &H1
    CRCListHi(101) = &HC0
    CRCListHi(102) = &H80
    CRCListHi(103) = &H41
    CRCListHi(104) = &H1
    CRCListHi(105) = &HC0
    CRCListHi(106) = &H80
    CRCListHi(107) = &H41
    CRCListHi(108) = &H0
    CRCListHi(109) = &HC1
    CRCListHi(110) = &H81
    CRCListHi(111) = &H40
    CRCListHi(112) = &H1
    CRCListHi(113) = &HC0
    CRCListHi(114) = &H80
    CRCListHi(115) = &H41
    CRCListHi(116) = &H0
    CRCListHi(117) = &HC1
    CRCListHi(118) = &H81
    CRCListHi(119) = &H40
    CRCListHi(120) = &H0
    CRCListHi(121) = &HC1
    CRCListHi(122) = &H81
    CRCListHi(123) = &H40
    CRCListHi(124) = &H1
    CRCListHi(125) = &HC0
    CRCListHi(126) = &H80
    CRCListHi(127) = &H41
    CRCListHi(128) = &H1
    CRCListHi(129) = &HC0
    CRCListHi(130) = &H80
    CRCListHi(131) = &H41
    CRCListHi(132) = &H0
    CRCListHi(133) = &HC1
    CRCListHi(134) = &H81
    CRCListHi(135) = &H40
    CRCListHi(136) = &H0
    CRCListHi(137) = &HC1
    CRCListHi(138) = &H81
    CRCListHi(139) = &H40
    CRCListHi(140) = &H1
    CRCListHi(141) = &HC0
    CRCListHi(142) = &H80
    CRCListHi(143) = &H41
    CRCListHi(144) = &H0
    CRCListHi(145) = &HC1
    CRCListHi(146) = &H81
    CRCListHi(147) = &H40
    CRCListHi(148) = &H1
    CRCListHi(149) = &HC0
    CRCListHi(150) = &H80
    CRCListHi(151) = &H41
    CRCListHi(152) = &H1
    CRCListHi(153) = &HC0
    CRCListHi(154) = &H80
    CRCListHi(155) = &H41
    CRCListHi(156) = &H0
    CRCListHi(157) = &HC1
    CRCListHi(158) = &H81
    CRCListHi(159) = &H40
    CRCListHi(160) = &H0
    CRCListHi(161) = &HC1
    CRCListHi(162) = &H81
    CRCListHi(163) = &H40
    CRCListHi(164) = &H1
    CRCListHi(165) = &HC0
    CRCListHi(166) = &H80
    CRCListHi(167) = &H41
    CRCListHi(168) = &H1
    CRCListHi(169) = &HC0
    CRCListHi(170) = &H80
    CRCListHi(171) = &H41
    CRCListHi(172) = &H0
    CRCListHi(173) = &HC1
    CRCListHi(174) = &H81
    CRCListHi(175) = &H40
    CRCListHi(176) = &H1
    CRCListHi(177) = &HC0
    CRCListHi(178) = &H80
    CRCListHi(179) = &H41
    CRCListHi(180) = &H0
    CRCListHi(181) = &HC1
    CRCListHi(182) = &H81
    CRCListHi(183) = &H40
    CRCListHi(184) = &H0
    CRCListHi(185) = &HC1
    CRCListHi(186) = &H81
    CRCListHi(187) = &H40
    CRCListHi(188) = &H1
    CRCListHi(189) = &HC0
    CRCListHi(190) = &H80
    CRCListHi(191) = &H41
    CRCListHi(192) = &H0
    CRCListHi(193) = &HC1
    CRCListHi(194) = &H81
    CRCListHi(195) = &H40
    CRCListHi(196) = &H1
    CRCListHi(197) = &HC0
    CRCListHi(198) = &H80
    CRCListHi(199) = &H41
    CRCListHi(200) = &H1
    CRCListHi(201) = &HC0
    CRCListHi(202) = &H80
    CRCListHi(203) = &H41
    CRCListHi(204) = &H0
    CRCListHi(205) = &HC1
    CRCListHi(206) = &H81
    CRCListHi(207) = &H40
    CRCListHi(208) = &H1
    CRCListHi(209) = &HC0
    CRCListHi(210) = &H80
    CRCListHi(211) = &H41
    CRCListHi(212) = &H0
    CRCListHi(213) = &HC1
    CRCListHi(214) = &H81
    CRCListHi(215) = &H40
    CRCListHi(216) = &H0
    CRCListHi(217) = &HC1
    CRCListHi(218) = &H81
    CRCListHi(219) = &H40
    CRCListHi(220) = &H1
    CRCListHi(221) = &HC0
    CRCListHi(222) = &H80
    CRCListHi(223) = &H41
    CRCListHi(224) = &H1
    CRCListHi(225) = &HC0
    CRCListHi(226) = &H80
    CRCListHi(227) = &H41
    CRCListHi(228) = &H0
    CRCListHi(229) = &HC1
    CRCListHi(230) = &H81
    CRCListHi(231) = &H40
    CRCListHi(232) = &H0
    CRCListHi(233) = &HC1
    CRCListHi(234) = &H81
    CRCListHi(235) = &H40
    CRCListHi(236) = &H1
    CRCListHi(237) = &HC0
    CRCListHi(238) = &H80
    CRCListHi(239) = &H41
    CRCListHi(240) = &H0
    CRCListHi(241) = &HC1
    CRCListHi(242) = &H81
    CRCListHi(243) = &H40
    CRCListHi(244) = &H1
    CRCListHi(245) = &HC0
    CRCListHi(246) = &H80
    CRCListHi(247) = &H41
    CRCListHi(248) = &H1
    CRCListHi(249) = &HC0
    CRCListHi(250) = &H80
    CRCListHi(251) = &H41
    CRCListHi(252) = &H0
    CRCListHi(253) = &HC1
    CRCListHi(254) = &H81
    CRCListHi(255) = &H40
    
    CRCListLo(0) = &H0
    CRCListLo(1) = &HC0
    CRCListLo(2) = &HC1
    CRCListLo(3) = &H1
    CRCListLo(4) = &HC3
    CRCListLo(5) = &H3
    CRCListLo(6) = &H2
    CRCListLo(7) = &HC2
    CRCListLo(8) = &HC6
    CRCListLo(9) = &H6
    CRCListLo(10) = &H7
    CRCListLo(11) = &HC7
    CRCListLo(12) = &H5
    CRCListLo(13) = &HC5
    CRCListLo(14) = &HC4
    CRCListLo(15) = &H4
    CRCListLo(16) = &HCC
    CRCListLo(17) = &HC
    CRCListLo(18) = &HD
    CRCListLo(19) = &HCD
    CRCListLo(20) = &HF
    CRCListLo(21) = &HCF
    CRCListLo(22) = &HCE
    CRCListLo(23) = &HE
    CRCListLo(24) = &HA
    CRCListLo(25) = &HCA
    CRCListLo(26) = &HCB
    CRCListLo(27) = &HB
    CRCListLo(28) = &HC9
    CRCListLo(29) = &H9
    CRCListLo(30) = &H8
    CRCListLo(31) = &HC8
    CRCListLo(32) = &HD8
    CRCListLo(33) = &H18
    CRCListLo(34) = &H19
    CRCListLo(35) = &HD9
    CRCListLo(36) = &H1B
    CRCListLo(37) = &HDB
    CRCListLo(38) = &HDA
    CRCListLo(39) = &H1A
    CRCListLo(40) = &H1E
    CRCListLo(41) = &HDE
    CRCListLo(42) = &HDF
    CRCListLo(43) = &H1F
    CRCListLo(44) = &HDD
    CRCListLo(45) = &H1D
    CRCListLo(46) = &H1C
    CRCListLo(47) = &HDC
    CRCListLo(48) = &H14
    CRCListLo(49) = &HD4
    CRCListLo(50) = &HD5
    CRCListLo(51) = &H15
    CRCListLo(52) = &HD7
    CRCListLo(53) = &H17
    CRCListLo(54) = &H16
    CRCListLo(55) = &HD6
    CRCListLo(56) = &HD2
    CRCListLo(57) = &H12
    CRCListLo(58) = &H13
    CRCListLo(59) = &HD3
    CRCListLo(60) = &H11
    CRCListLo(61) = &HD1
    CRCListLo(62) = &HD0
    CRCListLo(63) = &H10
    CRCListLo(64) = &HF0
    CRCListLo(65) = &H30
    CRCListLo(66) = &H31
    CRCListLo(67) = &HF1
    CRCListLo(68) = &H33
    CRCListLo(69) = &HF3
    CRCListLo(70) = &HF2
    CRCListLo(71) = &H32
    CRCListLo(72) = &H36
    CRCListLo(73) = &HF6
    CRCListLo(74) = &HF7
    CRCListLo(75) = &H37
    CRCListLo(76) = &HF5
    CRCListLo(77) = &H35
    CRCListLo(78) = &H34
    CRCListLo(79) = &HF4
    CRCListLo(80) = &H3C
    CRCListLo(81) = &HFC
    CRCListLo(82) = &HFD
    CRCListLo(83) = &H3D
    CRCListLo(84) = &HFF
    CRCListLo(85) = &H3F
    CRCListLo(86) = &H3E
    CRCListLo(87) = &HFE
    CRCListLo(88) = &HFA
    CRCListLo(89) = &H3A
    CRCListLo(90) = &H3B
    CRCListLo(91) = &HFB
    CRCListLo(92) = &H39
    CRCListLo(93) = &HF9
    CRCListLo(94) = &HF8
    CRCListLo(95) = &H38
    CRCListLo(96) = &H28
    CRCListLo(97) = &HE8
    CRCListLo(98) = &HE9
    CRCListLo(99) = &H29
    CRCListLo(100) = &HEB
    CRCListLo(101) = &H2B
    CRCListLo(102) = &H2A
    CRCListLo(103) = &HEA
    CRCListLo(104) = &HEE
    CRCListLo(105) = &H2E
    CRCListLo(106) = &H2F
    CRCListLo(107) = &HEF
    CRCListLo(108) = &H2D
    CRCListLo(109) = &HED
    CRCListLo(110) = &HEC
    CRCListLo(111) = &H2C
    CRCListLo(112) = &HE4
    CRCListLo(113) = &H24
    CRCListLo(114) = &H25
    CRCListLo(115) = &HE5
    CRCListLo(116) = &H27
    CRCListLo(117) = &HE7
    CRCListLo(118) = &HE6
    CRCListLo(119) = &H26
    CRCListLo(120) = &H22
    CRCListLo(121) = &HE2
    CRCListLo(122) = &HE3
    CRCListLo(123) = &H23
    CRCListLo(124) = &HE1
    CRCListLo(125) = &H21
    CRCListLo(126) = &H20
    CRCListLo(127) = &HE0
    CRCListLo(128) = &HA0
    CRCListLo(129) = &H60
    CRCListLo(130) = &H61
    CRCListLo(131) = &HA1
    CRCListLo(132) = &H63
    CRCListLo(133) = &HA3
    CRCListLo(134) = &HA2
    CRCListLo(135) = &H62
    CRCListLo(136) = &H66
    CRCListLo(137) = &HA6
    CRCListLo(138) = &HA7
    CRCListLo(139) = &H67
    CRCListLo(140) = &HA5
    CRCListLo(141) = &H65
    CRCListLo(142) = &H64
    CRCListLo(143) = &HA4
    CRCListLo(144) = &H6C
    CRCListLo(145) = &HAC
    CRCListLo(146) = &HAD
    CRCListLo(147) = &H6D
    CRCListLo(148) = &HAF
    CRCListLo(149) = &H6F
    CRCListLo(150) = &H6E
    CRCListLo(151) = &HAE
    CRCListLo(152) = &HAA
    CRCListLo(153) = &H6A
    CRCListLo(154) = &H6B
    CRCListLo(155) = &HAB
    CRCListLo(156) = &H69
    CRCListLo(157) = &HA9
    CRCListLo(158) = &HA8
    CRCListLo(159) = &H68
    CRCListLo(160) = &H78
    CRCListLo(161) = &HB8
    CRCListLo(162) = &HB9
    CRCListLo(163) = &H79
    CRCListLo(164) = &HBB
    CRCListLo(165) = &H7B
    CRCListLo(166) = &H7A