Witam! Piszę programik sterujący sygnalizacją świetlną w Genidaq, wykorzystałem skrypty Visual Basica do ustawienia świecenia się świateł.
Sub SCR6()
Dim zegar As Tag
Dim reszt As Integer
Set zegar=GetTag("TASK1", "ET1")
reszt=zegar Mod 20
If reszt < 1 Then
Outputi 1
Else
Outputi 0
End If
End Sub
W tym przypadku światło zapala się co 20 sek na 1 sekundę. Nie mam pojęcia jak zrobić żeby co zapalało się pierwszy raz po 5 sek, potem po 15, i następnie znowu po 5.... itd.
Projekt muszę skończyć na szybko, przed drzwiami kazał mi poprawić. Bardzo dziękuję.