第三章 量測平台
3.2 量測平台程式流程及設計
系統量測平台程式分為：開啟控制介面、停止量測、開始量測、時間元件、
儲存資料。在執行程式之前，必須掛載一個 hwinterface.ocx 的 activeX 元件至 VB 2005 內。作法為：VB 環境中選取工具→選擇工具箱項目→COM 元件→勾選 hwinterface control，之後在 VB 環境中才可以使用此
AxHwinterface 元件。PCI 8255 擷取卡使用 I/O port 與電腦作資料傳輸，要使用 PCI 8255 擷取卡之前，必須先找到它所佔用 I/O port 位址，其方法為：Windows 開 始功能表→設定→控制台→系統→硬體→裝置管理員→多功能介面卡→右鍵點 內容→資源。可找到它所用的位址為 D400h~D40Fh(PCI8255 擷取卡會自動指定 I/O 位址，當介面卡有拔插動作，就會有所改變)。
1. 開啟控制介面：圖3-14 為程式控制介面。開啟控制介面，傳送設定值 82h 至Port D403h，設定 PCI 8255 輸入埠，其流程如圖 3-15。程式如圖 3-16。
圖3-14 測平台程式控制介面
圖3-16 Form1_ Load 程式
2. 停止量測：關掉 timer1 元件，使不再觸發 timer 事件，停止抓取數值，流程 如圖3-17 所示。程式如圖 3-18。
圖3-17 停止量測流程圖
圖3-18 停止量測程式
3. 開始量測：判斷"時間間隔"輸入框內的資料為正整數。如果是，就往下執行 量測點數；如果不是，顯示錯誤訊息框。判斷"量測點數"輸入框內的資料為 正整數，如果是，就執行，依照設定的timer 間隔開始量測；如果不是，顯
隔、量測點數輸入值，因Windows 為多工元件，在 VB 內 Timer 元件的輸 入時間間隔誤差量過大，僅可作為參考值，故設定此時系統開機到現在的 毫秒數為t2，開啟timer1 元件，開始量測數據，流程如圖 3-19 所示，程式 如圖3-20。
圖3-20 開始量測程式
4. 時間元件：圖3-21 為 timer1 元件流程，設定此時系統開機到現在的毫秒數 為t1，給ADC0804 的腳位 3(WR)一個脈衝訊號啟動轉換資料，等一毫秒 (1ms)，讓轉換資料完成。從第一個 port (D401h)讀取數值，放進 measure_data
陣列。每次執行完就會設為前一次的t1，所以這一次的執行時間－前一次
的執行時間，就等於兩次之間的間隔時間，此數值並非為固定值，為 timer1 的準確時間間隔。count 累加，這樣每次資料放進陣列才會放到下一格。判 斷 count 等於 measure_amount 數值時，量測點數已足夠，
save_data.Focus()，模擬按下 save_data 按鈕，也就是呼叫 save_data_Click()，
反之繼續量測。程式如圖3-22。
圖3-21 時間元件流程圖
圖3-22 時間元件程式
5. 儲存資料（save data）：圖 3-23 為儲存資料流程，設定宣告 f 為 fileinfo 檔 案物件，介紹FileInfo 類別，這個類別提供了許多關於檔案操作的屬性與方 法。例如，檔案的建立、複製、移動和開啟等。FileInfo 類別是位於 System.IO 命名空間，所以使用前記得作以下的宣告Using System.IO。此建構子接受 一個String 型別的檔案名稱參數，來初始化 FileInfo 類別的新執行個體。例 如：C:\Documents and Settings\Donna1122\桌面\bbb.txt。宣告 sw 為
streamwriter 物件(用來寫入循序檔)，建立 .txt 檔，產生對應的文字檔供 sw 寫入。Create 建立新檔案。當以建構子建立一個 FileInfo 類別的物件時, 檔 案事實上並未被建立，此時必須呼叫Create 方法來建立一新檔案，其傳回 值為一FileStream 類別的物件，可利用此傳回值來對檔案作讀取式寫入的操
作，敘述可為sw 物件建立一新檔案。提供一個高階的檔案寫入類別
StreamWriter，可傳送資料型別有 double、float 及 string 等。建構子需傳入 兩個參數來初始化StreamWriter 類別的執行個體，第一個參數可接受一個 Stream 類別或其延伸類別的物件作為要寫入的資料串流，第二個參數是指 定所要使用的字元編碼。此外Encoding 類別屬於 System.Text 命名空間，
記得要在程式開頭宣告using System.Text。Write 將資料寫入串流中。Write
方法共有17 種多載，每一個多載都是為了要寫入不同的資料型別所設計，
案，儲存資料（save data）程式設計如圖 3-24。
圖3-23 儲存資料流程圖
圖3-24 儲存資料（save data）程式
第四章 實驗與討論
4.1 系統實際測試
本實驗拿取猪肉當實驗品，在猪肉上切取一個長 12cm、寬 4.5cm、深度 3cm 的傷口如圖 4-1 所示。
圖4-1 傷口
於傷口上灑小細砂、小碎石、泥土，以模擬患者受創時污染的傷口如圖 4-2。
圖4-2 污染的傷口
圖 4-3 至 4-22 為各種壓力沖灌傷口，測試脈衝式灌洗的差異。在定量 500ml
的食鹽水下，選定沖灌頻率6Hz，採用垂直式沖灌，依不同的沖灌強度進行灌洗
傷口，觀察沖灌完後傷口作比較。
1. 脈衝式灌洗(On 100％、Off 0％)：以 500ml 食鹽水下，經 0.25 秒後，輸出 達穩定壓力18.4(psi)，如圖 4-3 所示，灌洗傷口時，流量較大 20.8mlsec， 造成深的傷口處積水，灌洗時在傷口深處形成多餘旋渦抵銷沖擊力，難以 把最深處的細沙清洗出來，如圖 4-4。
圖4-3 脈衝式灌洗(On 100%)壓力圖
圖 4-4 脈衝式灌洗(On 100%)灌洗傷口後情況
2. 脈衝式灌洗(On 90%，Off 10%)：以 500ml 食鹽水下，經 0.28 秒後，輸出達 穩定壓力範圍14.5~18.4(psi)，如圖 4-5 所示，灌洗傷口時，流量為
17.2mlsec，較小於On 100%之脈衝式灌洗，造成傷口處積水也較小，清洗 最\深處的細沙效果最好，如圖 4-6。
圖4-5 脈衝式灌洗(On 90％，Off 10%)壓力圖
圖4-6 脈衝式灌洗(On 90%，Off 10%)傷口後情況
3. 脈衝式灌洗(On 80%，Off 20%)：以 500ml 食鹽水下，經 0.313 秒後，輸出 達穩定壓力範圍12.8~16.8(psi)，如圖 4-7 所示，灌洗傷口時，流量為 15.6mlsec，較小於On 90%之脈衝式灌洗，灌洗時在傷口深處形成多餘旋
渦抵銷沖擊力，難以把最深處的細沙清洗出來，如圖4-8。
圖4-7 脈衝式灌洗(On 80%，Off 20%)壓力圖
圖4-8 脈衝式灌洗(On 80%，Off 20%)傷口後情況
4. 脈衝式灌洗(On 70%，Off 30%)：以 500ml 食鹽水下，經 0.328 秒後，輸出 達穩定壓力範圍9.2~15.8(psi)，如圖 4-9 所示，灌洗傷口時，流量為
14.7mlsec，較小於On 80%之脈衝式灌洗，灌洗時在傷口深處形成多餘旋 渦抵銷沖擊力，清洗最深處的細沙較難，如圖4-10。
圖4-9 脈衝式灌洗(On 70%，Off 30%)壓力圖
圖4-10 脈衝式灌洗(On 70%，Off 30%)傷口後情況
5. 脈衝式灌洗(On 60%，Off 40%)：以 500ml 食鹽水下，經 0.328 秒後，輸出 達穩定壓力範圍6.5~13(psi)，如圖 4-11 所示，灌洗傷口時，流量為
13.5mlsec，較小於On 70%之脈衝式灌洗，灌洗時在傷口深處形成多餘旋 渦抵銷沖擊力，難以清洗深處的細沙，如圖4-12。
圖4-11 脈衝式灌洗(On 60%，Off 40%)壓力圖
圖4-12 脈衝式灌洗(On 60%，Off 40%)傷口後情況
6. 脈衝式灌洗(On 50%，Off 50%)：以 500ml 食鹽水下，經 0.375 秒後，輸出 達穩定壓力範圍4.2~11(psi)，如圖 4-13 所示，灌洗傷口時，流量為
12.8mlsec，較小於On 60%之脈衝式灌洗，灌洗時在傷口深處形成多餘旋 渦抵銷沖擊力，難以清洗深處的細沙，如圖4-14。
圖4-13 脈衝式灌洗(On 50%，Off 50%)壓力圖
圖4-14 脈衝式灌洗(On 50%，Off 50%)傷口後情況
7. 脈衝式灌洗(On 40%，Off 60%)：以 500ml 食鹽水下，經 0.125 秒後，輸出 達穩定壓力範圍6~10(psi)，如圖 4-15 所示，灌洗傷口時，流量為
10.86mlsec，較小於On 50%之脈衝式灌洗，沖擊力明顯地小很多，傷口表
面的細沙可以清洗，但難以清洗深處會開始殘留細沙及小碎石，如圖4-16。
圖4-15 脈衝式灌洗(On 40%，Off 60%)壓力圖
圖4-16 脈衝式灌洗(On 40%，Off 60%)傷口後情況
8. 脈衝式灌洗(On 30%，Off 70%)：以 500ml 食鹽水下，經 0.582 秒後，輸出 達穩定壓力範圍為4.5~8(psi)，如圖 4-17 所示，灌洗傷口時，流量為 9mlsec，
較小於On 40%之脈衝式灌洗，沖擊力明顯地小很多，傷口表面的細沙可以
清洗，但難以清洗深處會殘留越多細沙及小碎石，如圖4-18。
圖4-17 脈衝式灌洗(On 30%，Off 70%)壓力圖
圖4-18 脈衝式灌洗(On 30%，Off 70%)傷口後情況
9. 脈衝式灌洗(On 20%，Off 80%)：以 500ml 食鹽水下，灌洗已經沒有明確的 脈衝，輸出達穩定壓力範圍4~5(psi)，如圖 4-19 所示，灌洗傷口時，流量 為7.14mlsec，較小於On 40%之脈衝式灌洗，沖擊力明顯地小很多，傷口 表面的細沙有點難沖，而深處已經無法清洗殘留許多細沙及小碎石，如圖 4-20。
圖4-19 脈衝式灌洗(On 20%，Off 80%)壓力圖
圖4-20 脈衝式灌洗(On 20%，Off 80%)傷口後情況
10. 脈衝式灌洗(On 10%，Off 90%)：以500ml食鹽水下，灌洗已經沒有明確的脈 衝，輸出達穩定壓力範圍1.5~3(psi)，如圖4-21所示，灌洗傷口時，流量 6.09mlsec沖擊力，殘留許多細沙及小碎石，如圖4-22。
圖4-21 脈衝式灌洗(On 10%，Off 90%)壓力圖
圖4-22 脈衝式灌洗(On 10%，Off 90%)傷口後情況
4.2 實驗結論
在定量500ml的食鹽水下，選定沖灌頻率為6Hz，依不同的沖灌強度進行灌 洗傷口實驗。發覺(On 100％、Off 0％)壓力最大，但流量也最大，沖灌傷口時，
造成傷口深處大量積水，讓深處的細沙難以清潔，而殘留部分在傷口深處，發覺 以(On 90％，Off 10％)之壓力沖灌實驗傷口其深處效果最好，而(On 80％~On 60
％)之壓力對於沖灌實驗傷口深處效果次級，然(On 50％~On 30％)就開始無法有
第五章 結論與未來展望
灌實驗傷口深處效果次級，然(On 50％~On 30％)就開始無法有效沖灌傷口深處，
參考文獻
[1] Kathleen A Luedtke-Hoffmann and D Sue,“Pulsed Lavage in Wound Cleansing”,The Free Library ,3, March 2000。
[2] http://zh.wikibooks.org/wiki/%E6%95%97%E8%A1%80%E7%97%87。
[3] Angus DC,Linde-Zwirble WT,Lidicker J,et al,”Epidemiology of severe sepsis in the United States: Analysis of incidence, outcome, and associated costs of care”,Crit Care Med. 2001;29(7):1303-1310。
[4] Gross A,Bhaskar SN,Cutright DE,”The effect of pulsating water jet lavge on experimental contaminated wounds”,J Oral Surg,1971 Mar;29(3):187-90。
[5] Keblish,David J,”Early pulsatile lavage for the decontamination of combat wounds: Historical review and point proposal”, Military Medicine. Dec 1998.
FindArticles.com,11 Jun. 2008。
[6] Mark S.Granick,MD,”Feature：Comparison of Wound Irrigation and
Tangential Hydrodissection in Bacterial Clearance of Contaminated Wounds：
Results of a Randomized Controlled Clinical Study”,April /2007。
[7]Rockville MD,US Dept. of Health & Human Services; Agency of Health Care Policy and Research, Treatment of Pressure Ulcers, , December, 1994
[8]http://www.stryker.co.uk/index/st_pag_medic-home/uk_pag_detailed-prod-info/
uk_p g_surg-acces/uk_pag_surg-acces-interpulse.htm
[9] “BASIC Stamp Manual”, Version 2.0c, Parallax Inc., 2000。
[10]戴建耘、詹政忠，電子學入門，全華圖書股份有限公司，民國 84 年 4 月。
[11]陳朝光、王明庸、黃泰翔，機械設計製圖之電動絞車、變速齒輪箱、泵、
往復式壓縮機，高立圖書有限公司，民國 85 年 5 月 10 日。
[12]許佩佩，”應變規試驗講義”，義守大學機械與自動化工程，民國 96 年
[13]”喆瑞科技電子式推拉力計操作手冊”，民國 94 年 03 月
[14]陳陳明明周周，，徐徐業業良良，”最佳化設計實驗室音訊放大器 LM386 簡介”，民國 94 年 04 月。
[15]許永和，”介面設計與實習－使用 Visual Basic”，全華圖書股份有限公司，
民國 94 年 5 月。
附錄 A
清潔傷口作動程式
' {$STAMP BS2}
' {$PBASIC 2.5}
time VAR Word order VAR Word pressure VAR Word frequency VAR Word
OUTD = %0000 ' OUTH initialized to low.
DIRD = %1111 ' Set P11-P15 to all output-low.
OUTC = %0000 ' OUTH initialized to low.
DIRC = %1111 ' Set P11-P15 to all output-low.
frequency=0
startfrequency=0
PAUSE (6*1/frequency)/10)
附錄 B
AD 轉換程式
Imports System.io Public Class Form1
Inherits System.Windows.Forms.Form
Friend WithEvents AxHwinterface1 As AxHWINTERFACELib.AxHwinterface Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents 量測點數As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxHwinterface1.OutPort(base3, &H82S) count = 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
t1 = Environment.TickCount()
AxHwinterface1.OutPort(pcibaseport, &H0S)
AxHwinterface1.OutPort(pcibaseport, &H1S) '由0 -> 1 開始轉換 System.Threading.Thread.Sleep(1) '等待轉換結束 measure_data(count) = AxHwinterface1.InPort(base1) '讀取資料
save_data.Focus() System.EventArgs) Handles 開始量測.Click
If (IsNumeric(TextBox2.Text)) Then System.EventArgs) Handles 停止量測.Click
Timer1.Enabled = False End Sub
Private Sub save_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_data.Click
Dim i As Integer
Next sw.Flush() sw.Close()
End Sub End Class