Subversion Repositories HomeAutomation

Rev

Rev 1604 | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 1604 Rev 1608
1
 
1
 
2
var dimmer_module = GetModule("Dimmer230");
2
var dimmer_module = GetModule("Dimmer230");
3
var ir_module = GetModule("irReceive");
3
var ir_module = GetModule("irReceive");
4
 
4
 
5
function test_press(event, id, channel, data, protocol)
5
function test_press(event, id, channel, data, protocol)
6
{
6
{
7
    if (protocol == "NEC" && data == 3877174275)
7
    if (protocol == "NEC" && data == 3877174275)
8
    {
8
    {
9
        dimmer_module.StartFade(2, 0, 135, "Increase");
9
        dimmer_module.StartFade(2, 0, 135, "Increase");
-
 
10
        dimmer_module.StartFade(1, 0, 135, "Increase");
10
    }
11
    }
11
    else if (protocol == "NEC" && data == 3860462595)
12
    else if (protocol == "NEC" && data == 3860462595)
12
    {
13
    {
13
        dimmer_module.StartFade(2, 0, 135, "Decrease");
14
        dimmer_module.StartFade(2, 0, 135, "Decrease");
-
 
15
        dimmer_module.StartFade(1, 0, 135, "Decrease");
14
    }
16
    }
15
}
17
}
16
 
18
 
17
function test_release(event, id, channel, data, protocol)
19
function test_release(event, id, channel, data, protocol)
18
{
20
{
19
    if (protocol == "NEC" && (data == 3877174275 || data == 3860462595))
21
    if (protocol == "NEC" && (data == 3877174275 || data == 3860462595))
20
    {
22
    {
21
        dimmer_module.StopFade(2, 0);
23
        dimmer_module.StopFade(2, 0);
22
    }
24
    }
23
}
25
}
24
 
26
 
25
function test_status(event, id, available)
27
function test_status(event, id, available)
26
{
28
{
27
    Log("status change!");
29
    Log("status change!");
28
    dimmer_module.AbsoluteFade(2, 0, 135, 0);
30
    dimmer_module.AbsoluteFade(2, 0, 135, 0);
29
}
31
}
30
 
32
 
31
ir_module.Bind("onStatusChange", test_status);
33
ir_module.Bind("onStatusChange", test_status);
32
ir_module.Bind("onPressed", test_press);
34
ir_module.Bind("onPressed", test_press);
33
ir_module.Bind("onReleased", test_release);
35
ir_module.Bind("onReleased", test_release);
34
 
36
 
-
 
37
 
-
 
38
function dmin()
-
 
39
{
-
 
40
    dimmer_module.AbsoluteFade(2, 0, 135, 0);
-
 
41
    dimmer_module.AbsoluteFade(1, 0, 135, 0);
-
 
42
    return "Faded to 0\n";
-
 
43
}
-
 
44
 
-
 
45
function dmax()
-
 
46
{
-
 
47
    dimmer_module.AbsoluteFade(2, 0, 135, 255);
-
 
48
    dimmer_module.AbsoluteFade(1, 0, 135, 255);
-
 
49
    return "Faded to 255\n";
-
 
50
}
-
 
51
 
-
 
52
function dfade(level)
-
 
53
{
-
 
54
    dimmer_module.AbsoluteFade(2, 0, 135, level);
-
 
55
    dimmer_module.AbsoluteFade(1, 0, 135, level);
-
 
56
    return "Faded to " + level + "\n";
-
 
57
}
-
 
58
 
-
 
59
Console_RegisterConsoleCommand("dmax");
-
 
60
Console_RegisterConsoleCommand("dmin");
-
 
61
Console_RegisterConsoleCommand("dfade");
35
 
62