久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

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

單片機讀取DS18B20內部溫度上傳到上位機(電腦)

[復制鏈接]
跳轉到指定樓層
樓主

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電腦程序：
電路和介紹詳見：http://www.zg4o1577.cn/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
復制代碼





分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏2 分享淘帖 頂頂1 踩踩
回復

使用道具 舉報

沙發
ID:275997 發表于 2018-1-14 22:35 | 只看該作者
嗯嗯不錯。真的很好就有
回復

使用道具 舉報

板凳
ID:474810 發表于 2019-2-8 21:51 | 只看該作者
太好了，太有借鑒意義了
回復

使用道具 舉報

地板
ID:503309 發表于 2019-5-8 21:04 | 只看該作者
你好，我想問一下，這個上位機軟件不能用，打開就是無效的端口號，但是我轉了一個串口了啊，請問是什么原因呢？
回復

使用道具 舉報

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

本版積分規則

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

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板： 欧美国产亚洲一区二区 | 国产无人区一区二区三区 | 亚洲日本一区二区三区四区 | 国产乱码精品1区2区3区 | 韩国av网站在线观看 | 久草热线 | 国产成人免费视频 | 亚洲精品乱码久久久久久蜜桃91 | 91久久久久久久 | 欧美影院久久 | 欧美一区二区三 | 网站国产| 亚洲视频免费一区 | 免费黄色特级片 | 欧美中文字幕在线观看 | 午夜精品在线 | 中文字幕的av | 午夜在线电影网 | 波多野结衣中文字幕一区二区三区 | 国产精品亚洲成在人线 | 亚洲一区中文字幕在线观看 | 亚洲国产精品一区二区第一页 | 天天操天天干天天透 | 久久久91精品国产一区二区精品 | 羞羞的视频免费看 | 午夜精品久久久久久不卡欧美一级 | 特级毛片爽www免费版 | 手机日韩 | 国产精品中文字幕在线播放 | 国产精品揄拍一区二区 | 精品日韩一区二区 | 中国xxxx性xxxx产国 | 国产精品伦一区二区三级视频 | 羞羞视频免费观看入口 | 婷婷在线免费 | 国产自产c区 | 99精品网| 日本黄色短片 | 久久99精品久久久久 | 国产玖玖| www.夜夜骑 |