水平形儀表對認(rèn)讀速度、誤讀率影響的程序設(shè)計-畢業(yè)論文

1、<p><b>　　本科畢業(yè)論文</b></p><p>　　題 目 水平形儀表認(rèn)讀速度、誤讀率 </p><p>　　的程序設(shè)計 </p><p>　　專 業(yè) 安全工程 </p><p>　　作者姓名 李宗慶 </

2、p><p>　　學(xué) 號 2012201586 </p><p>　　單 位 物理科學(xué)與信息工程學(xué)院 </p><p>　　指導(dǎo)教師 孟現(xiàn)柱 </p><p>　　2016 年 5 月</p><p><b>　　教務(wù)處編</b>&l

3、t;/p><p><b>　　原創(chuàng)性聲明</b></p><p>　　本人鄭重聲明：所提交的學(xué)位論文是本人在導(dǎo)師指導(dǎo)下，獨立進(jìn)行研究取得的成果。除文中已經(jīng)引用的內(nèi)容外，論文中不包含其他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得聊城大學(xué)或其他教育機構(gòu)的學(xué)位證書而使用過的材料。對本文的研究作出重要貢獻(xiàn)的個人和集體，均在文中以明確的方式表明。本人承擔(dān)本聲明的相應(yīng)責(zé)任。<

4、/p><p>　　學(xué)位論文作者簽名： 日期： </p><p>　　指 導(dǎo) 教 師 簽 名: 日期： </p><p><b>　　目 錄</b></p><p><b>　　前 言1</b>&l

5、t;/p><p>　　1.水平形儀表簡介2</p><p>　　1.1水平形儀表簡介2</p><p>　　1.2水平形儀表特點3</p><p>　　1.3影響水平形儀表認(rèn)讀速度的因素3</p><p>　　1.4影響水平形儀表誤讀率的因素4</p><p>　　2.水平形儀表程序設(shè)計思

6、路6</p><p>　　2.1 C++軟件簡介6</p><p>　　2.1.1 C++編程開發(fā)6</p><p>　　2.1.2 C++語言優(yōu)缺點6</p><p>　　2.2程序設(shè)計目的7</p><p>　　2.3程序設(shè)計要求7</p><p><b>　　2.4程

7、序設(shè)計7</b></p><p>　　3. 水平形儀表程序設(shè)計代碼10</p><p>　　4. 水平形儀表程序改進(jìn)建議30</p><p>　　4.1 水平形儀表程序的不足30</p><p>　　4.2 水平形儀表程序改進(jìn)建議30</p><p><b>　　結(jié) 論31</b

8、></p><p><b>　　參考文獻(xiàn)32</b></p><p><b>　　致 謝33</b></p><p><b>　　摘 要</b></p><p>　　本文運用人機工程學(xué)的基本原理和理論，對水平形儀表對認(rèn)讀速度、誤讀率的影響進(jìn)行了研究。第一章是水平形儀

9、表簡介。第二章是水平形儀表程序設(shè)計思路。第三章是水平形儀表程序設(shè)計代碼。第四章是水平形儀表程序改進(jìn)建議。</p><p>　　關(guān)鍵詞：水平形儀表；人機工程學(xué)；調(diào)查與分析</p><p><b>　　Abstract</b></p><p>　　Based on basic principles and theories of ergonomic

10、s,the influence of the horizontal instrument on the reading speed and the misreading rate is investigated. In part one，the chapter is a brief introduction of horizontal instruments.In part two, the chapter is the design

11、of the horizontal instrument program.In part three,the chapter is the horizontal instrument program design code.In part four, the chapter is the suggestion of the improvement of the horizontal instrument program.</p&g

12、t;<p>　　Key words: Horizontal instrument; Investigation and analysis；Ergonomics</p><p>　　水平形儀表認(rèn)讀速度、誤讀率的程序設(shè)計</p><p><b>　　前 言</b></p><p><b>　　1課題的提出</b>

13、;</p><p>　　水平形儀表在生活和工業(yè)生產(chǎn)領(lǐng)域應(yīng)用比較廣泛，本課題通過人們對水平形儀表的操作獲得認(rèn)讀時間、誤讀率的數(shù)據(jù)，通過數(shù)據(jù)的分析，從而得出影響認(rèn)讀速度、誤讀率的影響因素。因此，本課題的意義在于通過水平形儀表認(rèn)讀速度、誤讀率進(jìn)行程序設(shè)計，可以加深人們對水平形儀表的認(rèn)識與了解，更有助于人們運用人機工程學(xué)的原理改進(jìn)水平形儀表的設(shè)計，進(jìn)而提高認(rèn)讀速度，降低誤讀率，減少生活和工業(yè)生產(chǎn)等領(lǐng)域事故的發(fā)生。<

14、/p><p><b>　　2國內(nèi)外研究現(xiàn)狀</b></p><p>　　通過檢索相關(guān)文獻(xiàn)，目前對水平形儀表認(rèn)讀速度、誤讀率的程序設(shè)計的研究很少，大部分文獻(xiàn)都是從安全的角度和著眼點，運用人機工程學(xué)的原理和方法去解決人機結(jié)合面的安全問題，最終獲得最高的工作效率和作業(yè)時的安全和舒適的內(nèi)容。</p><p><b>　　3研究內(nèi)容</b&g

15、t;</p><p>　　本論文在編寫的過程中注意到：科學(xué)性、知識性、普及性和實用性相結(jié)合；理論與實踐相結(jié)合；按照從感性到理性、從具體到抽象、由淺入深個的認(rèn)識規(guī)律出發(fā)，選擇材料，完成編寫工作。</p><p>　　本文運用人機工程學(xué)的基本原理和理論，對水平形儀表認(rèn)讀速度、誤讀率的影響進(jìn)行了研究。論文共分四章，其中第一章是水平形儀表簡介。第二章是水平形儀表程序設(shè)計思路。第三章是水平形儀表程序

16、設(shè)計代碼。第四章是水平形儀表程序改進(jìn)建議。</p><p><b>　　1.水平形儀表簡介</b></p><p>　　1.1水平形儀表簡介</p><p>　　水平形儀表主要與各類傳感器、變送器配合使用，實現(xiàn)對溫度、壓力、液位、容量、力等物理量的測量和顯示，并配合各種執(zhí)行器對電加熱設(shè)備和電磁、電動閥門進(jìn)行PID調(diào)節(jié)和控制、報警控制，數(shù)據(jù)采集和

17、記錄。雖然水平形儀表應(yīng)用很少，但水平形儀表在生活、生產(chǎn)中依然有著重要的作用，例如：機械磅、游標(biāo)卡尺、收音機、標(biāo)尺等儀器設(shè)備的數(shù)值顯示部分都是水平形儀表。</p><p>　　圖1機械磅秤圖 圖2游標(biāo)卡尺</p><p>　　圖3收音機 圖4標(biāo)尺</p><p>　　1.2水

18、平形儀表特點 </p><p>　　水平形儀表是用指針指示數(shù)值來顯示機器有關(guān)參數(shù)和狀態(tài)的視覺顯示裝置。其特點是顯示的信息形象化、直觀，使人對指示數(shù)值在全量程范圍內(nèi)所處的位置一目了然，并能給出偏差量，監(jiān)控作業(yè)效果很好。</p><p>　　其中認(rèn)讀速度、誤讀率是水平形儀表的兩個重要參數(shù)，通過對水平形儀表認(rèn)讀速度、誤讀率的調(diào)查與人機學(xué)分析，可以有效提高對水平形儀表的認(rèn)讀速度，降低誤讀率，達(dá)到

19、更好的人機配合的目的。</p><p>　　1.3影響水平形儀表認(rèn)讀速度的因素</p><p>　　通過調(diào)查與人機學(xué)分析，影響水平形儀表認(rèn)讀速度的因素主要有刻度盤的大小、字符設(shè)計、自身結(jié)構(gòu)因素等。</p><p>　　（1）刻度盤的大小?？潭缺P的大小對儀表的認(rèn)讀速度和精度有很大的影響，且取決于盤上標(biāo)記的數(shù)量和觀察距離。以水平形刻度盤為例，當(dāng)盤上標(biāo)記數(shù)量過多時，為了提

20、高清晰度，須相應(yīng)增大刻度盤。但是這將增加眼睛的掃描路線和儀表占用面積。而縮小刻度盤又會是標(biāo)記密集不清晰，從而影響認(rèn)讀速度?？潭缺P的最佳直徑與監(jiān)控者的視角有關(guān)，實驗表明，最佳視角為2.5°～5°。故當(dāng)確定了觀察者與顯示器之間的視距后，即可算出刻度的最佳尺寸。在視距一定的情況下，刻度盤直徑也是影響水平形儀表認(rèn)讀速度的重要因素。懷特（W·J·white）在視距為75cm的情況下，將直徑為25毫米，44毫

21、米和70毫米的指示儀表，安裝在儀表板上進(jìn)行可讀性測驗，結(jié)果如圖表1。</p><p><b>　　表1</b></p><p>　　（2）字符設(shè)計。儀表刻度盤上印刻的數(shù)字、字母、漢字和一些專用的符號，統(tǒng)稱為字符。由于刻度的功能通過字符加以完備，字符的形狀、大小和立位又直接影響著識讀效率，因此，字符的設(shè)計應(yīng)力求能清晰地顯示信息，給人以深刻的印象，提高認(rèn)讀速度。</

