📄 len2.frm
字号:
Index = 1
Left = 360
TabIndex = 26
Top = 720
Width = 1335
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "参数修正："
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF80&
Height = 375
Index = 2
Left = 360
TabIndex = 25
Top = 2040
Width = 1455
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "设定记数"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 375
Index = 3
Left = 1920
TabIndex = 24
Top = 480
Width = 1575
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "设定胶量"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 495
Index = 4
Left = 1920
TabIndex = 23
Top = 1200
Width = 1215
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "显示值"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 495
Index = 5
Left = 1920
TabIndex = 22
Top = 2040
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "修正值"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 375
Index = 6
Left = 5280
TabIndex = 21
Top = 2040
Width = 1095
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "0"
BeginProperty Font
Name = "MS Serif"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
Left = 3240
TabIndex = 20
Top = 1920
Width = 1095
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim LoByte, HiByte As Byte
Sub CRC16(ByRef checkstr() As Byte, ByVal ln As Integer)
Dim onechr, uchCRCHi, uchCRCLo As Byte
uchCRCHi = &HFF
uchCRCLo = &HFF
Dim auchCRCHi(255) As Byte
auchCRCHi(0) = &H0
auchCRCHi(1) = &HC1
auchCRCHi(2) = &H81
auchCRCHi(3) = &H40
auchCRCHi(4) = &H1
auchCRCHi(5) = &HC0
auchCRCHi(6) = &H80
auchCRCHi(7) = &H41
auchCRCHi(8) = &H1
auchCRCHi(9) = &HC0
auchCRCHi(10) = &H80
auchCRCHi(11) = &H41
auchCRCHi(12) = &H0
auchCRCHi(13) = &HC1
auchCRCHi(14) = &H81
auchCRCHi(15) = &H40
auchCRCHi(16) = &H1
auchCRCHi(17) = &HC0
auchCRCHi(18) = &H80
auchCRCHi(19) = &H41
auchCRCHi(20) = &H0
auchCRCHi(21) = &HC1
auchCRCHi(22) = &H81
auchCRCHi(23) = &H40
auchCRCHi(24) = &H0
auchCRCHi(25) = &HC1
auchCRCHi(26) = &H81
auchCRCHi(27) = &H40
auchCRCHi(28) = &H1
auchCRCHi(29) = &HC0
auchCRCHi(30) = &H80
auchCRCHi(31) = &H41
auchCRCHi(32) = &H1
auchCRCHi(33) = &HC0
auchCRCHi(34) = &H80
auchCRCHi(35) = &H41
auchCRCHi(36) = &H0
auchCRCHi(37) = &HC1
auchCRCHi(38) = &H81
auchCRCHi(39) = &H40
auchCRCHi(40) = &H0
auchCRCHi(41) = &HC1
auchCRCHi(42) = &H81
auchCRCHi(43) = &H40
auchCRCHi(44) = &H1
auchCRCHi(45) = &HC0
auchCRCHi(46) = &H80
auchCRCHi(47) = &H41
auchCRCHi(48) = &H0
auchCRCHi(49) = &HC1
auchCRCHi(50) = &H81
auchCRCHi(51) = &H40
auchCRCHi(52) = &H1
auchCRCHi(53) = &HC0
auchCRCHi(54) = &H80
auchCRCHi(55) = &H41
auchCRCHi(56) = &H1
auchCRCHi(57) = &HC0
auchCRCHi(58) = &H80
auchCRCHi(59) = &H41
auchCRCHi(60) = &H0
auchCRCHi(61) = &HC1
auchCRCHi(62) = &H81
auchCRCHi(63) = &H40
auchCRCHi(64) = &H1
auchCRCHi(65) = &HC0
auchCRCHi(66) = &H80
auchCRCHi(67) = &H41
auchCRCHi(68) = &H0
auchCRCHi(69) = &HC1
auchCRCHi(70) = &H81
auchCRCHi(71) = &H40
auchCRCHi(72) = &H0
auchCRCHi(73) = &HC1
auchCRCHi(74) = &H81
auchCRCHi(75) = &H40
auchCRCHi(76) = &H1
auchCRCHi(77) = &HC0
auchCRCHi(78) = &H80
auchCRCHi(79) = &H41
auchCRCHi(80) = &H0
auchCRCHi(81) = &HC1
auchCRCHi(82) = &H81
auchCRCHi(83) = &H40
auchCRCHi(84) = &H1
auchCRCHi(85) = &HC0
auchCRCHi(86) = &H80
auchCRCHi(87) = &H41
auchCRCHi(88) = &H1
auchCRCHi(89) = &HC0
auchCRCHi(90) = &H80
auchCRCHi(91) = &H41
auchCRCHi(92) = &H0
auchCRCHi(93) = &HC1
auchCRCHi(94) = &H81
auchCRCHi(95) = &H40
auchCRCHi(96) = &H0
auchCRCHi(97) = &HC1
auchCRCHi(98) = &H81
auchCRCHi(99) = &H40
auchCRCHi(100) = &H1
auchCRCHi(101) = &HC0
auchCRCHi(102) = &H80
auchCRCHi(103) = &H41
auchCRCHi(104) = &H1
auchCRCHi(105) = &HC0
auchCRCHi(106) = &H80
auchCRCHi(107) = &H41
auchCRCHi(108) = &H0
auchCRCHi(109) = &HC1
auchCRCHi(110) = &H81
auchCRCHi(111) = &H40
auchCRCHi(112) = &H1
auchCRCHi(113) = &HC0
auchCRCHi(114) = &H80
auchCRCHi(115) = &H41
auchCRCHi(116) = &H0
auchCRCHi(117) = &HC1
auchCRCHi(118) = &H81
auchCRCHi(119) = &H40
auchCRCHi(120) = &H0
auchCRCHi(121) = &HC1
auchCRCHi(122) = &H81
auchCRCHi(123) = &H40
auchCRCHi(124) = &H1
auchCRCHi(125) = &HC0
auchCRCHi(126) = &H80
auchCRCHi(127) = &H41
auchCRCHi(128) = &H1
auchCRCHi(129) = &HC0
auchCRCHi(130) = &H80
auchCRCHi(131) = &H41
auchCRCHi(132) = &H0
auchCRCHi(133) = &HC1
auchCRCHi(134) = &H81
auchCRCHi(135) = &H40
auchCRCHi(136) = &H0
auchCRCHi(137) = &HC1
auchCRCHi(138) = &H81
auchCRCHi(139) = &H40
auchCRCHi(140) = &H1
auchCRCHi(141) = &HC0
auchCRCHi(142) = &H80
auchCRCHi(143) = &H41
auchCRCHi(144) = &H0
auchCRCHi(145) = &HC1
auchCRCHi(146) = &H81
auchCRCHi(147) = &H40
auchCRCHi(148) = &H1
auchCRCHi(149) = &HC0
auchCRCHi(150) = &H80
auchCRCHi(151) = &H41
auchCRCHi(152) = &H1
auchCRCHi(153) = &HC0
auchCRCHi(154) = &H80
auchCRCHi(155) = &H41
auchCRCHi(156) = &H0
auchCRCHi(157) = &HC1
auchCRCHi(158) = &H81
auchCRCHi(159) = &H40
auchCRCHi(160) = &H0
auchCRCHi(161) = &HC1
auchCRCHi(162) = &H81
auchCRCHi(163) = &H40
auchCRCHi(164) = &H1
auchCRCHi(165) = &HC0
auchCRCHi(166) = &H80
auchCRCHi(167) = &H41
auchCRCHi(168) = &H1
auchCRCHi(169) = &HC0
auchCRCHi(170) = &H80
auchCRCHi(171) = &H41
auchCRCHi(172) = &H0
auchCRCHi(173) = &HC1
auchCRCHi(174) = &H81
auchCRCHi(175) = &H40
auchCRCHi(176) = &H1
auchCRCHi(177) = &HC0
auchCRCHi(178) = &H80
auchCRCHi(179) = &H41
auchCRCHi(180) = &H0
auchCRCHi(181) = &HC1
auchCRCHi(182) = &H81
auchCRCHi(183) = &H40
auchCRCHi(184) = &H0
auchCRCHi(185) = &HC1
auchCRCHi(186) = &H81
auchCRCHi(187) = &H40
auchCRCHi(188) = &H1
auchCRCHi(189) = &HC0
auchCRCHi(190) = &H80
auchCRCHi(191) = &H41
auchCRCHi(192) = &H0
auchCRCHi(193) = &HC1
auchCRCHi(194) = &H81
auchCRCHi(195) = &H40
auchCRCHi(196) = &H1
auchCRCHi(197) = &HC0
auchCRCHi(198) = &H80
auchCRCHi(199) = &H41
auchCRCHi(200) = &H1
auchCRCHi(201) = &HC0
auchCRCHi(202) = &H80
auchCRCHi(203) = &H41
auchCRCHi(204) = &H0
auchCRCHi(205) = &HC1
auchCRCHi(206) = &H81
auchCRCHi(207) = &H40
auchCRCHi(208) = &H1
auchCRCHi(209) = &HC0
auchCRCHi(210) = &H80
auchCRCHi(211) = &H41
auchCRCHi(212) = &H0
auchCRCHi(213) = &HC1
auchCRCHi(214) = &H81
auchCRCHi(215) = &H40
auchCRCHi(216) = &H0
auchCRCHi(217) = &HC1
auchCRCHi(218) = &H81
auchCRCHi(219) = &H40
auchCRCHi(220) = &H1
auchCRCHi(221) = &HC0
auchCRCHi(222) = &H80
auchCRCHi(223) = &H41
auchCRCHi(224) = &H1
auchCRCHi(225) = &HC0
auchCRCHi(226) = &H80
auchCRCHi(227) = &H41
auchCRCHi(228) = &H0
auchCRCHi(229) = &HC1
auchCRCHi(230) = &H81
auchCRCHi(231) = &H40
auchCRCHi(232) = &H0
auchCRCHi(233) = &HC1
auchCRCHi(234) = &H81
auchCRCHi(235) = &H40
auchCRCHi(236) = &H1
auchCRCHi(237) = &HC0
auchCRCHi(238) = &H80
auchCRCHi(239) = &H41
auchCRCHi(240) = &H0
auchCRCHi(241) = &HC1
auchCRCHi(242) = &H81
auchCRCHi(243) = &H40
auchCRCHi(244) = &H1
auchCRCHi(245) = &HC0
auchCRCHi(246) = &H80
auchCRCHi(247) = &H41
auchCRCHi(248) = &H1
auchCRCHi(249) = &HC0
auchCRCHi(250) = &H80
auchCRCHi(251) = &H41
auchCRCHi(252) = &H0
auchCRCHi(253) = &HC1
auchCRCHi(254) = &H81
auchCRCHi(255) = &H40
Dim auchCRCLo(255) As Byte
auchCRCLo(0) = &H0
auchCRCLo(1) = &HC0
auchCRCLo(2) = &HC1
auchCRCLo(3) = &H1
auchCRCLo(4) = &HC3
auchCRCLo(5) = &H3
auchCRCLo(6) = &H2
auchCRCLo(7) = &HC2
auchCRCLo(8) = &HC6
auchCRCLo(9) = &H6
auchCRCLo(10) = &H7
auchCRCLo(11) = &HC7
auchCRCLo(12) = &H5
auchCRCLo(13) = &HC5
auchCRCLo(14) = &HC4
auchCRCLo(15) = &H4
auchCRCLo(16) = &HCC
auchCRCLo(17) = &HC
auchCRCLo(18) = &HD
auchCRCLo(19) = &HCD
auchCRCLo(20) = &HF
auchCRCLo(21) = &HCF
auchCRCLo(22) = &HCE
auchCRCLo(23) = &HE
auchCRCLo(24) = &HA
auchCRCLo(25) = &HCA
auchCRCLo(26) = &HCB
auchCRCLo(27) = &HB
auchCRCLo(28) = &HC9
auchCRCLo(29) = &H9
auchCRCLo(30) = &H8
auchCRCLo(31) = &HC8
auchCRCLo(32) = &HD8
auchCRCLo(33) = &H18
auchCRCLo(34) = &H19
auchCRCLo(35) = &HD9
auchCRCLo(36) = &H1B
auchCRCLo(37) = &HDB
auchCRCLo(38) = &HDA
auchCRCLo(39) = &H1A
auchCRCLo(40) = &H1E
auchCRCLo(41) = &HDE
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -