3104159068-01

【3104159068-01伍德海德】

【3104159068-01伍德海德】

厦门莫格电气自动化有限公司是一家多年专业销售进口自动化系统（机器人系统、分布式控制系统DCS、可编程序控制器PLC、 工业控制通訊转换器 、远端输出/输入模块、人机界面）备件。以停产控制系统零部件、为优势、我们有大量库存和盈余操控系统零件、停产的控制系统部分硬件、我们也发布了许多新的硬件和产品来支持你现有的控制系统或运用的控制技术、停产的“DCS系统备品 备件 PLC模块 备件”整机及配件系列、有着强大的优势。只要您需要的PLC产品、我们就能帮您找到、公司价格优势。

    以“专业、 诚信、创新、合作、共赢”的经营理念、不断开发新产品、为客户提供优质服务、以zui大限度追求客户满意、并不断开拓新领域业务。

产品直接从境外进货、能够提供不同国别、厂商的设备以及备件、解决您多处寻找的麻烦或对产品质量问题的担心等、在价格上我们有很大的优势、产品详细信息、竭诚欢迎您来电查询！

【伍德海德】

厦门莫格电气自动化有限公司

：雷琳

：/，

通讯与组态]西门子S7-200与上位机通讯，读取温度值的程序范例！

PLC主程序
网络1
// 设置控制方式为自由口通信方式，启动接收字符中断 //
    PLC*扫描
    自由口通信，波特率为9600，数据位8，停止位1，无校验
    初始化RCV，允许RCV，有结束符，检查空闲时间 
字串6

    结束符为 A
    空闲时间为5MS
    一次接收的zui大字符为6个
    启动通信口，接收完成中断
    全局允许中断
    接收数据
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
网络2
// 检测温度送VW0 //
    转换成实际温度值
    从工作站编号送到输出缓冲区
    检测温度送输出缓冲区
LD     SM0.0
MOVW   AIW0, VW0
/I     +54, VW0
MOVW   AIW2, VW2
/I     +54, VW2
MOVW   1, VW300
MOVW   VW0, VW302
MOVW   VW2, VW304
网络3
// 设置温度控制上限和下限//
LD     SM0.0
MOVW   +350, VW4
MOVW   +450, VW6 字串7 
网络4
// 检测温度低于下限，则输出加温 //
LDW<   VW0, VW4
A      SM0.5
S      Q0.0, 1
网络5
// 检测温度高于上限，则输出降温 //
LDW>   VW0, VW6
A      SM0.5
R      Q0.0, 1
网络6
//准备传送参数 //
   发送字节数据，送VB99
   发送检测温度数据，送VW100
   发送工作站编号数据，送VW102
LD     SM0.0
MOVB   6, VB99
MOVW   VW300, VW100
MOVW   VW302, VW102
MOVW   VW304, VW104
网络7
// 传送数据 //
LD     SM0.5
XMT    VB99, 0

中断程序

网络1
//通信口接收数据完成后的中断 //
// SMB86 等于16#20，表示PLC收到结速符 //
    收到结束符，把收到的数据传到VB400
    中断有条件返回  
    否则继续接收
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                         '定义数组
Private Sub Command1_Click()             '开始监控，定时器1有效
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()             '退事程序，定时器1无效
Timer1.Enabled = False
Cls                                       '清屏 字串4 
Unload Me
End Sub
Private Sub Form_Load()                   '初始化
Timer1.Enabled = False                    '定时器1无效
Timer1.Interval = 100                     '定时器1时间为0.1S
Timer2.Enabled = True                     '定时器2有效
Timer2.Interval = 1000                    '定时器2时间为1S
Picture1.ScaleMode = 0                    '定义纵横坐标
MSComm1.CommPort = 1                      '设定端口号 字串2 
MSComm1.Settings = "9600,n,8,1"           '设定通讯波特率
MSComm1.InputLen = 6                      '输入缓冲区为6个字符
MSComm1.InBufferSize = 256                '接收缓冲器大
MSComm1.OutBufferSize = 256               '输出缓冲器大
MSComm1.InputMode = comInputModeBinary    '以二进制传输
MSComm1.OutBufferCount = 0                '清空发送缓冲区
MSComm1.InBufferCount = 0                 '清空接收缓冲区
End Sub
Private Sub Timer1_Timer()                               '定时器1有效，触发接收事件 
字串8

MSComm1.PortOpen = True                                  '打开端口
ReDim aa(0 To 5)                                         '定义动态数组
k1 = 0                                                   '识别PLC站号，为1
If k1 = 0 Then MSComm1.Output = "1" + Chr(10) + Chr(13)  '发送
Do While MSComm1.InBufferCount = 0                       '准备接收数据 
字串4

Loop
aa = MSComm1.Input                                        '接收数据存入数组
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                                     '时间增加为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)                             '输出监控时间
End Sub

6ES5345-0LA21 
6ES5942-7UH11
6ES5900-7AD11 
6ES5451-7LA12 
6ES5451-8MR12
6ES5951-7LB14 
6ES5095-8MC02
6ES5470-8MB12 
  
6ES5374-1KJ11
6ES5605-0RA11
6ES5431-4UA12
6ES5095-8MA12
6ES5948-3UR22
6ES5308-3UC21
6ES5945-7UA13 
6ES5943-7UE11
6ES5183-3UA22
6ES5927-5BA13
6ES5816-5AA01
6ES5281-4UA12
6ES5605-0UA12
6ES5985-2AA11
6ES5951-4LB11
6ES5241-1AB12
6ES5998-OUF12
6ES5340-3KA21
6ES5378-0AA41
6ES5530-3LA11
152-190
6ES5985-8MB11
6ES5484-8AD11
6ES5377-OAA11
6ES5955-3LC14
6ES5700-3LA12
6ES5635-0UA13
6ES5410-0AA51
6ES5726-2BF00
6ES5910-0AA01
6ES5670-0CA21
6ES5706-0AF00
6ES5716-0AK00
6ES5381-7AA11
6ES5911-0AA32
6ES5635-0UA11
6ES5374-1FJ21
6ES5305-7LA11 
6ES5816-1BB21
6ES5487-3LA11
6ES5375-OLA15
6ES5947-3UR11
6ES5946-3UR11
6ES5135-3UA21
6ES5456-6AA11
6ES5457-5AB11
6ES5941-7UA12 
6ES5420-8MD11
6ES5405-7AA21
6ES5281-4UA11
6ES5905-3RB11
6ES5260-4UA11
6ES5981-8MA11
6ES5434-7LA11 
6MA5610-1AB11
6ES5318-8MB13 
6ES5135-3UA31
6ES5135-3KA31
6ES988-3NA11
6ES5998-1UL11
6ES5998-3RP11
6ES5307-3UA11
6ES5245-1AB12
6ES5480-1AA12
6ES5624-3UA12
6ES5465-5aa1
6es5454-5aa11
6ES5445-3AA12
6ES5925-5AA12
6ES5465-5AA12
6ES5710-0SA41
6ES5701-1LA12 
6ES5377-OAB21
6ES5376-OAA11
6ES5461-8MA12
6ES5377-0AA61
6ES5911-0AA51
6ES5700-8AM11
6ES5731-0NBD20
6ES5373-0LA41
6ES5101-8UC31
6ES5727-1BD00
6ES5700-2BD11 
6ES5135-3KA12
6ES5943-3UA11
6ES5955-3LF11
6ES5101-8UC13
6ES5926-5AA12
6ES5110-3SA12
6ES5954-7LB14