22、p><p>　?。?）自身結(jié)構(gòu)因素。由于水平形指針式儀表不是數(shù)字信號，不能被采集到計算機系統(tǒng)，并且傳統(tǒng)采集儀表的讀數(shù)是采用人工判讀的方法，并且勞動強度相對較大、判讀誤差較大等問題，其主要原因是水平形指針式儀表的圖像和非指針式圖像相比，結(jié)構(gòu)簡單，主要對象為線狀的指針和數(shù)字標(biāo)碼。通常儀表的刻度值都是均勻分布的，并且表盤中只有一個指針，所以通過檢測出指針并根據(jù)指針的偏轉(zhuǎn)角度可以出判斷指針的讀數(shù)。為降低讀取難度和計算量，提高

23、系統(tǒng)的實時性，可以根據(jù)儀表指針運動的趨勢進(jìn)行預(yù)算。這樣就可以在一定程度上提高水平形儀表的認(rèn)讀速度。</p><p>　　綜上所述，刻度盤的大小、字符設(shè)計、自身結(jié)構(gòu)等因素都影響認(rèn)讀速度。因此儀表設(shè)計中應(yīng)該考慮這些因素，只有考慮這些因素才能提高認(rèn)讀速度。</p><p>　　1.4影響水平形儀表誤讀率的因素</p><p>　　通過調(diào)查與人機學(xué)分析，影響水平形儀表誤讀率

24、的因素主要有刻度盤的形狀、刻度大小、刻度線粗細(xì)及長度、儀表顏色設(shè)計等。</p><p>　　（1）刻度盤的形狀?？潭缺P形狀的選擇主要根據(jù)顯示方式和人的視覺特性。實驗研究表明，不同形狀刻度盤的誤讀率不同。其中在誤讀率方面，開窗型，由于指針不動，刻度盤動，窗中的數(shù)字易讀，其誤讀率最?。幌喾?，圓型，半圓型，由于需在儀表中尋找和確認(rèn)指針的位置，所以在較短的揭示時間內(nèi)比開窗型的誤讀率高；水平型和豎直型由于尋找指針位置最費時

25、間，故誤讀率最高；水平型相比豎直型的誤讀率低，是因為眼球的水平運動快。</p><p>　　（2）刻度大小。刻度盤上最小刻度線間的距離稱為刻度。而當(dāng)刻度盤上的刻太過于密集就會容易使認(rèn)讀出現(xiàn)錯誤，過疏會使中間插值估計不準(zhǔn)。刻度的大小可根據(jù)人眼的最小分辨能力和刻度盤的材料性質(zhì)及視距而確定，而常見的有單刻度線、雙刻度線、遞增式刻度線。單刻度線和雙刻度線是有認(rèn)讀方面的差異的。單刻度線、雙刻度線便于認(rèn)讀和記憶;遞增式刻度線

26、有利于避免反向認(rèn)讀的差錯。</p><p>　?。?）刻度線粗細(xì)及長度?？潭染€的寬度即刻度線的粗細(xì) 刻度線的寬度取決于刻度的大小，當(dāng)刻度線寬度為刻度的10％左右時，讀數(shù)的誤差最小。故刻度線寬度一般取刻度的5％～15％，普通刻度線通常取0.1±0.02mm；遠(yuǎn)距離觀察時，可取0.6～0.8mm，精度高的測量刻度線取0.0015～0.1mm。刻度線的長度也是不可忽視的，刻度線一般有三級：長刻度線、中刻度線

27、、短刻度線。所以刻度線的長度的設(shè)定也應(yīng)有一定的規(guī)律。</p><p>　?。?）儀表顏色設(shè)計。指針式儀表的顏色設(shè)計，主要是度盤面、刻度標(biāo)記和數(shù)碼、字符以及指針的顏色匹配問題，它對儀表的造型設(shè)計、儀表的認(rèn)讀有很大影響。為了精確判讀，指針、刻度線和字符的顏色應(yīng)有鮮明的對比，選擇最清晰的配色，避免模糊的配色。研究表明，最清晰的搭配是黑與黃，最模糊的搭配是黑與藍(lán)；墨綠色和淡黃色儀表面分別配上白色和黑色的刻度時，其誤讀率最

28、?。欢谏突尹S色儀表面分別配上白色刻度線時，其誤讀率最大，不宜采用。在實際工作中，由于黑白兩種顏色的對比度較高，且符合儀表的習(xí)慣用途，因此常用這種搭配作為表盤和數(shù)字的顏色。</p><p>　　綜上所述，刻度盤形狀、刻度大小、刻度線粗細(xì)及長度、儀表顏色設(shè)計等因素都影響誤讀率。因此儀表設(shè)計中應(yīng)該考慮這些因素，只有考慮這些因素才能降低誤讀率。</p><p>　　2.水平形儀表程序設(shè)計思路&

29、lt;/p><p>　　2.1 C++軟件簡介</p><p>　　C++是在C語言的基礎(chǔ)上開發(fā)的一種面向?qū)ο缶幊陶Z言，應(yīng)用廣泛；C++支持多種編程范式 －－面向?qū)ο缶幊?、泛型編程和過程化編程。最新正式標(biāo)準(zhǔn)C++于2014年8月18日公布。其編程領(lǐng)域眾廣，常用于系統(tǒng)開發(fā)，引擎開發(fā)等應(yīng)用領(lǐng)域，是至今為止最受廣大程序員受用的最強大編程語言之一,支持類：類、封裝、重載等特性。 C++設(shè)計成

