Mitsubishi Electric MELSEC System Q Bedienungsanleitung Seite 431

An hang
Visual Basic
Pri vate Sub Command1_Click(ByVal sender As Sys tem.Object, ByVal e As Sys tem.EventArgs) Han dles
Command1.Click
' ****************************************
' Con nec tion
' *****************************************
Dim rtn As Inte ger
End Sub
Pri vate Sub Command2_Click(ByVal sender As Sys tem.Object, ByVal e As Sys tem.EventArgs) Han dles
Command2.Click
' ****************************************
' Read
' *****************************************
Dim rtn As Inte ger
Dim idata(5) As Short
End Sub
(Fort set zung auf der nächs ten Seite)
MELSEC System Q Ethernet-Module
®
.NET 2003
'Get LogicalstationNumber
AxActEasyIF1.ActLogicalStationNumber = Val(Text1.Text)
'Con nec tion
rtn = AxActEasyIF1.Open()
If rtn = 0 Then
MsgBox(„The Con nec tion was suc cess ful")
Else
MsgBox(„Con nec tion Error:" & Hex(rtn))
End If
'D0-D4 (5 points) are read
rtn = AxActEasyIF1.ReadDeviceBlock2(„D0", 5, idata(0))
If rtn = 0 Then
MsgBox(„D0-D4 = " & idata(0) & „," & idata(1) & „," & idata(2) & „," & idata(3) &
„," & idata(4))
Else
MsgBox(Read Error:" & Hex(rtn))
End If
Beispiel für die Anwendung von MX Component
A - 41