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

来源：百度知道 编辑：UC知道 时间：2024/05/31 19:50:19
用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

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

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

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

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 =