30、靜態(tài)類型、和C同樣高效且可移植的多用途程序設(shè)計語言。</p><p>　　2.1.1 C++編程開發(fā)</p><p>　　一個程序從編寫到最后得到運行結(jié)果要經(jīng)歷以下一些步驟：</p><p>　　用C++語言編寫程序</p><p><b>　　對源程序進(jìn)行編譯</b></p><p><b

31、>　　將目標(biāo)文件連接</b></p><p><b>　　運行程序運行。</b></p><p>　　2.1.2 C++語言優(yōu)缺點</p><p>　　優(yōu)點:（1）簡潔緊湊、靈活方便。C語言一共只有32個關(guān)鍵詞,9種控制語句，程序書寫形式自由，主要用小寫字母表示。它把高級語言的基本結(jié)構(gòu)和語句與低級語言的實用性結(jié)合起來。 C 語

32、言可以像匯編語言一樣對位、字節(jié)和地址進(jìn)行操作，而這三者是計算機最基本的工作單元。（2）運算符豐富。C語言的運算符包含的范圍很廣泛，共有34種運算符。C語言把括號、賦值、強制類型轉(zhuǎn)換等都作為運算符處理。從而使C語言的運算類型極其豐富，表達(dá)式類型多樣化。靈活使用各種運算符可以實現(xiàn)在其它高級語言中難以實現(xiàn)的運算。（3）數(shù)據(jù)結(jié)構(gòu)豐富。C語言的數(shù)據(jù)類型有：整型、實型、字符型、數(shù)組類型、指針類型、結(jié)構(gòu)體類型、共用體類型等。能用來實現(xiàn)各種復(fù)雜的數(shù)據(jù)結(jié)

33、構(gòu)的運算。并引入了指針概念，使程序效率更高。另外C語言具有強大的圖形功能，支持多種顯示器和驅(qū)動器。且計算功能、邏輯判斷功能強大。（4）C是結(jié)構(gòu)式語言。結(jié)構(gòu)式語言的顯著特點是代碼及數(shù)據(jù)的分隔化，即程序的各個部分除了必要的信息交流外彼此獨立。這種結(jié)構(gòu)化方式可使程序?qū)哟吻逦?，便于使用、維護(hù)以及調(diào)試。C語言是以函數(shù)形式提供給用戶的，這些函數(shù)可方便的調(diào)用，并具有多種循環(huán)、條件語句控制程序流向</p><p>　　缺點:(1

34、) C語言的缺點主要表現(xiàn)在數(shù)據(jù)的封裝性上，這一點使得C在數(shù)據(jù)的安全性上有很大缺陷，這也是C和C++的一大區(qū)別。(2) C語言的語法限制不太嚴(yán)格，對變量的類型約束不嚴(yán)格，影響程序的安全性，對數(shù)組下標(biāo)越界不作檢查等。從應(yīng)用的角度，C語言比其他高級語言較難掌握。</p><p><b>　　2.2程序設(shè)計目的</b></p><p>　　利用C++ 對水平形儀表認(rèn)讀速度、誤

35、讀率進(jìn)行程序設(shè)計，人們通過對水平形儀表程序的運行，可以測量其認(rèn)讀時間、誤讀率等重要參數(shù)，通過對水平形儀表認(rèn)讀速度、誤讀率等測量數(shù)據(jù)進(jìn)行綜合分析，有助于人們運用人機工程學(xué)的原理改進(jìn)水平形儀表的設(shè)計，進(jìn)而提高儀表的認(rèn)讀速度，降低誤讀率，減少生活和工業(yè)生產(chǎn)等領(lǐng)域測量誤讀率。</p><p><b>　　2.3程序設(shè)計要求</b></p><p>　　理想的水平形儀表除了要準(zhǔn)

36、確反映“機”的狀態(tài)外，還應(yīng)根據(jù)人的感覺器官的生理特征來確定其結(jié)構(gòu)，使得人與機充分協(xié)調(diào)。也就是說所設(shè)計水平形儀表，其形狀、大小、顏色、標(biāo)度、刻度、空間布置、亮度、頻率、照明、背景、距離等都必須適合人的生理、心理特征。使操作者對顯示器所顯示的信息辨認(rèn)速度快、誤讀少、可靠性高，并減輕精神緊張和身體疲勞。</p><p>　　按照上述要求，運用人機工程原理，設(shè)計了水平形儀表認(rèn)讀速度、誤讀率測試程序。該水平形儀表的測試程序

