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

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

2、p><p>　　學(xué) 號(hào) 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)下，獨(dú)立進(jìn)行研究取得的成果。除文中已經(jīng)引用的內(nèi)容外，論文中不包含其他人已經(jīng)發(fā)表或撰寫(xiě)過(guò)的研究成果，也不包含為獲得聊城大學(xué)或其他教育機(jī)構(gòu)的學(xué)位證書(shū)而使用過(guò)的材料。對(duì)本文的研究作出重要貢獻(xiàn)的個(gè)人和集體，均在文中以明確的方式表明。本人承擔(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.水平形儀表簡(jiǎn)介2</p><p>　　1.1水平形儀表簡(jiǎn)介2</p><p>　　1.2水平形儀表特點(diǎn)3</p><p>　　1.3影響水平形儀表認(rèn)讀速度的因素3</p><p>　　1.4影響水平形儀表誤讀率的因素4</p><p>　　2.水平形儀表程序設(shè)計(jì)思

6、路6</p><p>　　2.1 C++軟件簡(jiǎn)介6</p><p>　　2.1.1 C++編程開(kāi)發(fā)6</p><p>　　2.1.2 C++語(yǔ)言?xún)?yōu)缺點(diǎn)6</p><p>　　2.2程序設(shè)計(jì)目的7</p><p>　　2.3程序設(shè)計(jì)要求7</p><p><b>　　2.4程

7、序設(shè)計(jì)7</b></p><p>　　3. 水平形儀表程序設(shè)計(jì)代碼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>　　本文運(yùn)用人機(jī)工程學(xué)的基本原理和理論，對(duì)水平形儀表對(duì)認(rèn)讀速度、誤讀率的影響進(jìn)行了研究。第一章是水平形儀

9、表簡(jiǎn)介。第二章是水平形儀表程序設(shè)計(jì)思路。第三章是水平形儀表程序設(shè)計(jì)代碼。第四章是水平形儀表程序改進(jìn)建議。</p><p>　　關(guān)鍵詞：水平形儀表；人機(jī)工程學(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è)計(jì)</p><p><b>　　前 言</b></p><p><b>　　1課題的提出</b>

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

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

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

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

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

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

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

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

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

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

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

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

25、間，故誤讀率最高；水平型相比豎直型的誤讀率低，是因?yàn)檠矍虻乃竭\(yùn)動(dòng)快。</p><p>　　（2）刻度大小?？潭缺P(pán)上最小刻度線間的距離稱(chēng)為刻度。而當(dāng)刻度盤(pán)上的刻太過(guò)于密集就會(huì)容易使認(rèn)讀出現(xiàn)錯(cuò)誤，過(guò)疏會(huì)使中間插值估計(jì)不準(zhǔn)?？潭鹊拇笮】筛鶕?jù)人眼的最小分辨能力和刻度盤(pán)的材料性質(zhì)及視距而確定，而常見(jiàn)的有單刻度線、雙刻度線、遞增式刻度線。單刻度線和雙刻度線是有認(rèn)讀方面的差異的。單刻度線、雙刻度線便于認(rèn)讀和記憶;遞增式刻度線

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

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

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

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

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

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

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

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

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

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

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

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

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

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

40、<p><b>　　（7）退出</b></p><p>　　3. 水平形儀表程序設(shè)計(jì)代碼</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 = "測(cè)試重置"</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 = "開(kāi)始測(cè)試"</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 = "請(qǐng)輸入讀數(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)讀時(shí)間和誤讀率測(cè)試軟件"</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)讀時(shí)間"</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 = "錯(cuò)誤次數(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 '原位置、新位置、移動(dòng)速度</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ù)值是 錯(cuò)誤 的！", 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 = "錯(cuò)誤次數(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)讀時(shí)間：&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