《1 前言》

1 前言

《2 智能多路温度采集系统构成及特点》

2 智能多路温度采集系统构成及特点

《图1》

Fig.1 Diagram of principle for intelligent multiplex temperature collecting system

《3 放大电路结构与特点》

3 放大电路结构与特点

Table 1 The anticipant output of amplification circuit mV

《图2》

《图3》

《图4》

Fig.2 Amplification circuit of secondstage and thirdstage

《图5》

R7=R4=10 kΩ, R5=15 kΩ, R6=10 kΩ, VR1为0～50 kΩ的可调电阻。

《图6》

《图7》

《4 电压-频率转换电路》

4 电压-频率转换电路

《图8》

Fig.3 The output driving circuit with optoelectronic isolators

《图9》

Fig.4 Signal amplifier and voltage to frequency converter

《5 数据的存储及后向通道》

5 数据的存储及后向通道

《图10》

Fig.5 Configure of the system

《6 基于89S52的串行数据通信》

6 基于89S52的串行数据通信

《图11》

Fig.6 Serial communication circuit using MAX232

《7 应用》

7 应用

《图12》

Fig.7 The temperature of transition heat apparatus and heat pump supplying water

《8 结语》

8 结语

Dim TEMP () As Byte, num1 () , BYTBUF ()

Dim num3 (0 To 1025) As Variant

Dim NUM As Byte

Open App.Path & “\temp.dat” For Binary As #1

For i = LBound (TEMP) To UBound (TEMP)

NUM = TEMP (i)

Put #1, , NUM

Next i

Close #1

End Sub

Private Sub CmdOpen-Click ()

Static M As Long

Dim CH As Integer

Dim K As LongStatic num2 (0 To 6000) As Variant

CommonDialog1.InitDir = App.Path

CommonDialog1.Filter = “data files (*.dat) ”

CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Binary As #2

ReDim BYTBUF (0 To LOF (2) ) As Byte

Get #2, , BYTBUF ()

MSFlexGrid.Cols = CH + 1

For K = 6 To 2040 Step 2

num2 (M) = BYTBUF (K - 1) ·100 + BYTBUF (K)

M = M + 1

Next K

If Val (Text4.Text) = 1 Then

For j = 0 To 1200 / CH

For i=j*CH To (j + 1) * CH - 2

num2 (i + 1) =num2 (i + 1) - num2 (j * CH)

Next i

Next j

Else

For j = 0 To 1200 / CH

For i = j * CH To (j + 1) * CH - 2

num2 (i + 1) = num2 (i + 1) - num2 (j * CH)

Next i

Next j

End If

For intLoopindex = 1 To MSFlexGrid.Cols - 1

MSFlexGrid.Row = 0

MSFlexGrid.Col = intLoopindex

MSFlexGrid.Text = Str (intLoopindex)

Next intLoopindex

For i = 1 To 200

For j = 1 To CH

MSFlexGrid.Row = i

MSFlexGrid.Col = j

MSFlexGrid.Text = num2 (s)

s = s + 1

Next j

Next i

Close #2

End Sub

Private Sub CmdStop-Click ()

Kill App.Path & “\temp.dat”