37、分為7模塊：顏色設(shè)置、尺寸設(shè)置、開始測試、輸入數(shù)字、確認(rèn)、重置、退出。</p><p><b>　　2.4程序設(shè)計</b></p><p>　　顏色設(shè)置：用戶根據(jù)提示輸入，按照安全人機工程學(xué)中儀表顏色設(shè)計選擇合適的顏色，使指針、刻度線和字符的顏色有鮮明的對比，選擇最清晰的配色，避免模糊配色，達(dá)到精確的判讀的目的 </p><p>　　尺寸設(shè)

38、置：用戶根據(jù)顯示方式和人的視覺特性，對刻度、刻度盤、指針、數(shù)字等選擇合適的尺寸。</p><p><b>　　圖6</b></p><p>　　開始測試：用戶點擊開始測試按鈕，程序開始運行，指針隨機停止。</p><p><b>　　圖7</b></p><p>　?。?）輸入數(shù)字：用戶根據(jù)儀表盤中

39、指針指示的數(shù)字，在輸入框中輸入相應(yīng)的數(shù)字。</p><p>　　（5）確認(rèn)：用戶點擊確認(rèn)按鈕，程序自動判斷輸入數(shù)字的正否，并給出判斷的結(jié)果。</p><p><b>　　圖8</b></p><p><b>　　圖9</b></p><p>　　（6）重置：點擊重置按鈕，程序重置</p>

40、<p><b>　?。?）退出</b></p><p>　　3. 水平形儀表程序設(shè)計代碼</p><p>　　VERSION 5.00</p><p>　　Begin VB.Form frmMain </p><p>　　AutoRedraw = -1 'True</p>

41、<p>　　BorderStyle = 0 'None</p><p>　　ClientHeight = 3945</p><p>　　ClientLeft = 135</p><p>　　ClientTop = 405</p><p>　　ClientWidth

42、 = 6990</p><p>　　ControlBox = 0 'False</p><p>　　Icon = "frmMain.frx":0000</p><p>　　LinkTopic = "Form1"</p><p>

43、　　LockControls = -1 'True</p><p>　　MaxButton = 0 'False</p><p>　　MinButton = 0 'False</p><p>　　ScaleHeight = 3945</p><p>　　S

44、caleWidth = 6990</p><p>　　ShowInTaskbar = 0 'False</p><p>　　StartUpPosition = 2 '屏幕中心</p><p>　　Begin VB.Timer tim2 </p><p>　　Enabled =

45、 0 'False</p><p>　　Interval = 50</p><p>　　Left = 4080</p><p>　　Top = 2280</p><p><b>　　End</b></p><p>

46、　　Begin VB.Timer tim1 </p><p>　　Enabled = 0 'False</p><p>　　Interval = 50</p><p>　　Left = 3120</p><p>　　Top = 2280&l

47、t;/p><p><b>　　End</b></p><p>　　Begin VB.CommandButton cmdReset </p><p>　　Caption = "測試重置"</p><p>　　Height = 375</p><p

48、>　　Left = 1320</p><p>　　TabIndex = 8</p><p>　　Top = 1800</p><p>　　Width = 1065</p><p><b>　　End</b></p&

49、gt;<p>　　Begin VB.CommandButton cmdPand </p><p>　　Caption = "確認(rèn)"</p><p>　　Enabled = 0 'False</p><p>　　Height = 375</p>&

50、lt;p>　　Left = 1980</p><p>　　TabIndex = 4</p><p>　　Top = 2370</p><p>　　Width = 735</p><p><b>　　End</b><

51、/p><p>　　Begin VB.TextBox txtDus </p><p>　　Alignment = 2 'Center</p><p>　　Appearance = 0 'Flat</p><p>　　Enabled = 0 'False</p&g

52、t;<p>　　BeginProperty Font </p><p>　　Name = "宋體"</p><p>　　Size = 12</p><p>　　Charset = 134</p><p>　　Weight

53、 = 400</p><p>　　Underline = 0 'False</p><p>　　Italic = 0 'False</p><p>　　Strikethrough = 0 'False</p><p>　　EndProperty</p&

54、gt;<p>　　Height = 375</p><p>　　Left = 1140</p><p>　　TabIndex = 3</p><p>　　Top = 2370</p><p>　　Width =

55、735</p><p><b>　　End</b></p><p>　　Begin VB.CommandButton cmdStart </p><p>　　Caption = "開始測試"</p><p>　　Default = -1 'True&l

56、t;/p><p>　　Height = 375</p><p>　　Left = 120</p><p>　　TabIndex = 2</p><p>　　Top = 1800</p><p>　　Width

57、= 1065</p><p><b>　　End</b></p><p>　　Begin VB.PictureBox pic1 </p><p>　　Appearance = 0 'Flat</p><p>　　BackColor = &H80000006&&l

58、t;/p><p>　　BorderStyle = 0 'None</p><p>　　ForeColor = &H80000008&</p><p>　　Height = 1695</p><p>　　Left = 150</p>

59、<p>　　ScaleHeight = 1695</p><p>　　ScaleWidth = 6735</p><p>　　TabIndex = 0</p><p>　　Top = 540</p><p>　　Width = 6735&

