【正文】 te Sub renew()If num = 0 Then Fxit SuhAverTexrText=:===Grid ClearCall ScaleSysFor i =O To num1datatemp(i) = 0Next inum=0counter=0Call tabinit //數(shù)據(jù)表格初始化End Sub數(shù)據(jù)表格初始化Public Sub tabinit()=2 //兩列=+1 //Rows的值必須至少比FixedRows的值大一(0)=650 //設(shè)置表格寬度(1) = 850Grid Col=0For i = 1 To = i= +Str$(i)Next i=0=0: =序號:=溫度值 = 1 //置在第一頁 = 1End Sub定時發(fā)送采集標志每隔xms向儀表發(fā)送讀數(shù)據(jù)命令串每臺儀表有一個儀表號，PC機通過儀表號來識別網(wǎng)上的多臺儀表程序中儀表號(即地址代號)要與儀表設(shè)定值一致，否則不能返回數(shù)據(jù)。Private Sub Timert_Timer()Dim a as VariantA=1=a //發(fā)送開始標志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。 ,n,8,2 //設(shè)置波特率=False Then =True //打開串口=True //開定時器= amp。HFFamp。Exit Suberr:Select Case Case PortAlready0pen //如果串口已經(jīng)打開，則提示MsgBox沒有發(fā)現(xiàn)此串口或被占用,41, 溫度采集系統(tǒng)，Case ElseMsgBox 沒有發(fā)現(xiàn)此串口或被占用,49, N度采集系統(tǒng)End Select=amp。H808080 //填充停止狀態(tài)=False //關(guān)閉定時器 =開始采集=FalseCall renew //初始化表格Call ScaleSys //建立坐標系err ClearEnd Sub建立圖像坐標系Sub ScateSys() //坐標系=True //自動重繪有效= 1 //線寬1個像素=vbPixels //像素為單位 (0, 125)(200,50) //坐標系=vbDot //點線橫坐標 (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)縱坐標 (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。 from Tbl_WD, Db, 1, 3AddNew 新增一條記錄 Fields(temp)=sinTemp Fields(time) =() Update End With 完成后關(guān)閉對象 Exit Suberrp: errString=Error amp。 CStr() amp。 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 //查找紀錄過程中引用 Dim iConcstr As String Sub Main() On Error GoTo errp iConcstr=Provider=。Persist Security Info=False。Date Source= amp。 amp。 \mdb\。 _下面的語句是連接sqlserver數(shù)據(jù)庫的. Set Db=New iConcstr Exit Suberr: MsgBox(數(shù)據(jù)庫訪問失敗，或者數(shù)據(jù)庫不存在，請選擇有效的數(shù)據(jù)庫文件!)End Sub參考文獻 [1] 施松昆 數(shù)字溫度傳感器DS1820[J].,10A[2] 陳慶官，[J].浙江：,3A[3] 解麗紅，薛志宏. DS1820及其高分辨率測溫[J].江州電器，2002,5A[4] [M]. 北京：清華大學(xué)出版社，2003:27125 [5] 楊忠輝，黃博俊，李文昌。單芯片8051務(wù)實與應(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é)報，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] 李廣第．單片機基礎(chǔ)．第1版．北京：北京航空航天大學(xué)出版社，1999 [17] Dallas semiconductor programmable resolution 1wiredigital thermometer [Z]. Dallas semiconductor inc, 2001