【正文】
文件有五種形式,分別是3種Excel表格和2種txt文本,這里主要是對輸出格式進行設置,采用VBA設計時調用各個變量和數組中的數據,逐次打印,最后輸出水準概算表。 ,。 ,。 Left(Ctime(1), 2) amp。綜合以上詳細闡述,高精度電子水準儀觀測數據處理軟件基本上實現了電子水準儀內外業(yè)一體化,提高了電子水準儀原始觀測數據處理的精度和可靠性,加快了原始觀測數據處理的速度,增加了水準觀測數據處理成果形式,方便了水準測量人員的內業(yè)處理工作,降低了大批量水準數據管理的難度,加強了電子水準儀原始觀測數據處理的靈活性,在實踐中有使用價值。 軟件成果顯示和輸出圖5是軟件界面上顯示的經過一系列處理后的電子水準儀觀測手簿,其中顯示了粗差和超限部分(以綠色背景表示),各個測段處理結果,通過下拉滾動條還可以翻看其他測段的處理結果。 ,。 ,。 \ For Output As 3Do While Not EOF(1) Line Input 1, line ’一行一行讀取文件中的數據 i = 0 m = 0 For j = 1 To 6 m = InStr(m + 1, line, =) If m 0 Then i = i + 1軟件界面如圖1所示。電子水準儀自動記錄數據,速度快,精度高,讀數客觀,實現了水準測量的數字化,自動化。但是電子水準儀的品牌不同,其下載下來的原始觀測文件格式各不相同,且原始觀測文件格式比較復雜,不符合國內規(guī)范要求,對水準測量處理造成了一定的困難。在讀取數據之前需要設置各種參數,如測量儀器,測量等級與文件導出格式,設計界面如圖 3所示。 Next j If i = 6 Then’讀取水準觀測開始與結束時間 FirTime(c) = Right(line, 10) FirTime(c) = Mid(FirTime(c), 3, 2) amp。 FD1(j)。 FC1(j)。3 主要特點(1)高精度電子水準儀觀測數據處理軟件滿足了水準測量中處理多種電子水準儀原始觀測數據的需要,生成的成果文件整齊,規(guī)范,便于讀取。(3)軟件界面美觀,完整,操作人性化,用戶只需點擊幾個菜單或工具欄按鈕即可完成整個水準測量數據處理的過程,高效,方便,簡潔。 FC2(j) Next j FirTime(c) = FirTime(c) amp。 FD2(j)。 Mid(FirTime(c), 9, 2) LasTime(c) = FirTime(c) End If m = 0 K = 0’循環(huán)記錄需要提取數據的準確位置 For j = 1 To 6 m = InStr(m + 1, line, ,) If m 0 Then K = K + 1 If K = 1 Then k1 = m If K = 2 Then k2 = m If K = 3 Then k3 = m If K = 4 Then k4 = m If K = 5 Then k5 = m If K = 6 Then k6 = m Next j’開始循環(huán)讀取各測段中指定位置的有效測站數據,如前距,后