以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教如何定义 全局 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79965) |
-- 作者:ljh29206 -- 发布时间:2016/1/13 10:24:00 -- 请教如何定义 全局
不是很懂 ,请教以上代码 怎么放入 狐表里面, 连接位置 http://blog.csdn.net/zdingyun/article/details/46839779 我试过直接放入 全局代码 不行。 还有 怎么调用 函数
[此贴子已经被作者于2016/1/13 10:24:36编辑过]
|
-- 作者:Hyphen -- 发布时间:2016/1/13 10:38:00 -- 去掉:Option Explicit Private Sub Command1_Click() 是按钮事件,把里面的代码放到一个窗口的按钮事件中 另外2个函数可以放到全局代码中
|
-- 作者:ljh29206 -- 发布时间:2016/1/13 13:57:00 -- 斑竹 在请教一下 Function CRC16(data() As Byte) As String Dim CRC16Lo As Byte, CRC16Hi As Byte \'CRC寄存器 Dim CL As Byte, CH As Byte \'多项式码&HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer Dim Flag As Integer CRC16Lo = &HFF CRC16Hi = &HFF CL = &H1 CH = &HA0 For i = 0 To UBound(data) CRC16Lo = CRC16Lo Xor data(i) \'每一个数据与CRC寄存器进行异或 For Flag = 0 To 7 SaveHi = CRC16Hi SaveLo = CRC16Lo CRC16Hi = CRC16Hi \\ 2 \'高位右移一位 CRC16Lo = CRC16Lo \\ 2 \'低位右移一位 If ((SaveHi And &H1) = &H1) Then \'VB下的CRC校验程序高位字节最后一位为1 CRC16Lo = CRC16Lo Or &H80 \'则低位字节右移后前面补1 End If \'否则自动补0 If ((SaveLo And &H1) = &H1) Then \'VB下的CRC校验程序LSB为1,则与多项式码进行异或 CRC16Hi = CRC16Hi Xor CH CRC16Lo = CRC16Lo Xor CL End If Next Flag Next i Dim ReturnData(1) As Byte ReturnData(0) = CRC16Hi \'CRC高位 ReturnData(1) = CRC16Lo \'CRC低位 CRC16 = ReturnData End Function 在运行到 CRC16 = ReturnData 提示不能转化为1维数组 这个该怎么改呢?
|
-- 作者:Hyphen -- 发布时间:2016/1/13 14:45:00 -- 改函数定义的返回值 Function CRC16(data() As Byte) As byte()
|
-- 作者:大红袍 -- 发布时间:2016/1/16 11:36:00 -- 可以参考帖子
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=61936&skin=0
|