找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 3129|回復: 0
打印 上一主題 下一主題
收起左側

vb與51單片機通信若干問題

[復制鏈接]
跳轉到指定樓層
樓主
ID:58768 發(fā)表于 2014-2-6 12:19 | 只看該作者 |只看大圖 回帖獎勵 |正序瀏覽 |閱讀模式
最近在搞一個車庫上位機的,用VB編寫。上位機界面如圖:

問題1:當單片機P21腳檢測到低電平時,通過串口,發(fā)送“si ”,在上位機對應位置顯示“是”,表示車已經進庫。
因為我的這道檢測程序是放在while(1)里面的,單片機不斷檢測,當P21為0時,單片機不斷發(fā)送“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[i];         //串口發(fā)送標志位,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

車庫上位機.png (12.25 KB, 下載次數: 162)

車庫上位機

車庫上位機
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表