Навык iRidium для Сбер Салют

var Sber = IR.GetDevice("Sber Salut");
var device = IR.GetDevice("Modbus TCP");
 
IR.AddListener(IR.EVENT_TAG_CHANGE, Sber, function(in_sName, in_sValue)
{
   if (in_sName == "Лампа:Color RGB") {   
       var valueR = (in_sValue >> 24) & 0xFF; 
       var commandR = "Red"; //
       setRGB(commandR, valueR);

 
       var valueG = (in_sValue >> 16) & 0xFF; //Получение зеленого
       var commandG = "Green"; //Имя канала в которой передается значение 
       setRGB(commandG, valueG); //Функция отправки значения
 
       var valueB = (in_sValue >> 8) & 0xFF;
       var commandB = "Blue";
       setRGB(commandB, valueB);
       Sber.Set(in_sName, in_sValue);
   }
 
   IR.Log(" Красный " + valueR + " Зеленый " + valueG + " Синий " + valueB);
 
});
 
/*
/ отправляем на определенную команду значение
/ command - имя команды
/ value - значение
*/
function setRGB (command ,value){
    device.Set(command, value);
}

function modify_send_A_to_mA(in_Type, in_Name, in_Value)
{
   in_Value *= 1000;
   IR.Log("Modification is done. " + in_Name + " has send " + in_Value);
   return in_Value;
}

function modify_send_kW_to_W(in_Type, in_Name, in_Value)
{
   in_Value *= 1000;
   IR.Log("Modification is done. " + in_Name + " has send " + in_Value);
   return in_Value;
}

var Sber = IR.GetDevice("Sber Salut");
var device = IR.GetDevice("Modbus TCP");
 
IR.AddListener(IR.EVENT_TAG_CHANGE, Sber, function(in_sName, in_sValue)
{
   if (in_sName == "Лампа:Color RGB") {   
       var valueR = (in_sValue >> 24) & 0xFF; 
       var commandR = "Red"; //
       setRGB(commandR, valueR);

 
       var valueG = (in_sValue >> 16) & 0xFF; //Получение зеленого
       var commandG = "Green"; //Имя канала в которой передается значение 
       setRGB(commandG, valueG); //Функция отправки значения
 
       var valueB = (in_sValue >> 8) & 0xFF;
       var commandB = "Blue";
       setRGB(commandB, valueB);
       Sber.Set(in_sName, in_sValue);
   }
 
   IR.Log(" Красный " + valueR + " Зеленый " + valueG + " Синий " + valueB);
 
});
 
/*
/ отправляем на определенную команду значение
/ command - имя команды
/ value - значение
*/
function setRGB (command ,value){
    device.Set(command, value);
}

var Sber Salut = IR.GetDevice("Sber Salut"); // имя драйвера Сбер Салюта
var ModBus = IR.GetDevice("Bus77");  // имя драйвера

IR.AddListener(IR.EVENT_TAG_CHANGE, Sber Salut, function(name, value) 
{
    IR.Log("От Sber Salut Name: " +  name + " значение:" + value); 
    
    var NameChannelSet = "";
    var ResultForModBus = 0; //значение для МодБас
    if(name == "Вентиляция Зентек:Mode")
    {
        NameChannelSet = "I-CAN-Modbus:TempControlMode (Minibox (Zentec) 1)";
        switch (value) 
        {
            case "ventilation":
                ResultForModBus = 1;
                ModBus.Set(NameChannelSet, ResultForModBus);
            break;
            case "heating":
                ResultForModBus = 2;
                ModBus.Set(NameChannelSet, ResultForModBus);
            break;
            default:
                IR.Log("Команда не запрограммирована!");
        }   
    }
    
    if(name == "Вентиляция Зентек:FanSpeed")
    {
        NameChannelSet = "I-CAN-Modbus:FanSpeed (Minibox (Zentec) 1)";
        switch (value) 
        {
            case "low":
                ResultForModBus = 1;
                ModBus.Set(NameChannelSet, ResultForModBus);
            break;
            case "medium":
                ResultForModBus = 3;
                ModBus.Set(NameChannelSet, ResultForModBus);
            break;
            case "high":
                ResultForModBus = 7;
                ModBus.Set(NameChannelSet, ResultForModBus);
            break;
            default:
                IR.Log("Команда не запрограммирована!");
        }   
    }
    
    IR.Log("От Sber Salut - Name: " + NameChannelSet + " значение:" + ResultForModBus); 
});


IR.AddListener(IR.EVENT_TAG_CHANGE, ModBus, function(name, value) 
{
    var NameChannelSet = "";
    var ResultForSber = 0; //значение для Сбер Салюта
    IR.Log("От ModBus Name: " + name + " значение:" + value);
    if(name == "I-CAN-Modbus:TempControlMode (Minibox (Zentec) 1)")
    {
        NameChannelSet = "Вентиляция Зентек:Mode";
        switch (value) 
        {
            case 1:
                ResultForSber = "ventilation";
                Sber Salut.Set(NameChannelSet, ResultForSber);
            break;
            case 2:
                ResultForSber = "heating";
                Sber Salut.Set(NameChannelSet, ResultForSber);
            break;
            default:
                IR.Log("Команда не запрограммирована!");
        } 
    }
    
    if(name == "I-CAN-Modbus:FanSpeed (Minibox (Zentec) 1)")
    {
        NameChannelSet = "Вентиляция Зентек:FanSpeed";
        switch (value) 
        {
            case 1:
                ResultForSber = "low";
                Sber Salut.Set(NameChannelSet, ResultForSber);
            break;
            case 3:
                ResultForSber = "medium";
                Sber Salut.Set(NameChannelSet, ResultForSber);
            break;
            case 7:
                ResultForSber = "high";
                Sber Salut.Set(NameChannelSet, ResultForSber); 
            break;
            default:
                IR.Log("Команда не запрограммирована!");
        } 
    }
    IR.Log("От ModBus - Name: " + NameChannelSet + " значение:" + ResultForSber); 
});

var Sber = IR.GetDevice("Sber Salut"); // имя драйвера Сбер
var ModBus = IR.GetDevice("Bus77");  // имя драйвера

