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

罗斯

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


7 X9 y2 P& m2 E5 a) A9 _- |" f最近在搞一个车库上位机的，用VB编写。上位机界面如图：
# T- F- J8 W2 W& ^5 [
$ `# P" r. u# l9 {5 h3 V5 e
问题1：当单片机P21脚检测到低电平时，通过串口，发送“si ”，在上位机对应位置显示“是”，表示车已经进库。
因为我的这道检测程序是放在while(1)里面的，单片机不断检测，当P21为0时，单片机不断发送“si ”，而上位机对应位置则
交替显示“是”和"否"（默认），而我只想要第一次接收到的“si ”，从而当P21=0时，只能显示"是"，怎么解决。以下是部分程序：
VB：Dim rec As String
Select Case MSComm1.CommEvent
Case comEvReceive
* @: C( b: ~! o3 n( G! K7 yrec = MSComm1.Input
/ `, F& S) D8 }: S' p3 A4 i  \  Q& ?51： while(1)
: t% r, E* I; \& c* ^2 {         {
! B4 j) q: I' g. c, r* X, X                 if(miso==0)
                {
+ {2 @! S. F, r                        for(i=0;i<3;i++)
                        {
                                SBUF=table1;         //串口发送标志位，table1[]="si "
                                while(!ti);
                                TI=0;
2 h9 Q- j0 ]3 Q: f: o- Y                        }
        //        miso=1;//已经进库则清除标志
                }
# P' F* W/ E6 j5 z8 G8 X! _# o/ \               
; x% E' n& M2 H$ Y9 ^& B' R% S        }
# B! V( I4 p$ `" w" H+ [问题2：我想只有当按了路线1按钮后，并且rec=“si ”时，text1.text="是"；当按了路线2按钮时，并且rec="si "时，text2.text="是"
, P( D3 y' n8 G* L! \; i0 X- d怎么编程？以下是我的一个程序：
Private Sub Command1_Click()
MSComm1.OutBufferCount = 0
. o6 q  j( u' y) i' YMSComm1.Output = Chr(&HC)
a = 1
+ q) t! h8 ~& \0 s) Z'If rec = "si " Then
. @9 @2 d) G4 Y1 E' z6 o'Text1.Text = "是"
'End If
- `2 f, [* C# O1 _0 N: K4 [End Sub
. c# {7 |- Q4 ^6 A& ?% S7 z

relchhiclty

unsigned char *r;
r = table1;                 
. ^. b7 @0 }: s" r" c# g' Dif(miso==0)
1 U+ E' D, _  f" m" q% r7 Z9 g{
, C. M. Q" q1 A$ N) L) l  L. ?4 z' H  while(*r != '\0')                  
1 v3 H& h, N! n( ]% s+ g  {
  SBUF=table1;         //串口发送标志位，table1[]="si "
$ k3 T/ ^& H$ g+ \+ A& U  r++;  
}//ASCII编码,只要发送's'和'i'两个不能你那样循环。
while(!TI);
TI=0;
* l4 N7 q; A6 C}