|
|
intr_on | intr_on_v | intr_off | intr_off_r | sep_on | sep_on_v |
sep_off | sep_off_r | contact_on | contact_off | trafo_on | trafo_off |
Nume | Tip | Domeniu | Um | Comentariu |
hmi_i1 | Bool | - | - | Intrerupator I1 |
hmi_s1 | Bool | - | - | Separator S1 |
hmi_t1 | Bool | - | - | Transformator T1 |
Sub Act_t1() If hmi_s1 And hmi_i1 Then hmi_t1=True Else hmi_t1=False End If End Sub |
Nume | Tip | Domeniu | Um | Comentariu |
hmi_s1_i | Bool | - | - | Confirmare separator S1 inchis |
hmi_s1_d | Bool | - | - | Confirmare separator S1 deschis |
hmi_s1_fl | Bool | - | - | Flesh S1 |
Sub Act_sch4() 'Actualizare Sch_monof_4 'Se tine seama de confirmarea inchiderii sau deschiderii S1 'S1 inchis si nu are confirmare If hmi_s1 And (Not hmi_s1_i) Then hmi_s1_fl=True End If 'S1 deschis si nu are confirmare If (Not hmi_s1) And (Not hmi_s1_d) Then hmi_s1_fl=True End If ' S1 inchis si are confirmare sau S1 deschis si are confirmare If (hmi_s1 And hmi_s1_i) Or ((Not hmi_s1) And hmi_s1_d) Then hmi_s1_fl=False End If 'Confirmare simultana S1 deschis si inchis If hmi_s1_i And hmi_s1_d Then hmi_s1_fl=True End If ' I1 inchis, S1 inchis si are confirmare deci trafo T1 este activ If hmi_s1_i And hmi_i1 Then hmi_t1=True Else hmi_t1=False End If End Sub |
Nume | Tip | Domeniu | Um | Comentariu |
hmi_s1 | Bool | - | - | Separator S1 |
hmi_s1_i | Bool | - | - | Confirmare separator S1 inchis |
hmi_s1_d | Bool | - | - | Confirmare separator S1 deschis |
hmi_s1_fl | Bool | - | - | Flesh S1 |
poz_s1 | INT | 100 | % | Pozitie separator S1 |
hmi_i1 | Bool | - | - | Intrerupator I1 |
hmi_i1_i | Bool | - | - | Confirmare intreruptor I1 inchis |
hmi_i1_d | Bool | - | - | Confirmare intreruptor I1 deschis |
hmi_i1_fl | Bool | - | - | Flesh I1 |
hmi_t1 | Bool | - | - | Transformator T1 |
Sub Act_sch5() 'Actualizare Sch_monof_5 'Se tine seama de confirmarea inchiderii sau deschiderii I1 cat si de pozitia separatorului 'Setarea confirmarilor pentru S1 in functie de poz S1 If hmi_s1_poz =100 Then hmi_s1_i=True hmi_s1_d=False End If If hmi_s1_poz =0 Then hmi_s1_i=False hmi_s1_d=True End If If (hmi_s1_poz > 0) And (hmi_s1_poz < 100) Then hmi_s1_i=False hmi_s1_d=False End If 'Validare S1 'S1 inchis si nu are confirmare If hmi_s1 And (Not hmi_s1_i) Then hmi_s1_fl=True End If 'S1 deschis si nu are confirmare If (Not hmi_s1) And (Not hmi_s1_d) Then hmi_s1_fl=True End If ' S1 inchis si are confirmare sau S1 deschis si are confirmare If (hmi_s1 And hmi_s1_i) Or ((Not hmi_s1) And hmi_s1_d) Then hmi_s1_fl=False End If 'Confirmare simultana S1 deschis si inchis If hmi_s1_i And hmi_s1_d Then hmi_s1_fl=True End If ' I1 inchis, S1 inchis si are confirmare deci trafo T1 este activ If hmi_s1_i And hmi_i1 Then hmi_t1=True Else hmi_t1=False End If 'Validare I1 'I1 inchis si nu are confirmare If hmi_i1 And (Not hmi_i1_i) Then hmi_i1_fl=True End If 'I1 deschis si nu are confirmare If (Not hmi_i1) And (Not hmi_i1_d) Then hmi_i1_fl=True End If ' I1 inchis si are confirmare sau I1 deschis si are confirmare If (hmi_i1 And hmi_i1_i) Or ((Not hmi_i1) And hmi_i1_d) Then hmi_i1_fl=False End If 'Confirmare simultana I1 deschis si inchis If hmi_i1_i And hmi_i1_d Then hmi_i1_fl=True End If 'Validare Trafo ' I1 inchis si are confirmare, S1 inchis si are confirmare deci trafo T1 este activ If hmi_s1_i And hmi_i1_i Then hmi_t1=True Else hmi_t1=False End If End Sub |
Nume | Tip | Domeniu | Um | Comentariu |
hmi_i1 | Bool | - | - | Intrerupator I1 |
hmi_i2 | Bool | - | - | Intrerupator I2 |
hmi_s1 | Bool | - | - | Separator S1 |
hmi_s2 | Bool | - | - | Separator S2 |
hmi_t1 | Bool | - | - | Transformator T1 |
hmi_t2 | Bool | - | - | Transformator T2 |
hmi_l1 | Bool | - | - | Linia L1 |
hmi_l2 | Bool | - | - | Linia L2 |
hmi_l220 | Bool | - | - | Linia L220 |
Sub Act_sch_6() If hmi_i1 And hmi_s1 Then hmi_t1=True hmi_l1=True hmi_l2=False hmi_i2=False hmi_l220=True Else hmi_t1=False hmi_l1=False hmi_l220=False End If If hmi_i2 And hmi_s2 Then hmi_t2=True hmi_l2=True hmi_l1=False hmi_i1=False hmi_l220=True Else hmi_t2=False hmi_l2=False hmi_l220=False End If If Not (hmi_t1 Or hmi_t2) Then hmi_l220=False End If End Sub |
Sub Act_sch_6_sw1() If hmi_l1 Then hmi_l2=False hmi_i2=False hmi_s2=False hmi_t2=False hmi_s1=True hmi_i1=True hmi_t1=True hmi_l220=True Else hmi_s1=False hmi_i1=False hmi_t1=False hmi_l220=False End If End Sub |
Sub Act_sch_6_sw2() If hmi_l2 Then hmi_l1=False hmi_i1=False hmi_s1=False hmi_t1=False hmi_s2=True hmi_i2=True hmi_t2=True hmi_l220=True Else hmi_s2=False hmi_i2=False hmi_t2=False hmi_l220=False End If End Sub |
Nume | Tip | Domeniu | Um | Array Size | Comentariu |
hmi_sep | Bool | - | - | 11 | Separatoarele sep[1]-sep[10] |
hmi_intr | Bool | - | - | 11 | Intreruptoarele intr[1]-intr[10] |
hmi_trafo | Bool | - | - | 11 | Transformatoarele trafo[1]-trafo[10] |
Sub Act_sch_10_on() Dim i,tm tm=Timer() i=1 Do While i<11 If Timer > tm+0.3 Then hmi_sep(i)=True End If If Timer > tm+0.6 Then hmi_intr(i)=True hmi_trafo(i)=True tm=Timer() i=i+1 End If Loop End Sub Sub Act_sch_10_off() Dim i,tm tm=Timer() i=10 Do While i>0 If Timer > tm+0.3 Then hmi_intr(i)=False hmi_trafo(i)=False End If If Timer > tm+0.6 Then hmi_sep(i)=False tm=Timer() i=i-1 End If Loop End Sub |
Sub Act_sch_11_on() Dim i,tm, prior(10) prior(1)=10 prior(2)=6 prior(3)=7 prior(4)=4 prior(5)=3 prior(6)=8 prior(7)=2 prior(8)=5 prior(9)=9 prior(10)=1 tm=Timer() i=1 Do While i<11 If Timer > tm+0.3 Then hmi_sep(prior(i))=True End If If Timer > tm+0.6 Then hmi_intr(prior(i))=True hmi_trafo(prior(i))=True tm=Timer() i=i+1 End If Loop End Sub |
Sub Act_sch_11_off() Dim i,tm, prior(10) prior(1)=10 prior(2)=6 prior(3)=8 prior(4)=4 prior(5)=3 prior(6)=7 prior(7)=2 prior(8)=5 prior(9)=9 prior(10)=1 tm=Timer() i=10 Do While i>0 If Timer > tm+0.3 Then hmi_intr(prior(i))=False hmi_trafo(prior(i))=False End If If Timer > tm+0.6 Then hmi_sep(prior(i))=False tm=Timer() i=i-1 End If Loop End Sub |
Sub Act_sch_12_sw1() If hmi_l1 Then hmi_l2=False End If End Sub Sub Act_sch_12_l1() Dim j If hmi_l1 Then hmi_sep(12)=False hmi_intr(12)=False hmi_sep(16)=False hmi_trafo(2)=False hmi_sep(11)=True hmi_intr(11)=True hmi_sep(15)=True hmi_trafo(1)=True For j=1 To 10 hmi_sep(j)=True hmi_intr(j)=True hmi_l(j)=True Next For j=18 To 36 hmi_sep(j)=False j=j+1 Next For j=17 To 35 hmi_sep(j)=True j=j+1 Next Else hmi_sep(11)=False hmi_intr(11)=False hmi_sep(15)=False hmi_trafo(1)=False For j=1 To 10 hmi_sep(j)=False hmi_intr(j)=False hmi_l(j)=False Next For j=17 To 35 hmi_sep(j)=False j=j+1 Next End If End Sub |
Sub Act_sch_12_sw2() If hmi_l2 Then hmi_l1=False End If End Sub Sub Act_sch_12_l2() Dim j If hmi_l2 Then hmi_sep(11)=False hmi_intr(11)=False hmi_sep(15)=False hmi_trafo(1)=False hmi_sep(12)=True hmi_intr(12)=True hmi_sep(16)=True hmi_trafo(2)=True For j=1 To 10 hmi_sep(j)=True hmi_intr(j)=True hmi_l(j)=True Next For j=17 To 35 hmi_sep(j)=False j=j+1 Next For j=18 To 36 hmi_sep(j)=True j=j+1 Next Else hmi_sep(12)=False hmi_intr(12)=False hmi_sep(16)=False hmi_trafo(2)=False For j=1 To 10 hmi_sep(j)=False hmi_intr(j)=False hmi_l(j)=False Next For j=18 To 36 hmi_sep(j)=False j=j+1 Next End If End Sub |
|
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 |
VB Script | Limbaj de programare inclus in mediul de dezvoltare HMI SCADA - TIA portal |
Sistem de achiziti date | Sistem fizic care interfateaza sistemele energetice cu aplicatiile SCADA. Acesta este prevazut atat cu elemente pentru citirea strilor elementelor componente ale sistemului energetic cat si cu elemente de comanda |
Elemente de comutatie | Elemente componente ale retelelor de alimentare cu energie care permit inchiderea respectiv deschiderea unui circuit |
|
|