Blink light script Airence

English Scripts
21

Yes the airence is connected with mairlist.

We setup the cartwall yet, and when we fill the cartwall the correponding leds are from out to yellow when file is loaded to green when ready.

The connection between mairlist and airence is correct.

22

23

What happens if you reduce the script to

procedure OnLoad;
begin
  AirenceRemote(0).SetLED(0, acRed);
end;

begin
end.

?

Clueless regards

TSD

24

We try that next week.
I’m not at the studio at this moment

25

No hurry. These lines should only light up 1A as soon as the script is loaded. Let’s see …

Patient regards

TSD

26

Could that be the actual problem? Button 0 belongs to the Cartwall buttons. If this is still assigned to the cartwall it might not accept any other command?

For some initial testing I’d suggest to use button “255”, it should trigger all LEDs at once. So you should see at least any reaktion to the script. It also proofs or busts my statement of the assigned Cart-Wall buttons.

Regards
/Malte

27

This is working.

I changed SetLed(0 in 16

When is edit the script and press save the led is on.
When i edit the script and tells acNone then the led shut off after save.

28

Good idea, then you might change the line in above script to

  AirenceRemote(0).SetLED(255, acRed);

Complete regards

TSD

29

Indeed Button 0 is for cartwall.

16 to 24 works fine

30

I understand LEDs 16 to 24 are working, good. So we can have a shot at this one:

const
  DURATION = 20;                                             // <-- Enter duration of LED activation in seconds, but keep the semicolon!

procedureOnLoad;                                             // All LEDs out on startup
begin
  AirenceRemote(0).SetLED(255, acNone);
end;

procedure OnUnload;                                           // All LEDs out on shutdown
begin
  AirenceRemote(0).SetLED(255, acNone);
end;

procedure OnTimer;
begin
  AirenceRemote(0).SetLED(16, acNone);                        // Turn off LED
  DisableTimer;                                               // Stop timer
end;

procedure OnExecuteCommand(Commad:string);
begin
  if Command = 'BLINK AIRENCE' then begin                     // Wait for Command to be set
    AirenceRemote(0).SetLEDBlink(16, acRed, acNone, absFast); // Turn on Airence LED
    EnableTimer(1000 * DURATION);                             // Start timer
  end;
end;

begin
end.

To change the duration of th LED blinking, just change the figure in line 2. The LED is triggered by the command BLINK AIRENCE given by the playlist event.

Still curious regards

TSD

31

This is not working :frowning:

Error message in logging.

12-8-2019 11:54:04 Fout Fout bij het laden achtergrond script C:\Mairlist 6.x\Scripts\Airence test.mls: [Error] (4:16): is (’=’) expected

32

One space is missing in the line

procedure OnLoad;

Sorry, couldn’t test it before.

Inattentive regards

TSD

33

Tested,

Another error message

12-8-2019 13:39:26 Fout Fout bij het laden achtergrond script C:\Mairlist 6.x\Scripts\Airence test.mls: [Error] (22:6): Unknown identifier ‘Command’

34

Of course:

procedure OnExecuteCommand(Command:string);

Typo. Commad

Mystiped regards

TSD

35

Yeeeeeaaah Great it works…

tested and edit some variations…

Thanx for your help… That’s what we want…

const
DURATION = 20; // ← Enter duration of LED activation in seconds, but keep the semicolon!

procedure OnLoad; // All LEDs out on startup
begin
AirenceRemote(0).SetLED(255, acNone);
end;

procedure OnUnload; // All LEDs out on shutdown
begin
AirenceRemote(0).SetLED(255, acNone);
end;

procedure OnTimer;
begin
AirenceRemote(0).SetLED(22, acNone); // Turn off LED
AirenceRemote(0).SetLED(23, acNone); // Turn off LED
AirenceRemote(0).SetLED(24, acNone); // Turn off LED
DisableTimer; // Stop timer
end;

procedure OnExecuteCommand(Command:string);
begin
if Command = ‘BLINK AIRENCE’ then begin // Wait for Command to be set
AirenceRemote(0).SetLEDBlink(22, acRed, acNone, absFast); // Turn on Airence LED
AirenceRemote(0).SetLEDBlink(23, acYellow, acNone, absFast); // Turn on Airence LED
AirenceRemote(0).SetLEDBlink(24, acRed, acNone, absFast); // Turn on Airence LED
EnableTimer(1000 * DURATION); // Start timer
end;
end;

begin
end.

36

Great! Sorry for the typoes, couldn’t test it myself at the moment.

Relieved regards

TSD

37

We are very happy with the assistance here.

We are now make everthing working with different modes.

Thanx again.