Hallo,
Ik heb een palletje gemaakt voor het nieuws op de tijden dat ik graag het nieuws wil hebben.
Nu werkt ie wel, maar er zitten nog fouten in die ik niet zie.
Bijvoorbeeld op maandag 20 uur blijft ie steken in het PAL op zondag 20.59.45 uur.
Wie kan me vertellen wat er mis is met mijn script??
Alvast beankt voor het mee kijken,
Daanjo
Waar zit de fout??
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Waar zit de fout??
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
-
drOhimself
Re: Waar zit de fout??
Kijk even naar dit topic :
http://www.broadcasterforum.nl/viewtopi ... ofweek+nut
(Vooral de opmerking van Wout van 01 apr 2012 17:14 )
Ik denk dat je nog wat haakjes in de 'While'-regel moet zetten.
http://www.broadcasterforum.nl/viewtopi ... ofweek+nut
(Vooral de opmerking van Wout van 01 apr 2012 17:14 )
Ik denk dat je nog wat haakjes in de 'While'-regel moet zetten.
-
Wout
- Beheerder
- Berichten: 3501
- Lid geworden op: 03 dec 2007, 14:17
- SAM-versie: 2019.3
- Database: MariaDB
- Windows: 11
- Locatie: West-Brabant
- Contacteer:
Re: Waar zit de fout??
De fout zit al in de PAL van deze topic.
viewtopic.php?f=81&t=2232#p14523
Die heb ik inderdaad bij de PAL-FAQ gezet.
viewtopic.php?f=81&t=2232#p14523
Die heb ik inderdaad bij de PAL-FAQ gezet.
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Re: Waar zit de fout??
Ok, bedankt voor jullie reactie...ga eens effe kijken of ik het goed begrepen heb en me script aanpassen.
Reactie van mij volgt nog
Reactie van mij volgt nog
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Re: Waar zit de fout??
Ben al een paar dagen aan het lezen en steeds me script opnieuw aan het aanpassen,
maar denk dat ik het nu gevonden heb.
while DayOfWeek (Now) = (Friday) and ((Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
maar denk dat ik het nu gevonden heb.
while DayOfWeek (Now) = (Friday) and ((Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
-
drOhimself
Re: Waar zit de fout??
Oh, ik dacht dat het dit moest zijn :daanjo schreef:while DayOfWeek (Now) = (Friday) and ((Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
while (DayOfWeek (Now) = (Friday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
Maar je houd ons vast wel op de hoogte......
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Re: Waar zit de fout??
Ja klopt zo heb ik hem ook in me script staan....ben wat moe volgens mij zo heb ik hem erin staan:
while DayOfWeek (Now) = (Friday) and ((Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
while DayOfWeek (Now) = (Friday) and ((Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
-
Wout
- Beheerder
- Berichten: 3501
- Lid geworden op: 03 dec 2007, 14:17
- SAM-versie: 2019.3
- Database: MariaDB
- Windows: 11
- Locatie: West-Brabant
- Contacteer:
Re: Waar zit de fout??
Ook je laatste toevoeging zal je probleem niet helpen.
Probeer de link die drO je gaf te vergelijken met je eigen script, dan zal je het zien.
Probeer de link die drO je gaf te vergelijken met je eigen script, dan zal je het zien.
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Re: Waar zit de fout??
Ok drO en Wout...bedankt voor jullie hulp.
kan nu dit tpic wel sluiten
kan nu dit tpic wel sluiten
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Waar zit de fout? 2de poging
Hallo,
Bij deze weer mijn script wat niet wil werken zoals ik gepland had.
Zoals in vorig topic (viewtopic.php?t=4645)
zit ik nog steeds met het zelfde probleem.
Zondag om 24 uur pakt pakt het script gelijk zondag 3 en 4 uur erbij.
Hij gaat dus niet door met de maandag, maar blijft bij de zondag 04:59.45 wachten
Ik meende dat het probleem was opgelost met de while regel, helaas niet dus.
Mag ik jullie nog een keer vragen om me op weg te helpen, want ik zie dus niet wat
mis is met mijn script.
Alvast bedankt
Bij deze weer mijn script wat niet wil werken zoals ik gepland had.
Zoals in vorig topic (viewtopic.php?t=4645)
zit ik nog steeds met het zelfde probleem.
Zondag om 24 uur pakt pakt het script gelijk zondag 3 en 4 uur erbij.
Hij gaat dus niet door met de maandag, maar blijft bij de zondag 04:59.45 wachten
Ik meende dat het probleem was opgelost met de while regel, helaas niet dus.
Mag ik jullie nog een keer vragen om me op weg te helpen, want ik zie dus niet wat
mis is met mijn script.
Alvast bedankt
Code: Selecteer alles
// ****************** LMN NIeuws + stream ******************
PAL.Loop:=True;
PAL.LockExecution;
// *********************** Zondag **************************************
while (DayOfWeek (Now) = (Sunday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Zondag 03:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 04:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 05:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\05.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 06:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\06.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 07:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\07.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 08:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['07:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\08.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 12:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\12.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 13:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['12:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\13.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 14:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['13:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\14.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 15:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['14:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\15.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 16:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\16.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 17:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 18:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['17:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\18.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 21:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\21.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 22:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['21:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\22.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 23:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\23.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddFile('C:\StudioHoliday\news\shownieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zondag 24:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
Queue.AddFile('C:\StudioHoliday\Weekendradioshow\WRS-zondag.mp3',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
// *********************** Maandag **************************************
while (DayOfWeek (Now) = (Monday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Maandag 03:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 04:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 05:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\05.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 06:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\06.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 07:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\07.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 12:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\12.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 16:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\16.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 17:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 20:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['19:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\20.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 21:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\21.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 22:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['21:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\22.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 23:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\23.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddFile('C:\StudioHoliday\news\shownieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Maandag 24:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
// *********************** Dinsdag **************************************
while (DayOfWeek (Now) = (Tuesday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Dinsdag 01:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\01.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 02:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['01:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\02.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 03:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 04:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 05:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\05.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 06:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\06.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 07:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\07.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 12:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\12.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 16:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\16.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 17:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 18:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['17:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 21:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\21.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 22:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['21:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\22.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 23:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\23.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddFile('C:\StudioHoliday\news\shownieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Dinsdag 24:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
// *********************** Woensdag **************************************
while (DayOfWeek (Now) = (Wednesday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Woensdag 01:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\01.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 02:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['01:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\02.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 03:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 04:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 05:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\05.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 06:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\06.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 07:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\07.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 12:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\12.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 16:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\16.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 17:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 20:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['19:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\20.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 23:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\23.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddFile('C:\StudioHoliday\news\shownieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Woensdag 24:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
// *********************** Donderdag **************************************
while (DayOfWeek (Now) = (Thursday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Donderdag 01:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\01.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 02:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['01:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\02.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 03:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 04:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 05:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\05.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 06:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\06.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 07:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\07.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 12:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\12.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 16:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\16.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 17:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 18:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['17:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\18.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 19:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['18:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\19.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 20:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['19:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\20.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 21:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\21.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 22:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['21:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\22.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 23:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\23.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddFile('C:\StudioHoliday\news\shownieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Donderdag 24:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
// *********************** Vrijdag **************************************
while (DayOfWeek (Now) = (Friday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Vrijdag 01:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\01.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 02:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['01:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\02.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 03:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 04:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 05:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\05.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 06:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\06.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 07:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\07.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 12:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\12.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 16:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\16.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 17:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 20:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['19:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\20.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 21:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\21.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 22:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['21:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\22.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 23:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\23.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddFile('C:\StudioHoliday\news\shownieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Vrijdag 24:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
// *********************** Zaterdag **************************************
while (DayOfWeek (Now) = (Saturday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Zaterdag 01:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\01.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 02:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['01:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\02.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 03:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 04:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 05:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\05.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 06:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\06.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 07:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\07.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 08:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['07:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\08.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 12:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\12.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 13:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['12:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\13.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 14:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['13:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\14.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 15:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['14:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\15.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 16:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\16.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 17:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\17.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 18:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['17:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\18.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 19:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['18:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\19.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 20:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['19:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\20.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
// Zaterdag 24:00 uur
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
Queue.AddFile('C:\StudioHoliday\news\shownieuws.mp3',ipBottom);
ActivePlayer.FadeToNext;
PAL.LockExecution;
end;
PAL.WaitForTime(T['02:59:40']);
PAL.UnLockExecution;
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
-
drOhimself
Re: Waar zit de fout? 2de poging
Zoals al in het eerdere topic van jou aangegeven, dien je goed te kijken waar je de haakjes () zet.
Wout had al aangegeven in topic http://www.broadcasterforum.nl/viewtopi ... nut#p28059 :
In jouw PAL staat het nu zo :
while (DayOfWeek (Now) = (Sunday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
Wij denken dat het NIET zo moet, maar zo :
while ((DayOfWeek (Now) = (Sunday) and (Now >= T['00:00:01']) and Now <= T['23:59:59'])) Do
Zoek de verschillen !
Wout had al aangegeven in topic http://www.broadcasterforum.nl/viewtopi ... nut#p28059 :
Kijk eens goed WAAR de haakjes staan.Wanneer (dag van de week = maandag) en (de tijd is groter dan X maar kleiner als Y) dan etc..
En dat doet ie ook, als het maandag is dan zal het script beginnen,
maarrr de tijd daarentegen staat NIET ingekapseld op maandag, maar los.
While (Day) and (Time) Do
De tijd pakt ie altijd op alle dagen.
Doe je
While ((Day) and (Time))
Dan pakt ie alleen de tijd mee op maandag en niet op andere dagen. <<----- DIT WIL JIJ HEBBEN !
In jouw PAL staat het nu zo :
while (DayOfWeek (Now) = (Sunday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
Wij denken dat het NIET zo moet, maar zo :
while ((DayOfWeek (Now) = (Sunday) and (Now >= T['00:00:01']) and Now <= T['23:59:59'])) Do
Zoek de verschillen !
-
Dotsradio
Re: Waar zit de fout??
Hi,
IK ben dan wel nieuw in PALScripts, maar dit kan toch veel korter geschreven worden?
/////////////////////////////////
// Nieuws Script //
/////////////////////////////////
//Einde
Terwijl ik aan het schrijven was kwam ik al tegen wat mijn fout was, er komt natuurlijk de TijdAanduiding er in.
Wat mijn dan makkelijker lijkt, dat het nieuws er 1 keer in het script komt, en de tijd dan wel elk uur.
IK ben dan wel nieuw in PALScripts, maar dit kan toch veel korter geschreven worden?
/////////////////////////////////
// Nieuws Script //
/////////////////////////////////
Code: Selecteer alles
PAL.Loop:=True;
PAL.UnlockExecution
PAL.WaitForTime(T['XX:59:45']);
Queue.Clear;
Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
PAL.LockExecutionTerwijl ik aan het schrijven was kwam ik al tegen wat mijn fout was, er komt natuurlijk de TijdAanduiding er in.
Wat mijn dan makkelijker lijkt, dat het nieuws er 1 keer in het script komt, en de tijd dan wel elk uur.
Laatst gewijzigd door Wout op 14 mei 2012, 13:25, 1 keer totaal gewijzigd.
Reden: PAL-code`s in de bbcode code geplaatst!
Reden: PAL-code`s in de bbcode code geplaatst!
-
Wout
- Beheerder
- Berichten: 3501
- Lid geworden op: 03 dec 2007, 14:17
- SAM-versie: 2019.3
- Database: MariaDB
- Windows: 11
- Locatie: West-Brabant
- Contacteer:
Re: Waar zit de fout??
Daar heb je gelijk in, alleen kan je met de week-script de dagen en tijden aangeven of je wel of geen nieuws wilt.
Mocht het elke dag en tijd hetzelfde zijn dan is een week-script niet nodig.
Tevens staat er in je script een foutje in, de Unlock komt na een Lock.
Mocht het elke dag en tijd hetzelfde zijn dan is een week-script niet nodig.
Tevens staat er in je script een foutje in, de Unlock komt na een Lock.
-
Dotsradio
Re: Waar zit de fout??
Dat is waar,
Oh dom foutje over de lock, zo leer ik ook weer wat
Oh dom foutje over de lock, zo leer ik ook weer wat
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Re: Waar zit de fout??
@drO
Ik zie 3 verschillen, maar volgens mij werkt jouw whlie regel zo ook niet.
Volgens mij moet ik hem zo erin zetten:
while DayOfWeek (Now) = ((Sunday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
Ik zie 3 verschillen, maar volgens mij werkt jouw whlie regel zo ook niet.
Volgens mij moet ik hem zo erin zetten:
while DayOfWeek (Now) = ((Sunday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
-
drOhimself
Re: Waar zit de fout??
Wat geeft je programma aan als je de regel aanpast volgens mijn voorbeeld?
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Re: Waar zit de fout??
Heb net jouw regel erin gezet en dan geeft ie een Syntax Error: Invalid Operands
-
drOhimself
Re: Waar zit de fout??
Ik zal jouw PAL (met mijn aangepaste regel) even hier in mijn test systeem zetten en kijken wat er gebeurt.
Antwoord komt a.s.a.p.
Antwoord komt a.s.a.p.
-
drOhimself
Re: Waar zit de fout??
Hieronder het gebruikte TEST script op basis van jouw PAL, met mijn aangepaste 'While Day'-regel.
Dit aangepaste script gaat goed.
Echter met jouw script loopt het NIET en het lijkt erop dat deze manier van programmeren niet gewaardeerd wordt in PAL.
Volgens mij kan PAL er niet goed tegen als er te vaak een PalWaitFor-regel wordt gebruikt in een While-loop.
Je kan het beste dus zo min mogelijk Wait-regels gebruiken binnen een While-loop.
Hoe dit op te lossen ?
Heel simpel : In plaats dat je dus de While-loop 24 uur laat lopen, kies er dan voor om alleen korte stukjes tijd te nemen.
In jouw geval zou ik dus kiezen voor :
while (DayOfWeek (Now) = (Sunday) and (Now >= T['02:59:30']) and (Now <= T['02:59:59'])) Do
( hier jouw acties )
while (DayOfWeek (Now) = (Sunday) and (Now >= T['03:59:30']) and (Now <= T['03:59:59'])) Do
( hier jouw acties )
etc.
Code: Selecteer alles
//http://www.broadcasterforum.nl/viewtopic.php?f=81&t=4645&p=28909#p28874
//Zondag om 24 uur pakt pakt het script gelijk zondag 3 en 4 uur erbij.
//Hij gaat dus niet door met de maandag, maar blijft bij de zondag 04:59.45 wachten
// LET OP : Onderstaande PAL doet niets, behalve een regel in het PAL schermpje zetten
// ****************** LMN NIeuws + stream ******************
PAL.Loop:=True;
//PAL.LockExecution;
// *********************** Zondag **************************************
while (DayOfWeek (Now) = (Sunday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Zondag 03:00 uur
//PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
WriteLn('ZO 02:59:45!');
//Queue.Clear;
//Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
//Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
//Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
//ActivePlayer.FadeToNext;
//PAL.LockExecution;
// Zondag 04:00 uur
//PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
WriteLn('ZO 03:59:45!');
//Queue.Clear;
//Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
//Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
//Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
//ActivePlayer.FadeToNext;
//PAL.LockExecution;
// Zondag 24:00 uur
//PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
WriteLn('ZO 23:59:45!');
//Queue.Clear;
//Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
//Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
//Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
//Queue.AddFile('C:\StudioHoliday\Weekendradioshow\WRS-zondag.mp3',ipBottom);
//ActivePlayer.FadeToNext;
//PAL.LockExecution;
end;
// *********************** Maandag **************************************
while (DayOfWeek (Now) = (Monday) and (Now >= T['00:00:01']) and (Now <= T['23:59:59'])) Do
begin
// Maandag 03:00 uur
//PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:45']);
WriteLn('MA 02:59:45!');
//Queue.Clear;
//Queue.AddFile('C:\news\tijden\03.mp3',ipBottom);
//Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
//Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
//ActivePlayer.FadeToNext;
//PAL.LockExecution;
// Maandag 04:00 uur
//PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:45']);
WriteLn('MA 03:59:45!');
//Queue.Clear;
//Queue.AddFile('C:\news\tijden\04.mp3',ipBottom);
//Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
//Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
//ActivePlayer.FadeToNext;
//PAL.LockExecution;
// Maandag 24:00 uur
//PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
WriteLn('MA 23:59:45!');
//Queue.Clear;
//Queue.AddFile('C:\news\tijden\24.mp3',ipBottom);
//Queue.AddFile('C:\news\wereldnieuws.mp3',ipBottom);
//Queue.AddUrl ('http://84.25.65.156:8000',ipBottom);
//ActivePlayer.FadeToNext;
//PAL.LockExecution;
end;
Echter met jouw script loopt het NIET en het lijkt erop dat deze manier van programmeren niet gewaardeerd wordt in PAL.
Volgens mij kan PAL er niet goed tegen als er te vaak een PalWaitFor-regel wordt gebruikt in een While-loop.
Je kan het beste dus zo min mogelijk Wait-regels gebruiken binnen een While-loop.
Hoe dit op te lossen ?
Heel simpel : In plaats dat je dus de While-loop 24 uur laat lopen, kies er dan voor om alleen korte stukjes tijd te nemen.
In jouw geval zou ik dus kiezen voor :
while (DayOfWeek (Now) = (Sunday) and (Now >= T['02:59:30']) and (Now <= T['02:59:59'])) Do
( hier jouw acties )
while (DayOfWeek (Now) = (Sunday) and (Now >= T['03:59:30']) and (Now <= T['03:59:59'])) Do
( hier jouw acties )
etc.
-
daanjo
- ****
- Berichten: 92
- Lid geworden op: 20 apr 2012, 21:47
- SAM-versie: 2025.2
- Database: MySQL
- Windows: 11
- Locatie: Hoensbroek
- Contacteer:
Re: Waar zit de fout??
OK ....ik zal vanaaf me script gaan veranderen.
Bedankt voor je hulp....mijn reactie volgt nog na het testen van de nieuwe PAL
Bedankt voor je hulp....mijn reactie volgt nog na het testen van de nieuwe PAL
-
- Vergelijkbare Onderwerpen
- Reacties
- Weergaves
- Laatste bericht
-
- 9 Reacties
- 4500 Weergaves
-
Laatste bericht door Borg