用vb上位機控制單片機測距的設(shè)計

ID:354681 · 發(fā)表于 2018-12-30 15:56

上午是我第一次發(fā)帖，，竟然通過了而且還獎勵了88幣，嘖嘖太美了，迫不及待的再發(fā)一個！如題也是上位機控制的單片機，不過這次高級一點：測距。

vb上位機的運行界面：

也是用vb編寫的。

單片機源程序：

/*****************************************
* 項目：單片VB上位機視頻教程 *
* 單片機： STC89C52 *
* 晶振： 11.0592M *
* 開發(fā)： E動力電子工作室 *
* 作者： LinHill *
* 郵箱： power_e@126.com *
******************************************/
#include <reg52.h>
#define uchar unsigned char
#define uint unsigned int
sbit Echo = P2^0; // 接Echo端
sbit Trig = P2^1; // 接Trig端
bit flag =0; // 定時器0是否溢出的標志,1表示溢出
bit enable=0; // 用于判斷是否允許測量，1表示允許
/***********************************
函數(shù)：void InitUart()
----------------------
說明：對串口進行初始化
參數(shù)：無
返回值：無
***********************************/
void InitUart()
{
TMOD = 0x21; // 高4位（定時器1）用于串口，低4位（定時器0）用于超聲波計時
SCON = 0x50;
TH1 = 0xFD; // 波特率 9600
TL1 = 0xFD;
ES = 1; // 允許串口中斷
ET0 = 1; // 允許定時器0中斷
TR1 = 1; // 開啟定時器1
EA = 1; // 開啟總中斷
}
/***********************************
函數(shù)：void DelayMs(uint ms)
----------------------
說明：毫秒級程序延時
參數(shù)：ms代表要延時的毫秒數(shù)
返回值：無
***********************************/
void DelayMs(uint ms)
{
uint x,y;
for(x=ms;x>0;x--)
for(y=110;y>0;y--);
}
/***********************************
函數(shù)：void StartModule()
---------------------------
說明：啟動超聲波模塊
參數(shù)：無
返回值：無
***********************************/
void StartModule()
{
Trig=1;
DelayMs(1);
Trig=0;
}
/***********************************
函數(shù)：uint Conut(void)
------------------------
說明：計算測到的距離
參數(shù)：無
返回值：測得的距離
***********************************/
uint Conut(void)
{
uint time; // 用于記錄測得的時間
uint ss; // 用于記錄測得的距離
time = (TH0*256+TL0)*1.09; // 總時間
TH0=0;
TL0=0;
if(flag==1) // 如果超出測量距離，則不傳輸數(shù)據(jù)
{
flag=0;
ss=0;
}
else
{
ss=time*1.7/100; // 空氣中聲音的速度是340m/s
}
return ss;
}
/***********************************
函數(shù)：void send(uint dat)
---------------------------
說明：將測得的距離通過串口發(fā)送出去
參數(shù)：dat是測得的距離
返回值：無
***********************************/
void Send(uint dat)
{
SBUF=(dat/100)+ 48; // 發(fā)送百位
while(!TI);
TI=0;
SBUF=(dat%100/10)+48; // 發(fā)送十位
while(!TI);
TI=0;
SBUF=(dat%10)+48; // 發(fā)送個位
while(!TI);
TI=0;
}
/***********************************
函數(shù)：void main(void)
----------------------
說明：主函數(shù)
參數(shù)：無
返回值：無
***********************************/
void main(void)
{
uint ss; // 記錄測量到的距離
InitUart();
while(1)
{
if(enable==1)
{
StartModule();
while(!Echo); // 當RX為零時等待
TR0=1; // 開啟計數(shù)
while(Echo); // 當RX為1計數(shù)并等待
TR0=0; // 關(guān)閉計數(shù)
ss=Conut(); // 計算
Send(ss); // 將計算的值通過串口發(fā)送出去
DelayMs(800);
}
}
}
/***********************************
函數(shù)：void Inter() interrupt 4
------------------------------
說明：串口中斷處理
參數(shù)：無
返回值：無
***********************************/
void Inter() interrupt 4
{
if(RI==1)
{
RI=0;
if(SBUF == 0x01)
{
enable = 1;
}
if(SBUF == 0x02)
{
enable = 0;
}
}
}
/***********************************
函數(shù)：void zd0() interrupt 1
------------------------------
說明：T0中斷用來計數(shù)器溢出,超過測距范圍則置flag為1
參數(shù)：無
返回值：無
***********************************/
void zd0() interrupt 1
{
flag=1;
}

復(fù)制代碼

所有資料51hei提供下載:

新建文件夾.zip (44.63 KB, 下載次數(shù): 50)

源碼都在一起。

ID:1 · 發(fā)表于 2019-1-6 16:00

好資料，51黑有你更精彩

ID:465321 · 發(fā)表于 2019-1-9 20:22

好資料，51有你更精彩

ID:467774 · 發(fā)表于 2019-1-14 11:18

好資料，51有你更精彩

帳號		自動登錄	找回密碼
密碼			立即注冊

用vb上位機控制單片機測距的設(shè)計

評分

瀏覽過的版塊