Mitsubishi Electric MELSEC System Q QJ71E71-100 Manual De Usuario página 366

APPENDIX
Private Sub Command1_Click()
'
' Conexión
'
Dim rtn As Long
' Get LogicalstationNumber
ActEasyIF1. ActLogicalStationNumber = Val(Text1.Text)
' Conexión
rtn = ActEasyIF1. Open()
If rtn = 0 Then
MsgBox "The connection was successful"
Else
MsgBox "Connection Error:" & Hex(rtn)
End If
End Sub
Private Sub Command2_Click()
'
' Lectura
'
Dim rtn As Long
Dim idata(5) As Integer
' D0-D4 are read
rtn = ActEasyIF1. ReadDeviceBlock2 ("D0", 5, idata(0))
If rtn = 0 Then
MsgBox "D0-D5 = " & idata(0) & ", " & idata(1) & ", " & idata(2) & ", " & idata(3) & "," & idata(4)
Else
MsgBox "Read Error:" & Hex(rtn)
End If
End Sub
App - 33
(2) Ejemplo de programa
El siguiente ejemplo de programa lee D0 a D4 (cinco direcciones) del PLC de
destino usando el número de estación lógica.
(a) Cuando se usa Visual Basic
1) Ejemplo de pantalla (Formulario1)
Texto1
' Ingrese el número lógico de la estación.
Control ACT (IF ActEasy)
' Control ACT para tipo de asignación de utilidad
2) Ejemplo de programa
®
Comando1
' Conecte a la línea de comunicación
Comando2
' Lea los datos del dispositivo.
Comando3
' Corte la línea de comunicación.
MELSEC-Q
App - 33