芬腾内衣官方旗舰店:VB入门技巧N例(10)

来源：百度文库 编辑：九乡新闻网 时间：2024/07/07 15:10:40
33. 用键盘方向键控制COMBOX
  1. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
  2.         (ByVal hwnd As Long, _
  3.         ByVal wMsg As Long, _
  4.         ByVal wParam As Long, _
  5.         lParam As Any) As Long
  6. Const CB_SHOWDROPDOWN = &H14F
  7. Dim bDrop As Boolean
  8. Private isDo As Boolean
  9. Private Sub Combo1_Click()
  10. If Not isDo Then
  11.         isDo = True                   '<----------回置状态
  12.         Exit Sub
  13. Else: MsgBox "safd"
  14.     End If
  15. End Sub
  16. Private Sub Combo1_DropDown()
  17.     bDrop = True
  18. End Sub
  19. Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  20.     If KeyCode = 40 Then
  21.       isDo = False
  22.         SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0
  23. ElseIf KeyCode = 38 Then
  24.       isDo = False
  25.         If Combo1.ListIndex = 0 Then
  26.             If bDrop Then
  27.                 bDrop = False
  28.                 SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 0, 0
  29.             End If
  30.         End If
  31.     End If
  32. End Sub
  33. Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
  34. If Combo1.Text = Combo1.List(0) Then
  35. isDo = True
  36. End If
  37. End Sub
  38. Private Sub Form_Load()
  39.     isDo = True
  40.     Combo1.AddItem "abcd"
  41.     Combo1.AddItem "abcd1"
  42.     Combo1.AddItem "abcd2"
  43.     Combo1.AddItem "abcd3"
  44. End Sub
复制代码
35.VB下的CRC校验程序
一  计算法
计算法就是依据CRC校验码的产生原理来设计程序。其优点是模块代码少，修改灵活，可移植性好。其缺点为计算量大。为了便于理解，这里假

定了三位数据，而多项式码为A001(hex)。
在窗体上放置一命令按钮Command1，并添加如下代码：

  1. Private Sub Command1_Click()
  2. 　　　Dim CRC() As Byte
  3. 　　　Dim d() As Byte '待传输数据
  4. 　　　ReDim d(2) As Byte
  5. 　　　d(0) = 123
  6. 　　　d(1) = 112
  7. 　　　d(2) = 135
  8. 　　　CRC = CRC16(d) '调用CRC16计算函数
  9. 　　　'CRC(0)为高位
  10. 　　　'CRC(1)为低位
  11. 　　End Sub
  12. 　　注意：在数据传输时CRC的低位可能在前，而高位在后。

  14. 　　Function CRC16(data() As Byte) As String
  15. 　　　Dim CRC16Lo As Byte, CRC16Hi As Byte　　　'CRC寄存器
  16. 　　　Dim CL As Byte, CH As Byte　　　　　　　　'多项式码&HA001
  17. 　　　Dim SaveHi As Byte, SaveLo As Byte
  18. 　　　Dim i As Integer
  19. 　　　Dim Flag As Integer
  20. 　　　CRC16Lo = &HFF
  21. 　　　CRC16Hi = &HFF
  22. 　　　CL = &H1
  23. 　　　CH = &HA0
  24. 　　　For i = 0 To UBound(data)
  25. 　　　　CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或
  26. 　　　　For Flag = 0 To 7
  27. 　　　　　SaveHi = CRC16Hi
  28. 　　　　　SaveLo = CRC16Lo
  29. 　　　　　CRC16Hi = CRC16Hi \ 2　　　　　　'高位右移一位
  30. 　　　　　CRC16Lo = CRC16Lo \ 2　　　　　　'低位右移一位

  32. If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1
  33. 　　　　　　CRC16Lo = CRC16Lo Or &H80　　　'则低位字节右移后前面补1
  34. 　　　　　End If　　　　　　　　　　　　　 '否则自动补0
  35. 　　　　　If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进行异或
  36. 　　　　　　CRC16Hi = CRC16Hi Xor CH
  37. 　　　　　　CRC16Lo = CRC16Lo Xor CL
  38. 　　　　　End If
  39. 　　　　Next Flag
  40. 　　　Next i
  41. 　　　Dim ReturnData(1) As Byte
  42. 　　　ReturnData(0) = CRC16Hi　　　　　　　'CRC高位
  43. 　　　ReturnData(1) = CRC16Lo　　　　　　　'CRC低位
  44. 　　　CRC16 = ReturnData
  45. 　　End Function
复制代码
2．查表法
查表法的优缺点与计算法的正好相反。为了便于比较，这里所有的假定与计算法的完全相同，都而在窗体上放置一个Command1的按钮，其

