PMS_Seminarski_Cuturic_Halilovic.doc
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
UNIVERZITET U SARAJEVU¸<br />
ELEKTROTEHNIČKI FAKULTET SARAJEVO<br />
ODSJEK ZA AUTOMATIKU I ELEKTRONIKU<br />
LB: BOOL := FALSE;<br />
// detekcija procesa lijepljenja boce<br />
// TIMEOUT<br />
TIMEOUT_ACT: BOOL := FALSE;<br />
TIMEOUT_TIME: INT;// isto vrijeme ce se koristiti i za lijepljenje<br />
TIMEOUT_TIMER: TON;<br />
// TIMEOUT<br />
TIMEOUT_LIJEPLJENJE_ACT: BOOL := FALSE;<br />
TIMEOUT_LIJEPLJENJE_TIMER: TON;<br />
// poruka greske<br />
GRESKA: STRING := '';<br />
// active out<br />
ACTIVE_OUT: BOOL; // NC kontakt<br />
END_VAR<br />
VAR_GLOBAL CONSTANT<br />
MASINA_UGASENA :INT := 0;<br />
MASINA_POKRENUTA :INT := 1;<br />
PRIPREMA_BOCE :INT := 2;<br />
HITAN_STOP :INT := 3;<br />
LIJEPLJENJE_ETIKETE : INT := 4;<br />
NAMJESTANJE_ROLNE : INT := 5;<br />
PROCES_LIJEPLJENJA_ETIKETE: INT := 6;<br />
KRAJ: INT := 7;<br />
GRESKA_TIMEOUT_ROLNA: INT := 8;<br />
GRESKA_TIMEOUT_ROTACIJA: INT := 9;<br />
ACTIVE_OUT_STANJE: INT := 10;<br />
END_VAR<br />
Tabela 7.1. Globalne varijable<br />
// inicijalizacija varijabli<br />
PROCES_FF(SET:=START, RESET1:=STOP OR HITNI_STOP);<br />
RBPD_TIMER(IN:=RBPD_TIMER_ACT, PT:=RBPD_TIME);<br />
TIMEOUT_TIMER(IN:=TIMEOUT_ACT, PT:=INT_TO_TIME(TIMEOUT_TIME));<br />
TIMEOUT_LIJEPLJENJE_TIMER(IN:=TIMEOUT_LIJEPLJENJE_ACT, PT:=INT_TO_TIME(TIMEOUT_TIME));<br />
IF (HITNI_STOP=TRUE) THEN<br />
35