基于單片機(jī)的溫度采集軟件系統(tǒng)設(shè)計(jì)(參考版)
2025-06-30 19:57本頁面
【正文】 單芯片8051務(wù)實(shí)與應(yīng)用[M].中國水利水電版社,2001：5160 [6] [M]. 北京：北京航天航空大學(xué)出版社，2004:4565[7] [M]. 北京：高等教育出版社，2003:180279[8] 楊永國 Visual C++[M]. 北京：清華大學(xué)出版社，2004:34139[9] 臧玉萍、姜寶林、[J]. 吉林：吉林工學(xué)院學(xué)報(bào)，2001,6,2（22A）[10] [M]. 北京：北京航空航天大學(xué)出版社2004:365[11] [M]. 北京：清華大學(xué)出版2002:120158,311375[12] [Z]. 賽迪網(wǎng)技術(shù)天地，2000[13] [M]. 北京：北京航空航天大學(xué)出版社，2000:3458[14] ：數(shù)據(jù)傳輸接口器件分冊[M]. 北京：北京航空航天大學(xué)出版社，1988:4156[15] 劉篤喜、王彩霞VB在智能儀表的數(shù)據(jù)采集與數(shù)據(jù)處理中的應(yīng)用[M].北京人民郵電出版社，2008:12[16] 李廣第．單片機(jī)基礎(chǔ)．第1版．北京：北京航空航天大學(xué)出版社，1999 [17] Dallas semiconductor programmable resolution 1wiredigital thermometer [Z]. Dallas semiconductor inc, 2001.。 \mdb\。Date Source= amp。 errtitle= MsgBox errString, vbCritical, errtitle End Sub 數(shù)據(jù)庫的程序Option Explicit //數(shù)據(jù)庫庫文件和VB中創(chuàng)建的工程文件必須放在放同一目錄下 Public Db As //全程數(shù)據(jù)庫連接 Public Rs As //查找紀(jì)錄過程中引用 Dim iConcstr As String Sub Main() On Error GoTo errp iConcstr=Provider=。 CStr() amp。H808080 //填充停止?fàn)顟B(tài)=False //關(guān)閉定時器 =開始采集=FalseCall renew //初始化表格Call ScaleSys //建立坐標(biāo)系err ClearEnd Sub建立圖像坐標(biāo)系Sub ScateSys() //坐標(biāo)系=True //自動重繪有效= 1 //線寬1個像素=vbPixels //像素為單位 (0, 125)(200,50) //坐標(biāo)系=vbDot //點(diǎn)線橫坐標(biāo) (0, 0)(200, 0), RGB(130, 130, 130) (0, 25)(200, 25), RGB(130, 130, 130) (0, 50)(200, 50), RGB(130, 130, 190) (0, 75)(200, 75), RGB(130, 130, 130) (0, 100)(200, 100), RGB(130, 130, 130) (0,25)(200,25), RGB(130, 130, 130)縱坐標(biāo) (25,125)(25,50), RGB(130 130 130) (50,125)(50,50),RGB(130, 130, 130) (75,1251)(75,50), RGB(130, 130, 130) (100, 125)(100, 50), RGB(130, 130, 130) (125, 125)(125,50), RGB(130, 130, 130) (150 125)(150,50), RGB(130 130 130) (175, 125)(175,50),RGB(130, 130, 130)End Sub存入數(shù)據(jù)庫中Sub Data_save(sinTemp As Single) Set Rs =New With Rs Open select39。HFFamp。Private Sub Timert_Timer()Dim a as VariantA=1=a //發(fā)送開始標(biāo)志End Sub卸載窗體Private Sub Cmdquit_ClickOIf =True Then MSComm = False’//關(guān)閉串口Unload Me //卸載窗體EndEnd Sub串口設(shè)置Sub setCom()On Error GoTo err:=Val(Mid(, 4, 1)) //設(shè)置串口 = amp。If datatemp(num) 0 Then不能顯示零度，別的正常 =1: =num+ 1 =Format$(datatemp(num), ) If counter 13 Then =counter1239。 amp。Trim(Mid(buffer, 1, 2))Else datatemp2a=Mid(buffer, 1, 2)End IfIf Len(Trim(Mid(buffer, 4, 2))) = 1 Then datatemp2b=Str(0) amp。 Mid(buffer, 3, 3) amp。 Mid(buffer 1, 2)) * Else datatemp(num) = Val(amp。 Mid(buffer, 3, 3) amp。Exit SubEnd If讀取儀表返回?cái)?shù)據(jù)串Select Case EvReceiveCount= //接收溫度數(shù)據(jù)個數(shù)，兩字節(jié)，低位在前Inbyte= //接收溫度數(shù)據(jù)If enunt 2 ThenExit Sub //不是兩字節(jié)，表示接收錯誤，跳出程序counter= counter+ 1 //基數(shù)器加1For i=LBound(lnbyte) To UBound(Inbyte) //把接收的數(shù)據(jù)安十六進(jìn)制格式放入緩沖中buffer =buffer +Hex(lnbyte(i))Next iEnd Select獲取十進(jìn)制測量數(shù)據(jù)If Len(Trim(Mid(buffer, 1, 2)))=1 Then datatemp(num) = Val(amp。End IfEnd Sub串口初始化在窗體的Load事件中加入下列代碼對串口進(jìn)行初始化：載入窗體Private Sub Form Load()On Error GoTo err:=1 //設(shè)置串口=InputModeBinary //二進(jìn)制輸入模式= 1 //接收1個字符觸法OnComm事件= 1 //事件發(fā)送1個字符觸法OnComm事件 = 9600,n,8,2 //設(shè)置波特率Call tabinit //調(diào)用表格初始化子程序Call ScaleSys //繪制坐標(biāo)系If = False Then =Trae //打開串口Mark=True = FalseExit SubErr:Select Case Case PortAlreaady0pen //如果串口已經(jīng)打開，則提示 MsgBox 沒有發(fā)現(xiàn)此串口或被占用，49, 溫度采集系統(tǒng)Ca
公司管理相關(guān)推薦
鄂ICP備17016276號-1