Airence and Mairlist Remote control button blinking?

English General
1

Hi Everyone,

I have got an Airence with the remote license using ML 6.3. I am trying to get a button blinking when pressed on the following:

Switch_17_On=CARTWALL NEXT PAGE
Switch_18_On=CARTWALL PREVIOUS PAGE

Say the button is red in a normal state and green when pressed. How do i do that?

Thanks for the hint.

Wilbert

2

So Fixed it, for everyone to have:

procedure OnLoad;                                            
begin
  AirenceRemote(0).SetLED(17, acYellow);
  AirenceRemote(0).SetLED(18, acYellow);
  AirenceRemote(0).SetLED(19, acYellow);
  AirenceRemote(0).SetLED(20, acYellow);
  AirenceRemote(0).SetLED(21, acYellow);
  AirenceRemote(0).SetLED(22, acYellow);
  AirenceRemote(0).SetLED(23, acYellow);
  AirenceRemote(0).SetLED(24, acYellow);
end;

procedure OnUnload;                                           
begin
  AirenceRemote(0).SetLED(17, acNone);
  AirenceRemote(0).SetLED(18, acNone);
  AirenceRemote(0).SetLED(19, acNone);
  AirenceRemote(0).SetLED(20, acNone);
  AirenceRemote(0).SetLED(21, acNone);
  AirenceRemote(0).SetLED(22, acNone);
  AirenceRemote(0).SetLED(23, acNone);
  AirenceRemote(0).SetLED(24, acNone);
end;

procedure OnTimer;
begin
  AirenceRemote(0).SetLED(17, acYellow);
  AirenceRemote(0).SetLED(18, acYellow);
  AirenceRemote(0).SetLED(19, acYellow);
  AirenceRemote(0).SetLED(20, acYellow);
  AirenceRemote(0).SetLED(21, acYellow);
  AirenceRemote(0).SetLED(22, acYellow);
  AirenceRemote(0).SetLED(23, acYellow);
  AirenceRemote(0).SetLED(24, acYellow);                      
  DisableTimer;                                               
end;

procedure OnExecuteCommand(Command:string);
begin
  if Command = 'CARTWALL NEXT PAGE' then begin                 
    AirenceRemote(0).SetLEDBlink(17, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
  if Command = 'CARTWALL PREVIOUS PAGE' then begin                 
    AirenceRemote(0).SetLEDBlink(18, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
  if Command = 'VT OPEN' then begin                 
    AirenceRemote(0).SetLEDBlink(19, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
  if Command = 'VT RECORD START' then begin                 
    AirenceRemote(0).SetLEDBlink(20, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
  if Command = 'VT RECORD STOP' then begin                 
    AirenceRemote(0).SetLEDBlink(21, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
  if Command = 'VT PLAYER A START' then begin                 
    AirenceRemote(0).SetLEDBlink(22, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
  if Command = 'VT PLAYER B START' then begin                 
    AirenceRemote(0).SetLEDBlink(23, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
  if Command = 'VT SAVE' then begin                 
    AirenceRemote(0).SetLEDBlink(24, acGreen, acYellow, absFast); 
    EnableTimer(1000);
  end;
end;

begin
end.

EDIT code formatted by Moderator :slightly_smiling_face:

1 Like