


A+
Hugo
Var 0000, name INIT
{
&CONTROL = TIMER 999 ,0 ,2
}
Var 0001, name MARGE_ERREUR, Value 5
Var 0002, name PA_ACTIF, Value 0
Var 0003, name MOTOR_1, Link USB_DCMOTOR, Output 1
Var 0004, name THR_MOTOR1_FS, Link FSUIPC_INOUT, Offset $088C, Length 2
{
&THR_MOTOR1_LIS = &THR_MOTOR1_FS / 64.25
}
Var 0005, name POTAR_THR1, Link IOCARD_ANALOGIC, Input 1, PosL 50, PosC 125, PosR 200
{
&DIF = &THR_MOTOR1_LIS - &POTAR_THR1
}
Var 0006, name THR_MOTOR1_LIS
{
&DIF = &THR_MOTOR1_LIS - &POTAR_THR1
}
Var 0007, name CONTROL, Link SUBRUTINE
{
IF &PA_ACTIF = 1
{
IF &DIF >= &MARGE_ERREUR
{
IF &DIF < 0
{
&MOTOR_1 = 127
}
IF &DIF > 0
{
&MOTOR_1 = -1
}
}
}
}
Var 0008, name DIF
Var 0000, name INIT
Var 0001, name MARGE_ERREUR, Value 5
Var 0002, name PA_ACTIF, Value 0
Var 0003, name MOTOR_1, Link USB_DCMOTOR, Output 1
Var 0004, name THR_MOTOR1_FS, Link FSUIPC_INOUT, Offset $088C, Length 2
{
&THR_MOTOR1_LIS = &THR_MOTOR1_FS / 64.25
}
Var 0005, name POTAR_THR1, Link IOCARD_ANALOGIC, Input 1, PosL 50, PosC 125, PosR 200
{
&DIF = &THR_MOTOR1_LIS - &POTAR_THR1
IF &PA_ACTIF = 1
{
IF &DIF_ABSOLUE >= &MARGE_ERREUR
{
IF &DIF < 0
{
&MOTOR_1 = 127
}
IF &DIF > 0
{
&MOTOR_1 = -1
}
}
ELSE
{
&MOTOR_1 = 0
}
}
}
Var 0006, name THR_MOTOR1_LIS
{
&DIF = &THR_MOTOR1_LIS - &POTAR_THR1
IF &PA_ACTIF = 1
{
IF &DIF_ABSOLUE >= &MARGE_ERREUR
{
IF &DIF < 0
{
&MOTOR_1 = 127
}
IF &DIF > 0
{
&MOTOR_1 = -1
}
}
ELSE
{
&MOTOR_1 = 0
}
}
}
Var 0008, name DIF
{
&DIF_ABSOLUE = ABS &DIF
}
Var 0009, name DIF_ABSOLUE
Var 0000, name INIT
{
&CONTROL = TIMER 999 ,0 ,2
}
Var 0001, name MARGE_ERREUR, Value 5
Var 0002, name PA_ACTIF, Value 0
Var 0003, name MOTOR_1, Link USB_DCMOTOR, Output 1
Var 0004, name THR_MOTOR1_FS, Link FSUIPC_INOUT, Offset $088C, Length 2
{
&THR_MOTOR1_LIS = &THR_MOTOR1_FS / 64.25
}
Var 0005, name POTAR_THR1, Link IOCARD_ANALOGIC, Input 1, PosL 50, PosC 125, PosR 200
{
&DIF = &THR_MOTOR1_LIS - &POTAR_THR1
}
Var 0006, name THR_MOTOR1_LIS
{
&DIF = &THR_MOTOR1_LIS - &POTAR_THR1
}
Var 0007, name CONTROL, Link SUBRUTINE
{
IF &PA_ACTIF = 1
{
IF &DIF >= &MARGE_ERREUR
{
IF &DIF < 0
{
&MOTOR_1 = 127
}
IF &DIF > 0
{
&MOTOR_1 = -1
}
}
}
ELSE
{
&MOTOR_1 = 0
}
}
Var 0008, name DIF
Retourner vers Programmation Sioc
Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 2 invités