SerialPort
daojin593
这个作者很懒,什么都没留下…
展开
-
VB2005中按照16进制读取串口缓冲区数据
Function FtBytetoRead(ByVal strbuff As String, ByVal RS232 As IO.Ports.SerialPort) Dim i As Integer 'Dim strbyte() As Byte Dim n As Integer Dim bReadByte() As Byte原创 2011-12-31 16:31:57 · 1007 阅读 · 0 评论 -
VB2005中通过串口发送命令
Public Sub FtSendStr(ByVal sendstr As String, ByVal RS232 As IO.Ports.SerialPort) Dim i As Integer Dim sj() As Byte ReDim sj(Len(sendstr) / 2 - 1) For i = 0 To Len(原创 2011-12-31 16:34:44 · 518 阅读 · 0 评论