智慧型水塔研究

Size: px

Start display at page:

Download "智慧型水塔研究"

谒傅
5 years ago
Views:

1 投稿類別 : 資訊類篇名 : 作者 : 劉家豪高雄市立高雄高級工業職業學校資訊三乙何國誌高雄市立高雄高級工業職業學校資訊三乙指導老師 : 莊利吉老師

2 壹前言前言部分有三個小節, 依序是研究動機研究目的與研究方法其中研究方法又分研究步驟與研究工具一研究動機在我們一般所使用的水塔中的水, 有時候會因為一時的疏忽而造成漏水, 讓這個月的水費爆增, 浪費了許多的水資源及錢, 有鑑於此我們使用乙太網路資料擷取器結合電路及電腦程式開發了一套符合大眾使用的智慧型水塔, 來避免發生上述這種情況二研究目的 1. 設計可連結網路的智慧型水塔以便觀測水位 2. 當用水有異常大量消耗時可簡訊通知管理人員 3. 可根據使用環境自行設定警戒參數三研究方法 ( 一 ) 研究步驟 1. 電路設計 : 水位偵測電路的設計製做與測試 2. 網路資料擷取器測試 :ADAM-6502 的使用測試 3. 程式設計 : 設計可將水位訊號由 ADAM-6502 讀入的程式 4. 系統測試 : 測試系統是否能根據設定的參數發出警示的簡訊 ( 二 ) 研究工具 1. 硬體 : 水位偵測電路個人電腦乙太網路資料擷取器 (ADVANTECH ADAM-6502 ) 2. 軟體 :Visual Studio 2008 Professional ADAM-6502.Net Class Library 貳正文一水位偵測電路的設計本系統中的水位偵測電路架構如圖 1, 有三個輸入 H M L, 三個輸出 W H W M W L 從架構圖中可看出將水塔水位區分成低中高三檔, 當水位到達低水位時 L 輸入為 5V( 邏輯 1) 中水位時 L 與 M 為 5V( 邏輯 1), 高水位時三者皆為 1 W H W M W L 是高中低水位指示燈, 當水位到達時指示燈就會亮根據上述功能設計的真值表如圖 2, 三個輸出的卡諾圖及化簡 1

3 後的布林函數如圖 3 ~ 圖 5, 電路圖請參閱 " 四研究結果 " 處圖 1 水位偵測電路架構圖 2 水位偵測電路真值表圖 3 高水位輸出布林函數圖 4 中水位輸出的布林函數圖 5 低水位輸出的布林函數二乙太網路資料擷取器的測試研華 (Advantech) 的 ADAM-6052 是一個具有 16-ch Source-type Isolated Digital I/O Modbus TCP Module 的網路資料擷取器, 外觀如圖 6, 詳細規格如下表 1 表 1 Advantech ADAM-6052 規格 Digital Input Channels 8 Dry Contact Logic level 0: close to GND,Logic level 1: open Wet Contact Logic level 0 : 0 ~ 3 VDC,Logic level 1 : 10 ~ 30 VDC Supports 3 khz Counter Input(32-bit + 1-bit overflow) Keep/Discard Counter Value when Power-off Supports 3 khz Frequency Input Supports Inverted DI Status Digital Output Channels 8 (Source Type) Voltage Range 10 ~ 35 VDC Current 1 A (per channel) Supports 5 khz Pulse Output Supports High-to-Low and Low-to-High Delay Output Supports Over Current Protection Ethernet: Wired: 10/100 Base-T 透過 ADAM-6052 就可輕易建構一個可利用網路進行遠端設備監控的系統, 例如圖 7 就是利用此系列設備所構成的系統 2

圖 6 ADAM6052 圖 7 ADAM-60XX 所構成的網路監控系統另外, 研華