代码部分与上面的也完全一致。下面只介绍CRC函数的编写源代码。

  1. Private Function CRC16(data() As Byte) As String
  2. 　　　Dim CRC16Hi As Byte
  3. 　　　Dim CRC16Lo As Byte
  4. 　　　CRC16Hi = &HFF
  5. 　　　CRC16Lo = &HFF
  6. 　　　Dim i As Integer
  7. 　　　Dim iIndex As Long
  8. 　　　For i = 0 To UBound(data)
  9. 　　　　iIndex = CRC16Lo Xor data(i)
  10. 　　　　CRC16Lo = CRC16Hi Xor GetCRCLo(iIndex)　　　　'低位处理
  11. 　　　　CRC16Hi = GetCRCHi(iIndex)　　　　　　　　　　'高位处理
  12. 　　　Next i
  13. 　　　Dim ReturnData(1) As Byte
  14. 　　　ReturnData(0) = CRC16Hi　　　　'CRC高位
  15. 　　　ReturnData(1) = CRC16Lo　　　　'CRC低位
  16. 　　　CRC16 = ReturnData
  17. 　　End Function

  19. 　　'CRC低位字节值表
  20. 　　Function GetCRCLo(Ind As Long) As Byte
  21. 　　　GetCRCLo = Choose(Ind + 1, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40,  

  23. &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1,  

  25. &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80,  

  27. &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0,  

  29. &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0,  

  31. &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81,  

  33. &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, _
  34. &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80,  

  36. &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0,  

  38. &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1,  

  40. &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81,  

  42. &H40, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H0, &HC1, &H81, &H40, &H1,  

  44. &HC0, &H80, &H41, &H0, &HC1, &H81, &H40, &H1, &HC0, &H80, &H41, &H1, &HC0, &H80, &H41, &H0, &HC1, &H81, &H40)
  45. 　　End Function

  47. 　　'CRC高位字节值表
  48. 　　Function GetCRCHi(Ind As Long) As Byte

  50. GetCRCHi = Choose(Ind + 1, &H0, &HC0, &HC1, &H1, &HC3, &H3, &H2, &HC2, &HC6, &H6, &H7, &HC7, &H5, &HC5, &HC4, &H4,  

  52. &HCC, &HC, &HD, &HCD, &HF, &HCF, &HCE, &HE, &HA, &HCA, &HCB, &HB, &HC9, &H9, &H8, &HC8, &HD8, &H18, &H19, &HD9, &H1B, &HDB,  

  54. &HDA, &H1A, &H1E, &HDE, &HDF, &H1F, &HDD, &H1D, &H1C, &HDC, &H14, &HD4, &HD5, &H15, &HD7, &H17, &H16, &HD6, &HD2, &H12, &H13,  

  56. &HD3, &H11, &HD1, &HD0, &H10, &HF0, &H30, &H31, &HF1, &H33, &HF3, &HF2, &H32, &H36, &HF6, &HF7, &H37, &HF5, &H35, &H34, &HF4,  

  58. &H3C, &HFC, &HFD, &H3D, &HFF, &H3F, &H3E, &HFE, &HFA, &H3A, &H3B, &HFB, &H39, &HF9, &HF8, &H38, &H28, &HE8, &HE9, &H29, &HEB,  

  60. &H2B, &H2A, &HEA, &HEE, &H2E, &H2F, &HEF, &H2D, &HED, &HEC, &H2C, &HE4, &H24, &H25, &HE5, &H27, &HE7, &HE6, &H26, &H22, &HE2,  

  62. &HE3, &H23, &HE1, &H21, &H20, &HE0, &HA0, &H60, _
  63. &H61, &HA1, &H63, &HA3, &HA2, &H62, &H66, &HA6, &HA7, &H67, &HA5, &H65, &H64, &HA4, &H6C, &HAC, &HAD, &H6D, &HAF, &H6F, &H6E,  

  65. &HAE, &HAA, &H6A, &H6B, &HAB, &H69, &HA9, &HA8, &H68, &H78, &HB8, &HB9, &H79, &HBB, &H7B, &H7A, &HBA, &HBE, &H7E, &H7F, &HBF,  

  67. &H7D, &HBD, &HBC, &H7C, &HB4, &H74, &H75, &HB5, &H77, &HB7, &HB6, &H76, &H72, &HB2, &HB3, &H73, &HB1, &H71, &H70, &HB0, &H50,  

  69. &H90, &H91, &H51, &H93, &H53, &H52, &H92, &H96, &H56, &H57, &H97, &H55, &H95, &H94, &H54, &H9C, &H5C, &H5D, &H9D, &H5F, &H9F,  

  71. &H9E, &H5E, &H5A, &H9A, &H9B, &H5B, &H99, &H59, &H58, &H98, &H88, &H48, &H49, &H89, &H4B, &H8B, &H8A, &H4A, &H4E, &H8E, &H8F,  

  73. &H4F, &H8D, &H4D, &H4C, &H8C, &H44, &H84, &H85, &H45, &H87, &H47, &H46, &H86, &H82, &H42, &H43, &H83, &H41, &H81, &H80, &H40)
  74. 　　End Function
复制代码
VB入门技巧N例(10) VB入门技巧N例(3) VB入门技巧N例(4) VB入门技巧N例(5) VB入门技巧N例(6) VB入门技巧N例(7) VB入门技巧N例(8) VB入门技巧N例(9) VB入门技巧N例(11) 编程入门网-Vb教程+ 编程入门网-VB教程：第三章-VB语言+ vb.net入门：CheckedListBox控件的使用 VB爱好者乐园(VBGood) - 经验之谈 - VB编程的必备技巧 围棋入门n（完整版） VB 窗体编程 技巧汇编 经验大全+ VB 窗体编程 技巧汇编 经验大全- 沟通的技巧n 做菜的技巧n vb vb 编辑日志入门技巧 数码单反摄影技巧入门 数码单反摄影技巧入门 坐禅入门技巧 摄影技巧初级入门