基于單總線的溫度實時監(jiān)控系統(tǒng)(編輯修改稿)
2025-09-10 11:19 本頁面
【文章內容簡介】 卡，第四個選項卡顯示DS18B20暫存器的原始數據。3．2 溫度計顯示圖8 溫度計顯示使用iThermometer組件對溫度進行顯示，設定顯示范圍為（10—90）定時器2的控制的溫度讀取執(zhí)行時同時完成iThermometer組件Position屬性的賦值， 溫度計下方使用label組件同時顯示溫度的數字值，并可以使用上方的切換按鈕更改溫標。程序如下：procedure (Sender: TObject)。beginFindFirstFamily($28,SHandle)。ReadTemperature(SHandle)。Tem:=FormatFloat(39。39。,etmp1)。SaveTem()。FindNextFamily($28,SHandle)。ReadTemperature(SHandle)。Tem1:=FormatFloat(39。39。,etmp2)。SaveTem()。//select:=not select。:=strtofloat(Tem)。if select1 then:=Tem+39。 ℃39。else:=Tem+39。 （華氏）39。:=strtofloat(Tem1)。if select1 then:=Tem1+39。 ℃39。else:=Tem1+39。 （華氏）39。end。3．3 實時曲線繪制圖9 實時曲線繪制使用iplot組件實現曲線的實時繪制，設置iplot為四通道同時顯示，其中紅色為傳感器1，黃色為傳感器2，紫色為正在工作傳感器的上限值，藍色為正在工作傳感器的下限值。Timer組件實現傳感器的溫度讀取和循環(huán)切換，傳感器1和2的值依次被讀取顯示。溫標切換依然有效，使用“繪制曲線”和“停止繪制”完成對組件的控制。程序如下：procedure (Sender: TObject)。begin inherited。 [0].Span := 100。 [0].Span:=30。 [0].Title := 39。時間39。 [0].Title:=39。溫度39。 :=true。 :=true。end。procedure (Sender: TObject)。var Cinfor:TCurinfor。 i:integer。begin inherited。 [0].TitleText:=39。傳感器139。 [1].TitleText:=39。傳感器239。 [2].TitleText:=39。下限39。 [3].TitleText:=39。上限39。 [0].AddYElapsedSeconds(etmp1)。 [1].AddYElapsedSeconds(etmp2)。 [2].AddYElapsedSeconds(low)。 [3].AddYElapsedSeconds(high)。 end。procedure (Sender: TObject)。begin :=false。 :=false。end。3．4 溫度日志圖10 溫度日志溫度的存儲在讀取溫度時同步完成，應用ADOquery組件對數據庫進行sql操作。數據庫存儲有Tem表，存儲的數據包括傳感器編號、時間以及溫度。下方的DBNavigator組件用來對數據進行刪除瀏覽等操作，“刷性列表”按鈕可以在數據采集的同時更新數據庫溫度顯示。程序如下：procedure ()。varorder:string。beginif select thenorder:=39。139。elseorder:=39。239。with ADOQuery1 dobeginClose。(39。insert into tem (時間,溫度,傳感器編號) values (now(),:溫度,:傳感器編號)39。)。//(39。ID39。).Value := 。(39。溫度39。).Value := Tem。(39。傳感器編號
電大資料相關推薦
鄂ICP備17016276號-1