IR.AddListener(IR.EVENT_START, 0, function () 
{
    IR.AddListener(IR.EVENT_TAG_CHANGE, Sber, function(name, value) 
    {
        IR.Log("От Sber Name: " +  name + " значение:" + value); 
        
        var NameChannelSetSupply = "";
        var NameChannelSetExhaustFanSpeed = "";
        var ResultForModBus = 0; //значение для МодБас
        if(name == "Вентиляция Роял Клима:Fan Speed")
        {
            NameChannelSetSupply = "I-CAN-Modbus_тест:SupplyFanSpeed (Вентиляция Royal Clima 1)";
            NameChannelSetExhaustFanSpeed = "I-CAN-Modbus_тест:ExhaustFanSpeed (Вентиляция Royal Clima 1)";
            switch(value) 
            {
                case "quiet":
                {
                    ResultForModBus = 1;
                    ModBus.Set(NameChannelSetSupply, ResultForModBus);
                    IR.SetTimeout(100, function()
                    {
                        ModBus.Set(NameChannelSetExhaustFanSpeed, ResultForModBus);
                        IR.Log("Выставлено значение " + value + " В SupplyFanSpeed");
                    });
                    break;
                }
                case "low":
                {
                    ResultForModBus = 2;
                    ModBus.Set(NameChannelSetSupply, ResultForModBus);
                    IR.SetTimeout(100, function()
                    {
                        ModBus.Set(NameChannelSetExhaustFanSpeed, ResultForModBus);
                        IR.Log("Выставлено значение " + value + " В SupplyFanSpeed");
                    });
                    break;
                }
                case "medium":
                {
                    ResultForModBus = 5;
                    ModBus.Set(NameChannelSetSupply, ResultForModBus);
                    IR.SetTimeout(100, function()
                    {
                        ModBus.Set(NameChannelSetExhaustFanSpeed, ResultForModBus);
                        IR.Log("Выставлено значение " + value + " В SupplyFanSpeed");
                    });
                    break;
                }
                case "high":
                {
                    ResultForModBus = 8;
                    ModBus.Set(NameChannelSetSupply, ResultForModBus);
                    IR.SetTimeout(100, function()
                    {
                        ModBus.Set(NameChannelSetExhaustFanSpeed, ResultForModBus);
                        IR.Log("Выставлено значение " + value + " В SupplyFanSpeed");
                    });
                    break;
                }
                case "turbo":
                {
                    ResultForModBus = 10;
                    ModBus.Set(NameChannelSetSupply, ResultForModBus);
                    IR.SetTimeout(100, function()
                    {
                        ModBus.Set(NameChannelSetExhaustFanSpeed, ResultForModBus);
                        IR.Log("Выставлено значение " + value + " В SupplyFanSpeed");
                    });
                    break;
                }
                default:
                {
                    IR.Log("Команда не запрограммирована!");
                    break;
                }
            }
        }
    });
    
    IR.AddListener(IR.EVENT_TAG_CHANGE, ModBus, function(name, value) 
    {
        var NameChannelSet = "";
        var ResultForSberSalut = 0; //значение для Сбера
        IR.Log("От ModBus Name: " + name + " значение:" + value);
        if(name == "I-CAN-Modbus_тест:SupplyFanSpeed (Вентиляция Royal Clima 1)" || 
           name == "I-CAN-Modbus_тест:ExhaustFanSpeed (Вентиляция Royal Clima 1)")
        {
            NameChannelSet = "Вентиляция Роял Клима:Fan Speed";
            switch(value) 
            {
                case 1:
                    ResultForSberSalut = "quiet";
                    Sber.Set(NameChannelSet, ResultForSberSalut);
                break;
                case 2:
                    ResultForSberSalut = "low";
                    Sber.Set(NameChannelSet, ResultForSberSalut);
                break;
                case 3:
                    ResultForSberSalut = "medium";
                    Sber.Set(NameChannelSet, ResultForSberSalut);
                break;
                case 7:
                    ResultForSberSalut = "high";
                    Sber.Set(NameChannelSet, ResultForSberSalut); 
                break;
                case 10:
                    ResultForSberSalut = "turbo";
                    Sber.Set(NameChannelSet, ResultForSberSalut);
                break;
                default:
                    IR.Log("Команда не запрограммирована!");
            }  
        }
        IR.Log("От ModBus - Name: " + NameChannelSet + " значение:" + ResultForSberSalut); 
    });
});

var Voice_assistant = IR.GetDevice("Sber Salut");
var Bus77 = IR.GetDevice("Bus77");
IR.AddListener(IR.EVENT_START, 0, function ()
{
IR.AddListener(IR.EVENT_TAG_CHANGE, Bus77, function(name, value)
{
switch(name)
{
case "I-CAN-Modbus:FanSpeed (Ветиляция VAKIO 1)":
if(value == 3)
{
Voice_assistant.Set("Вентиляция Вакио:FanSpeed", "high")
}
if(value == 1)
{
Voice_assistant.Set("Вентиляция Вакио:FanSpeed", "low")
}
if(value == 2)
{
Voice_assistant.Set("Вентиляция Вакио:FanSpeed", "medium")
}
if(value == 4)
{
Voice_assistant.Set("Вентиляция Вакио:FanSpeed", "turbo")
}
break;
case "I-CAN-Modbus:Mode (Ветиляция VAKIO 1)":
if(value == 1)
{
Voice_assistant.Set("Вентиляция Вакио:Mode", "auto")
}
if(value == 2)
{
Voice_assistant.Set("Вентиляция Вакио:Mode", "turbo")
}
break;
}
});

IR.AddListener(IR.EVENT_TAG_CHANGE, Voice_assistant, function(name, value)
{
switch(name)
{
case "Вентиляция Вакио:FanSpeed":
if(value == "high")
{
Bus77.Set("I-CAN-Modbus:FanSpeed (Ветиляция VAKIO 1)", 3)
}
if(value == "low")
{
Bus77.Set("I-CAN-Modbus:FanSpeed (Ветиляция VAKIO 1)", 1)
}
if(value == "medium")
{
Bus77.Set("I-CAN-Modbus:FanSpeed (Ветиляция VAKIO 1)", 2)
}
if(value == "turbo")
{
Bus77.Set("I-CAN-Modbus:FanSpeed (Ветиляция VAKIO 1)", 4)
}
break;
case "Вентиляция Вакио:Mode":
if(value == "auto")
{
Bus77.Set("I-CAN-Modbus:Mode (Ветиляция VAKIO 1)", 1)
}
if(value == "turbo")
{
Bus77.Set("I-CAN-Modbus:Mode (Ветиляция VAKIO 1)", 2)
}
break;
}
});
});

