西門子S7-200與上位機(jī)通訊，讀取溫度值的程序范例！

通訊與組態(tài)]西門子S7-200與上位機(jī)通訊，讀取溫度值的程序范例！

PLC主程序
網(wǎng)絡(luò)1
// 設(shè)置控制方式為自由口通信方式，啟動(dòng)接收字符中斷 //
    PLC掃描
    自由口通信，波特率為9600，數(shù)據(jù)位8，停止位1，無校驗(yàn)
    初始化RCV，允許RCV，有結(jié)束符，檢查空閑時(shí)間 
字串6

    結(jié)束符為 A
    空閑時(shí)間為5MS
    一次接收的zui大字符為6個(gè)
    啟動(dòng)通信口，接收完成中斷
    全局允許中斷
    接收數(shù)據(jù)
LD     SM0.1
MOVB   16#09, SMB30
MOVB   16#B0, SMB87
MOVB   16#0A, SMB89
MOVB   6, SMB94
ATCH   INT_0, 23
ENI
RCV    VB199, 0
網(wǎng)絡(luò)2
// 檢測溫度送VW0 //
    轉(zhuǎn)換成實(shí)際溫度值
    從工作站編號(hào)送到輸出緩沖區(qū)
    檢測溫度送輸出緩沖區(qū)
LD     SM0.0
MOVW   AIW0, VW0
/I     +54, VW0
MOVW   AIW2, VW2
/I     +54, VW2
MOVW   1, VW300
MOVW   VW0, VW302
MOVW   VW2, VW304
網(wǎng)絡(luò)3
// 設(shè)置溫度控制上限和下限//
LD     SM0.0
MOVW   +350, VW4
MOVW   +450, VW6 字串7 
網(wǎng)絡(luò)4
// 檢測溫度低于下限，則輸出加溫 //
LDW<   VW0, VW4
A      SM0.5
S      Q0.0, 1
網(wǎng)絡(luò)5
// 檢測溫度高于上限，則輸出降溫 //
LDW>   VW0, VW6
A      SM0.5
R      Q0.0, 1
網(wǎng)絡(luò)6
//準(zhǔn)備傳送參數(shù) //
   發(fā)送字節(jié)數(shù)據(jù)，送VB99
   發(fā)送檢測溫度數(shù)據(jù)，送VW100
   發(fā)送工作站編號(hào)數(shù)據(jù)，送VW102
LD     SM0.0
MOVB   6, VB99
MOVW   VW300, VW100
MOVW   VW302, VW102
MOVW   VW304, VW104
網(wǎng)絡(luò)7
// 傳送數(shù)據(jù) //
LD     SM0.5
XMT    VB99, 0

中斷程序

網(wǎng)絡(luò)1
//通信口接收數(shù)據(jù)完成后的中斷 //
// SMB86 等于16#20，表示PLC收到結(jié)速符 //
    收到結(jié)束符，把收到的數(shù)據(jù)傳到VB400
    中斷有條件返回  
    否則繼續(xù)接收
LDB=   SMB86, 16#20
MOVB   VB200, VB400 字串5 
CRETI
NOT
RCV    VB199, 0

*******************************

VB源程序

Dim x1, k1, k2
Dim p11, p22                             '定義變量
Dim aa() As Byte                         '定義數(shù)組
Private Sub Command1_Click()             '開始監(jiān)控，定時(shí)器1有效
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()             '退事程序，定時(shí)器1無效
Timer1.Enabled = False
Cls                                       '清屏 字串4 
Unload Me
End Sub
Private Sub Form_Load()                   '初始化
Timer1.Enabled = False                    '定時(shí)器1無效
Timer1.Interval = 100                     '定時(shí)器1時(shí)間為0.1S
Timer2.Enabled = True                     '定時(shí)器2有效
Timer2.Interval = 1000                    '定時(shí)器2時(shí)間為1S
Picture1.ScaleMode = 0                    '定義縱橫坐標(biāo)
MSComm1.CommPort = 1                      '設(shè)定端口號(hào) 字串2 
MSComm1.Settings = "9600,n,8,1"           '設(shè)定通訊波特率
MSComm1.InputLen = 6                      '輸入緩沖區(qū)為6個(gè)字符
MSComm1.InBufferSize = 256                '接收緩沖器大小
MSComm1.OutBufferSize = 256               '輸出緩沖器大小
MSComm1.InputMode = comInputModeBinary    '以二進(jìn)制傳輸
MSComm1.OutBufferCount = 0                '清空發(fā)送緩沖區(qū)
MSComm1.InBufferCount = 0                 '清空接收緩沖區(qū)
End Sub
Private Sub Timer1_Timer()                               '定時(shí)器1有效，觸發(fā)接收事件 
字串8

MSComm1.PortOpen = True                                  '打開端口
ReDim aa(0 To 5)                                         '定義動(dòng)態(tài)數(shù)組
k1 = 0                                                   '識(shí)別PLC站號(hào)，為1
If k1 = 0 Then MSComm1.Output = "1" + Chr(10) + Chr(13)  '發(fā)送
Do While MSComm1.InBufferCount = 0                       '準(zhǔn)備接收數(shù)據(jù) 
字串4

Loop
aa = MSComm1.Input                                        '接收數(shù)據(jù)存入數(shù)組
If aa(0) > 64 Then GoTo xxx:
k2 = Int(aa(0) * 255 + aa(1) * 1)
Select Case k2
Case 1
p11 = Int(aa(2) * 255 + aa(3) * 1)
p22 = Int(aa(4) * 255 + aa(5) * 1)
Case Else
End Select
k1 = k1 + 1
If k1 > 2 Then k1 = 0
xxx:
MSComm1.PortOpen = False
End Sub
Private Sub Timer2_Timer()                      '繪制各中頻爐的溫度曲線
x1 = x1 + 1                                     '時(shí)間增加為1S
Picture1.PSet (x1, p11), vbRed                  '繪制1#爐的溫度曲線，為紅色 
字串9

Picture1.PSet (x1, p22), vbBlue                 '繪制2#爐的溫度曲線，為黃色
Text1.Text = Str(p11)                           '輸出1#爐溫度值
Text2.Text = Str(p22)                           '輸出2#爐溫度值
Text3.Text = Str(x1)                             '輸出監(jiān)控時(shí)間
End Sub