Automatisch programma laten starten...en een playlist ???

[netmeet]

Wie zou mij kunnen helpen..

Ik zoek hoe ik een programma automatisch kan laten sratten elke dag op hetzelfde uur maar elke dag een nieuwe file (mp3)
en bv voor de zondag.. een slow playlist automatisch laten afspelen..

Ben beginner... heel erg bedankt...

[Kees]

Doe je zelf die mp3 file overschrijven ?

[netmeet]

JA idd kees... elke dag pas ik die wel aan...

En kees kan je me effenb in het kort uitleggen hoe ik dat precies doe voor deck a en deck b op men 2 kanalen van men mengpaneel (extern)

[Kees]

En kees kan je me effenb in het kort uitleggen hoe ik dat precies doe voor deck a en deck b op men 2 kanalen van men mengpaneel (extern)

Ik heb vanavond even een nieuw topic aangemaakt.(Voordeel als je niet van voetbal houdt)
http://www.broadcasterforum.nl/viewtopi ... 172&t=1195
Voor het andere het juiste tijdstip en naam en juiste locatie van de file doorgeven.

[netmeet]

Hey Kees...

Proggie gaat door van 18-19 uur en de file zal staan op D en de naam hebben douglas_nonstop.mp3

Ik moet wel zeggen kees.. ik zit dus ook men een PAL voor elk uur...

Bedankt e man...

[Kees]

Zet dat PAL script even online !

[netmeet]

Kees.

Dit is van men uurwisseling

Code: Selecteer alles

PAL.Loop:=True;
PAL.WaitForTime(T['xx:59:50']);
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;

Mvg

[netmeet]

En kees kan je me effenb in het kort uitleggen hoe ik dat precies doe voor deck a en deck b op men 2 kanalen van men mengpaneel (extern)

Ik heb vanavond even een nieuw topic aangemaakt.(Voordeel als je niet van voetbal houdt)
http://www.broadcasterforum.nl/viewtopi ... 172&t=1195
Voor het andere het juiste tijdstip en naam en juiste locatie van de file doorgeven.

Hey kees... wat ik heb met Deck B is dat hij soms eens kan happeren... niet zwaar maar af en toe eens.. Deck A doet het niet..

[Kees]

Kan best wel en hardware probleem zijn.
Kijk eens bij de instellingen van je tweede geluidskaart..misschien dat je daar iets moet veranderen.

[netmeet]

Kan best wel en hardware probleem zijn.
Kijk eens bij de instellingen van je tweede geluidskaart..misschien dat je daar iets moet veranderen.

Ok kees zal het eens bekijken...

Men PAL script staat hier ook op die pagina..
Om een programma te laten starten na men uur...

Thx

[Kees]

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;

while ((Now >= T['23:59:53']) and (Now <= T['23:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['00:59:53']) and (Now <= T['00:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['01:59:53']) and (Now <= T['01:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['02:59:53']) and (Now <= T['02:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['03:59:53']) and (Now <= T['03:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['04:59:53']) and (Now <= T['04:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['05:59:53']) and (Now <= T['05:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['06:59:53']) and (Now <= T['06:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['07:59:53']) and (Now <= T['07:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['08:59:53']) and (Now <= T['08:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['09:59:53']) and (Now <= T['09:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['10:59:53']) and (Now <= T['10:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['11:59:53']) and (Now <= T['11:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['12:59:53']) and (Now <= T['12:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['13:59:53']) and (Now <= T['13:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['14:59:53']) and (Now <= T['14:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['15:59:53']) and (Now <= T['15:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['17:59:53']) and (Now <= T['17:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.AddFile('D:\douglas_nonstop.mp3',ipTop);
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['18:59:53']) and (Now <= T['18:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['19:59:53']) and (Now <= T['19:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['20:59:53']) and (Now <= T['20:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['21:59:53']) and (Now <= T['21:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

PAL.LockExecution;
while ((Now >= T['22:59:53']) and (Now <= T['22:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;
PAL.UnlockExecution;

[netmeet]

Hey Kees,

Ik heb het gaan proberen... Juist 1 probleem... vanaf ik het PAL script start dan loopt sam vast... Oplossing ?

En elke dag tussen 12 - 13 uur heb ik een programma en vanaf 18 - 19 uur..

Kan je dat fixen aub...

Heel erg bedankt kees..
Mvg

[Kees]

Klopt helemaal...ligt aan het figuur die dit PAL script heeft gemaakt.
Ikke dus...
Foutje gemaakt dus..jammer dat ik dit foutje 24 keer heb gemaakt...
Dit zou wel moeten werken..
Als je kijkt hoe ik het programma van 18:00 er in heb gezet kun je zelf de aanvullig maken op de andere uren.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;

while ((Now >= T['23:59:53']) and (Now <= T['23:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['00:59:53']) and (Now <= T['00:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['01:59:53']) and (Now <= T['01:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['02:59:53']) and (Now <= T['02:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['03:59:53']) and (Now <= T['03:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['04:59:53']) and (Now <= T['04:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['05:59:53']) and (Now <= T['05:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['06:59:53']) and (Now <= T['06:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['07:59:53']) and (Now <= T['07:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['08:59:53']) and (Now <= T['08:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['09:59:53']) and (Now <= T['09:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['10:59:53']) and (Now <= T['10:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['11:59:53']) and (Now <= T['11:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['12:59:53']) and (Now <= T['12:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['13:59:53']) and (Now <= T['13:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['14:59:53']) and (Now <= T['14:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['15:59:53']) and (Now <= T['15:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['16:59:53']) and (Now <= T['16:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['17:59:53']) and (Now <= T['17:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
Queue.AddFile('D:\douglas_nonstop.mp3',ipTop);
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['18:59:53']) and (Now <= T['18:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['19:59:53']) and (Now <= T['19:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['20:59:53']) and (Now <= T['20:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['21:59:53']) and (Now <= T['21:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;

while ((Now >= T['22:59:53']) and (Now <= T['22:59:57'])) do
begin
PAL.UnlockExecution;
Queue.AddFile('D:\uurwissel.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['+00:00:15']);
PAL.Lockexecution;
end;
PAL.UnlockExecution;