var network = IR.GetDevice("HDL Buspro Network");
var SberSalut = IR.GetDevice("Sber Salut");
IR.AddListener(IR.EVENT_TAG_CHANGE, SberSalut , function(name, value) 
{  
    IR.Log("~~~TagChange in Sber Salut: " + name+ " - " +value) 
    if(name == "HVAC 1:Work Mode") {
        switch(value) {
          case 4: //Охлаждение
            network.Set("HVAC (HDL-MAC01_331):Mode", 0)
            break;
 
          case 9: //Нагрев
            network.Set("HVAC (HDL-MAC01_331):Mode", 1)
            break;
 
          case 12: //Вентиляция
             network.Set("HVAC (HDL-MAC01_331):Mode", 2)
             break; 
          case 1: //Авто
             network.Set("HVAC (HDL-MAC01_331):Mode", 3)
             break;
          case 5: //Осушение
              network.Set("HVAC (HDL-MAC01_331):Mode", 4)
              break;                      
        }
    }
})
IR.AddListener(IR.EVENT_TAG_CHANGE , network, function(name,value)
{
    if(name == "HVAC (HDL-MAC01_331):Mode") {
            switch(value) {
              case 0: //Охлаждение
                SberSalut.Set("HVAC 1:Work Mode", 4);
                break;
 
              case 1: //Нагрев
                SberSalut.Set("HVAC 1:Work Mode", 9);
                break;
 
              case 2: //Вентиляция
                 SberSalut.Set("HVAC 1:Work Mode", 12);
                 break; 
              case 3: //Авто
                 SberSalut.Set("HVAC 1:Work Mode", 1);
                 break;
              case 4: //Осушение
                 SberSalut.Set("HVAC 1:Work Mode", 5);
                 break;                          
            }
        }
 
})

var Sber = IR.GetDevice("Sber Salut");
var Modbus = IR.GetDevice("Лампа");                  

  
//Логирование команд, отправленных драйвером Сбер Салют:
    IR.AddListener(IR.EVENT_TAG_CHANGE, Sber Salut, function(name, value){ 
    IR.Log("Sber! Device tag: " + name + " , value: " + value); 
   
  });


//Пример управления лампой:

IR.AddListener(IR.EVENT_TAG_CHANGE, Modbus, function(name, value){  //прослушиваем устройство на изменение тега.
    switch (name) {
        case "On/Off": 
            if (value == 1){         //устройство включено
                Sber.Set("Лампа:On/Off", 1)   // отсылаем в канал драйвера Сбер Салюта значение 1 - устройство включено.        
            }                      
            if (value == 0){        //устройство выключено                     
                Sber.Set("Лампа:On/Off", 0)    //   отсылаем в канал драйвера Сбер Салюта значение 0 - устройство выключено.           
           }
        break;
        case "Brightness":
            Sber.Set("Лампа:Brightness", value); // отсылаем в канал драйвера Сбер Салюта значение яркости лампы.
        break;
    }
});    

IR.AddListener(IR.EVENT_TAG_CHANGE, Sber, function(name, value){  //прослушиваем команду от драйвера Сбер Салюта.
    switch (name) {
                   case "Лампа:On/Off":         //если изменение прошли в теге лампы, начинаем выполнять действия.
                       if (value == 1){           //при отправке команды от Сбера на включение, в теге появится 1. Modbus.Set("On/Off", 1);//передаем команду от Сбера устройству 1 - включение.
                         }
                       if (value == 0) {         //при отправке команды от Сбера на выключение, в теге появится 0. Modbus.Set("On/Off", 0);//передаем команду от Сбера устройству 0 - выключение.
                        }
                    break;
                    case "Лампа:Brightness":
                        Modbus.Set("Brightness", value); // передаём в команду от Сбера устройству значение яркости лампы.
                    break;
                    }                         
});