|
|
|
|










FUNCTION transf_u()
_ObjectSetProperty(ObjectByName("AN231"), "Value",u_alim);
_ObjectSetProperty(ObjectByName("AN231"), "Caption","Tensiune");
_ObjectSetProperty(ObjectByName("AN231"), "MaxValue",260);
_ObjectSetProperty(ObjectByName("AN231"), "EngUnit","Volti");
END
|
FUNCTION transf_i()
_ObjectSetProperty(ObjectByName("AN231"), "Value",i_consum);
_ObjectSetProperty(ObjectByName("AN231"), "Caption","Curent");
_ObjectSetProperty(ObjectByName("AN231"), "MaxValue",50);
_ObjectSetProperty(ObjectByName("AN231"), "EngUnit","Amperi");
END
|
FUNCTION transf_p()
_ObjectSetProperty(ObjectByName("AN231"), "Value",putere);
_ObjectSetProperty(ObjectByName("AN231"), "Caption","Putere");
_ObjectSetProperty(ObjectByName("AN231"), "MaxValue",12000);
_ObjectSetProperty(ObjectByName("AN231"), "EngUnit","Wati");
END
|
FUNCTION transf_r()
_ObjectSetProperty(ObjectByName("AN231"), "BackColor",6350);
END
|
FUNCTION transf_g()
_ObjectSetProperty(ObjectByName("AN231"), "BackColor",65534);
END
|






FUNCTION Simul_c_df() IF i_consum > 44 THEN i_consum=0; ELSE i_consum=i_consum+0.25; END END |

FUNCTION lim_u() IF u_alim>230 THEN comut_alim=0; END IF u_alim<210 THEN comut_alim=0; END IF u_alim>210 AND u_alim<230 THEN comut_alim=1; END IF comut_alim=0 THEN i_consum=0 END END |
FUNCTION Simul_c_sin() rad=rad + 0.01; i_consum=20*(1+sin(rad)); END |

FUNCTION simul_c()
ora=ora+0.1
IF ora> 24 THEN
ora=0
END
IF ora>=0 AND ora < 4
THEN
i_consum=6
END
IF ora>=4 AND ora < 5
THEN
i_consum=20
END
IF ora>=5 AND ora < 6
THEN
i_consum=29
END
IF ora>=6 AND ora < 7
THEN
i_consum=35
END
IF ora>=7 AND ora < 8
THEN
i_consum=39
END
IF ora>=8 AND ora < 9
THEN
i_consum=40
END
IF ora>=9 AND ora < 10
THEN
i_consum=42
END
IF ora>=10 AND ora < 11
THEN
i_consum=45
END
IF ora>=11 AND ora < 12
THEN
i_consum=42
END
IF ora>=12 AND ora < 13
THEN
i_consum=40
END
IF ora>=13 AND ora < 14
THEN
i_consum=33
END
IF ora>=14 AND ora < 17
THEN
i_consum=30
END
IF ora>=17 AND ora < 18
THEN
i_consum=25
END
IF ora>=18 AND ora < 19
THEN
i_consum=20
END
IF ora>=19 AND ora < 20
THEN
i_consum=25
END
IF ora>=20 AND ora < 21
THEN
i_consum=40
END
IF ora>=21 AND ora < 22
THEN
i_consum=45
END
IF ora>=22 AND ora < 23
THEN
i_consum=33
END
IF ora>=23 AND ora < 24
THEN
i_consum=22
END
END
|



INT hPlot; REAL Buf1[10] =20,20,60,60,40,40,50,60,55,60; FUNCTION Plot_lin(INT hAn,INT iGridCol= Yellow,INT iFrameCol= Black,INT iFillCol=Black) INT FrameWidth=10; hPlot=PlotOpen(hAn,"Display",65); PlotGrid(hPlot,10,0,0,400,200,10,iGridCol,9,iGridCol,FrameWidth,iFrameCol,iFillCol,0); PlotLine(hPlot, 0, Light_Red, 2, 7, Magenta , 1, 10, Buf1[0], 0,200,1); PlotClose(hPlot); END |
Plot_lin(205) |


