VB与51单片机通信若干问题

2019-07-15 20:56发布

本帖最后由 好运星 于 2014-2-6 12:14 编辑

最近在搞一个车库上位机的,用VB编写。上位机界面如图:

问题1:当单片机P21脚检测到低电平时,通过串口,发送“si ”,在上位机对应位置显示“是”,表示车已经进库。
因为我的这道检测程序是放在while(1)里面的,单片机不断检测,当P21为0时,单片机不断发送“si ”,而上位机对应位置则
交替显示“是”和"否"(默认),而我只想要第一次接收到的“si ”,从而当P21=0时,只能显示"是",怎么解决。以下是部分程序:
VB:Dim rec As String
Select Case MSComm1.CommEvent
Case comEvReceive
rec = MSComm1.Input
51: while(1)
         {
                 if(miso==0)
                {
                        for(i=0;i<3;i++)
                        {
                                SBUF=table1;         //串口发送标志位,table1[]="si "
                                while(!ti);
                                TI=0;
                        }
        //        miso=1;//已经进库则清除标志
                }
               
        }
问题2:我想只有当按了路线1按钮后,并且rec=“si ”时,text1.text="是";当按了路线2按钮时,并且rec="si "时,text2.text="是"
怎么编程?以下是我的一个程序:
Private Sub Command1_Click()
MSComm1.OutBufferCount = 0
MSComm1.Output = Chr(&HC)
a = 1
'If rec = "si " Then
'Text1.Text = "是"
'End If
End Sub
车库上位机 车库上位机
友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。
该问题目前已经被作者或者管理员关闭, 无法添加新回复
3条回答
dongyumin
1楼-- · 2019-07-16 00:12
unsigned char *r;
r = table1;                 
if(miso==0)
{
  while(*r != '')                  
  {
  SBUF=table1;         //串口发送标志位,table1[]="si "
  r++;  
}//ASCII编码,只要发送's'和'i'两个不能你那样循环。
while(!TI);
TI=0;
} 最佳答案
好运星
2楼-- · 2019-07-16 05:32
dongyumin 发表于 2014-2-6 12:09
unsigned char *r;
r = table1;                 
if(miso==0)

谢了。我都解决了。另外那个问题是由中断引起的。。
wonull
3楼-- · 2019-07-16 10:00
 精彩回答 2  元偷偷看……

一周热门 更多>