60、lt;/p><p>　　Begin VB.Label lbl1 </p><p>　　AutoSize = -1 'True</p><p>　　BackColor = &H80000007&</p><p>　　BackStyle = 0 'Transpare

61、nt</p><p>　　Caption = "a"</p><p>　　ForeColor = &H0000FFFF&</p><p>　　Height = 180</p><p>　　Index = 0</p>

62、<p>　　Left = 240</p><p>　　TabIndex = 1</p><p>　　Top = 720</p><p>　　Width = 90</p><p><b>　　End</b><

63、/p><p>　　Begin VB.Line lin2 </p><p>　　BorderColor = &H000000FF&</p><p>　　BorderWidth = 2</p><p>　　X1 = 840</p><p>　　X2

64、 = 840</p><p>　　Y1 = 840</p><p>　　Y2 = 1200</p><p><b>　　End</b></p><p>　　Begin VB.Line lin1 </p><p>　　B

65、orderColor = &H80000005&</p><p>　　Index = 0</p><p>　　X1 = 240</p><p>　　X2 = 240</p><p>　　Y1 = 360

66、</p><p>　　Y2 = 600</p><p><b>　　End</b></p><p>　　Begin VB.Line lin0 </p><p>　　BorderColor = &H80000005&</p><p>　　X1

67、 = 240</p><p>　　X2 = 6240</p><p>　　Y1 = 600</p><p>　　Y2 = 600</p><p><b>　　End</b></p><

68、;p><b>　　End</b></p><p>　　Begin VB.Label lblBanq </p><p>　　Alignment = 1 'Right Justify</p><p>　　Caption = "李宗慶版權(quán)所有@聊城大學(xué)"</p>&

69、lt;p>　　Height = 195</p><p>　　Left = 3435</p><p>　　TabIndex = 14</p><p>　　Top = 3660</p><p>　　Width = 3495&

70、lt;/p><p><b>　　End</b></p><p>　　Begin VB.Label lblDus </p><p>　　AutoSize = -1 'True</p><p>　　Caption = "請輸入讀數(shù)"</p><

71、;p>　　Height = 180</p><p>　　Left = 180</p><p>　　TabIndex = 13</p><p>　　Top = 2460</p><p>　　Width = 900</

72、p><p><b>　　End</b></p><p>　　Begin VB.Label lblTitle </p><p>　　Alignment = 2 'Center</p><p>　　BackStyle = 0 'Transparent</p>&l

73、t;p>　　Caption = "水平型指針儀表認(rèn)讀時間和誤讀率測試軟件"</p><p>　　BeginProperty Font </p><p>　　Name = "宋體"</p><p>　　Size = 14.25</p>&

74、lt;p>　　Charset = 134</p><p>　　Weight = 400</p><p>　　Underline = 0 'False</p><p>　　Italic = 0 'False</p><p>　　Stri

75、kethrough = 0 'False</p><p>　　EndProperty</p><p>　　ForeColor = &H000000FF&</p><p>　　Height = 285</p><p>　　Left = 60<

76、;/p><p>　　TabIndex = 12</p><p>　　Top = 120</p><p>　　Width = 6870</p><p><b>　　End</b></p><p>　　Begin VB.Label lb

77、lRendsj </p><p>　　AutoSize = -1 'True</p><p>　　Caption = "平均認(rèn)讀時間"</p><p>　　Height = 180</p><p>　　Left = 120<

78、;/p><p>　　TabIndex = 11</p><p>　　Top = 3720</p><p>　　Width = 1080</p><p><b>　　End</b></p><p>　　Begin VB.Label l

79、blBianc </p><p>　　Alignment = 1 'Right Justify</p><p>　　Caption = "指導(dǎo)教師：孟現(xiàn)柱 編程人員：李宗慶"</p><p>　　Height = 195</p><p>　　Left

80、 = 3435</p><p>　　TabIndex = 10</p><p>　　Top = 3120</p><p>　　Width = 3495</p><p><b>　　End</b></p><p

81、>　　Begin VB.Label lblZiz </p><p>　　Alignment = 1 'Right Justify</p><p>　　Caption = "聊城大學(xué)精品課程（J201108）資助"</p><p>　　ForeColor = &H00000

82、000&</p><p>　　Height = 195</p><p>　　Left = 3435</p><p>　　TabIndex = 9</p><p>　　Top = 3390</p><p>　　Width

83、 = 3495</p><p><b>　　End</b></p><p>　　Begin VB.Label lblWudl </p><p>　　AutoSize = -1 'True</p><p>　　Caption = "誤讀率&q

84、uot;</p><p>　　Height = 180</p><p>　　Left = 120</p><p>　　TabIndex = 7</p><p>　　Top = 3480</p><p>　　Width

