Nieuws Elke Dag Behalve Weekenden

[frank12]

Beste Sam gebruikers

Ten eerste even de alle beste wensen van het nieuwe jaar.
En dat 2011 maar weer een vruchtbaar Sam jaartje mag worden.

Nu over op mijn vraag.
Ik heb het onderstaande script gedownload van de forum.
Alleen wij willen hele week de nieuws draaien behalve in het weekend. Dit ivm LMN het gratis nieuws niet in het weekend kan updaten. Nu was mijn vraag hoe ik het onderstaande script kan invullen zonder die de weekenden mee pakt.
Voor elk uur hebben wij ook een tijd.mp3 mee lopen. Deze zal voor het nieuws gedraait moeten worden.
Als elk uur apart gezet moet worden zoals hier onder zal geen probleem zijn. Maar liefst in 1 PAL.

Code: Selecteer alles

PAL.Loop:=True;

PAL.LockExecution;

// 01 uur `s nachts
    while (Now >= T['00:00:01']) and (Now <= T['00:59:59']) do

begin
  PAL.WaitForTime(T['01:00:00']);
  Queue.AddFile('c:\nieuws.mp3',ipTop);
  Queue.AddFile('c:\01.mp3',ipTop);
     ActivePlayer.FadeToNext;
end;

Elke reactie is welkom en word gewardeert.

[Gerrit]

Volgens mij kun je dat mooi met Event Scheduler doen.
Gewoon iedere dag programmeren muv de zaterdag en zondag.

[frank12]

Gerrit,

Dat klopt. Alleen wij wouden af van de dingen in Event te programmeren.
Want bij een Sam of PC Crash moeten we alles weer in laden met de hand.
We zijn dus bezig alles stukje bij beetje te programmeren in PAL.
dit natuurlijk het gemakkelijken van eht laden.

Hoop dat je misschien voor PAL een mogeljke oplossing kunt bieden.

[Gerrit]

Maar als je een back up maak dan onthoud sam ook de ES-sen...........toch??

En als je het helemaal goed wil doen dan moet je met een weekpal gaan werken, dan kun je echt alles apart in programmeren.
Dat werkt hier al 2 jaar perfect, het is 1 keer veel werk maar daarna "Piece of Cake" !!

[frank12]

Gerrit,

Z'n week PAL zou idd dan wel een oplossing zijn voor het geheel.
Zou je hier een voorbeeld voor mij voor hebben.

Dan gaan we hier ma eens na kijken.
Denk dat het uitstellen van zo week PAL geen nut meer heeft voor ons en ma gelijk mee moeten starten.
We hebben deze optie al vaker overwogen ma nooit echt tijd voor kunnen krijgen om het in elkaar te draaien.
Moet nu ma toch echt tijd voor komen ben ik bang.

Wij draaien nu met de volgede CAT:
Nederlands

Met in de Event geladen:
Reclame Jingle's
Station Jingle's
Nieuws
Megaschijf
Paradeplaat

Heb je misschien een voorbeeld vane en weekpal met deze onderdelen er in verwerkt.
Zodat wij er verder zelf mee kunnen voortborduren.

[Gerrit]

Hier heb je een weekpal waar je alles in kunt stellen, ik kan dat niet doen omdat ik niet weet waar en wanneer jullie iets willen draaien.
Je zal best wel dingen tegen komen die je niet weet, maar schroom je niet om het te vragen via dit topic en niet via PM, zodat andere daar ook mee kunnen helpen en leren.

Ik zal straks nog wel even een voorbeeld van een uur uit ons script online zetten, dan kun je een beetje zien hoe dat eruit ziet.

Gerrit.

[Gerrit]

Hier heb je een uur (met reclame, Regionieuws en regio agenda erin) uit ons script wat nu draait.
Schrik er niet van want bij jullie is meer dan de helft niet nodig...................denk ik. [smilie=whistle2.gif]

Code: Selecteer alles

// Maandag 11:00 uur	In Bedrijf

while DayOfWeek(Now) = Monday and ((Now >= T['10:57:15']) and (Now <= T['10:57:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['10:57:30']);
Queue.AddFile('E:\Midland\Jingles\RECLAME OPENER en SLUITER GOED\RECLAME OPENER.mp3',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('E:\Reclame\A\AA.mp3',ipBottom);
Queue.AddFile('E:\Reclame\A\AB.mp3',ipBottom);
Queue.AddFile('E:\Reclame\A\AC.mp3',ipBottom);
Queue.AddFile('E:\Reclame\E\EB.mp3',ipBottom);
Queue.AddFile('E:\Reclame\A\AD.mp3',ipBottom);
Queue.AddFile('E:\Reclame\A\AE.mp3',ipBottom);
Queue.AddFile('E:\Reclame\E\EC.mp3',ipBottom);
Queue.AddFile('E:\Midland\Jingles\RECLAME OPENER en SLUITER GOED\RECLAME SLUITER.mp3',ipBottom);
Queue.AddFile('E:\Midland\uursluiter.wav',ipBottom);
Queue.AddFile('E:\tijdsein.mp3',ipBottom);
Queue.AddFile('E:\tijd\11.mp3',ipBottom);
Queue.AddFile('C:\NIEUWS\NIEUWS.mp3',ipBottom);
Queue.AddFile('C:\Verkeer\verkeeranwbnl.mp3',ipBottom);
Queue.AddFile('E:\Midland\Jingles\RECLAME OPENER en SLUITER GOED\RECLAME OPENER.mp3',ipBottom);
Queue.AddFile('E:\Reclame\D\DA.mp3',ipBottom);
Queue.AddFile('E:\Reclame\D\DB.mp3',ipBottom);
Queue.AddFile('E:\Reclame\D\DC.mp3',ipBottom);
Queue.AddFile('E:\Reclame\D\DD.mp3',ipBottom);
Queue.AddFile('E:\Reclame\D\DE.mp3',ipBottom);
Queue.AddFile('E:\Reclame\E\EA.mp3',ipBottom);
Queue.AddFile('E:\Midland\Jingles\RECLAME OPENER en SLUITER GOED\RECLAME SLUITER.mp3',ipBottom);
Queue.AddFile('E:\Uuropeners\Ma11.wav',ipBottom);
Queue.AddFile('E:\ValleiTop10\Valleischijf.mp3',ipBottom);
Cat['jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLRP, EnforceRules);
Queue.AddFile('E:\Regio nieuws\Regio 7.mp3',ipBottom);
Queue.AddFile('E:\Regio nieuws\Regio 8.mp3',ipBottom);
Queue.AddFile('E:\Regio nieuws\Regio 9.mp3',ipBottom);
Cat['70s'].QueueBottom(smRandom, NoRules);
Cat['jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['80s'].QueueBottom(smLRP, EnforceRules);
Cat['2000s'].QueueBottom(smLRP, EnforceRules);
Queue.AddFile('E:\Regio agenda\REGIO AGENDA 9.mp3',ipBottom);
Queue.AddFile('E:\Midland\Jingles\Regioagenda sluiter.wav',ipBottom);
Cat['90s'].QueueBottom(smLRP, EnforceRules);
Cat['Ned'].QueueBottom(smLRP, EnforceRules);
Cat['jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['hits'].QueueBottom(smRandom, NoRules);
Queue.AddFile('E:\Regio nieuws\Regio 10.mp3',ipBottom);
Queue.AddFile('E:\Regio nieuws\Regio 11.mp3',ipBottom);
Queue.AddFile('E:\Regio nieuws\Regio 12.mp3',ipBottom);
Cat['2000s'].QueueBottom(smLRP, EnforceRules);
Cat['jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['60s'].QueueBottom(smLRP, EnforceRules);
Cat['80s'].QueueBottom(smLRP, EnforceRules);
Queue.AddFile('E:\Regio agenda\REGIO AGENDA 10.mp3',ipBottom);
Queue.AddFile('E:\Midland\Jingles\Regioagenda sluiter.wav',ipBottom);
Cat['70s'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLRP, EnforceRules);
Cat['jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['90s'].QueueBottom(smLRP, EnforceRules);
Cat['hits'].QueueBottom(smRandom, NoRules);
Cat['jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLRP, EnforceRules);
PAL.LockExecution;
end;

[frank12]

Slik !!!!!

Gerrit bedankt.
Ik ga er eens mee stoeien.

Mocht ik vragen hebben er over dan maak ik hier even een aparte topic over aan.

[Wout]

Probeer anders onderstaand eens.

Code: Selecteer alles

PAL.Loop:=True;

    PAL.LockExecution;

        var tijd, uur : string;
        var D : DateTime;

        D := T['+01:00:00'];
        tijd := FormatDateTime('hh', D);
        if(tijd = '00') then tijd := '24';
        uur := 'c:\samjingles\tijd\' + tijd + '.mp3';
        tijd := tijd - 01;

        D := T['XX:59:56'];
        
        PAL.WaitForTime(D);
        Queue.Clear;
        
        if not (DayOfWeek(Now) = Sunday) or (DayOfWeek(Now) = Saturday) then
        begin
            Queue.AddFile('c:\LokaalMediaNieuws.mp3',ipTop);
        end;
        Queue.AddFile(uur, ipTop);

        ActivePlayer.FadeTonext;

    PAL.UnLockExecution; 

[frank12]

Wout,

Bedankt voor de reactie.

We zijn bezig een weekloper te maken aan de hand van Gerrit zijn post.
Maar ik zie dat dei van jou erg snel instelbaar is voor alleen nieuws.
Deze ga ik dan ma even snel programmeren tot de weekloper af is.

Dit is best een karwij voor de eerste keer.

Voor vragen zoals Gerrit zegt kom ik zeker terug op het forum.
En zal zekers het Forum gebruiken en niet de PM.
Loop al tijdje op het forum dus weet hoe eht werkt.

Dank tot zover voor de hulp.
Deze topic is voor mij zo goed als gesloten.