[

　　Public Sub Form_Load（）

　　Dim ss As String

　　Dim msg As Integer

　　plcadr（0）.adr = 2

　　plcadr（0）.SEGMENTID = 0

　　plcadr（0）.RACKNO = 0

　　plcadr（0）.SLOTNO = 2

　　plcadr（1）.adr = 0 

　　plcadr（1）.SEGMENTID = 0

　　plcadr（1）.RACKNO = 0

　　plcadr（1）.SLOTNO = 2

　　res = load_tool（1, "S7ONLINE", plcadr（0））

　　If （res <> 0） Then

　　ss = "通讯失败，无法建立连接！"

　　msg = MsgBox（ss, vbExclamation + vbRetryCancel, "提示信息！"）

　　If msg = 4 Then Call Form_Load

　　Else： maincontr.Show

　　End If

　　End Sub

    上述代码执行时，用户启动上位机监控系统软件，软件首先检查是否有在线的PLC连接，如果在线连接成功，即上位监控计算机经由适配器与PLC的CPU模块通讯无误，那么系统将执行maincontr.Show语句，显示主监控界面。否则，将显示"提示信息"对话框，提示操作人员无法与PLC建立通讯，操作人员应当检查通信线路，然后重试建立连接，或者取消连接检查而直接查看监控画面。

[本文共有 4 页，当前是第 2 页] <<上一页 下一页>>

]

有搞不定的程序，交给机电之家吧！去悬赏竞标