wat is er mis met dit script

[superpeter]

hallo allemaal.

ik heb op sam broadcaster voor men radio zender het volgende script.

Code: Selecteer alles

	PAL.WaitForPlayCount(1);
PAL.Loop:=True;

PAL.LockExecution;

	var tijd, uur, prog : string;
	var QueueTime : Integer = (60*60*1000);
	var D : DateTime;
	var JIN : Integer = 1;

	   D := T['+01:00:00'];
 tijd := FormatDateTime('hh', D);
	if  (tijd = '00') then tijd := '24';

 tijd := tijd - 01;
     begin
		     if ((tijd >= '07') and (tijd <  '08')) then Cat['kids'].QueueBottom(smRandom, EnforceRules)
				  else if ((tijd >= '08') and (tijd <  '09')) then Cat['kids'].QueueBottom(smRandom, EnforceRules)
				  else if ((tijd >= '14') and (tijd <  '15')) then Cat['outjes'].QueueBottom(smRandom, EnforceRules)
				  else if ((tijd >= '15') and (tijd <  '16')) then Cat['outjes'].QueueBottom(smRandom, EnforceRules)
      else
      end;
PAL.UnLockExecution;

egter doet hij tussen 7 en 8 sogtens wel de kinderlietnes laten horen maar niet tussen 8 en 9
ook hoor je smidags niet de muziek uit de catogorie outjes.
weet iemand wat ik fout doe, of wat er fout zit in men script?

[Cybertom]

Ik begrijp niet zoveel van alle handelingen in het script.
maar volgens mij moet dit wel werken, ik heb het niet getest,

Code: Selecteer alles

PAL.Loop:=True;
var uur : string;

PAL.WaitForPlayCount(1);
PAL.LockExecution;

uur := FormatDateTime('hh', now);
if  (uur = '00') then uur := '24';

if ((uur >= '07') and (uur <  '08')) then Cat['kids'].QueueBottom(smRandom, EnforceRules)
else if ((uur >= '08') and (uur <  '09')) then Cat['kids'].QueueBottom(smRandom, EnforceRules);
else if ((uur >= '14') and (uur <  '15')) then Cat['outjes'].QueueBottom(smRandom, EnforceRules);
else if ((uur >= '15') and (uur <  '16')) then Cat['outjes'].QueueBottom(smRandom, EnforceRules);

PAL.UnLockExecution;

Maar als je meerdere uren achterelkaar wilt doen zou ik het zo doen:

Code: Selecteer alles

PAL.Loop:=True;
var uur : string;

PAL.WaitForPlayCount(1);
PAL.LockExecution;

uur := FormatDateTime('hh', now);
if  (uur = '00') then uur := '24';

if ((uur >= '07') and (uur <  '09')) then Cat['kids'].QueueBottom(smRandom, EnforceRules)
if ((uur >= '14') and (uur <  '16')) then Cat['outjes'].QueueBottom(smRandom, EnforceRules)

PAL.UnLockExecution;

En als je elk uur apart benoemd, kan het ook zo

Code: Selecteer alles

PAL.Loop:=True;
var uur : string;

PAL.WaitForPlayCount(1);
PAL.LockExecution;

uur := FormatDateTime('hh', now);
if  (uur = '00') then uur := '24';

if ((uur = '07')  then Cat['kids'].QueueBottom(smRandom, EnforceRules)
if ((uur = '08')  then Cat['kids'].QueueBottom(smRandom, EnforceRules)
if ((uur = '14')  then Cat['outjes'].QueueBottom(smRandom, EnforceRules)
if ((uur = '15')  then Cat['outjes'].QueueBottom(smRandom, EnforceRules)

PAL.UnLockExecution;

[superpeter]

in midels kan ik zegen wat er mis was met het script.
namelijk helemaal nix.
egter keek hij naar de regels waarin staan hoe vaak een liedje ge draait mag worden en zo.
en de katogorie outjes hat zo wijnig nummers en albums dat hij dus iedere keer over de regels struikelde.
heb dit aan ge past en nu werkt het wel gewoon goed