51单片机 vb上位机程序（超声波测距，温度显示等）

小弟最近在做超声波测距的上位机显示，上位机用VB显示，找了好长时间没有找到设计资料，索性x了一套，有视频讲解和源程序的那种，再次跟大家分享一下。

vb上机位及源码:


单片机源程序如下:

1. #include <reg52.h>
   
2. 
   
3. #define uchar unsigned  char
   
4. #define uint  unsigned  int  
   
5. 
   
6. sbit  Echo = P2^0;                            // 接Echo端
   
7. sbit  Trig = P2^1;                                // 接Trig端
   
8. 
   
9. bit flag =0;                                        // 定时器0是否溢出的标志,1表示溢出
   
10. bit enable=0;                                        // 用于判断是否允许测量，1表示允许
    
11. 
    
12. /***********************************
    
13.    函数：void InitUart()
    
14. ----------------------
    
15.    说明：对串口进行初始化
    
16.    参数：无
    
17. 返回值：无
    
18. ***********************************/
    
19. void InitUart()
    
20. {
    
21.     TMOD = 0x21;                                // 高4位（定时器1）用于串口，低4位（定时器0）用于超声波计时
    
22.         SCON = 0x50;       
    
23.         TH1  = 0xFD;                                // 波特率 9600
    
24.         TL1  = 0xFD;
    
25.         ES   = 1;                                        // 允许串口中断
    
26.         ET0  = 1;                                        // 允许定时器0中断
    
27.         TR1  = 1;                                        // 开启定时器1
    
28.         EA   = 1;                                        // 开启总中断
    
29. }
    
30. 
    
31. 
    
32. /***********************************
    
33.    函数：void DelayMs(uint ms)
    
34. ----------------------
    
35.    说明：毫秒级程序延时
    
36.    参数：ms代表要延时的毫秒数
    
37. 返回值：无
    
38. ***********************************/
    
39. void DelayMs(uint ms)
    
40. {
    
41.         uint x,y;
    
42.         for(x=ms;x>0;x--)
    
43.                 for(y=110;y>0;y--);
    
44. }
    
45. 
    
46. 
    
47. /***********************************
    
48.    函数：void  StartModule()
    
49. ---------------------------
    
50.    说明：启动超声波模块
    
51.    参数：无
    
52. 返回值：无
    
53. ***********************************/
    
54. void  StartModule()
    
55. {
    
56.         Trig=1;
    
57.         DelayMs(1);
    
58.         Trig=0;
    
59. }
    
60. 
    
61. 
    
62. /***********************************
    
63.    函数：uint Conut(void)
    
64. ------------------------
    
65.    说明：计算测到的距离
    
66.    参数：无
    
67. 返回值：测得的距离
    
68. ***********************************/
    
69. uint Conut(void)
    
70. {
    
71.         uint time;                                               // 用于记录测得的时间
    
72.         uint ss;                                                // 用于记录测得的距离
    
73.         time = (TH0*256+TL0)*1.09;                // 总时间               
    
74.         TH0=0;
    
75.         TL0=0;
    
76.         if(flag==1)                                                   // 如果超出测量距离，则不传输数据
    
77.         {
    
78.                 flag=0;
    
79.                 ss=0;
    
80.         }
    
81.         else
    
82.         {
    
83.                 ss=time*1.7/100;                           // 空气中声音的速度是340m/s
    
84.         }
    
85.         return ss;
    
86. }
    
87. 
    
88. 
    
89. /***********************************
    
90.    函数：void send(uint dat)
    
91. ---------------------------
    
92.    说明：将测得的距离通过串口发送出去
    
93.    参数：dat是测得的距离
    
94. 返回值：无
    
95. ***********************************/       
    
96. void Send(uint dat)
    
97. {
    
98.         SBUF=(dat/100)+ 48;                        // 发送 百 位
    
99.         while(!TI);
    
100.         TI=0;
     
101.         SBUF=(dat%100/10)+48;                // 发送 十 位
     
102.         while(!TI);
     
103.         TI=0;
     
104.         SBUF=(dat%10)+48;                        // 发送 个 位
     
105.         while(!TI);
     
106.         TI=0;
     
107. }
     
108. 
     
109. 
     
110. 
     
111. /***********************************
     
112. 函数：void main(void)
     
113. ----------------------
     
114.    说明：主函数
     
115.    参数：无
     
116. 返回值：无
     
117. ***********************************/
     
118. void main(void)
     
119. {  
     
120.         uint ss;                                        // 记录测量到的距离
     
121.         InitUart();
     
122.         while(1)
     
123.         {
     
124.                 if(enable==1)
     
125.                 {
     
126.                         StartModule();
     
127.                         while(!Echo);                // 当RX为零时等待
     
128.                         TR0=1;                            // 开启计数
     
129.                         while(Echo);                // 当RX为1计数并等待
     
130.                         TR0=0;                                // 关闭计数
     
131.                         ss=Conut();                        // 计算
     
132.                         Send(ss);                        // 将计算的值通过串口发送出去
     
133.                         DelayMs(800);
     
134.                 }
     
135.         }
     
136. 
     
137. }  
     
138. 
     
139. 
     
140. /***********************************
     
141. 函数：void Inter() interrupt 4
     
142. ------------------------------
     
143.    说明：串口中断处理
     
144.    参数：无
     
145. 返回值：无
     
146. ***********************************/
     
147. void Inter() interrupt 4
     
148. {
     
149.         if(RI==1)
     
150.         {
     
151.                 RI=0;
     
152.                 if(SBUF == 0x01)
     
153.                 {
     
154.                         enable = 1;
     
155.                 }
     
156.                 if(SBUF == 0x02)
     
157.                 {
     
158.                         enable = 0;
     
159.                 }
     
160.         }       
     
161. }
     
162. 
     
163. 
     
164. /***********************************
     
165. 函数：void zd0() interrupt 1
     
166. ------------------------------
     
167.    说明：T0中断用来计数器溢出,超过测距范围则置flag为1
     
168.    参数：无
     
169. 返回值：无
     
170. ***********************************/
     
171. void zd0() interrupt 1
     
172. {
     
173.         flag=1;                               
     
174. }            
     

复制代码

所有资料51hei提供下载:
单片机程序.zip (40.35 KB, 下载次数: 52)

2019-4-26 22:26 上传

点击文件名下载附件
单片机源代码
下载积分: 黑币 -5

VB上位机程序.zip (8.04 KB, 下载次数: 68)

2019-4-26 22:26 上传

点击文件名下载附件
上位机
下载积分: 黑币 -5

没有人顶一下吗 这么好的精华帖

感谢楼主分享

感谢楼主分享

没有人顶一下吗 这么好的精华帖

这个程序不行啊