directory in aux2

Voor vragen over Playlist Automation Language.
Plaats reactie
roy1986

directory in aux2

Ongelezen bericht door roy1986 »

Beste

Ik zit met een probleem bij deze script

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
while DayOfWeek(Now) = sunday and ((Now >= T['09:00:00']) and (Now <= T['18:59:50'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['16:44:00']);
Queue.AddFile('C:\nonstop\jingle\roy\roy 19 live.mp3',ipTop);
AUX2.Next
PAL.WaitForTime(T['16:44:50']);
DeckA.Volume := volume div 2;
DeckB.Volume := volume div 2;
AUX2.Play
volume := 256;
DeckA.Volume := volume;
DeckB.Volume := volume;
PAL.LockExecution;
end;
PAL.UnLockExecution;
Wie weet wat ik hier fout in heb gezet?

Het is namelijk de bedoeling dat hij de muziek door paat draaien en de jingle er over heen laat draaien,
ik krijg het maar niet voor elkaar dooor veel te proberen.

M.v.g Roy
Gebruikersavatar
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: directory in aux2

Ongelezen bericht door Wout »

Heb je het al geprobeerd om zonder de PAL.LockExecution; & PAL.UnLockExecution; te doen?
Afbeelding
roy1986

Re: directory in aux2

Ongelezen bericht door roy1986 »

Beste Wout

Dat heb ik gedaan
dan geeft hij ook een fout bij

Code: Selecteer alles

PAL.WaitForTime(T['16:44:50']);
drOhimself

Re: directory in aux2

Ongelezen bericht door drOhimself »

Roy,
Ik denk dat je jingle niet naar je AUX gaat, maar gewoon naar je Queue.

Kijk even naar onderstaand scriptje :
Lijkt mij te zitten in de regel :
JinglePlayer.QueueSong(Queue.NextInQueue);

Code: Selecteer alles

{**
*   Play HourTime Liner on AUX1
*   adapted script by drOhimself for SAM BroadCaster Forum
*   v1 2011/06/19
*	v2 2011/09/24
*}
PAL.LockExecution;
PAL.loop := true;
const LOCATION = 'G:\Radio\Jingles\tijd\';

var Player,Idle : TPlayer;
var JinglePlayer : TPlayer = Aux1;
var Song : TSongInfo;
var uur : String ;
uur := FormatDateTime('hh', Now) ;
var volume, flag : Integer;
var path : String = '';
var time,hour,minute,second,millisecond : Integer;
PAL.UnLockExecution;

While (Now >= T[uur+':59:50']) and (Now <= T[uur+':59:58']) do
	BEGIN
		PAL.LockExecution;
		path := LOCATION + IntToStr(uur+1) + '.mp3';
		// jingle exists, load it to Aux1 Player
		Queue.AddFile(path, ipTop);
		JinglePlayer.QueueSong(Queue.NextInQueue);
		// Define max volume
		volume := 350;
		// Set JinglePlayer to have the same max volume
		JinglePlayer.Volume := volume;
		WriteLn('Wacht op juiste tijd') ;
		PAL.UnLockExecution;
		PAL.WaitForTime(T['xx:59:59']);
		// reduce Volume for the time the Jingle Overlay plays
		DeckA.Volume := volume div 2;
		DeckB.Volume := volume div 2;
		JinglePlayer.Play;
		// Reset the volume to normal level once jingle is finished
		DeckA.Volume := volume;
		DeckB.Volume := volume;
	END;
Hier kan je nog wel e.e.a. uithalen.
roy1986

Re: directory in aux2

Ongelezen bericht door roy1986 »

Beste drOhimself

Hij komt indd in Queue,
maar door dat ik er achter aan heb staan AUX2.next haald hij het nr uit de Queue.
Dan komt hij niet meer in Deck te staan.

Maar als ik de directory gelijk naar AUX2 kan sturen is het helemaal makelijk.

En het Jingle komt een uur voor de eind jingle er in,
een aankondiging voor de volgende DJ.

Gr Roy
drOhimself

Re: directory in aux2

Ongelezen bericht door drOhimself »

Denk dat ik het al zie :

Code: Selecteer alles

    ....
    Queue.AddFile('C:\nonstop\jingle\roy\roy 19 live.mp3',ipTop);
    AUX2.Next
    PAL.WaitForTime(T['16:44:50']);
    DeckA.Volume := volume div 2;
    DeckB.Volume := volume div 2;
    AUX2.Play
    volume := 256;
.......
Je bent 2x de [punt,komma] vergeten
roy1986

Re: directory in aux2

Ongelezen bericht door roy1986 »

Ik blijf een error houden
Gebruikersavatar
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: directory in aux2

Ongelezen bericht door Wout »

Maar wacht, er is meer. (klinkt idd als een foute reclame-boodschap ;) )
Het woord volume is ook niet toegewezen.

Het lijkt me het betere knip en plak werk maar dan net niet.
Heb ik het verleden ooit een script gemaakt die hetzelfde deed.

Probeer het eens op te zoeken want het bestaat wel. :D

*-edit, vooruit dan, ben in een gulle bui, scheelt je weer zoeken.
http://www.broadcasterforum.nl/viewtopi ... ume#p27686
roy1986

Re: directory in aux2

Ongelezen bericht door roy1986 »

hij doet wel wat hij moet doen,
alleen krijg ik hem niet aan het verstand dat hij op een dag moet draaien en welke tijdstip

+ dat dat script vele errors heeft buiten de wijzigingen om
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht