Subversion Repositories HomeAutomation

Rev

Rev 1765 | Rev 2078 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | SVN | RSS feed

Rev Author Line No. Line
1603 runge 1 
 
1644 runge 2 
Require("plugin/module.js");
3 
 
1687 runge 4 
Dimmer_ModuleNames    = [ "Dimmer230", "hwPWM" ];
1644 runge 5 
Dimmer_SpeedLevels    = function() { return [ 50, 135, 200, 255 ]; };
6 
Dimmer_StrengthLevels = function() { return [ 0, 50, 100, 150, 200, 255 ]; };
7 
Dimmer_StepsLevels    = function() { return [ 0, 10, 20, 30, 40, 50, 60, 70, 80, 90 ]; };
8 
Dimmer_Directions     = function() { return [ "Increase", "Decrease" ]; };
9 
Dimmer_Channels       = function() { return [ 0 ]; };
1647 runge 10 
Dimmer_Aliases        = function() { return Module_GetAliasNames(Dimmer_ModuleNames); };
11 
Dimmer_AvailableIds   = function() { return Module_GetAvailableIds(Dimmer_ModuleNames); };
1644 runge 12 
 
13 
function Dimmer_StartFade(alias_name, speed, direction)
1603 runge 14 
{
1644 runge 15 
    if (arguments.length < 3)
1673 runge 16 
    {  
1649 runge 17 
        Log("\033[31mNot enough parameters given.\033[0m\n");
1647 runge 18 
        return false;
1644 runge 19 
    }
20 
 
1647 runge 21 
    var aliases_data = Module_ResolveAlias(alias_name, Dimmer_ModuleNames);
22 
    var found = false;
1644 runge 23 
 
24 
    for (var name in aliases_data)
25 
    {
26 
        var variables = {
1647 runge 27 
            "Channel"   : aliases_data[name]["specific"]["Channel"],
1644 runge 28 
            "Speed"     : speed,
29 
            "Direction" : direction };
30 
 
31 
        if (Module_SendMessage(aliases_data[name]["module_name"], aliases_data[name]["module_id"], "Start_Fade", variables))
1603 runge 32 
        {
1765 linlun 33 
            //Log("\033[32mCommand sent successfully to " + name + ".\033[0m\n");
1603 runge 34 
        }
1644 runge 35 
        else
36 
        {
1649 runge 37 
            Log("\033[31mFailed to send command to " + name + ".\033[0m\n");
1644 runge 38 
        }
1647 runge 39 
 
40 
        found = true;
1603 runge 41 
    }
42 
 
1647 runge 43 
    if (!found)
1644 runge 44 
    {
1649 runge 45 
        Log("\033[31mNo aliases by the name " + alias_name + " were applicable for this command.\033[0m\n");
1647 runge 46 
        return false;
1644 runge 47 
    }
1603 runge 48 
 
1647 runge 49 
    return true;
1603 runge 50 
}
1647 runge 51 
Console_RegisterCommand(Dimmer_StartFade, function(arg_index, args) { return Console_StandardAutocomplete(arg_index, args, Dimmer_Aliases(), Dimmer_SpeedLevels(), Dimmer_Directions()); });
1603 runge 52 
 
1644 runge 53 
function Dimmer_StopFade(alias_name)
1603 runge 54 
{
1644 runge 55 
    if (arguments.length < 1)
56 
    {
1649 runge 57 
        Log("\033[31mNot enough parameters given.\033[0m\n");
1647 runge 58 
        return false;
1644 runge 59 
    }
1603 runge 60 
 
1647 runge 61 
    var aliases_data = Module_ResolveAlias(alias_name, Dimmer_ModuleNames);
62 
    var found = false;
1644 runge 63 
 
64 
    for (var name in aliases_data)
65 
    {
66 
        var variables = {
1647 runge 67 
        "Channel" : aliases_data[name]["specific"]["Channel"] };
1644 runge 68 
 
69 
        if (Module_SendMessage(aliases_data[name]["module_name"], aliases_data[name]["module_id"], "Stop_Fade", variables))
70 
        {
1765 linlun 71 
            //Log("\033[32mCommand sent successfully to " + name + ".\033[0m\n");
1644 runge 72 
        }
73 
        else
74 
        {
1649 runge 75 
            Log("\033[31mFailed to send command to " + name + ".\033[0m\n");
1644 runge 76 
        }
1647 runge 77 
 
78 
        found = true;
1644 runge 79 
    }
80 
 
1647 runge 81 
    if (!found)
1644 runge 82 
    {
1649 runge 83 
        Log("\033[31mNo aliases by the name " + alias_name + " were applicable for this command.\033[0m\n");
1647 runge 84 
        return false;
1644 runge 85 
    }
86 
 
1647 runge 87 
    return true;
1603 runge 88 
}
1647 runge 89 
Console_RegisterCommand(Dimmer_StopFade, function(arg_index, args) { return Console_StandardAutocomplete(arg_index, args, Dimmer_Aliases()); });
1603 runge 90 
 
