Van 20:00 uur naar de volgende dag

[John Pardon]

Hallo

Ik heb weer een vraagje ..hoe kan ik een script laten starten om 20:00 uur
en weer laten stoppen om 01:00 uur (de volgende dag dus).
Dit staat er in het script :

const StartTime = '20:00:00'; //<-- START TIME

const EndTime = '01:00:00'; //<-- END TIME


Alvast bedankt

John
----------------------------------------------------------------------------------------
Dit is het hele script

PAL.Loop:=True;

var Maandag : Boolean;
var Dinsdag : Boolean;
var Woensdag : Boolean;
var Donderdag: Boolean;
var Vrijdag : Boolean;
var Zaterdag : Boolean;
var Zondag : Boolean;

var Dagjeover: Boolean;


Maandag := (DayOfWeek(Now) = Monday);
Dinsdag := (DayOfWeek(Now) = Tuesday);
Woensdag := (DayOfWeek(Now) = Wednesday);
Donderdag:= (DayOfWeek(Now) = Thursday);
Vrijdag := (DayOfWeek(Now) = Friday);
Zaterdag := (DayOfWeek(Now) = Saturday);
Zondag := (DayOfWeek(Now) = Sunday);

//------------------------------------------------------------------------------
Dagjeover := (Woensdag);
//------------------------------------------------------------------------------
//*******************************************************************************************

while (Dagjeover) and ((Now >= T['19:59:00']) and (Now <= T['19:59:20'])) do
begin

{ CONFIGURATION }

const ShowURL = 'http://00.00.000.000:8000';
const StartTime = '20:00:00'; //<-- START TIME
const EndTime = '01:00:00'; //<-- END TIME
writeln (EndTime);


var T : Integer;


PAL.WaitForTime(StartTime);


Queue.Clear;
Queue.AddURL(ShowURL,ipTop);




T := 0;
while T < 6 do
begin
Queue.AddURL(ShowURL,ipBottom);
CAT['90_Eurodance'].QueueBottom(smLRP,EnforceRules);
T := T + 1;
end;



PAL.WaitForTime(EndTime);


Queue.Clear;



end;

[Wout]

Wat moet ie eigenlijk doen?

Ik krijg hier, dat hij 6 keer de URL en daarna de map 90 in de Queue gooit.
en daarna in een loop verder gaat.

Wat wil/wilde je maken van het PAL-script?

p.s. PAL-code in de bbcode

Code: Selecteer alles

 [/code ] te plaatsen.
in verband met duidelijker leesbaarheid van tekst & scripts.

[John Pardon]

Het gaat hierom

Het script laten starten om 20:00 uur
const StartTime = '20:00:00'; //<-- START TIME
(Dat werkt)

En weer laten stoppen om 01:00 uur (de volgende dag dus).
const EndTime = '01:00:00'; //<-- END TIME
Dit werkt niet

Dus het gaat erom dat het script om 20:00 uur start en de volgende dag weer stopt 01:00
Ik heb 01:00 wel ingevuld maar hij kan niet verder kijken dan 00:00 uur volgens mij.

const EndTime = '01:00:00'; //<-- END TIME

[Evertje]

John, probeer onderstaand script eens als je wil?!

Code: Selecteer alles

PAL.Loop:=True;
var T : Integer;
const streamUrl = 'http://127.0.0.1:8000';

if((now >= T['19:59:50']) and (now <= T['19:59:55']) and (DayOfWeek(Now) = Wednesday)) or
  ((now >= T['20:59:50']) and (now <= T['20:59:55']) and (DayOfWeek(Now) = Wednesday)) or
  ((now >= T['21:59:50']) and (now <= T['21:59:55']) and (DayOfWeek(Now) = Wednesday)) or
  ((now >= T['22:59:50']) and (now <= T['22:59:55']) and (DayOfWeek(Now) = Wednesday)) or
  ((now >= T['23:59:50']) and (now <= T['23:59:55']) and (DayOfWeek(Now) = Wednesday)) or
  ((now >= T['00:59:50']) and (now <= T['00:59:55']) and (DayOfWeek(Now) = Thursday)) then
  Begin
    Queue.Clear;
    Queue.AddURL(streamUrl, ipTop);
    T := 0;
    while T < 6 do
      Begin
        Queue.AddURL(streamUrl, ipBottom);
        CAT['90_Eurodance'].QueueBottom(smLRP,EnforceRules);
        T := T + 1;
      End;
    Queue.Clear;
  End
End;
// Use at your own risk, it isn't tested yet..

Maar dan rest nog de vraag die Wout ook al stelde nog..

Wat moet ie eigenlijk doen?