Mitsubishi Electric QJ71E71-100 User Manual page 394

(a) Visual Basic
Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Command1.Click
' ****************************************
' Connection
' *****************************************
Dim rtn As Integer
'Get LogicalstationNumber
AxActEasyIF1.ActLogicalStationNumber = Val(Text1.Text)
'Connection
rtn = AxActEasyIF1.Open()
If rtn = 0 Then
Else
End If
End Sub
Private Sub Command2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Command2.Click
' ****************************************
' Read
' *****************************************
Dim rtn As Integer
Dim idata(5) As Short
'D0-D4 (5 points) are read
rtn = AxActEasyIF1.ReadDeviceBlock2("D0", 5, idata(0))
If rtn = 0 Then
Else
End If
End Sub
(To the next page)
392
® .NET 2003
MsgBox("The Connection was successful")
MsgBox("Connection Error:" & Hex(rtn))
MsgBox("D0-D4 = " & idata(0) & "," & idata(1) & "," & idata(2) & "," & idata(3) &
"," & idata(4))
MsgBox(Read Error:" & Hex(rtn))