Question

VB 单片机 串行通信控制步进电机

用VB编写软件 与 单片机 进行串行通信的同时 控制步进电机。

其中 有部分代码：
Private Sub cmdcommClick()
Dim Senddat(5) As String,Rcvdat() As Byte,
dattemp As Variant,i As Integer
cmdcomm.Enabled=False′使cmdcomm按钮失效
For i=0 To 5′从发送文本框txtSend获取发送数据
Senddat(i)="&H" & Mid(txtSend.Text,i * 2+1,2) 【这句是什么意思？】
Next i
MSComm1.CommPort=1′设置端口号为1
MSComm1.Settings="19200,N,8,1"′设置波特率等通 ′信协议
MSComm1.InputLen=6′设置一次从串口读取6个字节
MSComm1.PortOpen=True′打开串行口
MSComm1.InputMode=comInputModeBinary′从串口 ′读取二进制数据
MSComm1.Output=Senddat′发送数据 【******编译到这里出错， 说是 无效的属性值!!!!! 这是怎么回事********】
Do Until MSComm1.InBufferCount >= 6′查询方式,等 ′待接收到6个字节
DoEvents
Loop
dattemp=MSComm1.Input′从串口读取数据至变体变量
Rcvdat=dattemp′数据送至接收二进制数组
txtRcv.Text=""
For i=0 To 5′接收数据送至接收文本框txtRcv显示
txtRcv.Text=txtRcv.Text & Right("0" & Hex(Rcvdat(i)),2)
Next i
MSComm1.PortOpen=False′关闭串行口
cmdcomm.Enabled=True′使能cmdcomm接钮
End Sub

小弟初学VB，请大家帮忙指点，谢谢了。 如果谁能提供点我题目方面的资料，那就太好了！！！ 200分送上， 好的话补分！

Answer 1

Private Sub cmdcomm_Click()
Dim Senddat(5) As Byte
Dim i As Integer
For i = 1 To 12 Step 2 '从发送文本框txtSend获取发送数据
Senddat((i - 1) / 2) = "&H" & Mid(txtSend.Text, i, 2) '【这句是什么意思？】
Next i
MSComm1.Output = Senddat '发送数据
End Sub

Private Sub Command1_Click()
End Sub

Private Sub Form_Load()
txtRcv.Text = ""
txtSend.Text = "123456789013" '注意修改为你实际指令
MSComm1.CommPort = 1 '设置端口号为1
MSComm1.Settings = "19200,N,8,1" '设置波特率等通 ′信协议
MSComm1.InputLen = 0 '设置一次从串口读取6个字节
MSComm1.RThreshold = 6
MSComm1.PortOpen = True '打开串行口
MSComm1.InputMode = comInputModeBinary '从串口读取二进制数据
End Sub

Private Sub MSComm1_OnComm()
Dim Rcvdat() As Byte
Dim dattemp As Variant
Dim i As Integer
Select Case MSComm1.CommEvent
Case 2
dattemp = MSComm1.Input '从串口读取数据至变体变量
Rcvdat = dattemp '数据送至接收二进制数组
For i = 0 To UBound(Rcvdat) '接收数据送至接收文本框txtRcv显示
txtRcv.Text = txtRcv.Text & Right("0" & Hex(Rcvdat(i)), 2)
Next i
End Select
End Sub

Answer 2

Senddat(i)="&H" & Mid(txtSend.Text,i * 2+1,2) 【这句是什么意思？】
////这句的意思是，赋值发送的字节，取文本框字符串的奇数字符作为发送编码，以16进制形式发送

MSComm1.Output=Senddat′发送数据 【******编译到这里出错， 说是 无效的属性值!!!!! 这是怎么回事********】
//////这句话当然不对了，你上文也说了，接受6个字节，串口在发送接收的时候是以字节来划分的，你前面的定义就错误了
Dim Senddat(5) As String应该是dim senddat(5) as byte

Answer 3

http://blog.163.com/songbingyu8@126/blog/static/1197742220093111073943/

这个看看吧，也许有帮助。。。