千家论坛_智能建筑与智能家居技术交流社区

标题: 上位机与单片机通信的问题 [打印本页]

作者: XH6565911 时间: 2006-10-31 22:56
标题: 上位机与单片机通信的问题

上位机与单片机通信的问题

用vb写的程序连发4个字节再连收4个字节并且循环老是出错而用串口助手就没问题

第一次接受没问题第二次就不行

VB的程序如下：

Private Sub mscomm1_OnComm()

If MSComm1.CommEvent = comEvReceive Then
good = MSComm1.Input

If good = "a" Then i = 0
If good = "d" Then i = 3

ee(i) = good
i = i + 1
If i > 3 Then i = 0

End If

If ee(3) = "d" And ee(0) = "a" Then
       Text1.Text = ee(0)
       Text2.Text = ee(1)
       Text3.Text = ee(2)
        Text4.Text = ee(3)

       i = 0

       End If




End Sub

Private Sub Timer1_Timer()

    hh(0) = "m"
    hh(1) = "n"
    hh(2) = "w"

    kk = hh(q)

    MSComm1.Output = "a"
    MSComm1.Output = kk
    MSComm1.Output = "c"
    MSComm1.Output = "d"

    For o = 0 To 100000
    Next



     q = q + 1

   If qq > 3 Then qq = 0

End Sub

欢迎光临千家论坛_智能建筑与智能家居技术交流社区 (http://bbs.qianjia.com:8020/)