Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
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)