LOGICLAB/MOVICON: Problemi con Esecuzione di Basic Scripts
Posted: 19/10/2018, 22:27
Salve,
sto cercando di capire se passare l'interfaccia grafica della mia applicazione (attualmente sviluppata con PageLab) su Movicon.
Ho creato alcune pagine che replicano quelle del progetto originale e ho provato a riscrivere le funzionalità come erano fatte sul progetto originale dove sono presenti alcuni tasti che settano banalmente una variabile alla pressione, e, altri tasti che eseguono una procedura.
Ho visto che in Movicon, l'analogo della procedura di PageLab è un Basic Script.
Durante la simulazione, quando tocco il tasto che deve eseguire il basic script, vedo una finestra pop up con il seguente messaggio d'errore: Errore di Automazione ActiveX.
L'errore viene indicato nella riga 2 del seguente script:
Sub Main()
If (GetVariableValue("OFFROT") Is False) Then
Dim bRet As Boolean
bRet = SetVariableValue("FAST", False)
bRet = SetVariableValue("OFFROT", False)
bRet = SetVariableValue("OFFTRA", False)
bRet = SetVariableValue("STATO", 2)
bRet = SetVariableValue("Disattiva", True)
bRet = SetVariableValue("Attiva", False)
bRet = SetVariableValue("LAV_STATUS", True)
bRet = SetVariableValue("FAST_ACTIVE", True)
ElseIf (GetVariableValue("OFFROT") Is True) Then
bRet = SetVariableValue("FAST", False)
bRet = SetVariableValue("OFFROT", False)
bRet = SetVariableValue("OFFTRA", False)
bRet = SetVariableValue("STATO", 2)
bRet = SetVariableValue("Disattiva", True)
bRet = SetVariableValue("Attiva", False)
bRet = SetVariableValue("LAV_STATUS", True)
bRet = SetVariableValue("FAST_ACTIVE", True)
bRet = SetVariableValue("TW_TRA_CTR_QCKSTP", False)
bRet = SetVariableValue("TW_ROT_CTR_QCKSTP", False)
End If
End Sub
Controllando la documentazione MoviCon, lo script sembra scritto con una semantica corretta, però non riesco a capire il motivo dell'errore.
Ovviamente, il driver e l'importazione delle variabili da LogicLab è stata eseguita passo passo seguendo il tutorial ed il tutorial di esempio.
Avete qualche suggerimento o consiglio?
sto cercando di capire se passare l'interfaccia grafica della mia applicazione (attualmente sviluppata con PageLab) su Movicon.
Ho creato alcune pagine che replicano quelle del progetto originale e ho provato a riscrivere le funzionalità come erano fatte sul progetto originale dove sono presenti alcuni tasti che settano banalmente una variabile alla pressione, e, altri tasti che eseguono una procedura.
Ho visto che in Movicon, l'analogo della procedura di PageLab è un Basic Script.
Durante la simulazione, quando tocco il tasto che deve eseguire il basic script, vedo una finestra pop up con il seguente messaggio d'errore: Errore di Automazione ActiveX.
L'errore viene indicato nella riga 2 del seguente script:
Sub Main()
If (GetVariableValue("OFFROT") Is False) Then
Dim bRet As Boolean
bRet = SetVariableValue("FAST", False)
bRet = SetVariableValue("OFFROT", False)
bRet = SetVariableValue("OFFTRA", False)
bRet = SetVariableValue("STATO", 2)
bRet = SetVariableValue("Disattiva", True)
bRet = SetVariableValue("Attiva", False)
bRet = SetVariableValue("LAV_STATUS", True)
bRet = SetVariableValue("FAST_ACTIVE", True)
ElseIf (GetVariableValue("OFFROT") Is True) Then
bRet = SetVariableValue("FAST", False)
bRet = SetVariableValue("OFFROT", False)
bRet = SetVariableValue("OFFTRA", False)
bRet = SetVariableValue("STATO", 2)
bRet = SetVariableValue("Disattiva", True)
bRet = SetVariableValue("Attiva", False)
bRet = SetVariableValue("LAV_STATUS", True)
bRet = SetVariableValue("FAST_ACTIVE", True)
bRet = SetVariableValue("TW_TRA_CTR_QCKSTP", False)
bRet = SetVariableValue("TW_ROT_CTR_QCKSTP", False)
End If
End Sub
Controllando la documentazione MoviCon, lo script sembra scritto con una semantica corretta, però non riesco a capire il motivo dell'errore.
Ovviamente, il driver e l'importazione delle variabili da LogicLab è stata eseguita passo passo seguendo il tutorial ed il tutorial di esempio.
Avete qualche suggerimento o consiglio?