4 圖 6 ADAM6052 圖 7 ADAM-60XX 所構成的網路監控系統另外, 研華 (Advantech) 的 ADAM-6052 還提供 Adam.NET Class Library For Visual Studio.NET 2003, 所以要使用 VB 2008 來設計遠端監控程式就非常簡單下面是利用此程式庫所設計的一個全加器監控程式, 圖 8 是監控電路圖圖 9 是監控程式執行畫面表 2 是原始程式 D O[ 0] X D O[ 1] Y S D I[0] D O[ 2] Z C D I[1] 圖 8 全加器的監控電路圖圖 9 全加器的監控程式執行畫面 3

5 表 2 全加器的監控的原始程式 Imports System.Net.Sockets Imports Advantech.Adam Public Class Form1 Private adammodbus As New AdamSocket Private m_adam6000type As Adam6000Type Private Sub SetFAInput() If XLow.Checked Then adammodbus.modbus().forcesinglecoil(17, 0) If XHigh.Checked Then adammodbus.modbus().forcesinglecoil(17, 1) If YLow.Checked Then adammodbus.modbus().forcesinglecoil(18, 0) If YHigh.Checked Then adammodbus.modbus().forcesinglecoil(18, 1) If ZLow.Checked Then adammodbus.modbus().forcesinglecoil(19, 0) If ZHigh.Checked Then adammodbus.modbus().forcesinglecoil(19, 1) Private Sub ReadFAOutput() Dim bdidata(1) As Boolean If adammodbus.modbus().readcoilstatus(1, 2, bdidata) Then 'When the FA output is low, the DI(i) connects to GND. In the Dry Contact Wiring the bdidata(i) will be true. If bdidata(0) = True Then SLow.Checked = True SHigh.Checked = True If bdidata(1) = True Then CLow.Checked = True CHigh.Checked = True MessageBox.Show("Read Digital Input Error") Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load adammodbus.settimeout(1000, 1000, 1000) ' set timeout for TCP m_adam6000type = Adam6000Type.Adam6052 XLow.Checked = True : YLow.Checked = True : ZLow.Checked = True btnconnect.enabled = True : btndisconnect.enabled = False Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If adammodbus.connected Then adammodbus.disconnect() Private Sub XLow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles XLow.Click, XHigh.Click, YLow.Click, YHigh.Click, ZLow.Click, ZHigh.Click SetFAInput() ReadFAOutput() 4

6 Private Sub btnconnect_click(byval sender As System.Object, ByVal e As System.EventArgs) Handles btnconnect.click 'Connect to ADAM 6052 'txtip.text: " ", modbus slave IP address 'txtmodbusport.text:"502", modbus TCP port is 502 If adammodbus.connect(txtip.text, ProtocolType.Tcp, Integer.Parse(txtModbusPort.Text)) Then SetFAInput() btnconnect.enabled = False btndisconnect.enabled = True MessageBox.Show("Connect " & txtip.text & " failed") End Class 三如何發送簡訊我們是利用台灣簡訊的 API 來發送, 做法是表單中隱藏一個 WebBrowser 物件, 利用如下指令發送簡訊, 其中 TextBox2 中有管理者的手機號碼, 簡訊內容固定是 " 漏水 " WebBrowser1.Navigate(" assword=123456&type=now&encoding=big5&mobile=" & TextBox2.Text & "&message= 漏水 &vldtme=3600") 四研究結果 ( 一 ) 系統電路圖圖 10 系統電路圖 ( 二 ) 成果展示 5

7 設定水位高低來回次數, 當在時間內達到或超過此值時會發送簡訊提醒管理者設定在多少分鐘內的來回次數需要提醒輸入管理者手機號碼, 以用來傳送簡訊當水位處於高位時當水位處於中位時當水位處於低位時圖 11 操作過程 6

sender As Object, ByVal e As System.EventArgs) Handles Me.Load Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False adammodbus.

8 圖 12 手機接收到漏水簡訊圖 13 實際電路及 ADAM ( 三 ) 原始程式 Imports System.Net.Sockets Imports Advantech.Adam Public Class Form1 Private adammodbus As New AdamSocket Private m_adam6000type As Adam6000Type Dim a, b, c, d As Integer Dim r As Integer = 0 Dim j As Integer = 0 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False adammodbus.settimeout(1000, 1000, 1000) ' set timeout for TCP m_adam6000type = Adam6000Type.Adam6052 Private Sub ReadOutput() Dim bdidata(1) As Boolean If adammodbus.modbus().readcoilstatus(1, 3, bdidata) Then If bdidata(0) = False Then a = 1 : PictureBox1.Image = My.Resources. 高 If bdidata(1) = False Then b = 1 : PictureBox1.Image = My.Resources. 中 c = 1 : PictureBox1.Image = My.Resources. 低 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick ReadOutput() Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick ReadOutput() If a + c = 2 Then d = d + 1 a = c = 0 7

9 Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer3.Tick ReadOutput() If d >= j Then RadioButton1.Checked = True : d = 0 WebBrowser1.Navigate(" e=now&encoding=big5&mobile=" & TextBox2.Text & "&message= 漏水 &vldtme=3600") Private Sub Button1_Click( ) Handles Button1.Click ' 開始監控水塔 r = TextBox3.Text j = TextBox1.Text Timer1.Interval = 1000 Timer2.Interval = 5000 Timer3.Interval = r * Timer1.Enabled = True Timer2.Enabled = True Timer3.Enabled = True 'Connect to ADAM 6052 'txtip.text: " ", modbus slave IP address 'txtmodbusport.text:"502", modbus TCP port is 502 If adammodbus.connect(textbox4.text, ProtocolType.Tcp, Integer.Parse(TextBox5.Text)) Then MessageBox.Show("Connect " & TextBox4.Text) MessageBox.Show("Connect " & TextBox4.Text & " failed") End Class 叄結論一問題與討論 ( 一 ) 設計水位偵測電路時的注意事項我們原本使用 TTL 的 IC 來完成我們的電路, 但是由於電路的電流太小, 所以我們後來換成使用 CMOS 的 IC 來完成我們的電路就解決了問題 ( 二 ) 本系統優缺點探討優點 : 水位偵測電路已經有十幾年的歷史了, 但都必須在現場才能得知目前狀況, 有異常狀況時往往都只是斷電處理, 本研究卻使用 " 物連網 " 觀念, 讓使用者可從遠端得知現場狀況, 也提供自行設定監控參數及簡訊的及時通知, 使得監控變得更有彈性也更方便缺點 : 目前的設計只能針對單一家庭的水塔監控, 似乎有點大材小用, 應該擴大到整棟大樓或工廠更能發揮效益另外如果水塔有多隻出水管, 無法得知是哪一路水管有問題二未來研究建議 8

10 1. 增設可調整時段偵測的功能讓使用者可以避開洗澡或洗車那些大用水量的時間減少使用者在非必要時接到我們的錯誤簡訊, 造成使用者的困擾 2. 應該電力系統結合, 在必要時機關閉或開啟電源 3. 加上流量感測器, 讓有多隻出水管的水塔能精準得知是哪一路水管有問題肆引註資料莊利吉 (2011, 9 25) 一般教學網站:Windowe 程式設計 (VB 2008) 擷取自高雄高工莊利吉教學網站 : e=windows%e7%a8%8b%e5%bc%8f%e8%a8%ad%e8%a8%88(vb+2008)&webhomedi rectory=/textbook&directoryfilename=directory.txt 台灣簡訊 (2013) 台灣簡訊 TwSMS API 介面協定說明 4.0 版研華科技 ADVANTECH(2008) Adam.NET Class Library For Visual Studio.NET 2003 In stallation Guide 9

Visual Basic D 3D

Visual Basic D 3D Visual Basic 2008 2D 3D 6-1 6-1 - 6-2 - 06 6-2 STEP 1 5-2 (1) STEP 2 5-3 (2) - 6-3 - Visual Basic 2008 2D 3D STEP 3 User1 6-4 (3) STEP 4 User1 6-5 (4) - 6-4 - 06 STEP 5 6-6 (5) 6-3 6-3-1 (LoginForm) PictureBox1