用vb上位機控制51單片機測距的源碼

vb上位機的運行界面：



單片機源程序：

/***********************************
   函數：uint Conut(void)
------------------------
   說明：計算測到的距離
   參數：無
返回值：測得的距離
***********************************/
uint Conut(void)
{
        uint time;                                               // 用于記錄測得的時間
        uint ss;                                                // 用于記錄測得的距離
        time = (TH0*256+TL0)*1.09;                // 總時間               
        TH0=0;
        TL0=0;
        if(flag==1)                                                   // 如果超出測量距離，則不傳輸數據
        {
                flag=0;
                ss=0;
        }
        else
        {
                ss=time*1.7/100;                           // 空氣中聲音的速度是340m/s
        }
        return ss;
}


/***********************************
   函數：void send(uint dat)
---------------------------
   說明：將測得的距離通過串口發送出去
   參數：dat是測得的距離
返回值：無
***********************************/        
void Send(uint dat)
{
        SBUF=(dat/100)+ 48;                        // 發送 百 位
        while(!TI);
        TI=0;
        SBUF=(dat%100/10)+48;                // 發送 十 位
        while(!TI);
        TI=0;
        SBUF=(dat%10)+48;                        // 發送 個 位
        while(!TI);
        TI=0;
}
詳細代碼見附件

51單片機測距上位機和下位機源碼.zip (44.63 KB, 售價: 1 E幣)

2020-4-29 16:33 上傳

點擊文件名下載附件
售價: 1 E幣  [記錄]  [購買]

【必讀】版權免責聲明

1、本主題所有言論和內容純屬會員個人意見，與本論壇立場無關。2、本站對所發內容真實性、客觀性、可用性不做任何保證也不負任何責任，網友之間僅出于學習目的進行交流。3、對提供的數字內容不擁有任何權利，其版權歸原著者擁有。請勿將該數字內容進行商業交易、轉載等行為，該內容只為學習所提供，使用后發生的一切問題與本站無關。 4、本網站不保證本站提供的下載資源的準確性、安全性和完整性;同時本網站也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的損失或傷害。 5、本網站所有軟件和資料均為網友推薦收集整理而來，僅供學習用途使用，請務必下載后兩小時內刪除，禁止商用。6、如有侵犯你版權的，請及時聯系我們（電子郵箱1370723259@qq.com）指出，本站將立即改正。