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 3 invités