INT hPlot; REAL Buf1[10] =20,20,60,60,40,40,50,60,55,60; REAL Buf2[10]; FUNCTION Plot_linii(INT hAn,INT iGridCol= Yellow,INT iFrameCol= Black,INT iFillCol=Black) INT FrameWidth=10; hPlot=PlotOpen(hAn,"Display",65); PlotGrid(hPlot,10,0,0,400,200,10,iGridCol,9,iGridCol,FrameWidth,iFrameCol,iFillCol,0); PlotLine(hPlot, 0, Light_Red, 2, 7, Magenta , 1, 10, Buf1[0], 0,200,1); PlotLine(hPlot, 0, Light_Cyan, 1, 6, Yellow , 1, 10, Buf2[0], 0,200,1); PlotClose(hPlot); END |

INT hPlot; REAL Buf3[100]; INT i REAL rad=0; FOR i=0 TO 99 DO rad=rad + 0.09; Buf3[i] =100*(1+Sin(rad)); END INT FrameWidth=10; hPlot=PlotOpen(hAn,"Display",65); PlotGrid(hPlot,100,0,0,400,200,10,iGridCol,9,iGridCol,FrameWidth,iFrameCol,iFillCol,0); PlotLine(hPlot, 0, Light_Blue, 1, 0, Light_Red , 1, 100, Buf3[0], 0,200,1); PlotClose(hPlot); |

INT hPlot; REAL YTable[10]=10,20,30,40,50,60,70,80,90,100; REAL XTable[10]=10,20,40,50,60,60,50,40,20,10; FUNCTION Plot_xy(INT hAn,INT iGridCol= Yellow,INT iFrameCol= Black,INT iFillCol=Black) INT FrameWidth=10; hPlot=PlotOpen(hAn,"Display",65); PlotGrid(hPlot,10,0,0,400,200,10,iGridCol,9,iGridCol,FrameWidth,iFrameCol,iFillCol,0); PlotXYLine(hPlot,0,Light_Green,1,0,White,1,10,XTable[0],0,100,YTable[0],0,100,1); PlotClose(hPlot); END |

INT hPlot; REAL Buf1[10] =20,20,60,60,40,40,50,60,55,60; REAL Buf2[10]; REAL Buf3[100]; REAL YTable[10]=10,20,30,40,50,60,70,80,90,100; REAL XTable[10]=10,20,40,50,60,60,50,40,20,10; FUNCTION Plot(INT hAn,INT iGridCol= Grey,INT iFrameCol= Black,INT iFillCol=Black) INT i; REAL rad=0; FOR i=0 TO 9 DO rad=rad + 0.6; Buf3[i] =100*(1+Sin(rad)); END INT FrameWidth=10; hPlot=PlotOpen(hAn,"Display",65); PlotGrid(hPlot,10,0,0,400,200,10,iGridCol,9,iGridCol,FrameWidth,iFrameCol,iFillCol,0); PlotScaleMarker(hPlot,-15,190, 11, 1, Black, 1); PlotLine(hPlot, 0, Light_Red, 2, 7, Magenta , 1, 10, Buf1[0], 0,200,1); PlotLine(hPlot, 3, Light_Cyan, 1, 6, Yellow , 1, 10, Buf2[0], 0,200,1); PlotLine(hPlot, 0, Light_Blue, 1, 4, Light_Red , 1, 10, Buf3[0], 0,200,1); PlotXYLine(hPlot,0,Light_Green,1,0,White,1,10,XTable[0],0,100,YTable[0],0,100,1); PlotClose(hPlot); END |

|
|
|
|
| Termen | Descriere |
| SCADA | Supervisory Control And Data Aquisition |
| Tag | Nume generic pentru elementele din procesul monitorizat codificate prin intermediul variabilelor |
| HMI | Human Machine Interface -Interfata dintre aplicatie si utilizator |
| Instrument virtual | Instrument afisat in pagina grafica si imita functionarea unui instrument real |
| Trend | Evolutia in timp a unei marimi analogice |
| Object Name | Numele unic al unui obiect plasat pe pagina grafica |
| Slider | Instrument virtual care imita functionarea unui potentiometru liniar |
|
|
|
|
|
|