【正文】
9。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。單擊【開始檢測】按鈕后激活此事件39。將定時器激活或關(guān)閉,并顯示對應(yīng)的文字在按鈕上,以指示用戶操作39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Private Sub cmdStart_Click() = Not If Then = 停止檢測 Else = 開始檢測 = 已停止檢測 End IfEnd Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。窗體的Load事件39。輸入圖形暫時設(shè)為灰色,表示無狀態(tài)信息進(jìn)入39。將通訊端口號碼及站號填入Combo控件;并默認(rèn)二者的選項是第一個39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Private Sub Form_Load() Dim i% MaxPlotNo = 100 COM1 COM2 COM3(USB) COM4(USB) COM5 COM6 COM7 COM8 COM9 COM10 COM11 COM12 COM12 COM14 COM15 COM16 = 0 = False 39。以下設(shè)定繪圖范圍,(Xmin,YMax)(XMax,YMin) (0, 50)(MaxPlotNo, 0) = 2 39。使用兩個像素寬度的畫筆End Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。定時器的Timer事件引發(fā)后,就不斷地執(zhí)行其中的程序。39。將模擬讀值命令送出,再取得返回字符串并判斷。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。Private Sub Timer1_Timer() Dim Buf$, ValueStr As Single, Pos1% Buf$ = Buf$ + 39。讀取變量 TimeDelay 2150 ValueStr = Val(Mid(Buf, Pos1 + 1, 7)) 39。分離出正號以后的數(shù)值 = 39。清空上一次數(shù)據(jù) = Format(ValueStr, ) amp。 ℃ 39。顯示在畫面上 If NowX = 0 Then 39。清除圖形 (0, ValueStr) 39。設(shè)定起點 Else 39。以下判斷現(xiàn)在的讀值是否大于前一次的讀值,若是,則以紅色繪線 39。若否,則以藍(lán)色繪線 39。If ValueStr PreValue + Then (NowX, ValueStr), RGB(255, 0, 0) 39。由上一次的位置畫至此點 39。Else 39。 (NowX, ValueStr), RGB(0, 0, 255) 39。由上一次的位置畫至此點 39。End If End If PreValue = ValueStr NowX = NowX + 1 39。位置加1 If NowX MaxPlotNo Then NowX = 0 39。超過范圍則數(shù)值歸零End Sub9 總結(jié) 本系統(tǒng)的設(shè)計更加人性化,可以對4路設(shè)定不同的上限報警溫度,這樣在需要不同溫度的測量中更具有優(yōu)勢,當(dāng)然更多路溫度的設(shè)計方法也一樣。并且報警方面只稍微改動了一下固話就達(dá)到了遠(yuǎn)程報警的功能,溫度較大變化時還會自動存儲同時時間也會儲存起來,可以給操作人員提供更多的信息。本系統(tǒng)所需的元器件價格低廉,單片機資源利用率比較高。4個開關(guān)實現(xiàn)的功能比較多,使操作人員操作更加方便?!?,可以滿足一定場合的用途??筛倪M(jìn)之處:本系統(tǒng)雖然已經(jīng)實現(xiàn)了大部分功能但仍可繼續(xù)改造。如果遠(yuǎn)程測溫等,通過無線模塊可實現(xiàn)采集到的溫度傳送到控制臺,進(jìn)行遠(yuǎn)程監(jiān)控,無需到現(xiàn)場。由于精力問題沒有實現(xiàn)到這個系統(tǒng)上。 圖 遠(yuǎn)程測溫測試附錄部分原理圖:參考文獻(xiàn)[1] 陳洪財. 單片機C語言和匯編語言實用開發(fā)技術(shù)[M].哈爾濱工業(yè)出版社 .[2] 劉和平等. PIC16F877X單片機實用軟件與接口技術(shù)C語言及其應(yīng)用[M]. 北京航空航天大學(xué)出版社, 200311[3] 李學(xué)海. PIC單片機實用教程—基礎(chǔ)篇[M]. 北京航空航海大學(xué)出版社, 200702[4] —提高篇[M]. 北京航空航海大學(xué)出版社,200702[5] [J].電子制作,2007年,11期[6] :入門、提高、開發(fā)、拓展[M].電子工業(yè)出版社,200902 1471634234394409[7] [M].[8] 張越, 張炎,趙延軍.基于DS18B20溫度傳感器的數(shù)字溫度計[J].微電子學(xué), 第37卷第5期,2007,10[9][J].中文核心期刊《微計算機信息》(嵌入式與SOC),2008:54~56[10] 廖琪梅,韓彬,楊文昭,[J]《國外電子元器件》2008年第2期2008,2 國外電子元器件CNKI[11] 劉俊伏,[J]. ,2007,7[12]張俊芳,張忠民,[J].遼寧工程技術(shù)大學(xué)學(xué)報,2004:69~71[13][J].電氣時代,2002:66~67[14]吳金戌,沈慶陽,[J].清華大學(xué)出版社,2002:36~38[15] 李江全,張麗,芩紅蕾. Visual Basic串口通信與測控應(yīng)用技術(shù)實戰(zhàn)詳解[M]. 人民郵電出版社,20076g an employment tribunal claiEmployment tribunals sort out disagreements between employers and employees.You may need to make a claim to an employment tribunal if: you don39。t agree with the disciplinary action your employer has taken against you your employer dismisses you and you think that you have been dismissed unfairly.For more information about dismissal and unfair dismissal, seeDismissal.You can make a claim to an employment tribunal, even if you haven39。tappealedagainst the disciplinary action your employer has taken against you. However, if you win your case, the tribunal may reduce any pensation awarded to you as a result of your failure to appeal.Remember that in most cases you must make an application to an employment tribunal within three months of the date when the event you are plaining about happened. If your application is received after this time limit, the tribunal will not usually accept i.If you are worried about how the time limits apply to you, take advice from one of the organisations listed underFurther help.Employment tribunals are less formal than some other courts, but it is still a legal process and you will need to give evidence under an oath or affirmation.Most people find making a claim to an employment tribunal challenging. If you are thinking about making a claim to an employment tribunal, you should get help straight away from one of the organisations listed underFurther help.If you are being represented by a solicitor at the tribunal, they may ask you to sign an agreement where you pay their fee out of your pensation if you win the case. This is known as adamagesbased agreement. In England and Wales, your solicitor can39。t charge you more than 35% of your pensation if you win the case.If you are thinking about signing up for a damagesbased agreement, you should make sure you39。re clear about the terms of the agreement. It might be best to get advice from an experienced adviser, for example, at a Citizens Advice Bureau. To find your nearest CAB, including those that give advice by , click onnearest CAB.For more information about making a claim to an employment tribunal, seeEmployment tribunals.The (lack of) air up there Watch mCayman Islandsbased Webb, the head of Fifa39。s antiracism taskforce, is in London for the Football Association39。s 150th anniversary celebrations and will attend City39。s Premier League match at Chelsea on Sunday.I am going to be at the match tomorrow and I have asked to meet Yaya Toure, he told BBC Sport.For me it39。s about how he felt and I would like to speak to him first to find out what his experience was.Uefa hasopened disciplinary proceedings against CSKAfor the racist behaviour of their fans duringCity39。s 21 win.Michel Platini, president of European football39。s governing body, has also ordered an immediate investigation into the referee39。s actions.CSKA said they were surprised an