Gokner5
Üye
- Katılım
- 28 Nis 2017
- Mesajlar
- 5
- Puanları
- 1
- Yaş
- 40
Merhaba Arkadaşlar;
Scada yapımında yeniyim. Fakat script yazmam gerekiyor. Script scadayla birlikte otomatik olarak çalışmalı.
Script görevi "CALISTIR" taginden 1 değeri aldıktan 5 sn sonra "DEVİR" ve "HATA" taglerini kontrol edip DEVIR HATASI olarak set etmek.
Scripti çalıştırmayı başaramadım. Komutların tümüyle yanlış olma olasılığı da var. Yada scprit yazmadan önce bazı aktif etmediğim ayarlarda olabilir. Bu konu da bana yardımcı olabilir misiniz?
SCRİPT:
Dim STARTTIME, STOPTIME
Dim DEVIR
Dim CALIS
Dim HATA
Dim START
STARTTIME = Timer
STOPTIME = STARTTIME + 5
DEVIR = SmartTags("DI\BESL_BANT_DVR_BEK")
CALIS = SmartTags("MOTOR\119M1_CALISIYOR")
HATA = SmartTags("MOTOR\119M1_HATA")
If CALIS == 1 Then
Do While (STARTTIME < STOPTIME)
STARTTIME = Timer
If DEVIR == 0, HATA == 1 Then
SetBit SmartTags("SANAL\119M1_DEVIR_HATASI")
Else
ResetBit SmartTags("SANAL\119M1_DEVIR_HATASI")
End If
Loop
End If
Scada yapımında yeniyim. Fakat script yazmam gerekiyor. Script scadayla birlikte otomatik olarak çalışmalı.
Script görevi "CALISTIR" taginden 1 değeri aldıktan 5 sn sonra "DEVİR" ve "HATA" taglerini kontrol edip DEVIR HATASI olarak set etmek.
Scripti çalıştırmayı başaramadım. Komutların tümüyle yanlış olma olasılığı da var. Yada scprit yazmadan önce bazı aktif etmediğim ayarlarda olabilir. Bu konu da bana yardımcı olabilir misiniz?
SCRİPT:
Dim STARTTIME, STOPTIME
Dim DEVIR
Dim CALIS
Dim HATA
Dim START
STARTTIME = Timer
STOPTIME = STARTTIME + 5
DEVIR = SmartTags("DI\BESL_BANT_DVR_BEK")
CALIS = SmartTags("MOTOR\119M1_CALISIYOR")
HATA = SmartTags("MOTOR\119M1_HATA")
If CALIS == 1 Then
Do While (STARTTIME < STOPTIME)
STARTTIME = Timer
If DEVIR == 0, HATA == 1 Then
SetBit SmartTags("SANAL\119M1_DEVIR_HATASI")
Else
ResetBit SmartTags("SANAL\119M1_DEVIR_HATASI")
End If
Loop
End If