85、 = 540</p><p><b>　　End</b></p><p>　　Begin VB.Label lblCuo </p><p>　　AutoSize = -1 'True</p><p>　　Caption = "錯誤次數(shù)"&l

86、t;/p><p>　　Height = 180</p><p>　　Left = 120</p><p>　　TabIndex = 6</p><p>　　Top = 3240</p><p>　　Width

87、= 720</p><p><b>　　End</b></p><p>　　Begin VB.Label lblDui </p><p>　　AutoSize = -1 'True</p><p>　　Caption = "正確次數(shù)"</p&g

88、t;<p>　　Height = 180</p><p>　　Left = 120</p><p>　　TabIndex = 5</p><p>　　Top = 3000</p><p>　　Width = 72

89、0</p><p><b>　　End</b></p><p>　　Begin VB.Menu menuColor </p><p>　　Caption = "顏色設(shè)置"</p><p>　　Begin VB.Menu menuColorBack </p><p

90、>　　Caption = "儀表面"</p><p><b>　　End</b></p><p>　　Begin VB.Menu menuColorfore </p><p>　　Caption = "刻度線"</p><p><

91、b>　　End</b></p><p>　　Begin VB.Menu menuColorKedz </p><p>　　Caption = "刻度值"</p><p><b>　　End</b></p><p>　　Begin VB.Menu menuColor

92、fore2 </p><p>　　Caption = "指針"</p><p><b>　　End</b></p><p><b>　　End</b></p><p>　　Begin VB.Menu menuSize </p><p>

93、　　Caption = "尺寸設(shè)置"</p><p>　　Begin VB.Menu menuSizeYib </p><p>　　Caption = "調(diào)整尺寸"</p><p><b>　　End</b></p><p><b>

94、;　　End</b></p><p>　　Begin VB.Menu menuExit </p><p>　　Caption = "退出"</p><p>　　Begin VB.Menu menuExitOK </p><p>　　Caption = "退出&q

95、uot;</p><p><b>　　End</b></p><p><b>　　End</b></p><p><b>　　End</b></p><p>　　Attribute VB_Name = "frmMain"</p><p&g

96、t;　　Attribute VB_GlobalNameSpace = False</p><p>　　Attribute VB_Creatable = False</p><p>　　Attribute VB_PredeclaredId = True</p><p>　　Attribute VB_Exposed = False</p><p>

97、;　　Dim i As Long</p><p>　　Dim mZhi1 As Single, mZhi2 As Single, mDui As Long, mCuo As Long '原數(shù)值，新數(shù)值</p><p>　　Dim ml1 As Single, ml2 As Single, ml3 As Long '原位置、新位置、移動速度</p&g

98、t;<p>　　Dim mShij1 As Long, mShij2 As Long, mShij As Long</p><p>　　Private Sub cmdPand_Click()</p><p>　　mShij2 = timeGetTime</p><p>　　If Abs(Val(txtDus.Text) - mZhi2) > 0.

99、1 Then</p><p>　　MsgBox "您讀的數(shù)值是 錯誤 的！", vbCritical + vbOKCancel</p><p>　　mCuo = mCuo + 1</p><p><b>　　Else</b></p><p>　　MsgBox "您讀的數(shù)值是 正確 的！&qu

100、ot;, vbInformation + vbOKCancel</p><p>　　mDui = mDui + 1</p><p><b>　　End If</b></p><p>　　lblDui.Visible = True</p><p>　　lblCuo.Visible = True</p><

101、;p>　　lblWudl.Visible = True</p><p>　　lblRendsj.Visible = True</p><p>　　lblDui.Caption = "正確次數(shù)：" & mDui</p><p>　　lblCuo.Caption = "錯誤次數(shù)：" & mCuo</p&

102、gt;<p>　　lblWudl.Caption = "誤讀率：" & Format(mCuo / (mDui + mCuo), "0.00%")</p><p>　　mShij = mShij + (mShij2 - mShij1)</p><p>　　lblRendsj.Caption = "平均認(rèn)讀時間：&quo

103、t; & Format(mShij / (mDui + mCuo), "0.0") & " 毫秒"</p><p>　　cmdStart.Enabled = True</p><p>　　cmdStart.Default = True</p><p>　　cmdPand.Enabled = False</

104、p><p>　　txtDus.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdReset_Click()</p><p><b>　　mDui = 0</b></p><p><b

105、>　　mCuo = 0</b></p><p>　　lblDui.Visible = False</p><p>　　lblCuo.Visible = False</p><p>　　lblWudl.Visible = False</p><p>　　cmdStart.Enabled = True</p>&l

106、t;p>　　cmdPand.Enabled = False</p><p>　　txtDus.Enabled = False</p><p><b>　　mZhi1 = 0</b></p><p><b>　　mZhi2 = 1</b></p><p>　　tim1.Enabled = Fal

107、se</p><p>　　tim2.Enabled = False</p><p><b>　　fPaint</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdStart_Click()</p><p>　　cmdS

