Advertisement
Guest User

Untitled

a guest
Sep 23rd, 2017
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.61 KB | None | 0 0
  1.             ' Tolerancia do Sensor de Rejeição no Inicio da Rejeição
  2.             IF flag_sns_rej = 1 THEN
  3.                 Tempo_S=Tempo_S+1
  4.                 IF Tempo_S > Tolerancia_SNS_R THEN
  5.                     Tempo_S = 0
  6.                     flag_sns_rej = 0
  7.                     IF SNS_Rejeicao = 0 THEN
  8.                         Falha = 1
  9.                         Tempo_Dur = Dur_Rejeicao
  10.                     END IF
  11.                 END IF
  12.             END IF
  13.             ' Tolerancia do Sensor de Rejeição no Meio da Rejeição
  14.             IF flag_sns_rej = 2 THEN
  15.                 Tempo_S=Tempo_S+1
  16.                 IF Tempo_S > Tolerancia_SNS_R THEN
  17.                     Tempo_S = 0
  18.                     flag_sns_rej = 0
  19.                     IF SNS_Rejeicao = 1 THEN
  20.                         Falha = 1
  21.                         Tempo_Dur = Dur_Rejeicao
  22.                     END IF
  23.                 END IF
  24.             END IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement