PAL die waitforplaycount laat verlopen *OPGELOST*

[Eagle 1974]

ik vroeg me af is het mogelijk om de waitforplaycount variable te maken zodat die
minder wordt naarmate je dichter bij een bepaalde datum komt zodat die dan vaker
een bepaalde muziek cat. aanspreekt en een nummer ervan inlaad ? ?

bijvoorbeeld:
zodat je zeg 15 dagen voor kerst om de 15 nummers een kerst nummer hoort en
14 dagen voor kerst om de 14 nummers een kerst nummer hoort.

[RealTech]

Toevallig ben ik gisteren in de weer geweest om een dergelijke PAL te maken. Ik noem het voor het gemak maar even het Sky Radio principe. Vanaf 7 december beginnen we met kerstmuziek en draait SAM er ongeveer 1 per 8 nummers. Dat loopt op tot aan 2e kerstdag met een kerstplaat om de 2 nummers.

Dat doet de PAL door de `Count` te stellen op (32 - dagnummer) / 3.

Bijvoorbeeld 7 december wordt dan
32 - 7 = 25 /3 = 8,167 (Count = 8)
24 december: 32 - 24 = 8 / 3 = 2,667 (Count = 3)

Door het getal 32 of de deelfactor 3 te wijzigen kun je de count beinvloeden.

Ik denk dat dit is wat je bedoelt. Sint is ook ingebakken, maar daar ben ik geen heel grote fan van dus die zet ik vast op 15.

Code: Selecteer alles

PAL.Loop := True;

   var Sint, EndSint, Kerst, EndKerst : DateTime;
   var categorie :string  ;
   var count, Dyy, Dmm, Ddd :integer;

   DecodeDate(Now, Dyy,Dmm,Ddd);

   Sint := EncodeDate(Dyy,11,20);
   EndSint := EncodeDate(Dyy,12,06);
   Kerst := EncodeDate(Dyy,12,07);
   EndKerst := EncodeDate(Dyy,12,27);

   while (Now >= Sint) and (Now < EndKerst) do
     begin

       if (Now >= Sint) and (Now < EndSint) then
        begin
        categorie := 'Sinterklaas';
        count := 15;
        end;
       
       if (Now >= Kerst) and (Now < EndKerst)  then
        begin
        categorie := 'Christmas';
        count := (32-Ddd)/3;
        end;
       
       WriteLn(categorie);
       WriteLn(count);

       begin
        PAL.WaitForPlayCount(count);
        Cat[categorie].Queuebottom(smLRP, EnforceRules);
       end;
     end;

[Eagle 1974]

ik ga gelijk ff testen ermee ,
dit was wel wat ik bedoelde.

bedankt voor je antwoord realtech.

ff de cat benaming aanpassen naar zo als ik ze heb en dan kijken wat die doet
ik laat weten of die voeldoet (denk het wel).

thx.

[Eagle 1974]

ik heb hem iets aangepast zodat sint ook variable count heeft.

Code: Selecteer alles

              PAL.Loop := True;

   var Sint, EndSint, Sint2, EndSint2, Kerst, EndKerst : DateTime;
   var categorie :string  ;
   var count, Dyy, Dmm, Ddd :integer;

   DecodeDate(Now, Dyy,Dmm,Ddd);

   Sint := EncodeDate(Dyy,11,05);
   EndSint := EncodeDate(Dyy,12,01);
   Sint2 := EncodeDate(Dyy,11,30);
   EndSint2 := EncodeDate(Dyy,12,06);
   Kerst := EncodeDate(Dyy,12,07);
   EndKerst := EncodeDate(Dyy,12,27);

   while (Now >= Sint) and (Now < EndKerst) do
     begin

       if (Now >= Sint) and (Now < EndSint) then
        begin
        categorie := 'sinterklaas';
        count := (46-Ddd)/2;  //bij deze heeft hij een count van 8 op 30 november
        end;

       if (Now >= Sint2) and (Now < EndSint2) then
        begin
        categorie := 'sinterklaas';
        count := (8-Ddd); //bij deze heeft hij een count van 3 op 5 december      
        end;

       if (Now >= Kerst) and (Now < EndKerst)  then
        begin
        categorie := 'Kerst';
        count := (34-Ddd)/3; //bij deze heeft hij count van 3 op 25 december
        end;

       WriteLn(categorie);
       WriteLn(count);

       begin
        PAL.WaitForPlayCount(count);
        Cat[categorie].QueueTop(smLRP, EnforceRules);
       end;
     end;

heb voor sint er 2 tijd vakken van gemaakt omdat hij van 30-11 op 1-12 niet echt uitkomt met de variable,
dus daarom maar in 2 gesplitst en de berekening van de variable daarop aan gepast.

[RealTech]

Ziet er goed uit! Veel plezier er mee.