Ik heb een Uurtijdmelding PAL script lopen, die ieder heel uur (24x dus) de tijd geeft. In één mp3 staan de 6 pips, met daarna de tekst: Het is nu 1,2,3 uur etc. Dat loopt prima, alleen op sommige uren doet hij dat (gedeeltelijk) dubbel. Dan krijg je 3 pips, die faden out en dan vervolgens de mp3 opnieuw er achteraan, met 6 pips en de tekst. Heeft iemand enig idee wat er mis mee zou kunnen zijn? Als bijlage de layout van het PAL script. Dank bij voorbaat!
Gr. Paul
(SAM 4.2.2 - Windows XP)
P.S. Ik zie bij controle een heel vreemde weergave van de bijlage (txt bestandje). Zo dan maar (sorry als dit niet de juiste manier is, maar weet het niet anders te doen):
Code: Selecteer alles
PAL.Loop:=True;
PAL.LockExecution;
// 01 uur `s nachts
while (Now >= T['23:59:51']) and (Now <= T['00:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_1_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 02 uur `s nachts
while (Now >= T['01:59:51']) and (Now <= T['01:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_2_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 03 uur `s nachts
while (Now >= T['02:59:51']) and (Now <= T['02:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_3_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 04 uur `s nachts
while (Now >= T['03:59:51']) and (Now <= T['03:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_4_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 05 uur `s nachts
while (Now >= T['04:59:51']) and (Now <= T['04:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_5_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 06 uur `s ochtends
while (Now >= T['05:59:51']) and (Now <= T['05:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_6_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 07 uur `s ochtends
while (Now >= T['06:59:51']) and (Now <= T['06:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_7_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 08 uur `s ochtends
while (Now >= T['07:59:51']) and (Now <= T['07:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_8_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 09 uur `s ochtends
while (Now >= T['08:59:51']) and (Now <= T['08:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_9_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 10 uur `s ochtends
while (Now >= T['09:59:51']) and (Now <= T['09:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_10_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 11 uur `s ochtends
while (Now >= T['10:59:51']) and (Now <= T['10:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_11_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 12 uur `s middags
while (Now >= T['11:59:51']) and (Now <= T['11:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_12_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 1 uur `s middags
while (Now >= T['12:59:51']) and (Now <= T['12:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_1_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 2 uur `s middags
while (Now >= T['13:59:51']) and (Now <= T['13:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_2_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 3 uur `s middags
while (Now >= T['14:59:51']) and (Now <= T['14:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_3_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 4 uur `s middags
while (Now >= T['15:59:51']) and (Now <= T['15:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_4_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 5 uur `s middags
while (Now >= T['16:59:51']) and (Now <= T['16:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_5_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 6 uur `s avonds
while (Now >= T['17:59:51']) and (Now <= T['17:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_6_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 7 uur `s avonds
while (Now >= T['18:59:51']) and (Now <= T['18:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_7_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 8 uur `s avonds
while (Now >= T['19:59:51']) and (Now <= T['19:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_8_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 9 uur `s avonds
while (Now >= T['20:59:51']) and (Now <= T['20:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_9_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 10 uur `s avonds
while (Now >= T['21:59:51']) and (Now <= T['21:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_10_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// 11 uur `s avonds
while (Now >= T['22:59:51']) and (Now <= T['22:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_11_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
// middernacht
while (Now >= T['23:59:51']) and (Now <= T['23:59:56']) do
begin
PAL.UnLockExecution;
Queue.AddFile('C:\Users\Paul\Music\SAM Broadcaster\Tijdsein\Pips_ObG_12_uur.mp3',ipTop);
ActivePlayer.FadeToNext;
end;
PAL.UnLockExecution;
//Wout Franken, BroadCasterForum.nl, 21 maart 2009
