KD1212PMB1-6A

• 型号：KD1212PMB1-6A


• 数量：100


• 制造商：上海曦龙电气设备有限公司


• 有效期：2017/7/20 0:00:00

KD1212PMB1-6A

工业风扇代理销售:

联系人：程先生

手机：139188-64473

手机：139188-64473

 QQ:937926739  

固话：021-6131-6707

固话：021-6131-8625

前段时间与几家做风机制造的新客户联系，他们对都很了解，计划引入设备。目前他们大多采用手工等离子切割，或者有些是拿到外面加工厂外协，特别是自己的一些客户对风机制造精度的要求更高，看到同行上了风机制造数控等离子切割机后，自己也在考虑计划当中。

   随着社会的进步，对金属板材下料以及风机制作要求也越来越高。西南某制作消防通风设备制造的公司，专门制作高端离心风机，轴流风机，船用风机，棉花机械专用风机，锅炉通风机，罗茨风机风管金属板材下料等金属制品等。使用武汉华宇诚风机数控等离子切割机前，采用手工等离子切割，由于手工等离子切割机精度不够高，切割面毛糙，所以手工等离子切割机切割的金属板材还要人工打磨第二次加工，很费事费工。有时也委托其他厂家的风机数控切割机加工，遇到别人加工活忙时，往往要等几天，很耽误时间。 使用武汉华宇诚风机制造数控等离子切割机后，切割的金属板材精度高，一次下料完成，不需要二次加工。切割不锈钢金属板材都是用来制作风机。除切割不锈钢外，风机数控等离子切割机还可以切割铁板、铝板、镀锌板、白钢板、钛金板、铜板等各类导电金属。

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

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                                        '清屏

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                       '设定端口号

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有效，触发接收事件

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                        '准备接收数据

Loop

• 电话：13918864473
• 传真：021-61318625
• email：937926739@qq.com