RFID技术应用於防火建材管理资讯系统之研究-以防火门为例.doc

應用Excel VBA於 閉合導線計算之探討 李文貴 德霖技 E-Mail：@.tw 鄧鴻超 東南科技大學營建與空間設計系助理教授 hcteng@.tw 陳永泉 德霖技 E-Mail：cyc1130@ E-Mail：molie@.tw 摘要 關鍵字： 前言 題目概要 閉合導線是導線測量的其中一種，根據測量夾角和邊長，推算出平面坐標的測量，稱為導線測量。閉合導線就是已知一條邊，該段線條兩端之坐標已知，測量若干個邊長和夾角後又閉合到已知邊的測量方法，通過計算平差後，可計算得到經過的未知點平面坐標。 VBA程式設計應用於導線計算 輸入起始方位角 由於閉合導線必須要有起始方位角方能計算，而起始方位角很重要，因此設計輸入畫面讓使用者方便輸入，如圖1在空格度分秒內輸入起始邊方位角後按下”執行”鍵，馬上可得到計算結果。 圖1 輸入起始方位角畫面 計算導線點數 閉合導線測量工作表在使用VBA程式設計時，須考慮每次所測量導線點數可能均不同，因此設計時須考慮由程式自動判斷是否為最後一個點而停止迴圈開始運算，因此須設計自動判斷導線總共有幾個點，此部分可利用迴圈判斷是有數字還是空白儲存格，若是空白則迴圈停止，開始計算共有幾個導線點，因為是閉合導線所以有一個導線點就有一個折角，因此計算有幾個折角即可從而計算有幾個導線點，以作為下一步計算使用。 判斷有幾個導線點所使用的函數是IsEmpty，IsEmpty函數會傳回Boolean值，語法為IsEmpty(expression)其中必要引數expression是一個一個數值或字串運算式它通常是單一變數名稱，利用Do While Not IsEmpty(Cells(i， 2).Value)Cells(col，)中兩引數col及row分別代表欄位數及列數，例如Cells(1，)代表A1儲存格如圖2、3，Cells(2，) 代表A2儲存格，Cells(1，) 代表B1儲存格，Cells(i，2)配合迴圈使i 值累加直到發現B欄位為空白即停止計數，進而算出有幾個導線點，亦即利用判斷B欄若有數字即認為有一個導線點，而累計點數直至空白為止，可算出共有幾個導線點。 圖2導線計算表左半部 圖3導線計算表右半部 計算折角不符值fw 式(1)為方位角推算公式，由已知的方位角φAB推得下一個方向方位角φBC，β角為兩線段間的折角，下一個方向方位角求得後須判斷是否大於2π，若大於2π即須減去2π，利用加總各折角推算到最後又回到起始邊方位角，此時所計算得之起始邊方位角減去原起始邊方位角即為折角不符值fw。 ………………(1) 計算出有幾個導線點後即可利用各折角計算折角不符值fw， 所計算得之微小角度要以角度量度分秒方式表現如圖1之A9~D9，因此會使用Fix函數，int與Fix函數都會去掉 number 的小數部份而傳回剩下的整數，但只能用Fix而不能使用Int，兩個函數的不同之處在於，當number為負數時，Int 會傳回小於或等於 number 的第一個負整數，而 Fix 則會傳回大於或等於 number 的第一個負整數。例如，Int 將 -8.4 轉成 -9，而 Fix 則將 -8.4 轉成 -8，因此如果運用int函數將會產生錯誤，因此須使用fix函數。 應用deg = Fix (Application.Degrees (fw))式子將fw應用Application.Degrees函數轉換徑度量成為角度量以方便在工作表顯示，分的部分也差不多min = Fix((Application. Degrees(fw) - deg) * 60)，但要用fw先減去度(deg)再乘以60然後取fix整數部分作為”分”部份的數字，”秒”的部分sec = (Application. Degrees(fw) - deg - min / 60) * 3600，須先以fw減去度及分剩下的就是秒的部分，但是它的單位是度，要以乘上3600方式轉換成”秒” 的部分。 由於後面會計算縱橫距值而縱橫距值計算會用到sin以及cos函數，而該兩函數之角度必須帶入徑度量角度而非角度量，因此須用到Application.Degrees及Application.Radians兩函數，前者在於將徑度量轉換為角度量，而後者在於將角度量轉換為徑度量，例如273°45’06”要先轉換成273.7516667°再代入Application.Degrees函數，Application.Degrees (273.7516667°)=4.777867916， 該數字是徑度量，若要使用於坐標正算須要配合三角函數使用，如sin(4.777867916)=-0.9978570203，或是sin(Application.Degrees (273.7516667