cadtlf
級別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 40 個
工控威望: 174 點
下載積分: 560 分
在線時間: 83(小時)
注冊時間: 2013-06-17
最后登錄: 2024-12-04
查看cadtlf的 主題 / 回貼
樓主  發(fā)表于: 2016-04-24 21:14
小弟最近做做一個項目,要求用vb做為上位機與plc通信,本人以前只用過HMI,對VB不太孰悉,各位大蝦vb與plc如何通信呢.有沒有實例程序供小弟參考下.謝謝
shuangyu
工控行業(yè)呆的越久越迷茫.......懂得多?少?......
級別: 家園?
精華主題: 0
發(fā)帖數(shù)量: 344 個
工控威望: 891 點
下載積分: 1083 分
在線時間: 115(小時)
注冊時間: 2009-08-04
最后登錄: 2024-07-12
查看shuangyu的 主題 / 回貼
1樓  發(fā)表于: 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
工控行業(yè)呆的越久越迷茫.......懂得多?少?......
級別: 家園?
精華主題: 0
發(fā)帖數(shù)量: 344 個
工控威望: 891 點
下載積分: 1083 分
在線時間: 115(小時)
注冊時間: 2009-08-04
最后登錄: 2024-07-12
查看shuangyu的 主題 / 回貼
2樓  發(fā)表于: 2016-04-27 10:11
是的,適用于FX3U-ENET-ADP 模塊;其他端口可能設(shè)置參數(shù)不一樣
本帖最近評分記錄:
  • 下載積分:+5(liwenbin)
    shuangyu
    工控行業(yè)呆的越久越迷茫.......懂得多?少?......
    級別: 家園?
    精華主題: 0
    發(fā)帖數(shù)量: 344 個
    工控威望: 891 點
    下載積分: 1083 分
    在線時間: 115(小時)
    注冊時間: 2009-08-04
    最后登錄: 2024-07-12
    查看shuangyu的 主題 / 回貼
    3樓  發(fā)表于: 2016-04-27 13:11
    你好,我QQ是幾個月登錄一次的。用問題可以私信給我,大家探討一下,這段時間我每天會登錄一下看看的