
31
Private
Function
CheckByte(
ByVal
buffer()
As
Byte
)
As
Byte
Dim
returnvalue
As
Byte
= 0
For
i
As
UInteger
= 0
To
10
Step
1
returnvalue = returnvalue
Xor
buffer(i)
Next
Return
returnvalue
End
Function
Private
Sub
WriteByte(
ByVal
zeichen()
As
Byte
)
Serial.Write(zeichen, 0, 12)
End
Sub
Private
Function
ReadByte()
As
Byte
Return
Serial.ReadByte()
End
Function
End
Class
Using this example code, a connection can be set up using the following lines of code:
Dim
MyProto
As
Protocol =
New
Protocol()
MyProto.Enable(„Com3“)
MyProto.SendReceive(Protocol.PING, 0, Protocol.ACK)
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
苏州波弗光电科技有限公司
网址:www.bonphot.com
电话:0512-62828421