Wincc Flexible 2008 SP3- Script Yazımı

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 tarafında timer kullanamazsın diye biliyorum. timer lı işlemleri plc tarafından kontrol edip bir bit aktif ederek bunu scadaya aktarman daha doğru olur