1644 runge 91 
function Dimmer_AbsoluteFade(alias_name, speed, level)
1603 runge 92 
{
1644 runge 93 
    if (arguments.length < 3)
94 
    {
1649 runge 95 
        Log("\033[31mNot enough parameters given.\033[0m\n");
1647 runge 96 
        return false;
1644 runge 97 
    }
1603 runge 98 
 
1647 runge 99 
    var aliases_data = Module_ResolveAlias(alias_name, Dimmer_ModuleNames);
100 
    var found = false;
1644 runge 101 
 
102 
    for (var name in aliases_data)
103 
    {
1765 linlun 104 
        if (aliases_data[name]["module_name"]=="hwPWM") {
105 
          level = level*39;
106 
        }
1644 runge 107 
        var variables = {
1647 runge 108 
        "Channel"   : aliases_data[name]["specific"]["Channel"],
109 
        "Speed"     : speed,
110 
        "EndValue"  : level };
1644 runge 111 
 
112 
        if (Module_SendMessage(aliases_data[name]["module_name"], aliases_data[name]["module_id"], "Abs_Fade", variables))
113 
        {
1765 linlun 114 
            //Log("\033[32mCommand sent successfully to " + name + ".\033[0m\n");
1644 runge 115 
        }
116 
        else
117 
        {
1649 runge 118 
            Log("\033[31mFailed to send command to " + name + ".\033[0m\n");
1644 runge 119 
        }
1647 runge 120 
 
121 
        found = true;
1644 runge 122 
    }
123 
 
1647 runge 124 
    if (!found)
1644 runge 125 
    {
1649 runge 126 
        Log("\033[31mNo aliases by the name " + alias_name + " were applicable for this command.\033[0m\n");
1647 runge 127 
        return false;
1644 runge 128 
    }
129 
 
1647 runge 130 
    return true;
1603 runge 131 
}
1647 runge 132 
Console_RegisterCommand(Dimmer_AbsoluteFade, function(arg_index, args) { return Console_StandardAutocomplete(arg_index, args, Dimmer_Aliases(), Dimmer_SpeedLevels(), Dimmer_StrengthLevels()); });
1603 runge 133 
 
1644 runge 134 
function Dimmer_RelativeFade(alias_name, speed, direction, steps)
1603 runge 135 
{
1644 runge 136 
    if (arguments.length < 4)
137 
    {
1649 runge 138 
        Log("\033[31mNot enough parameters given.\033[0m\n");
1647 runge 139 
        return false;
1644 runge 140 
    }
1603 runge 141 
 
1647 runge 142 
    var aliases_data = Module_ResolveAlias(alias_name, Dimmer_ModuleNames);
143 
    var found = false;
1644 runge 144 
 
145 
    for (var name in aliases_data)
146 
    {
1765 linlun 147 
        if (aliases_data[name]["module_name"]=="hwPWM") {
148 
          steps = steps*39;
149 
        }
1644 runge 150 
        var variables = {
1647 runge 151 
        "Channel"   : aliases_data[name]["specific"]["Channel"],
152 
        "Speed"     : speed,
153 
        "Direction" : direction,
154 
        "Steps"     : steps };
1644 runge 155 
 
156 
        if (Module_SendMessage(aliases_data[name]["module_name"], aliases_data[name]["module_id"], "Rel_Fade", variables))
157 
        {
1765 linlun 158 
            //Log("\033[32mCommand sent successfully to " + name + ".\033[0m\n");
1644 runge 159 
        }
160 
        else
161 
        {
1649 runge 162 
            Log("\033[31mFailed to send command to " + name + ".\033[0m\n");
1644 runge 163 
        }
1647 runge 164 
 
165 
        found = true;
1644 runge 166 
    }
167 
 
1647 runge 168 
    if (!found)
1644 runge 169 
    {
1649 runge 170 
        Log("\033[31mNo aliases by the name " + alias_name + " were applicable for this command.\033[0m\n");
1647 runge 171 
        return false;
1644 runge 172 
    }
173 
 
1647 runge 174 
    return true;
1603 runge 175 
}
1647 runge 176 
Console_RegisterCommand(Dimmer_RelativeFade, function(arg_index, args) { return Console_StandardAutocomplete(arg_index, args, Dimmer_Aliases(), Dimmer_SpeedLevels(), Dimmer_Directions(), Dimmer_StepsLevels()); });
1603 runge 177 
 
