cadtlf
级别: 探索解密
精华主题: 0
发帖数量: 40 个
工控威望: 174 点
下载积分: 560 分
在线时间: 83(小时)
注册时间: 2013-06-17
最后登录: 2024-09-16
查看cadtlf的 主题 / 回贴
楼主  发表于: 2016-04-24 21:14
小弟最近做做一个项目,要求用vb做为上位机与plc通信,本人以前只用过HMI,对VB不太孰悉,各位大虾vb与plc如何通信呢.有没有实例程序供小弟参考下.谢谢
shuangyu
工控行业呆的越久越迷茫.......懂得多?少?......
级别: 家园常客
精华主题: 0
发帖数量: 344 个
工控威望: 891 点
下载积分: 1083 分
在线时间: 115(小时)
注册时间: 2009-08-04
最后登录: 2024-07-12
查看shuangyu的 主题 / 回贴
1楼  发表于: 2016-04-25 15:05
    Function NewPLCFXENTE(ByVal PortNum As String) As Object
        Try
            Dim PLCFX As New ActProgTypeLib.ActProgType
            Dim PLCType As Integer = 520
            Dim PLCUnitType As Integer = 74
            Dim PLCUnitNumber As Integer = 0
            Dim PLCPrgType As Integer = 5
            Dim PLCHostAddress As String = ""
            Dim PLCTimeOut = 500


            With PLCFX
                .ActCpuType = PLCType
                .ActUnitType = PLCUnitType
                .ActUnitNumber = PLCUnitNumber
                .ActProtocolType = PLCPrgType
                ' .ActHostAddress = "192.168.1." & PortNum
                .ActHostAddress = PortNum
                .ActTimeOut = PLCTimeOut
            End With

            Return PLCFX
        Catch ex As Exception
            MsgBox(ex.Message)
            MLog.LogErrWrite(ex.ToString)
        End Try

    End Function

  PLC0 = PLCM.NewPLCFXENTE(IPAddress(0))
            PLCConErr(0) = PLC0.Open
shuangyu
工控行业呆的越久越迷茫.......懂得多?少?......
级别: 家园常客
精华主题: 0
发帖数量: 344 个
工控威望: 891 点
下载积分: 1083 分
在线时间: 115(小时)
注册时间: 2009-08-04
最后登录: 2024-07-12
查看shuangyu的 主题 / 回贴
2楼  发表于: 2016-04-27 10:11
是的,适用于FX3U-ENET-ADP 模块;其他端口可能设置参数不一样
本帖最近评分记录:
  • 下载积分:+5(liwenbin)
    shuangyu
    工控行业呆的越久越迷茫.......懂得多?少?......
    级别: 家园常客
    精华主题: 0
    发帖数量: 344 个
    工控威望: 891 点
    下载积分: 1083 分
    在线时间: 115(小时)
    注册时间: 2009-08-04
    最后登录: 2024-07-12
    查看shuangyu的 主题 / 回贴
    3楼  发表于: 2016-04-27 13:11
    你好,我QQ是几个月登录一次的。用问题可以私信给我,大家探讨一下,这段时间我每天会登录一下看看的