设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › MCU综合技术区 › 单片机读取DS18B20内部温度上传到上位机(电脑)
返回列表 发新帖
查看: 9813|回复: 3
收起左侧

单片机读取DS18B20内部温度上传到上位机(电脑)

[复制链接]
ID:110653 发表于 2016-3-29 01:20 | 显示全部楼层 |阅读模式

DS18B20是一种很常用的数字温度传感器，温度检测范围是-55～+125度，手册 说明在-10～+85度范围内检测误差为±0.5度，作者在自己的产品中随机抽样验证 了几只传感器，在-25度误差0.1度，+25度与+50度误差小于0.1度，可见这种传感 器实际精度是很高的，传感器引脚如图19-1所示，工作电压范围是3.0～5.5V，通 常使用+5V，电源接反或接错一般是不会损坏传感器的，对于单只DS18B20的使用，我们按图19-2连接即可。






上位机vb电脑程序： 0.png
电路和介绍详见：http://www.51hei.com/bbs/dpj-47286-1.html（在这贴附件中可下载上位机vb及下位机单片机的完整的源码压缩包）
单片机下位机主程序如下（部分预览）：
  1. /****************《51单片机轻松入门-基于STC15W4K系列》配套例程 *************
  2. ★★★★★★★★★★★★★★★★★★★★★★★★
  3. 《51单片机轻松入门-基于STC15W4K系列》 一书已经由北航出版社正式出版发行。
  4.   作者亲手创作的与教材配套的51双核实验板(2个MCU)对程序下载、调试、仿真方便，不需要外部
  5.   仿真器与编程器，这种设计方式彻底解决了系统中多个最高优先级谁也不能让谁的中断竞争问题。
  6.   QQ群：STC51-STM32(3) ：515624099 或 STC51-STM32(2)：99794374。
  7.         验证信息：STC15单片机
  8.   邮箱：xgliyouquan@126.com
  9.   ★★★★★★★★★★★★★★★★★★★★★★★★*/

  11. //**************************************************************               
  12. //运行环境：STC51 1T单片机 11.0592M晶振
  13. //程序说明：此程序读取P1口（P1.0、P1.1、P1.2、P1.3)4只DS18B20代码并发送给计算机                     
  14. //**************************************************************        
  15. #include "STC15W4K.H"  
  16. #include "DS18B20.H"
  17. #include "myfun.H"
  18. unsigned char Pin;                                // 0000 0001    0000 0010    0000 0100   0000 1000
  19.                                                                    // 0001 0000    0010 0000    0100 0000   1000 0000
  20.                                                                 // 用于选择操作P1口上的多个位  
  21. unsigned char RomCode0[8] ;                // 存放第1路DS18B20代码
  22. unsigned char RomCode1[8] ;                // 存放第2路DS18B20代码
  23. unsigned char RomCode2[8] ;                // 存放第3路DS18B20代码
  24. unsigned char RomCode3[8] ;                // 存放第4路DS18B20代码

  26. /*****************  crc8_f反序校验（法1:快速）    *********************/
  27. unsigned char  crc8_f1(unsigned char *ptr, unsigned char len)
  28. {
  29.         unsigned char i;               
  30.         unsigned char crc=0;
  31.         while(len--)
  32.         {
  33.                 crc^=*ptr++;
  34.                 for(i=0;i<8;i++)
  35.                 {
  36.                         if(crc&0x01)
  37.                         {   
  38.                                 crc>>=1;
  39.                                 crc^=0x8c;
  40.                         }
  41.                         else
  42.                         {
  43.                                 crc>>=1;
  44.                         }
  45.                 }         
  46.         }
  47.         return(crc);
  48. }  

  50. //请用实际行动支持宏晶STC大陆本土MCU统一全球市场
  51. void UartInit(void)                //9600bps@11.0592MHz
  52. {
  53.         //下面代码设置定时器1
  54.         TMOD = 0x20;        // 0010 0000 定时器1工作于方式2（8位自动重装方式）
  55.         TH1  = 0xFD;        // 波特率：9600 /11.0592MHZ
  56.         TL1  = 0xFD;        // 波特率：9600 /11.0592MHZ
  57.         TR1  = 1;
  58.         //下面代码设置定串口
  59.         AUXR = 0x00;             // 很关键，使用定时器1作为波特率发生器，S1ST2=0
  60.         SCON = 0x50;         // 0101 0000 SM0.SM1=01(最普遍的8位通信）,REN=1（允许接收）
  61. }
  62. void main()
  63. {
  64.         unsigned char i;
  65.         unsigned char  crc;
  66.         UartInit();  
  67.         while(1)
  68.         {
  69.                 Pin =0x01;                       // 将要操作 P1.0口18B20
  70.                 Read_RomCode(0x00);    // 参数0x00：读得的64位代码存数组RomCode0
  71.                                                            //     0x01：读得的64位代码存数组RomCode1
  72.                                                            //          0x02：读得的64位代码存数组RomCode2
  73.                                                            //          0x03：读得的64位代码存数组RomCode3               
  74.                 crc=crc8_f1(RomCode0,8);   // CRC效验，数组名代表数组首地址，长度8字节
  75.                 if(crc==0)             // CRC效验正确
  76.                 {  
  77.                    SBUF= 0x01;                   // 表示第1路18B20数据
  78.                       while(1)
  79.                    {
  80.                                 if (TI)
  81.                                 {
  82.                                         TI=0;
  83.                                         break;
  84.                                 }
  85.                    }   
  86.                
  87.                    for (i=0;i<8;i++)        // 发送8字节ROM代码
  88.                    {  
  89.                            SBUF= RomCode0[i];
  90.                            while(1)
  91.                            {
  92.                                         if (TI)
  93.                                         {
  94.                                                 TI=0;
  95.                                                 break;
  96.                                         }
  97.                            }
  98.                    }
  99.                 }
  100.                 else                           // 校验失败，发回8个0xaa
  101.                 {
  102.                         SBUF= 0x01;           // 表示第1路18B20数据
  103.                         while(1)
  104.                         {
  105.                                 if (TI)
  106.                                 {
  107.                                         TI=0;
  108.                                         break;
  109.                                 }
  110.                         }   
  111.                
  112.                    for (i=0;i<8;i++)
  113.                    {  
  114.                            SBUF= 0xaa;
  115.                            while(1)
  116.                            {
  117.                                         if (TI)
  118.                                         {
  119.                                                 TI=0;
  120.                                                 break;
  121.                                         }
  122.                            }
  123.                    }
  124.                 }
  125.                                 
  126.                 Pin =0x02;                            // 将要操作 P0.1口18B20
  127.                 Read_RomCode(0x01);    // 0x01：读得的64位代码存数组RomCode1
  128.                 crc=crc8_f1(RomCode1,8);      //CRC效验
  129.                 if(crc==0)             // CRC效验正确
  130.                 {
  131.                         SBUF= 0x02;                   // 表示第2路18B20数据
  132.                         while(1)
  133.                         {
  134.                                 if (TI)
  135.                                 {
  136.                                         TI=0;
  137.                                         break;
  138.                                 }
  139.                         }                    
  140.                
  141.                            for (i=0;i<8;i++)          // 发送8字节ROM代码
  142.                         {                           
  143.                            SBUF= RomCode1[i];
  144.                            while(1)
  145.                            {
  146.                                         if (TI)
  147.                                         {
  148.                                                 TI=0;
  149.                                                 break;
  150.                                         }
  151.                            }
  152.                         }
  153.                 }
  154.                 else                         // 校验失败，发回8个0xaa
  155.                 {
  156.                         SBUF= 0x02;
  157.                         while(1)
  158.                         {
  159.                                 if (TI)
  160.                                 {
  161.                                         TI=0;
  162.                                         break;
  163.                                 }
  164.                         }   
  165.                
  166.                    for (i=0;i<8;i++)
  167.                    {  
  168.                            SBUF= 0xaa;
  169.                            while(1)
  170.                            {
  171.                                         if (TI)
  172.                                         {
  173.                                                 TI=0;
  174.                                                 break;
  175.                                         }
  176.                            }
  177.                    }
  178.                 }
  179.                
  180.                 Pin =0x04;                     // 将要操作 P0.2口18B20
  181.                 Read_RomCode(0x02);    // 0x02：读得的64位代码存数组RomCode2
  182.                 crc=crc8_f1(RomCode2,8);      //CRC效验
  183.                 if(crc==0)             // CRC效验正确
  184.                 {
  185.                         SBUF= 0x03;                   // 表示第3路18B20数据
  186.                         while(1)
  187.                         {
  188.                                 if (TI)
  189.                                 {
  190.                                         TI=0;
  191.                                         break;
  192.                                 }
  193.                         }
  194.                   
  195.                         for (i=0;i<8;i++)
  196.                         {                     
  197.                                 SBUF= RomCode2[i];
  198.                                 while(1)
  199.                                 {
  200.                                         if (TI)
  201.                                         {
  202.                                                 TI=0;
  203.                                                 break;
  204.                                         }
  205.                                 }
  206.                         }
  207.                 }
  208.                 else                         // 校验失败，发回8个0xaa
  209.                 {
  210.                         SBUF= 0x03;
  211.                         while(1)
  212.                         {
  213.                                 if (TI)
  214.                                 {
  215.                                         TI=0;
  216.                                         break;
  217.                                 }
  218.                         }   
  219.                
  220.                    for (i=0;i<8;i++)
  221.                    {  
  222.                            SBUF= 0xaa;
  223.                            while(1)
  224.                            {
  225.                                         if (TI)
  226.                                         {
  227.                                                 TI=0;
  228.                                                 break;
  229.                                         }
  230.                            }
  231.                    }
  232.                 }
  233.                
  234.                 Pin =0x08;                      // 将要操作 P0.3口18B20
  235.                 Read_RomCode(0x03);    // 0x03：读得的64位代码存数组RomCode3
  236.                 crc=crc8_f1(RomCode3,8);      // CRC效验
  237.                 if(crc==0)             // CRC效验正确
  238.                 {  
  239.                         SBUF=0x04;                   // 表示第4路18B20数据
  240.                         while(1)
  241.                         {
  242.                                 if (TI)
  243.                                 {
  244.                                         TI=0;
  245.                                         break;
  246.                                 }
  247.                         }
  248.                   
  249.                         for (i=0;i<8;i++)
  250.                         {                     
  251.                            SBUF= RomCode3[i];
  252.                            while(1)
  253.                            {
  254.                                         if (TI)
  255.                                         {
  256.                                                 TI=0;
  257.                                                 break;
  258.                                         }
  259.                            }
  260.                         }  
  261.                 }
  262.                 else                         //校验失败，发回8个0
  263.                 {
  264.                         SBUF= 0x04;
  265.                         while(1)
  266.                         {
  267.                                 if (TI)
  268.                                 {
  269.                                         TI=0;
  270.                                         break;
  271.                                 }
  272.                         }   
  273.                
  274.                    for (i=0;i<8;i++)
  275.                    {  
  276.                            SBUF= 0xaa;
  277.                            while(1)
  278.                            {
  279.                                         if (TI)
  280.                                         {
  281.                                                 TI=0;
  282.                                                 break;
  283.                                         }
  284.                            }
  285.                    }
  286.                 }
  287.                 delay1s();         
  288.          }               
  289. }