1644 runge 178 
function Dimmer_Demo(alias_name, speed, steps)
1603 runge 179 
{
1644 runge 180 
    if (arguments.length < 3)
181 
    {
1649 runge 182 
        Log("\033[31mNot enough parameters given.\033[0m\n");
1647 runge 183 
        return false;
1644 runge 184 
    }
1603 runge 185 
 
1647 runge 186 
    var aliases_data = Module_ResolveAlias(alias_name, Dimmer_ModuleNames);
187 
    var found = false;
1644 runge 188 
 
189 
    for (var name in aliases_data)
190 
    {
1765 linlun 191 
        if (aliases_data[name]["module_name"]=="hwPWM") {
192 
          steps = steps*39;
193 
        }
1644 runge 194 
        var variables = {
1647 runge 195 
        "Channel"   : aliases_data[name]["specific"]["Channel"],
196 
        "Speed"     : speed,
197 
        "Steps"     : steps };
1644 runge 198 
 
199 
        if (Module_SendMessage(aliases_data[name]["module_name"], aliases_data[name]["module_id"], "Demo", variables))
200 
        {
1765 linlun 201 
            //Log("\033[32mCommand sent successfully to " + name + ".\033[0m\n");
1644 runge 202 
        }
203 
        else
204 
        {
1649 runge 205 
            Log("\033[31mFailed to send command to " + name + ".\033[0m\n");
1644 runge 206 
        }
1647 runge 207 
 
208 
        found = true;
1644 runge 209 
    }
210 
 
1647 runge 211 
    if (!found)
1644 runge 212 
    {
1649 runge 213 
        Log("\033[31mNo aliases by the name " + alias_name + " were applicable for this command.\033[0m\n");
1647 runge 214 
        return false;
1644 runge 215 
    }
216 
 
1647 runge 217 
    return true;
1603 runge 218 
}
1647 runge 219 
Console_RegisterCommand(Dimmer_Demo, function(arg_index, args) { return Console_StandardAutocomplete(arg_index, args, Dimmer_Aliases(), Dimmer_SpeedLevels(), Dimmer_StepsLevels()); });
1673 runge 220 
 
221 
function Dimmer_OnMessage(module_name, module_id, command, variables)
222 
{
223 
    if (in_array(Dimmer_ModuleNames, module_name))
224 
    {
225 
        var aliases_data = Module_LookupAliases({
226 
            "module_name" : module_name,
227 
            "module_id"   : module_id,
228 
            "group"       : false
229 
        });
230 
 
231 
        switch (command)
232 
        {
233 
            case "Netinfo":
234 
            {
235 
                for (var alias_name in aliases_data)
236 
                {
237 
                    if (aliases_data[alias_name]["specific"]["Channel"] != variables["Channel"])
238 
                    {
239 
                        continue;
240 
                    }
241 
 
242 
                    var last_value = {};
243 
                    var last_value_string = Storage_GetParameter("LastValues", alias_name);
244 
 
245 
                    if (last_value_string)
246 
                    {
247 
                        last_value = eval("(" + last_value_string + ")");
248 
                    }
249 
 
250 
                    last_value["Connection"] = { "value" : variables["Connection"], "timestamp" : get_time() };
251 
                    last_value["Frequency"] = { "value" : variables["Frequency"], "timestamp" : get_time() };
252 
                    last_value["Level"] = { "value" : variables["DimmerValue"], "timestamp" : get_time() };
253 
 
254 
                    Storage_SetParameter("LastValues", alias_name, JSON.stringify(last_value));
255 
                }
256 
 
257 
                break;
258 
            }
1765 linlun 259 
            case "Pwm":
260 
            {
261 
                for (var alias_name in aliases_data)
262 
                {
1897 runge 263 
                    if (aliases_data[alias_name]["specific"]["Channel"] != variables["Channel"])
1765 linlun 264 
                    {
265 
                        continue;
266 
                    }
267 
 
268 
                    var last_value = {};
269 
                    var last_value_string = Storage_GetParameter("LastValues", alias_name);
270 
 
271 
                    if (last_value_string)
272 
                    {
273 
                        last_value = eval("(" + last_value_string + ")");
274 
                    }
275 
                    var value = 0 + variables["Value"];
276 
                    value = value / 39;
277 
                    value = parseInt(value).toString();
278 
                    last_value["Level"] = { "value" : value, "timestamp" : get_time() };
279 
 
280 
                    Storage_SetParameter("LastValues", alias_name, JSON.stringify(last_value));
281 
                }
282 
 
283 
                break;
284 
            }
1673 runge 285 
        }
286 
    }
287 
}
288 
Module_RegisterToOnMessage("all", Dimmer_OnMessage);