【正文】
ReDim lnum(0 To Rev_num) As Integer For i = 0 To Rev_num lnum(i) = inbuf(i) buf = buf + Str(inbuf(i)) + Next iCase EvSendEnd SelectEnd Sub 由于MSComm控件數(shù)據(jù)接受設(shè)計(jì)為按字節(jié)方式,可接發(fā)的數(shù)值范圍為0~255。當(dāng)上位機(jī)讀取數(shù)據(jù)個(gè)數(shù)超過(guò)255(1字節(jié))時(shí),為了能讓下位機(jī)正確接受,解決方法是通過(guò)編制的函數(shù)stoby將文本框Text2輸入的記錄個(gè)數(shù)(字符型)轉(zhuǎn)化成字節(jié)型,并分成兩個(gè)字節(jié)送給下位機(jī)。另外,系統(tǒng)中有關(guān)數(shù)據(jù)保存、數(shù)據(jù)圖表處理、打印等功能的實(shí)現(xiàn)在此不再贅述。 I2C總線器件的采用簡(jiǎn)化了硬件電路設(shè)計(jì),提高了可靠性。本系統(tǒng)已投入使用,經(jīng)過(guò)實(shí)際應(yīng)用表明,通信系統(tǒng)工作穩(wěn)定、可靠。滿足系統(tǒng)要求,每到一分鐘就向ATC256中寫入1條記錄(5個(gè)數(shù)據(jù)),ATC256可保存12小時(shí)的記錄,下位機(jī)需要讀取數(shù)據(jù)時(shí),可根據(jù)下位機(jī)的讀取指令讀取任意條記錄。