复制代码

上位机电脑vb程序：

  1. Attribute VB_Name = "Form1"
  2. Attribute VB_GlobalNameSpace = False
  3. Attribute VB_Creatable = False
  4. Attribute VB_PredeclaredId = True
  5. Attribute VB_Exposed = False
  6. Option Explicit
  7. Dim MyForm As FRMSIZE      '界面自动调整
  8. Dim DesignX As Long
  9. Dim DesignY As Long
  10. Dim Start_A As Boolean      '左面绘图开始标志
  11. Dim Start_B As Boolean      '右面绘图开始标志

  13. Dim FlagZuo  As Integer    '左边运行键按下标志
  14. Dim FlagYuo  As Integer    '右边运行键按下标志

  16. Dim DianHaoAZ As Integer     '存放左波形横轴点号
  17. Dim DianHaoZ  As Integer      '存放当前的A点号
  18. Dim DianHaoAY As Integer     '存放右波形横轴点号
  19. Dim DianHaoY  As Integer      '存放当前的A点号

  21. Dim timerz As Integer   '定时器画波形_左
  22. Dim timery As Integer   '定时器画波形_右

  24. Dim FLAG_A As Integer                                   '延时结束标志(界面左右各一）
  25. Dim FLAG_B As Integer                                   '延时结束标志(界面左右各一）

  27. Dim Zuo1_Liu As Single        '1L额外处理（左用户流量）
  28. Dim You1_Liu  As Single        '1L额外处理（右用户流量）
  29. Dim Zuo1_Pin As Single       '1L额外处理（左用户频率）
  30. Dim You1_Pin As Single       '1L额外处理（右用户频率）

  32. Dim QianLiuLiang_Z As Single
  33. Dim QianLiuLiang_Y As Single

  35. Dim ADDROUT_A(1 To 1) As Byte
  36. Dim ADDROUT_B(1 To 6) As Byte
  37. Dim NA As Integer, NB As Integer                   '用于文本框显示数据(界面左右各一）
  38. Dim I, J, DBEGIN, WDEND, XSTEP, WDSTEP, KDSTEP As Long
  39.                                                    
  40. Dim PI As Single


  43. Private Sub Combo1_Click()
  44.     Data1.DatabaseName = App.Path + "\水流量传感器.mdb"
  45.     Data1.RecordSource = Combo1.Text
  46.     Data1.Refresh
  47.     Label12(0).Caption = "有输出"
  48.     Label12(1).Caption = Data1.Recordset.Fields(2) & "-" & Data1.Recordset.Fields(3)
  49.     Label12(2).Caption = Data1.Recordset.Fields(4) & "-" & Data1.Recordset.Fields(5)
  50.     Label12(3).Caption = Data1.Recordset.Fields(6) & "-" & Data1.Recordset.Fields(7)
  51.    
  52. End Sub

  54. Private Sub Combo2_Click()
  55.     Data2.DatabaseName = App.Path + "\水流量传感器.mdb"
  56.     Data2.RecordSource = Combo2.Text
  57.     Data2.Refresh
  58.     Label22(0).Caption = "有输出"
  59.     Label22(1).Caption = Data2.Recordset.Fields(2) & "-" & Data2.Recordset.Fields(3)
  60.     Label22(2).Caption = Data2.Recordset.Fields(4) & "-" & Data2.Recordset.Fields(5)
  61.     Label22(3).Caption = Data2.Recordset.Fields(6) & "-" & Data2.Recordset.Fields(7)
  62.    
  63. End Sub

  65. Private Sub Command1_Click(Index As Integer)
  66.         Select Case Index
  67.             
  68.              Case 1                       '暂  停
  69.                      If Command1(1).Caption = "暂  停" Then
  70.                         Command1(1).Caption = "继 续"
  71.                         
  72.                         If MSComm1.PortOpen = True Then
  73.                            MSComm1.PortOpen = False
  74.                         End If
  75.                         
  76.                         If MSCommAD1.PortOpen = True Then
  77.                              MSCommAD1.PortOpen = False
  78.                         End If
  79.                         
  80.                         Timer1.Enabled = False
  81.                     Else
  82.                         Command1(1).Caption = "暂  停"
  83.                         If MSComm1.PortOpen = False Then
  84.                            MSComm1.PortOpen = True
  85.                         End If
  86.                         If MSCommAD1.PortOpen = False Then
  87.                             MSCommAD1.PortOpen = True
  88.                         End If
  89.                         Timer1.Enabled = True
  90.                  End If
  91.                      
  92.              Case 3                       '退  出
  93.                    End
  94.         End Select
  95. End Sub

  97. Private Sub Command2_Click(Index As Integer)

  99. Select Case Index
  100.             
  101.              Case 1                       '暂  停
  102.                   If Command2(1).Caption = "暂  停" Then
  103.                         Command2(1).Caption = "继 续"
  104.                         
  105.                         If MSComm2.PortOpen = True Then
  106.                              MSComm2.PortOpen = False
  107.                         End If
  108.                         If MSCommAD2.PortOpen = True Then
  109.                              MSCommAD2.PortOpen = False
  110.                         End If
  111.                         Timer2.Enabled = False
  112.                     Else
  113.                         Command2(1).Caption = "暂  停"
  114.                         If MSComm2.PortOpen = False Then
  115.                              MSComm2.PortOpen = True
  116.                         End If
  117.                         If MSCommAD2.PortOpen = False Then
  118.                              MSCommAD2.PortOpen = True
  119.                         End If
  120.                         Timer2.Enabled = True
  121.                  End If
  122.                      
  123.              Case 3                       '退  出
  124.                    End
  125.         End Select
  126.    
  127. End Sub

  129. Private Sub Command3_Click()
  130.       Data3.RecordSource = "流量记录表"
  131.           Data3.Refresh
  132.           Data3.Recordset.MoveFirst
  133.           Do While Data3.Recordset.EOF = False
  134.               Data3.Recordset.Delete
  135.               Data3.Recordset.MoveNext
  136.           Loop
  137. End Sub


  140. Private Sub Form_Activate()
  141.   Call DRAWQX_A
  142.   Call DRAWQX_B

  144. End Sub
  145. Private Sub DRAWQX_A()
  146.   Pic2.DrawWidth = 1
  147.   Pic2.DrawStyle = 0
  148.   
  149.   XSTEP = 2000            '曲线图 X 刻度步长
  150.   WDSTEP = 1000           '曲线图 Y 刻度步长

  152.   '*************************************************************************************
  153.                               '绘制 Y 刻度
  154.                  
  155.   DBEGIN = 10000   '水平坐标轴向左终点（离图片框左边沿 5个小刻度）
  156.   WDEND = 30000    '垂直坐标轴向下终点
  157.   For I = 1 To 30
  158.       If (I Mod 5) = 0 Then
  159.          Pic2.Line (DBEGIN - 2400, WDEND - I * WDSTEP)-(DBEGIN, WDEND - I * WDSTEP)
  160.       Else
  161.          Pic2.Line (DBEGIN - 1200, WDEND - I * WDSTEP)-(DBEGIN, WDEND - I * WDSTEP)
  162.       End If
  163.   Next
  164.   
  165.   Pic2.Line (DBEGIN, 0)-(DBEGIN, WDEND)                    'Y 轴线
  166.    
  167.   For I = 1 To 95            '绘制 X 刻度
  168.       If (I Mod 5) = 0 Then
  169.          Pic2.Line (DBEGIN + I * XSTEP, WDEND)-(DBEGIN + I * XSTEP, WDEND + 2400)
  170.       Else
  171.          Pic2.Line (DBEGIN + I * XSTEP, WDEND)-(DBEGIN + I * XSTEP, WDEND + 1200)
  172.       End If
  173.   Next
  174.   
  175.   Pic2.Line (DBEGIN, WDEND)-(200000, WDEND)                'X 轴线
  176.   
  177.    '*************************************************************************************
  178.                              '显示 X 坐标值
  179.   
  180.   For I = 0 To 18
  181.       Pic2.CurrentX = I * (5 * XSTEP) + 5 * XSTEP - Pic2.TextWidth(Str(I * 20)) / 1.5
  182.       Pic2.CurrentY = WDEND + 3 * WDSTEP
  183.       Pic2.Print I * 20
  184.       'Pic2.PSet (I * (5 * XSTEP) + 5 * XSTEP, WDEND + 3 * WDSTEP)  ' 确认X坐标是否准确（调试用）
  185.   Next I
  186.      Pic2.CurrentX = 19 * (5 * XSTEP) + 1 * XSTEP
  187.      Pic2.CurrentY = WDEND + 3 * WDSTEP
  188.       Pic2.Print "(ms)"
  189.                             '显示 Y 坐标值
  190.   For I = 1 To 5
  191.      Pic2.CurrentX = 500 '0.5 * XSTEP
  192.      Pic2.CurrentY = (WDEND - I * 5 * WDSTEP) - Pic2.TextWidth(I) * 0.5
  193.      Pic2.Print Format(I * 2.5, "0.00")  '& "V"
  194.     '  Pic2.PSet (4 * XSTEP, WDEND - I * 10 * WDSTEP)              ' 确认Y坐标是否准确（调试用）
  195.   Next I
  196.   Pic2.CurrentX = 500
  197.      Pic2.CurrentY = (WDEND - 29.5 * WDSTEP)
  198.      Pic2.Print "(V)"
  199.   
  200.   
  201.    '*************************************************************************************
  202.                           
  203.     '*************************************************************************************
  204.                             '绘制网格线
  205.                            
  206.   ' 要点 ：X 坐标 = X*0.5*XSTEP + 5*XSTEP     ' 5*XSTEP 处是X轴的0点，距左边5个步长（即5个刻度）
  207.   '        Y 坐标 = WDEND - Y * 10 * WDSTEP   ,10个小格步进值表示1度（10 * WDSTEP ）
  208.   
  209.     Pic2.DrawStyle = 2                     '点线
  210.     For I = 1 To 19
  211.         Pic2.Line (5 * I * XSTEP + 5 * XSTEP, WDEND)-(5 * I * XSTEP + 5 * XSTEP, 0)   '   垂直线
  212.     Next
  213.     For I = 1 To 5
  214.         Pic2.Line (5 * XSTEP, WDEND - I * 5 * WDSTEP)-(95 * XSTEP + 5 * XSTEP, WDEND - I * 5 * WDSTEP) '   水平线
  215.     Next
  216.    
  217. End Sub

  219. Private Sub DRAWQX_B()
  220.   Pic4.DrawWidth = 1
  221.   Pic4.DrawStyle = 0
  222.   
  223.   XSTEP = 2000            '曲线图 X 刻度步长
  224.   WDSTEP = 1000           '曲线图 Y 刻度步长

  226.   '*************************************************************************************
  227.                               '绘制 Y 刻度
  228.                  
  229.   DBEGIN = 10000   '水平坐标轴向左终点（离图片框左边沿 10个小刻度）
  230.   WDEND = 30000    '垂直坐标轴向下终点
  231.   For I = 1 To 30
  232.       If (I Mod 10) = 0 Then
  233.          Pic4.Line (DBEGIN - 2400, WDEND - I * WDSTEP)-(DBEGIN, WDEND - I * WDSTEP)
  234.       Else
  235.          Pic4.Line (DBEGIN - 1200, WDEND - I * WDSTEP)-(DBEGIN, WDEND - I * WDSTEP)
  236.       End If
  237.   Next
  238.   
  239.   Pic4.Line (DBEGIN, 0)-(DBEGIN, WDEND)                    'Y 轴线
  240.    
  241.   For I = 1 To 95            '绘制 X 刻度
  242.       If (I Mod 5) = 0 Then
  243.          Pic4.Line (DBEGIN + I * XSTEP, WDEND)-(DBEGIN + I * XSTEP, WDEND + 2400)
  244.       Else
  245.          Pic4.Line (DBEGIN + I * XSTEP, WDEND)-(DBEGIN + I * XSTEP, WDEND + 1200)
  246.       End If
  247.   Next
  248.   
  249.   Pic4.Line (DBEGIN, WDEND)-(200000, WDEND)                'X 轴线
  250.   
  251.    '*************************************************************************************
  252.                              '显示 X 坐标值
  253.   
  254.   For I = 0 To 18
  255.       Pic4.CurrentX = I * (5 * XSTEP) + 5 * XSTEP - Pic4.TextWidth(Str(I * 20)) / 1.5
  256.       Pic4.CurrentY = WDEND + 3 * WDSTEP
  257.       Pic4.Print I * 20
  258.       'Pic4.PSet (I * (5 * XSTEP) + 5 * XSTEP, WDEND + 3 * WDSTEP)  ' 确认X坐标是否准确（调试用）
  259.   Next I
  260.      Pic4.CurrentX = 19 * (5 * XSTEP) + 1 * XSTEP
  261.      Pic4.CurrentY = WDEND + 3 * WDSTEP
  262.       Pic4.Print "(ms)"
  263.                             '显示 Y 坐标值
  264.   For I = 1 To 5
  265.      Pic4.CurrentX = 500
  266.      Pic4.CurrentY = (WDEND - I * 5 * WDSTEP) - Pic4.TextWidth(I) * 0.5
  267.      Pic4.Print Format(I * 2.5, "0.00")
  268.     '  Pic4.PSet (4 * XSTEP, WDEND - I * 10 * WDSTEP)              ' 确认Y坐标是否准确（调试用）
  269.   Next I
  270.   Pic4.CurrentX = 500
  271.   Pic4.CurrentY = (WDEND - 29.5 * WDSTEP)
  272.   Pic4.Print "(V)"
  273.   
  274.     '*************************************************************************************
  275.                             '绘制网格线
  276.                            
  277.   ' 要点 ：X 坐标 = X*0.5*XSTEP + 5*XSTEP     ' 5*XSTEP 处是X轴的0点，距左边5个步长（即5个刻度）
  278.   '        Y 坐标 = WDEND - Y * 10 * WDSTEP   ,10个小格步进值表示1度（10 * WDSTEP ）
  279.   
  280.     Pic4.DrawStyle = 2                     '点线
  281.     For I = 1 To 19
  282.         Pic4.Line (5 * I * XSTEP + 5 * XSTEP, WDEND)-(5 * I * XSTEP + 5 * XSTEP, 0)   '   垂直线
  283.     Next
  284.     For I = 1 To 5
  285.         Pic4.Line (5 * XSTEP, WDEND - I * 5 * WDSTEP)-(95 * XSTEP + 5 * XSTEP, WDEND - I * 5 * WDSTEP) '   水平线
  286.     Next
  287.    
  288. End Sub
  289. Private Sub Form_Load()
  290.     If MSComm1.PortOpen = False Then
  291.             MSComm1.PortOpen = True
  292.            
  293.     End If
  294.    
  295.     'If MSComm2.PortOpen = False Then
  296.     '        MSComm2.PortOpen = True
  297.    ' End If
  298.    
  299.    ' If MSCommAD1.PortOpen = False Then      '绘制波形部分（左边）
  300.    '           MSCommAD1.PortOpen = True
  301.    ' End If
  302.    ' Start_A = False
  303.    ' DianHaoAZ = 1
  304.    ' DianHaoZ = 1
  305.    
  306.     'If MSCommAD2.PortOpen = False Then      '绘制波形部分（右边）
  307.     '      MSCommAD2.PortOpen = True
  308.     'End If
  309.     'Start_B = False
  310.     'DianHaoAY = 1
  311.     'DianHaoY = 1
  312.    
  313.     Data1.DatabaseName = App.Path + "\水流量传感器.mdb"
  314.     Data2.DatabaseName = App.Path + "\水流量传感器.mdb"
  315.    
  316.     Data3.DatabaseName = App.Path + "\水流量传感器.mdb"
  317.     Data3.RecordSource = "左流量记录表"
  318.     Data3.Refresh
  319.     Do While Data3.Recordset.EOF = False
  320.           Data3.Recordset.Delete
  321.           Data3.Recordset.MoveNext
  322.     Loop
  323.    
  324.     Data4.DatabaseName = App.Path + "\水流量传感器.mdb"
  325.     Data4.RecordSource = "右流量记录表"
  326.     Data4.Refresh
  327.     Do While Data4.Recordset.EOF = False
  328.           Data4.Recordset.Delete
  329.           Data4.Recordset.MoveNext
  330.     Loop
  331.    
  332.                      
  333. '定义X,Y方向调整比例系数
  334.     Dim ScaleFactorX As Single, ScaleFactorY As Single
  335.     '定义设计初始采用的屏幕显示分辨率FORM的尺寸,以像素点为单位
  336.    
  337.     DesignX = 1440
  338.     DesignY = 900
  339.     RePosForm = True '定位FORM的标志
  340.     DoResize = False 'RESIZE事件的标志
  341.     '设置屏幕的缇(twips)值
  342.     Xtwips = Screen.TwipsPerPixelX
  343.     Ytwips = Screen.TwipsPerPixelY
  344.     '设置屏幕X,Y方向的像素分辨率
  345.     Xpixels = Screen.Width / Xtwips
  346.     Ypixels = Screen.Height / Ytwips
  347.     '定义调整比例系数
  348.     ScaleFactorX = Xpixels / DesignX
  349.     ScaleFactorY = Ypixels / DesignY
  350.     Me.ScaleMode = vbTwips
  351.     '调用重新调整子程序
  352.     Resize_For_Resolution ScaleFactorX, ScaleFactorY, Me
  353.     '保存当前屏幕的尺寸
  354.     MyForm.Width = Me.Width
  355.     MyForm.Height = Me.Height
  356.    
  357. End Sub

  359. Private Sub Form_Resize()
  360.     Dim ScaleFactorX As Single, ScaleFactorY As Single
  361.     '避免死循环
  362.     If Not DoResize Then
  363.         DoResize = True
  364.         Exit Sub
  365.     End If
  366.     RePosForm = False
  367.     ScaleFactorX = Me.Width / MyForm.Width
  368.     ScaleFactorY = Me.Height / MyForm.Height
  369.     '重新调用调整子程序
  370.    ' Resize_For_Resolution ScaleFactorX, ScaleFactorY, Me
  371.     '保存当前屏幕的尺寸
  372.     MyForm.Width = Me.Width
  373.     MyForm.Height = Me.Height
  374.    
  375.    
  376.     Pic2.ScaleWidth = 200000
  377.     Pic2.ScaleHeight = 35000
  378.    
  379.   
  380.     Pic4.ScaleWidth = 200000
  381.     Pic4.ScaleHeight = 35000
  382.    
  383. End Sub



  387. Private Sub MSCommAD1_OnComm()      'AD专用通道1
  388.   Dim buffer() As Byte
  389.   Static ReFlag As Boolean
  390.   Dim DianYa As Single      '存放当前的AD转换电压值
  391.   
  392.   Static DianYaA As Single   '存放AD转换的旧电压值
  393.   
  394.   'On Error GoTo err

  396.   Select Case MSCommAD1.CommEvent
  397.   Case comEvReceive
  398.           buffer = MSCommAD1.Input
  399.            If ReFlag = False Then
  400.                 If buffer(0) = &H55 Then
  401.                     'Debug.Print "&0x55"
  402.                     MSCommAD1.InputLen = 470
  403.                     MSCommAD1.RThreshold = 470
  404.                     ReFlag = True
  405.                 End If
  406.                 Exit Sub
  407.           End If
  408.           Pic2.Cls
  409.           Call DRAWQX_A
  410.           For I = 0 To UBound(buffer)
  411.                        DianYa = buffer(I) * 29.99 / 255    '29.99是单片机基准电压需根据实际修改
  412.                        
  413.                        If DianHaoAZ = 1 Then
  414.                                Pic2.DrawStyle = 0
  415.                                Pic2.DrawWidth = 2
  416.                                Pic2.Line (DianHaoAZ * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYa * WDSTEP)-(DianHaoAZ * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYa * WDSTEP), RGB(0, 0, 255)
  417.                            Else
  418.                                Pic2.DrawStyle = 0
  419.                                Pic2.DrawWidth = 2
  420.                                Pic2.Line (DianHaoAZ * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYaA * WDSTEP)-(DianHaoZ * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYa * WDSTEP), RGB(0, 0, 255)
  421.                       End If
  422.                     '****************************************************************************
  423.                      DianYaA = DianYa       '记录电压
  424.                      DianHaoAZ = DianHaoZ     '记录点号
  425.                      DianHaoZ = DianHaoZ + 1
  426.             Next
  427.                     DianHaoAZ = 1
  428.                     DianHaoZ = 1
  429.                     ReFlag = False
  430.                     timerz = 0
  431.                     MSCommAD1.InputLen = 0
  432.                     buffer = MSCommAD1.Input
  433.                     MSCommAD1.InputLen = 1
  434.    End Select
  435. err:
  436. End Sub



  440. Private Sub MSCommAD2_OnComm()      'AD专用通道2
  441.   Dim buffer() As Byte
  442.   Static ReFlag As Boolean
  443.   Dim DianYa As Single      '存放当前的AD转换电压值
  444.   
  445.   Static DianYaA As Single   '存放AD转换的旧电压值
  446.   
  447.   On Error GoTo err

  449.   Select Case MSCommAD2.CommEvent
  450.   Case comEvReceive
  451.           buffer = MSCommAD2.Input
  452.            If ReFlag = False Then
  453.                 If buffer(0) = &H55 Then
  454.             
  455.                     MSCommAD2.InputLen = 470
  456.                     MSCommAD2.RThreshold = 470
  457.                     ReFlag = True
  458.                 End If
  459.                 Exit Sub
  460.           End If
  461.           Pic4.Cls
  462.           Call DRAWQX_B
  463.           For I = 0 To UBound(buffer)
  464.                        DianYa = buffer(I) * 29.99 / 255    '29.99是单片机基准电压需根据实际修改
  465.                        
  466.                        If DianHaoAY = 1 Then
  467.                                Pic4.DrawStyle = 0
  468.                                Pic4.DrawWidth = 2
  469.                                Pic4.Line (DianHaoAY * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYa * WDSTEP)-(DianHaoAY * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYa * WDSTEP), RGB(0, 0, 255)
  470.                            Else
  471.                                Pic4.DrawStyle = 0
  472.                                Pic4.DrawWidth = 2
  473.                                Pic4.Line (DianHaoAY * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYaA * WDSTEP)-(DianHaoY * 0.2 * XSTEP + 5 * XSTEP, WDEND - DianYa * WDSTEP), RGB(0, 0, 255)
  474.                       End If
  475.                     '****************************************************************************
  476.                      DianYaA = DianYa       '记录电压
  477.                      DianHaoAY = DianHaoY     '记录点号
  478.                      DianHaoY = DianHaoY + 1
  479.             Next
  480.                     DianHaoAY = 1
  481.                     DianHaoY = 1
  482.                     ReFlag = False
  483.                     timery = 0
  484.                     MSCommAD2.InputLen = 0
  485.                     buffer = MSCommAD2.Input
  486.                     MSCommAD2.InputLen = 1
  487.    End Select
  488. err:
  489. End Sub


  492. Private Sub Option1_Click()
  493.       Pic4.ScaleWidth = 50000
  494. End Sub

  496. Private Sub Option2_Click()
  497.       Pic4.ScaleWidth = 100000
  498. End Sub

  500. Private Sub Option3_Click()
  501.      Pic2.ScaleWidth = 50000
  502. End Sub

  504. Private Sub Option4_Click()
  505.      Pic2.ScaleWidth = 100000
  506. End Sub
  507. Private Sub Option5_Click()
  508.      Pic2.ScaleWidth = 200000
  509. End Sub

  511. Private Sub Option6_Click()
  512.      Pic4.ScaleWidth = 200000
  513. End Sub

  515. Private Sub Timer1_Timer()
  516.     timerz = timerz + 1
  517.     If timerz >= 10 Then
  518.        timerz = 0
  519.        Pic2.Cls
  520.        Call DRAWQX_A
  521.       
  522.        Text1(0).Text = ""      '更换下一个传感器中途清空数据
  523.        Text2(2).Text = ""
  524.        Text2(3).Text = ""
  525.        Text4.Text = ""
  526.       
  527.        Text8.Text = ""
  528.        Text9.Text = ""
  529.        Text10.Text = ""
  530.       
  531.       
  532.        Text3(0).Text = ""
  533.        Text3(1).Text = ""
  534.        Text3(2).Text = ""
  535.        Text3(3).Text = ""
  536.        Text3(0).BackColor = &H80000005
  537.        Text3(1).BackColor = &H80000005
  538.        Text3(2).BackColor = &H80000005
  539.        Text3(3).BackColor = &H80000005
  540.             
  541.       
  542.        Text1(0).BackColor = &HFFFFFF
  543.        QianLiuLiang_Z = 0
  544.         
  545.         
  546.        Zuo1_Liu = 0       '1L额外处理（左用户流量）
  547.        Zuo1_Pin = 0     '1L额外处理（左用户频率）
  548.    
  549.     End If
  550. End Sub
  551. Private Sub Timer2_Timer()
  552.     timery = timery + 1
  553.     If timery >= 10 Then
  554.        timery = 0
  555.        Pic4.Cls
  556.        Call DRAWQX_B
  557.       
  558.        Text1(1).Text = ""         '更换下一个传感器中途清空数据
  559.        Text2(4).Text = ""
  560.        Text2(5).Text = ""
  561.        Text6.Text = ""
  562.       
  563.        Text7.Text = ""
  564.        Text11.Text = ""
  565.        Text12.Text = ""
  566.       
  567.        Text5(0).Text = ""
  568.        Text5(1).Text = ""
  569.        Text5(2).Text = ""
  570.        Text5(3).Text = ""
  571.        Text5(0).BackColor = &H80000005
  572.        Text5(1).BackColor = &H80000005
  573.        Text5(2).BackColor = &H80000005
  574.        Text5(3).BackColor = &H80000005
  575.      
  576.        Text1(1).BackColor = &HFFFFFF
  577.        QianLiuLiang_Y = 0
  578.    
  579.        You1_Liu = 0       '1L额外处理（右用户流量）
  580.        You1_Pin = 0    '1L额外处理（右用户频率）
  581.      
  582.     End If
  583. End Sub

  585. Private Sub YouXuanZe_Click()
  586.       
  587. End Sub

  589. Private Sub ZuoXianZe_Click()

  591. End Sub

  593. Private Sub MSComm1_OnComm()

  595.   Static CiShu As Integer              '记录取平均值次数
  596.   Static Shape_Flag(0 To 3) As Boolean
  597.   Static XianShiCS   As Integer              '显示次数控制
  598.   Dim buffer() As Byte
  599.   Dim ZhouQuZhi As Long                  '真实周期值
  600.   Dim PinLiZhi As Single                 '真实频率值
  601.   Dim ZhouQu(5) As Long          '接收到的频率字节
  602.   
  603.   'On Error GoTo err
  604.   Select Case MSComm1.CommEvent
  605.   Case comEvReceive
  606.              buffer = MSComm1.Input
  607.              MSComm1.InBufferCount = 0
  608.              MSComm1.OutBufferCount = 0
  609.              ZhouQu(0) = buffer(0)     '单片机通道信息（0-3）
  610.              ZhouQu(1) = buffer(1)
  611.              ZhouQu(2) = buffer(2)
  612.              ZhouQu(3) = buffer(3)
  613.              ZhouQu(4) = buffer(4)
  614.             
  615.               '************************************************************************************
  616.              '-------------在这里加入校验
  617.              '*************************************************************************************
  618.             
  619.             
  620.              '************************************************************************************
  621.              '接收到的字节转换成真实值
  622.              '*************************************************************************************
  623.              ZhouQuZhi = ZhouQu(1) * 16777216 + ZhouQu(2) * 65536 + ZhouQu(3) * 256 + ZhouQu(4)
  624.              ZhouQuZhi = ZhouQuZhi * 12 / 11.0592            '单位：uS
  625.              PinLiZhi = 1000000 / ZhouQuZhi
  626.             
  627.              If Shape_Flag(ZhouQu(0)) = False Then
  628.                    Shape_Flag(ZhouQu(0)) = True
  629.                    Shape1(ZhouQu(0)).FillColor = RGB(0, 255, 0)
  630.                  Else
  631.                    Shape_Flag(ZhouQu(0)) = False
  632.                    Shape1(ZhouQu(0)).FillColor = RGB(255, 255, 255)
  633.              End If
  634.              '*******************************************************************************
  635.           '显示取平均值
  636.             Data3.RecordSource = "左流量记录表"
  637.             Data3.Refresh
  638.       
  639.             If PinLiZhi > 0 Then
  640.                 If CiShu Mod 4 = 0 Then
  641.                         Data3.Recordset.AddNew
  642.                         Data3.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  643.                     ElseIf CiShu < 4 Then
  644.                         Data3.Recordset.MoveFirst
  645.                         Data3.Refresh
  646.                         Data3.Recordset.Edit
  647.                         Data3.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  648.                     ElseIf CiShu > 4 And CiShu < 8 Then
  649.                         Data3.Recordset.MoveFirst
  650.                         Data3.Recordset.Move 1
  651.                         Data3.Recordset.Edit
  652.                         Data3.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  653.                              
  654.                    ElseIf CiShu > 8 And CiShu < 12 Then
  655.                        Data3.Recordset.MoveFirst
  656.                         Data3.Recordset.Move 2
  657.                         Data3.Recordset.Edit
  658.                         Data3.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  659.                                    
  660.                   ElseIf CiShu > 12 And CiShu < 16 Then
  661.                       Data3.Recordset.MoveFirst
  662.                         Data3.Recordset.Move 3
  663.                         Data3.Recordset.Edit
  664.                         Data3.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  665.                 End If
  666.                 Data3.Recordset.Update
  667.                
  668.                 CiShu = CiShu + 1
  669.                 If CiShu >= 4 * 4 Then  '4行（4条记录）4列
  670.                      CiShu = 0
  671.                      Data3.RecordSource = "select avg(JiaoZhun10) as JZ10 FROM 左流量记录表 WHERE JiaoZhun10>0"
  672.                      Data3.Refresh
  673.                      Text2(0).Text = Format(Data3.Recordset("JZ10"), "0.00") & " Hz"
  674.                      
  675.                      Data3.RecordSource = "select avg(JiaoZhun50) as JZ50 FROM 左流量记录表 WHERE JiaoZhun50>0"
  676.                      Data3.Refresh
  677.                      Text2(1).Text = Format(Data3.Recordset("JZ50"), "0.00") & " Hz"
  678.                      
  679.                      Data3.RecordSource = "select avg(YongHu) as YH FROM 左流量记录表 WHERE YongHu>0"
  680.                      Data3.Refresh
  681.                      Text2(2).Text = Format(Data3.Recordset("YH"), "0.00") & " Hz"
  682.                      
  683.                      Data3.RecordSource = "select avg(LiuLiang) as LL FROM 左流量记录表 WHERE LiuLiang>0"
  684.                      Data3.Refresh
  685.                      Text2(3).Text = Format(Data3.Recordset("LL"), "0.00") & " Hz"
  686.                      
  687.                      Text4.Text = Format(60 * Val(Text2(3).Text) / 1609.954 * 0.94, "0.00")   '显示当前流量值
  688.                   
  689.                   
  690.                      Data3.RecordSource = "左流量记录表"
  691.                      Data3.Refresh
  692.                      Data3.Recordset.MoveFirst
  693.                      Data3.Recordset.Delete
  694.                      
  695.                      CiShu = 12
  696.                      
  697.                      XianShiCS = XianShiCS + 1    '显示快慢控制
  698.                      If XianShiCS >= 3 Then
  699.                          XianShiCS = 0
  700.                          Text9.Text = Text2(2).Text
  701.                          Text10.Text = Text4.Text
  702.                          Text8.Text = Format(3600 * Val(Text2(3).Text) / 1609.954 * 0.94, "0.00") & "  L/H"
  703.                      End If
  704.                 End If
  705.             End If
  706.             
  707.         '*****************************************************************************************
  708.             
  709.         '合格判断
  710.         '****************************************************************************************
  711.         '界面上
  712.         '   Abs(当前流量- 标准流量) <= 标准流量 * 2%  And  （Abs(当前流量- 标准流量) < Abs(前次流量-标准流量)） Then
  713.          If Abs(Val(Text4.Text) - 1) <= 1 * 0.2 And (Abs(Val(Text4.Text) - 1) < Abs(QianLiuLiang_Z - 1)) Then
  714.                 Text3(0).Text = Text2(2).Text            '1L/H
  715.          End If
  716.          If Abs(Val(Text4.Text) - 3) <= 3 * 0.03 And (Abs(Val(Text4.Text) - 3) < Abs(QianLiuLiang_Z - 3)) Then
  717.                 Text3(1).Text = Text2(2).Text           '3L/H
  718.          End If
  719.          If Abs(Val(Text4.Text) - 6) <= 6 * 0.025 And (Abs(Val(Text4.Text) - 6) < Abs(QianLiuLiang_Z - 6)) Then
  720.                 Text3(2).Text = Text2(2).Text         '5L/H
  721.          End If
  722.          If Abs(Val(Text4.Text) - 15) <= 15 * 0.015 And (Abs(Val(Text4.Text) - 15) < Abs(QianLiuLiang_Z - 15)) Then
  723.                 Text3(3).Text = Text2(2).Text        '15L/H
  724.          End If
  725.          
  726.          QianLiuLiang_Z = Val(Text4.Text)        '记录本次流量值
  727.         
  728.         '********************************************************************************
  729.         
  730.         If Combo1.Text <> "请选择型号" Then
  731.         
  732.                 Data1.RecordSource = Combo1.Text
  733.                 Data1.Refresh
  734.                
  735.                 '1L/min额外处理
  736.                 If (Val(Text3(0).Text) > Data1.Recordset.Fields(0) And Val(Text3(0).Text) < Data1.Recordset.Fields(1)) = False Then
  737.                           If ZhouQu(0) = 2 Then     '用户传感器左
  738.                               Zuo1_Pin = PinLiZhi
  739.                           End If
  740.                
  741.                           If ZhouQu(0) = 3 Then    '用户流量左
  742.                                Zuo1_Liu = Format(60 * PinLiZhi / 1609.954 * 0.94, "0.00")
  743.                           End If
  744.                           If Zuo1_Pin > 1 And Zuo1_Liu < 1.2 Then
  745.                                 Text3(0).Text = Format(Zuo1_Pin, "0.00")
  746.                                 If Val(Text4.Text) = 0 Then Text4.Text = Format(Zuo1_Liu, "0.00")
  747.                           End If
  748.                End If
  749.                
  750.                
  751.                '合格判断
  752.                If Val(Text3(0).Text) <> 0 And Val(Text3(1).Text) <> 0 And Val(Text3(2).Text) <> 0 And Val(Text3(3).Text) <> 0 Then
  753.                         If Val(Text3(0).Text) > Data1.Recordset.Fields(0) And Val(Text3(0).Text) < Data1.Recordset.Fields(1) And _
  754.                            Val(Text3(1).Text) > Data1.Recordset.Fields(2) And Val(Text3(1).Text) < Data1.Recordset.Fields(3) And _
  755.                            Val(Text3(2).Text) > Data1.Recordset.Fields(4) And Val(Text3(2).Text) < Data1.Recordset.Fields(5) And _
  756.                            Val(Text3(3).Text) > Data1.Recordset.Fields(6) And Val(Text3(3).Text) < Data1.Recordset.Fields(7) Then
  757.                         
  758.                                 Text1(0).Text = "合 格"
  759.                                 Text1(0).BackColor = RGB(0, 255, 0)
  760.                                 Text3(0).BackColor = &H80000005
  761.                                 Text3(1).BackColor = &H80000005
  762.                                 Text3(2).BackColor = &H80000005
  763.                                 Text3(3).BackColor = &H80000005
  764.                             Else
  765.                                Text1(0).Text = "不 合 格"
  766.                                Text1(0).BackColor = RGB(255, 0, 0)
  767.                                If (Val(Text3(0).Text) > Data1.Recordset.Fields(0) And Val(Text3(0).Text) < Data1.Recordset.Fields(1)) = False Then Text3(0).BackColor = RGB(255, 0, 0)
  768.                                If (Val(Text3(1).Text) > Data1.Recordset.Fields(2) And Val(Text3(1).Text) < Data1.Recordset.Fields(3)) = False Then Text3(1).BackColor = RGB(255, 0, 0)
  769.                                If (Val(Text3(2).Text) > Data1.Recordset.Fields(4) And Val(Text3(2).Text) < Data1.Recordset.Fields(5)) = False Then Text3(2).BackColor = RGB(255, 0, 0)
  770.                                If (Val(Text3(3).Text) > Data1.Recordset.Fields(6) And Val(Text3(3).Text) < Data1.Recordset.Fields(7)) = False Then Text3(3).BackColor = RGB(255, 0, 0)
  771.                               
  772.                         End If
  773.                  End If
  774.         End If
  775.       
  776.         '********************************************************************************
  777.         
  778.       
  779.    End Select
  780. 'err:         Exit Sub
  781. End Sub

  783. Private Sub MSComm2_OnComm()
  784.   Static CiShu As Integer              '记录取平均值次数
  785.   Static Shape_Flag(0 To 3) As Boolean
  786.   Static XianShiCS   As Integer              '显示次数控制
  787.   Dim buffer() As Byte
  788.   Dim ZhouQuZhi As Long                  '真实周期值
  789.   Dim PinLiZhi As Single                 '真实频率值
  790.   Dim ZhouQu(5) As Long          '接收到的频率字节
  791.    
  792.   On Error GoTo err
  793.   Select Case MSComm2.CommEvent
  794.   Case comEvReceive
  795.           buffer = MSComm2.Input
  796.           MSComm2.InBufferCount = 0
  797.           MSComm2.OutBufferCount = 0
  798.           ZhouQu(0) = buffer(0)     '单片机通道信息（0-3）
  799.           ZhouQu(1) = buffer(1)
  800.           ZhouQu(2) = buffer(2)
  801.           ZhouQu(3) = buffer(3)
  802.           ZhouQu(4) = buffer(4)
  803.          
  804.            '************************************************************************************
  805.           '-------------在这里加入校验
  806.           '*************************************************************************************
  807.          
  808.           '************************************************************************************
  809.           '接收到的字节转换成真实值
  810.           '*************************************************************************************
  811.           ZhouQuZhi = ZhouQu(1) * 16777216 + ZhouQu(2) * 65536 + ZhouQu(3) * 256 + ZhouQu(4)
  812.           ZhouQuZhi = ZhouQuZhi * 12 / 11.0592            '单位：uS
  813.           PinLiZhi = 1000000 / ZhouQuZhi
  814.       
  815.           If Shape_Flag(ZhouQu(0)) = False Then
  816.                 Shape_Flag(ZhouQu(0)) = True
  817.                 Shape2(ZhouQu(0)).FillColor = &HFF80FF   'RGB(200, 200, 0)
  818.               Else
  819.                 Shape_Flag(ZhouQu(0)) = False
  820.                 Shape2(ZhouQu(0)).FillColor = RGB(255, 255, 255)
  821.           End If
  822.         
  823.           '*******************************************************************************
  824.           '显示取平均值
  825.           Data4.RecordSource = "右流量记录表"
  826.           Data4.Refresh
  827.       
  828.           If PinLiZhi > 0 Then
  829.                 If CiShu Mod 4 = 0 Then
  830.                         Data4.Recordset.AddNew
  831.                         Data4.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  832.                         
  833.                     ElseIf CiShu < 4 Then
  834.                         Data4.Recordset.MoveFirst
  835.                         Data4.Refresh
  836.                         Data4.Recordset.Edit
  837.                         Data4.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  838.                         
  839.                     ElseIf CiShu > 4 And CiShu < 8 Then
  840.                         Data4.Recordset.MoveFirst
  841.                         Data4.Recordset.Move 1
  842.                         Data4.Recordset.Edit
  843.                         Data4.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  844.                              
  845.                    ElseIf CiShu > 8 And CiShu < 12 Then
  846.                         Data4.Recordset.MoveFirst
  847.                         Data4.Recordset.Move 2
  848.                         Data4.Recordset.Edit
  849.                         Data4.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  850.                                    
  851.                   ElseIf CiShu > 12 And CiShu < 16 Then
  852.                         Data4.Recordset.MoveFirst
  853.                         Data4.Recordset.Move 3
  854.                         Data4.Recordset.Edit
  855.                         Data4.Recordset.Fields(ZhouQu(0)) = Format(PinLiZhi, "0.00")
  856.                 End If
  857.                 Data4.Recordset.Update
  858.                
  859.                 CiShu = CiShu + 1
  860.                 If CiShu >= 4 * 4 Then  '4行（4条记录）4列
  861.                      CiShu = 0
  862.                      Data4.RecordSource = "select avg(JiaoZhun10) as JZ10 FROM 右流量记录表 WHERE JiaoZhun10>0"
  863.                      Data4.Refresh
  864.                      Text2(6).Text = Format(Data4.Recordset("JZ10"), "0.00") & " Hz"
  865.                      
  866.                      Data4.RecordSource = "select avg(JiaoZhun50) as JZ50 FROM 右流量记录表 WHERE JiaoZhun50>0"
  867.                      Data4.Refresh
  868.                      Text2(7).Text = Format(Data4.Recordset("JZ50"), "0.00") & " Hz"
  869.                      
  870.                      Data4.RecordSource = "select avg(YongHu) as YH FROM 右流量记录表 WHERE YongHu>0"
  871.                      Data4.Refresh
  872.                      Text2(4).Text = Format(Data4.Recordset("YH"), "0.00") & " Hz"
  873.                      
  874.                      Data4.RecordSource = "select avg(LiuLiang) as LL FROM 右流量记录表 WHERE LiuLiang>0"
  875.                      Data4.Refresh
  876.                      Text2(5).Text = Format(Data4.Recordset("LL"), "0.00") & " Hz"
  877.                     
  878.                   
  879.                      Text6.Text = Format(60 * Val(Text2(5).Text) / 1608.987 * 0.94, "0.00")               '显示当前流量值
  880.                 '     Text7.Text = Format(3600 * Val(Text2(5).Text) / 1608.987 * 0.94, "0.00") & "  L/H"
  881.                                          
  882.                      Data4.RecordSource = "右流量记录表"    '前面Data4.RecordSource<>"右流量记录表",所有必须有此句
  883.                      Data4.Refresh                         '
  884.                      Data4.Recordset.MoveFirst
  885.                      Data4.Recordset.Delete
  886.                      CiShu = 12
  887.                   
  888.                      XianShiCS = XianShiCS + 1    '显示快慢控制
  889.                      If XianShiCS >= 3 Then
  890.                          XianShiCS = 0
  891.                          Text11.Text = Text2(4).Text
  892.                          Text12.Text = Text6.Text
  893.                          Text7.Text = Format(3600 * Val(Text2(5).Text) / 1608.987 * 0.94, "0.00") & "  L/H"
  894.                      End If
  895.                 End If
  896.             End If
  897.         '*****************************************************************************************
  898.         '合格判断
  899.         '****************************************************************************************
  900.             
  901.          '界面下
  902.          If Abs(Val(Text6.Text) - 1) <= 1 * 0.2 And (Abs(Val(Text6.Text) - 1) < Abs(QianLiuLiang_Y - 1)) Then Text5(0).Text = Text2(4).Text             '1L/H
  903.          If Abs(Val(Text6.Text) - 3) <= 3 * 0.03 And (Abs(Val(Text6.Text) - 3) < Abs(QianLiuLiang_Y - 3)) Then Text5(1).Text = Text2(4).Text           '3L/H
  904.          If Abs(Val(Text6.Text) - 6) <= 6 * 0.025 And (Abs(Val(Text6.Text) - 6) < Abs(QianLiuLiang_Y - 6)) Then Text5(2).Text = Text2(4).Text         '5L/H
  905.          If Abs(Val(Text6.Text) - 15) <= 15 * 0.015 And (Abs(Val(Text6.Text) - 15) < Abs(QianLiuLiang_Y - 15)) Then Text5(3).Text = Text2(4).Text         '15L/H
  906.    
  907.          QianLiuLiang_Y = Val(Text6.Text)        '记录本次流量值
  908.         
  909.         '********************************************************************************
  910.         
  911.       
  912.         If Combo2.Text <> "请选择型号" Then
  913.                 Data2.RecordSource = Combo2.Text
  914.                 Data2.Refresh
  915.                 '1L/min额外处理
  916.                 If (Val(Text5(0).Text) > Data2.Recordset.Fields(0) And Val(Text5(0).Text) < Data2.Recordset.Fields(1)) = False Then   'Text5(0).Text为空或平均值不合格
  917.                           If ZhouQu(0) = 2 Then     '用户传感器
  918.                               You1_Pin = PinLiZhi
  919.                           End If
  920.                
  921.                           If ZhouQu(0) = 3 Then    '用户流量
  922.                                You1_Liu = Format(60 * PinLiZhi / 1608.987 * 0.94, "0.00")
  923.                           End If
  924.                           
  925.                           If You1_Pin > 1 And You1_Liu < 1.2 Then
  926.                                 Text5(0).Text = Format(You1_Pin, "0.00")
  927.                                 If Val(Text6.Text) = 0 Then Text6.Text = Format(You1_Liu, "0.00")   'Text6(0).Text为空
  928.                           End If
  929.                End If
  930.                
  931.                If Val(Text5(0).Text) <> 0 And Val(Text5(1).Text) <> 0 And Val(Text5(2).Text) <> 0 And Val(Text5(3).Text) <> 0 Then
  932.                         If Val(Text5(0).Text) > Data2.Recordset.Fields(0) And Val(Text5(0).Text) < Data2.Recordset.Fields(1) And _
  933.                            Val(Text5(1).Text) > Data2.Recordset.Fields(2) And Val(Text5(1).Text) < Data2.Recordset.Fields(3) And _
  934.                            Val(Text5(2).Text) > Data2.Recordset.Fields(4) And Val(Text5(2).Text) < Data2.Recordset.Fields(5) And _
  935.                            Val(Text5(3).Text) > Data2.Recordset.Fields(6) And Val(Text5(3).Text) < Data2.Recordset.Fields(7) Then
  936.                         
  937.                                 Text1(1).Text = "合 格"
  938.                                 Text1(1).BackColor = RGB(0, 255, 0)
  939.                                 Text5(0).BackColor = &H80000005
  940.                                 Text5(1).BackColor = &H80000005
  941.                                 Text5(2).BackColor = &H80000005
  942.                                 Text5(3).BackColor = &H80000005
  943.                             Else
  944.                                Text1(1).Text = "不 合 格"
  945.                                Text1(1).BackColor = RGB(255, 0, 0)
  946.                                If (Val(Text5(0).Text) > Data2.Recordset.Fields(0) And Val(Text5(0).Text) < Data2.Recordset.Fields(1)) = False Then Text5(0).BackColor = RGB(255, 0, 0)
  947.                                If (Val(Text5(1).Text) > Data2.Recordset.Fields(2) And Val(Text5(1).Text) < Data2.Recordset.Fields(3)) = False Then Text5(1).BackColor = RGB(255, 0, 0)
  948.                                If (Val(Text5(2).Text) > Data2.Recordset.Fields(4) And Val(Text5(2).Text) < Data2.Recordset.Fields(5)) = False Then Text5(2).BackColor = RGB(255, 0, 0)
  949.                                If (Val(Text5(3).Text) > Data2.Recordset.Fields(6) And Val(Text5(3).Text) < Data2.Recordset.Fields(7)) = False Then Text5(3).BackColor = RGB(255, 0, 0)
  950.                               
  951.                         End If
  952.                  End If
  953.         End If
  954.         
  955.         '********************************************************************************
  956.       
  957.    End Select
  958. err:      Exit Sub
  959. End Sub
复制代码





温度传感器, 温度检测, 压缩包, 主程序, 电脑

相关帖子
回复

使用道具 举报

ID:275997 发表于 2018-1-14 22:35 | 显示全部楼层
嗯嗯不错。真的很好就有
回复

使用道具 举报

ID:474810 发表于 2019-2-8 21:51 | 显示全部楼层
太好了，太有借鉴意义了
回复

使用道具 举报

ID:503309 发表于 2019-5-8 21:04 | 显示全部楼层
你好，我想问一下，这个上位机软件不能用，打开就是无效的端口号，但是我转了一个串口了啊，请问是什么原因呢？
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表