kerstliedjes PAL

[kidschatradio]

Hoi!

ik heb onderstaand PAL script om tijdens de kerstperiode kerstliedjes te draaien.

Code: Selecteer alles

PAL.Loop:=True;
PAL.WaitForTime(T['xx:14:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);
PAL.WaitForTime(T['xx:29:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);
PAL.WaitForTime(T['xx:44:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);
PAL.WaitForTime(T['xx:00:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);

Is het mogelijk om dit script mee te geven dat tie dit alleen mag doen tussen 6 december en 6 januari?

groet,
Jeroen

[Kees]

Ik moet even mijn :smt024 overhoop gooien want ik heb zoiets nog ergens staan...

[Kees]

En daar is tie dan...

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(2008,12,06);
DEnd := EncodeDate(2009,01,06);
While (Now>=DStart) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:00:30']);
Cat['Kerst'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:14:30']);
Cat['Kerst'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:29:30']);
Cat['Kerst'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:44:30']);
Cat['Kerst'].QueueTop(smLRP, EnforceRules);
PAL.LockExecution;
end;
While (Now>DEnd) do
begin
PAL.UnLockExecution;
PAL.Loop:=False;
PAL.LockExecution;
end;
PAL.UnLockExecution;

[cyberneticorganism]

Hmmz..dat is verrekte handig Misschien moet ik ook maar is wat voorbereidingen voor kerst gaan treffen, zoals wat kerstnummers downloaden :ANAL: Euh kees... 2006 is toch al geweest?

[Kees]

Andere bril opzetten cyber..hihihihihiih
Hij begint bij jaartal dan maand dan dag...

[cyberneticorganism]

Oeps En ik had me ook al vergist in dat uur tijdverschil vanochtend...

[kidschatradio]

bedankt Kees!
Mijn kerst kan nu al niet meer stuk

groet,
Jeroen

[Kees]

Nu alleen nog met de kerst een pak sneeuw en alles is rond !

[kidschatradio]

Heb je daar nog geen PAL scriptje voor geschreven dan?

[Kees]

Ja..maar dit wil niet werken.
Het script heet...Piet Pa(u)lisma

[kidschatradio]

Volgens mij heeft dat script nog nooit fatsoenlijk gewerkt.....

[skeleton]

Hoi!

ik heb onderstaand PAL script om tijdens de kerstperiode kerstliedjes te draaien.

Code: Selecteer alles

PAL.Loop:=True;
PAL.WaitForTime(T['xx:14:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);
PAL.WaitForTime(T['xx:29:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);
PAL.WaitForTime(T['xx:44:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);
PAL.WaitForTime(T['xx:00:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);

Is het mogelijk om dit script mee te geven dat tie dit alleen mag doen tussen 6 december en 6 januari?

groet,
Jeroen

Misschien een domme vraag, maar kan je niet gewoon dit nemen ?

Code: Selecteer alles

PAL.Loop:=True;
PAL.WaitForTime(T['xx:14:30']);
Cat['Kerst'].QueueTop(smRandom, EnforceRules);

Is dit niet hetzelfde ? of ben ik verkeerd ?

[frank1964]

dan speelt ie dus alleen om kwart over heel maar 1 kerst plaatje en je wilt er elk kwartier eentje toch als ik zo zie in het script.

[skeleton]

bijkomend vraagje .
Kan je het jaartal niet veranderen door 4 kruisjes ?
zie voorbeeld hieronder .... of werkt dit niet op deze manier ?

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(xxxx,12,06);
DEnd := EncodeDate(xxxx,01,06);
While (Now>=DStart) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:00:30']);
Cat['Kerst'].QueueTop(smLRP, EnforceRules);
.....

[Kees]

Nee....dat gaat niet lukken.
Maar ach..1 keer per jaar wijzigen..daar ga ik niet over zeuren.

[skeleton]

Dit script werkt helaas maar voor de helft. Hij start op de opgegeven datum, maar
eenmaal de datum voorbij stopt hij niet.
Ik had beide PAL scripts op auto-start gezet. Tussen 7 en 12 december startte hij mooi het eerste PAL script, maar eenmaal 13 december startte ook het 2de PAL script maar stopte het eerste PAL script niet

Hieronder mijn 1ste script : Kerst-low.PAL

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(2008,12,7);
DEnd := EncodeDate(2008,12,12);
While (Now>=DStart) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:14:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:44:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.LockExecution;
end;
While (Now>DEnd) do
begin
PAL.UnLockExecution;
PAL.Loop:=False;
PAL.LockExecution;
end;
PAL.UnLockExecution; 

Hieronder mijn 2de script : Kerst-heavy.PAL

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(2008,12,13);
DEnd := EncodeDate(2008,12,31);
While (Now>=DStart) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:00:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueBottom(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:14:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:29:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:44:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.LockExecution;
end;
While (Now>DEnd) do
begin
PAL.UnLockExecution;
PAL.Loop:=False;
PAL.LockExecution;
end;
PAL.UnLockExecution; 

[Kees]

Om de e.a. reden blijft hij in een loop hangen...en ik snap niet waarom... :smt013
Vreemd... :smt096

[skeleton]

Om de e.a. reden blijft hij in een loop hangen...en ik snap niet waarom... :smt013
Vreemd... :smt096

Ik ben wat aan het experimenteren geweest en ik denk dat ik het aan de praat gekregen heb.
Dit is het script. Probeer je het ook eens Kees ?

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(2008,12,13);
DEnd := EncodeDate(2008,12,31);
While (Now>=DStart) and (Now<=DEnd) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:00:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueBottom(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:14:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:29:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.WaitForTime(T['xx:44:30']);
Cat['1960 - 2099 Kerstmuziek'].QueueTop(smLRP, EnforceRules);
PAL.LockExecution;
end;
While (Now<=DEnd) do
begin
PAL.UnLockExecution;
PAL.Loop:=False;
PAL.LockExecution;
end;
PAL.UnLockExecution; 

[Kees]

Dat is hem !
Ik heb eerst de data laten staan waarna hij keurig stopt bij xx:00:30
Ik heb daarna de einddatum gewijzigd in 24 dec. en hij fietste er vrolijk overheen. :prost:

[wapradio]

Hey leuk script, die gaat er bij ons ook in , alleen maar 1 x per uur en alleen op de kerstdagen aangezien we alleen maar trance draaien en er niet veel trance kerstplaten zijn hahaha

Edwin