Script com erro (Treinamento E3 Avançado)[Resolvido]

#1

Bom Dia Senhores,

Seguinte, comecei a fazer o treinamento da elipse e no pdf tem um script que não funciona

Sub ComboBox1_Change()
If value <> "" Then
Set Driver = Application.GetObject("Driver1")
Set xo = ConfigTanque.DadosTanque
' Coloca o Driver no modo Offline
porta = CLng(Value)
Driver.Write -1, 0, 0, 4, 0
' Muda a porta TCP/IP
msgbox(porta)
xo.Porta.WriteEx porta
Select Case porta
Case 502 xo.CLP = 1
Case 503 xo.CLP = 2
Case 504 xo.CLP = 3
End Select
msgbox (xo.CLP)
' Coloca o Driver no modo Online
Driver.Write -1, 0, 0, 4, 1
End If
End Sub

o Driver utilizado é o ModBus e o erro que aparece é :

#2

Se alguém puder ao menos explicar como o script funciona, por que não entendi e no pdf do treinamento só pede para copiar e colar, Obrigado.

#3

@philipe0136, boa tarde.

Em qual página está este script?

Sds.

1 Like
#4

Bom dia, Na página 40.

sds

#5

Resolvi o problema, eu o tipo da minha variável era IoTag, quando eu estava fazendo a associação com o xcontrol eu estava fazendo a associação com (.Value) no final, aí o único problema era esse, quando removi o (.Value) o problema desapareceu.

Obrigado.