SCADA -TIA Portal

Sub Control_hmi() Dim tm,i,dr tm=Timer() Hmi_golire=False Hmi_turatie_p=45 Set dr = HmiRuntime.Screens("Labs_002_01").ScreenItems("Rectangle_1") Do While SmartTags("Tag_ScreenNumber")=2 'Do While SmartTags("Hmi_start") If ((Timer > tm+0.1) And (Hmi_mod)) Then If Hmi_golire Then Hmi_nivel=Hmi_nivel-1 If Hmi_nivel < 10 Then Hmi_golire=False Hmi_pompa_on=True Hmi_turatie_p=45 End If Else Hmi_nivel=Hmi_nivel+1 If Hmi_nivel > 80 Then Hmi_golire=True Hmi_pompa_on=False Hmi_turatie_p=0 End If End If tm=Timer() End If If Not Hmi_mod Then If Hmi_nivel<10 Then Hmi_pompa_on=True Hmi_golire=False If Hmi_turatie_p=0 Then Hmi_turatie_p=45 End If End If If Hmi_nivel>80 Then Hmi_pompa_on=False Hmi_turatie_p=0 Hmi_golire=True End If End If dr.Top=(205-(130/100)*Hmi_nivel) dr.Height=(130/100)*Hmi_nivel Loop Set dr= Nothing End Sub