Mitsubishi QJ71C24N User Manual page 402

APPENDIXES
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
MsgBox("The connection was successful")
Else
MsgBox("Connection Error :" & Hex(rtn))
End If
End Sub
App. - 29
(2) Sample program
The following sample program reads D0 to D4 (five points) of the target
programmable controller using the logical station number.
(a) When Visual Basic
1) Screen example (Form1)
ACT control (ActEasy IF)
' ACT control for utility setting type
(b) Program example
For each development software, the program examples are described
below.
1) Visual Basic
2) Visual C++
3) Visual Basic
4) Visual C++
1) When Visual Basic
is used
R
Text1
' Enter the logical station number.
Command1 or Button1
' Connect to the communication line.
Command2 or Button2
' Read the device data.
Command3 or Button3
' Cut the communication line.
.NET 2003
R
.NET 2003
R
6.0
R
6.0
R
.NET 2003 is used
R
MELSEC-Q
App. - 29