Kenny2015
unregistriert
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
global calc Signal: VBScript(#>>dim a,Minute,Sekunde,Signal,Startstunde,StartMinute a = LeseTitelVariable(BasisProjektName & BasisSystemName & "LfdNr") if a > 0 then StartMinute=10 StartStunde=9 Minute= int(a/6) Sekunde=(((a-1)-minute*10)*10) Zeit = datepart("h",time)*10000+datepart("n",time)*100+Datepart("s",time) Signal = (Zeit >=(StartStunde*10000)+(StartMinute+Minute)*100+Sekunde) end if for i = 1 to AllePerioden Ergebnis(i)=Signal next<<#); |
Quellcode |
|
1 2 |
Enter Long: Signal Exit Long: 0 |
Quellcode |
|
1 2 3 4 5 6 |
if TestPFTitelNr > 0 then SchreibeTitelVariable BasisProjektName & BasisSystemName & "LfdNr", TestPFTitelNr Ergebnis = TestPFTitelNr else Ergebnis = LeseTitelVariable(BasisProjektName & BasisSystemName & "LfdNr") end if |
Kenny2015
unregistriert
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Kenny2015« (25. Februar 2015, 13:56)
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
global calc Signal: VBScript(#>>dim a,Minute,Sekunde,Signal,Startstunde,StartMinute a = LeseTitelVariable(BasisProjektName & BasisSystemName & "LfdNr") if a > 0 then StartMinute=0 StartStunde=18 Minute= int(a/2) Sekunde=(((a-1)-minute*30)*30) Zeit = datepart("h",time)*10000+datepart("n",time)*100+Datepart("s",time) Signal = (Zeit >=(StartStunde*10000)+(StartMinute+Minute)*100+Sekunde) end if for i = 1 to AllePerioden Ergebnis(i)=Signal next<<#); |
Kenny2015
unregistriert
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »Kenny2015« (26. Februar 2015, 14:02)