Private sub CRC (data () as Byte)
Dim crchi as Byte
Dim crclow as byte
Redim returndata (2) the as byte
.
. A pile of calculation...
Text7. Text=hex (returndata (1))
Text8. Text=hex (returndata (0))
End sub
Excuse me how to call this function?
Thank you very much!
CodePudding user response:
This is not a function, it has no return value,Returns a value of "Function" is the Function that is not a Sub,
It looks like the returndata array () should be a module level,
Call this process, and then directly from returndata data (),
(only is my guess; There is no complete code, not sure conclusion,)
CodePudding user response:
CRC check data, you want to keep writing a buffer array: such as arrTemp (),Then call the CRC (arrTemp)
Can also be written like this: CRC arrTemp
CodePudding user response:
DittoSub process function is
Sub has no return value,
CodePudding user response:
Look at your Sub, so long as the direct Call CRC (arrTemp), the result should be displayed in the text7 and text8,