108、tart.Enabled = False</p><p><b>　　Randomize</b></p><p>　　mZhi2 = Int(Rnd() * 101) / 10</p><p>　　Do Until mZhi2 <> mZhi1</p><p>　　mZhi2 = Int(Rnd() * 10

109、1) / 10</p><p><b>　　Loop</b></p><p>　　yund mZhi1, mZhi2</p><p>　　mZhi1 = mZhi2</p><p><b>　　End Sub</b></p><p>　　Private Sub yund(m1

110、 As Single, m2 As Single)</p><p>　　ml1 = mSize3 / 10 * m1 + (mSize1 - mSize3) / 2</p><p>　　ml2 = mSize3 / 10 * m2 + (mSize1 - mSize3) / 2</p><p>　　If m1 > m2 Then</p><

111、p>　　tim1.Enabled = True</p><p><b>　　Else</b></p><p>　　tim2.Enabled = True</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

112、;<p>　　Private Sub Form_Load()</p><p>　　mColor1 = vbBlack</p><p>　　mColor2 = vbWhite</p><p>　　mColor3 = vbYellow</p><p>　　mColor4 = vbRed</p><p>　　m

113、Size1 = 430 * 15</p><p>　　mSize2 = 100 * 15</p><p>　　mSize3 = 400 * 15</p><p>　　mSize4 = 10</p><p>　　msize5 = 2</p><p><b>　　fPaint</b></p>

114、;<p><b>　　mZhi1 = 0</b></p><p><b>　　End Sub</b></p><p>　　Private Sub fPaint()</p><p><b>　　With Me</b></p><p>　　.Width = mSize

115、1</p><p>　　.Height = mSize2 + 2950</p><p><b>　　End With</b></p><p>　　With lblTitle</p><p>　　.Width = Me.Width</p><p><b>　　End With</b&

116、gt;</p><p><b>　　With pic1</b></p><p><b>　　.Left = 0</b></p><p>　　.Top = lblTitle.Top * 2 + lblTitle.Height</p><p>　　.Width = mSize1</p>&

117、lt;p>　　.Height = mSize2</p><p>　　.BackColor = mColor1</p><p><b>　　End With</b></p><p>　　With lblZiz</p><p>　　.Left = Me.Width - .Width - 100</p>&

118、lt;p>　　.Top = Me.Height - 990</p><p><b>　　End With</b></p><p>　　With lblBianc</p><p>　　.Left = Me.Width - .Width - 100</p><p>　　.Top = Me.Height - 770<

119、;/p><p><b>　　End With</b></p><p>　　With lblBanq</p><p>　　.Left = Me.Width - .Width - 100</p><p>　　.Top = Me.Height - 550</p><p><b>　　End Wit

120、h</b></p><p>　　With cmdStart</p><p>　　.Top = pic1.Top + pic1.Height + lblTitle.Top</p><p>　　cmdReset.Top = .Top</p><p><b>　　End With</b></p>&l

121、t;p>　　txtDus.Top = cmdStart.Top + cmdStart.Height + 150</p><p>　　cmdPand.Top = txtDus.Top</p><p>　　lblDus.Top = txtDus.Top + 100</p><p>　　lblDui.Top = txtDus.Top + txtDus.Height

122、+ 150</p><p>　　lblDui.Visible = False</p><p>　　lblCuo.Top = lblDui.Top + lblDui.Height + 50</p><p>　　lblCuo.Visible = False</p><p>　　lblWudl.Top = lblCuo.Top + lblCuo.H

123、eight + 50</p><p>　　lblWudl.Visible = False</p><p>　　lblRendsj.Top = lblWudl.Top + lblWudl.Height + 50</p><p>　　lblRendsj.Visible = False</p><p><b>　　With lin0<

124、;/b></p><p>　　.BorderColor = mColor2</p><p>　　.X1 = (mSize1 - mSize3) / 2</p><p>　　.X2 = .X1 + mSize3</p><p>　　.Y1 = mSize2 / 2</p><p><b>　　.Y2 =

125、.Y1</b></p><p>　　.Visible = True</p><p><b>　　End With</b></p><p>　　For i = 0 To 10</p><p>　　On Error Resume Next</p><p>　　If i > 0 The

126、n Load lin1(i)</p><p>　　On Error GoTo 0</p><p>　　With lin1(i)</p><p>　　.BorderColor = mColor2</p><p>　　.X1 = lin0.X1 + mSize3 / 10 * i</p><p><b>　　.X

127、2 = .X1</b></p><p>　　.Y1 = lin0.Y1 - lin0.Y1 / 4</p><p>　　.Y2 = lin0.Y1</p><p>　　.Visible = True</p><p><b>　　End With</b></p><p>　　On Err

128、or Resume Next</p><p>　　If i > 0 Then Load lbl1(i)</p><p>　　On Error GoTo 0</p><p>　　With lbl1(i)</p><p>　　.ForeColor = mColor3</p><p>　　.FontSize = mSi