【正文】 .Y2 = .Y1 + + 100 .ZOrder 0 End With ml3 = mSize3 / 200 End Sub Private Sub menuColorBack_Click() Dim cc As ChooseColor = Len(cc) = = = 0 = String$(16 * 4, 0) 聊城大學本科畢業(yè)論文 26 rtn = ChooseColor(cc) If rtn = 1 Then mColor1 = fPaint End If End Sub Private Sub menuColorfore_Click() Dim cc As ChooseColor = Len(cc) = = = 0 = String$(16 * 4, 0) rtn = ChooseColor(cc) If rtn = 1 Then mColor2 = fPaint End If End Sub Private Sub menuColorfore2_Click() Dim cc As ChooseColor = Len(cc) = = 聊城大學本科畢業(yè)論文 27 = 0 = String$(16 * 4, 0) rtn = ChooseColor(cc) If rtn = 1 Then mColor4 = fPaint End If End Sub Private Sub menuColorKedz_Click() Dim cc As ChooseColor = Len(cc) = = = 0 = String$(16 * 4, 0) rtn = ChooseColor(cc) If rtn = 1 Then mColor3 = fPaint End If End Sub Private Sub menuExitOK_Click() End 聊城大學本科畢業(yè)論文 28 End Sub Private Sub menuSizeYib_Click() vbModal, Me fPaint End Sub Private Sub tim1_Timer() With lin2 ml1 = .X1 ml3 .X1 = ml1 .X2 = .X1 End With If Abs(Abs(ml1 ml2) ml3) ml3 * 2 Then = 50 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 4 Then = 40 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 6 Then = 30 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 8 Then = 20 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 10 Then = 10 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 12 Then = 5 聊城大學本科畢業(yè)論文 29 End If If Abs(ml1 ml2) ml3 Then = False dus End If End Sub Private Sub tim2_Timer() With lin2 ml1 = ml1 + ml3 .X1 = ml1 .X2 = .X1 End With If Abs(Abs(ml1 ml2) ml3) ml3 * 2 Then = 50 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 4 Then = 40 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 6 Then = 30 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 8 Then = 20 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 10 Then = 10 End If If Abs(Abs(ml1 ml2) ml3) ml3 * 12 Then = 5 聊城大學本科畢業(yè)論文 30 End If If Abs(ml1 ml2) ml3 Then = False dus End If End Sub Private Sub dus() = True = False = True = True mShij1 = timeGetTime End Sub 聊城大學本科畢業(yè)論文 31 4. 水平形儀表程序改進建議 水平形儀表程序的不足 通過對水平形儀表認讀速度、誤讀率程序的運行及分析， 發(fā)現(xiàn) 依然存在許多不足，主要有以下幾點： ①水平形儀表的指針形狀不能根據(jù)需要更換，例如程序設計中沒有設計將儀表的形狀有矩形指針換成三角形指針等形狀； ②水平形儀表刻度的量程固定不變，刻度類型單一，沒有設計雙刻度線、速增式刻度線兩種類型； ③水平形儀表實驗參數(shù)較少，例如，只能測量認讀速度、誤讀率、平均認讀時間的參數(shù)，沒有設計第幾次測試的參數(shù)； ④水平形儀表的形 狀大小不能根據(jù)比例變換，只能固定值，不能根據(jù)需要隨意變換大?。? ⑤空間布局不美觀。 同時還要謝謝我 的同學們， 一個人勢單力薄 ， 要完成這樣一個復雜的 程序， 沒有大家的通力合作 ， 顯然不太現(xiàn)實 。 聊城大學本科畢業(yè)論文 33 參考文獻 ［ 1］廖可兵 .安全人機工程學 .北京 :煤炭工業(yè)出版社 ,2021年 7月 .127～ 137 ［ 2］謝慶森、王秉權(quán) .安全人機工程 .天津 :天津大學出版社 .1999年 3月 .27～ 36 ［ 3］顏聲遠 .人機工程與產(chǎn)品設計 .哈爾濱 :哈爾濱工程大學出版社 .2021年 1月 . 53～ 57 ［ 4］袁修干 .人機工程 .北京 :北京航空 航天大學出版社 .2021 年 .23～ 89 ［ 5］丁玉蘭 .人機工程學 .北京 :北京理工大學出版社 .1992 年 .45～ 63 ［ 6］劉加海 .C語言程序設計 .教育技術(shù)資訊 ,2021年 4月 .56～ 69 ［ 7］ Paul S. R. 語言編程常見問題解答 .北京：清華大學出版社 .1996年 12月 .31～ 96 ［ 8］劉瑞挺 .計算機二級教程 .天津：南開大學出版社 .1996年 10月 .58～ 69 ［ 9］陳朔鷹 .C語言程序設計基礎教程，兵器工業(yè)出版社， 1994， 4（ 2）： 45～ 96 ［ 10］姜仲秋 .C語言程序設計 .南京：南京大學出版社 .1998年 1月 .3～ 41 ［ 11］譚浩強 .C程序設計（第二版 ).清華大學出版社， 1999,4(2):23～ 26 ［ 12］朱進 .面向?qū)ο笤O計模式的 C語言實現(xiàn) .微機發(fā)展 ,2021,20(3):3～ 7 ［ 13］夏冬星 .LabVIEW與 C語言數(shù)據(jù)存儲格式轉(zhuǎn)換 .工業(yè)控制計算機 ,2021,21(1):12～ 17 ［ 14］王文東 .匯編語言與 C語言的混合程序設計技術(shù) .計算機技術(shù)與發(fā)展 , 2021, 4(1):2～ 5 ［ 15］林蔭、柴瑋 .C語言的進制轉(zhuǎn)換分析 .當代教育實踐與教學研究 ,2021,10（ 4)： 6～ 8 聊城大學本科畢業(yè)論文 34 致 謝 感謝 孟 老師的無私奉獻 ！感謝孟老 師在我的設計過程中給予 我的幫助及建議，為我指明了方向 ， 避免了走彎路的可能 。 Format(mCuo / (mDui + mCuo), %) mShij = mShij + (mShij2 mShij1) = 平均認讀時間： amp。False Strikethrough = 0 39。H80000007amp。False Interval = 50 聊城大學本科畢業(yè)論文 12 Left = 3120 Top = 2280 End Begin cmdReset Caption = 測試重置 Height = 375 Left = 1320 TabIndex = 8 Top = 1800 Width = 1065 End Begin cmdPand Caption = 確認 Enabled = 0 39。 按照上述要求，運用人機工程原理，設計 了水平形儀表認讀速度、誤讀率測試程序。這種結(jié)構(gòu)化方式可使程序?qū)哟吻逦阌谑褂?、維護以及調(diào)試。 C 語言一共只有 32 個關(guān)鍵詞 ,9 種控制語句，程序書寫形式自由，主要用小寫字母表示。 ；遠距離觀察時，可取 ～ ，精度高的測量刻度線取 ～ 。因此儀表設計中應該考慮這些因素，只有考慮這些因素才能提高認讀速度?？潭缺P的最佳直徑與監(jiān)控者的視角有關(guān)，實驗表明，最佳視角為 176。 本文運用人機工程學的基本原理和理論，對水平形儀表認讀速度、誤讀率的影響進行了研究。除文中已經(jīng)引用的內(nèi)容外，論文中不包含其他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得聊城大學或其他教育機構(gòu)的學位證書而使用過的材料。第三章是水平形儀表程序設計代碼。在視距一 定的情況下，刻度盤直徑也是影響水平形儀表認讀速度的重要因素。刻度盤形狀的選擇主要根據(jù)顯示方式和人的視覺特性。 （ 4）儀表顏色設計。（ 2）運算符豐富。雖然 C 語言也是強類