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