Mitsubishi QJ71C24N - Page 402

App. - 29 App. - 29
MELSEC-Q
A
PPENDIXES
(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
R
is used
1) Screen example (Form1)
Command1 or Button1
' Connect to the communication line.
Command2 or Button2
' Read the device data.
Command3 or Button3
' Cut the communication line.
Text1
' Enter the logical station number.
ACT control (ActEasy IF)
' ACT control for utilit
y
settin
g
t
y
pe
(b) Program example
For each development software, the program examples are described
below.
1) Visual Basic
R
.NET 2003
2) Visual C++
R
.NET 2003
3) Visual Basic
R
6.0
4) Visual C++
R
6.0
1) When Visual Basic
R
.NET 2003 is used
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