利用VB實(shí)現(xiàn)溫度儀表具有多種功能

陳慶峰，宮志清，韓　冬

(1.長(zhǎng)春機(jī)械科學(xué)研究院有限公司，吉林 長(zhǎng)春 130103；2.吉林省鵬程電器消防設(shè)備有限公司，吉林 長(zhǎng)春 130062)

?

利用VB實(shí)現(xiàn)溫度儀表具有多種功能

陳慶峰1，宮志清2，韓冬1

(1.長(zhǎng)春機(jī)械科學(xué)研究院有限公司，吉林 長(zhǎng)春 130103；2.吉林省鵬程電器消防設(shè)備有限公司，吉林 長(zhǎng)春 130062)

摘要：通過(guò)VB程序設(shè)計(jì)，實(shí)現(xiàn)了溫度儀表具有多組設(shè)定值、加熱功率和PID參數(shù)功能。經(jīng)過(guò)多次試驗(yàn)，結(jié)果表明，該功能提升了溫度儀表的性能，使其具有較高的性價(jià)比。

關(guān)鍵詞：設(shè)定值；PID參數(shù)；VB；溫度儀表

1引言

普通溫度儀表只有一組溫度設(shè)定值、輸出功率和PID參數(shù)，但是，溫控系統(tǒng)每次升溫的設(shè)置值可能是不同的，那么就需要經(jīng)常更改溫度儀表的輸出功率和PID參數(shù)，這增加了操作員的工作量，并且容易出錯(cuò)。為此，利用VB設(shè)計(jì)了溫度儀表的多組溫度設(shè)定值、輸出功率和PID參數(shù)功能。

2設(shè)計(jì)思路

為了使溫度儀表具有多組溫度設(shè)定值、輸出功率和PID參數(shù)功能，首先必須通過(guò)多次試驗(yàn)，測(cè)試出多組溫度設(shè)定值對(duì)應(yīng)的輸出功率和PID參數(shù)，然后輸入并且存儲(chǔ)到軟件表格中。在啟動(dòng)升溫時(shí)，軟件根據(jù)溫度設(shè)定值，自動(dòng)將對(duì)應(yīng)的輸出功率和PID參數(shù)寫入到溫度儀表中。

3軟件設(shè)計(jì)

VB軟件在設(shè)計(jì)上分為保存溫度儀表參數(shù)和寫入溫度儀表參數(shù)2個(gè)模塊，下面詳細(xì)介紹各模塊的設(shè)計(jì)方法。

3.1保存溫度儀表參數(shù)

保存溫度儀表參數(shù)界面如圖1所示。

圖1　保存溫度儀表參數(shù)界面

該界面保存了溫度儀表的12套參數(shù)，分為≤70℃，>70℃并且≤150℃，>150℃并且≤250℃，>250℃并且≤350℃，>350℃并且≤450℃，>450℃并且≤550℃，>550℃并且≤650℃，>650℃并且≤750℃，>750℃并且≤850℃，>850℃并且≤950℃，>950℃并且≤1050℃，>1050℃。

保存溫度儀表參數(shù)的代碼如下(只列出上段溫控表SV的保存代碼，其它參數(shù)同理)：

For i = 0 To 11

Sys00_SV_A(CurrentSys - 1, i) = CSng(txtSVA(i).Text)

bln00_SV_A(CurrentSys - 1, i) = CByte(chkSVA(i).Value)

Next i

filenum = FreeFile()

Open strSaveFile & "WENSET.DAT" For Output As #filenum

For i = SysStartNo To SYSNUM

For ii = 0 To 11 Write #filenum, i, "00- SV", bln00_SV_A(i - 1, ii), Sys00_SV_A(i - 1, ii) Next ii

Next i

Close #filenum

3.2寫入溫度儀表參數(shù)

(1)儀表通信協(xié)議

溫度儀表通信協(xié)議為1個(gè)起始位，8位數(shù)據(jù)，無(wú)校驗(yàn)位，1個(gè)停止位。設(shè)置完畢通信協(xié)議后，打開串口，代碼如下：

MSComm1.Settings = "9600,n,8,1"

If MSComm1.PortOpen = False Then

MSComm1.PortOpen = True

End If

(2)參數(shù)寫入溫度儀表

下面以溫度儀表設(shè)定溫度SV這個(gè)參數(shù)為例，命令代碼如下：

Dim addr As Integer′儀表地址

Dim Bytes(7) As Byte′寫指令的數(shù)組

Dim CRC As Integer′寫指令的CRC校驗(yàn)碼

Dim Temp As Integer′設(shè)定溫度SV值

addr=0

Temp= Sys00_SV_A(CurrentSys - 1, 0)

Bytes(0) = &H80 + addr

Bytes(1) = &H80 + addr

Bytes(2) = &H43

Bytes(3) = &H0

Bytes(4) = Temp And &HFF

Bytes(5) = Int(Temp / 256) And &HFF

CRC = Bytes(3) * 256 + Bytes(2) + Temp + addr

Bytes(6) = CRC And &HFF

Bytes(7) = Int(CRC / 256) And &HFF

MSComm1.Output = Bytes

4試驗(yàn)驗(yàn)證

圖2、圖3為600℃和850℃的升溫曲線，X軸為

圖2　600°試驗(yàn)曲線

試驗(yàn)時(shí)間，單位是小時(shí)，Y軸為試驗(yàn)溫度，單位是攝氏度。從曲線圖中可以看出，溫度波動(dòng)度和溫度梯度都小于2℃，完全滿足試驗(yàn)要求。

圖3　850°試驗(yàn)曲線

5總結(jié)

通過(guò)VB程序設(shè)計(jì)，實(shí)現(xiàn)了溫度儀表的多組溫度設(shè)定值、輸出功率和PID參數(shù)功能，減少了操作員的工作量。經(jīng)過(guò)多次試驗(yàn)驗(yàn)證，該功能穩(wěn)定可靠，具有較高的性價(jià)比。

參考文獻(xiàn)

[1]韓衛(wèi)媛,楊艷.基于VB的計(jì)算機(jī)串口通訊技術(shù)的實(shí)現(xiàn)[J].長(zhǎng)江大學(xué)學(xué)報(bào),2010,7(3).

[2]陳慶峰,王戈,吳丹,等.計(jì)算機(jī)技術(shù)在Zwick溫控系統(tǒng)改造上的應(yīng)用[J].工程與試驗(yàn),2011,51(2):69-71.

[3]王永明,袁德志,陳景光,等.基于FPGA的PCI接口IO卡設(shè)計(jì)[J].工程與試驗(yàn),2011,51(2):63-65.

[收稿日期]2016-04-12

[作者簡(jiǎn)介]陳慶峰(1976-)，男，本科學(xué)歷，高級(jí)工程師，主要研究方向：計(jì)算機(jī)控制系統(tǒng)設(shè)計(jì)與研發(fā)。

中圖分類號(hào)：TH811

文獻(xiàn)標(biāo)識(shí)碼：B

doi：10.3969/j.issn.1674-3407.2016.02.020

Realization of Temperature Instrument with Multiple Functions by Using VB

Chen Qingfeng1, Gong Zhiqing2, Han Dong1

(Changchun Research Institute for Mechanical Science Co., Ltd. Changchun 130103, Jilin, China)

Abstract：Through the VB program design, it is realized that the temperature instrument has the functions of multiple set values, heating power and PID parameters. Many test results show that the functions promote the performance of temperature instrument, and makes the temperature instrument has high performance-price ratio.

Keywords:set value; PID parameter; VB; temperature instrument