Subversion Repositories HomeAutomation

Rev

Details | Last modification | View Log | SVN | RSS feed

Rev Author Line No. Line
1603 runge 1
 
2
var dimmer_module = GetModule("Dimmer230");
3
var ir_module = GetModule("irReceive");
4
 
5
function test_press(event, id, channel, data, protocol)
6
{
7
    if (protocol == "NEC" && data == 3877174275)
8
    {
9
        dimmer_module.StartFade(2, 0, 135, "Increase");
1608 runge 10
        dimmer_module.StartFade(1, 0, 135, "Increase");
1603 runge 11
    }
12
    else if (protocol == "NEC" && data == 3860462595)
13
    {
14
        dimmer_module.StartFade(2, 0, 135, "Decrease");
1608 runge 15
        dimmer_module.StartFade(1, 0, 135, "Decrease");
1603 runge 16
    }
17
}
18
 
19
function test_release(event, id, channel, data, protocol)
20
{
21
    if (protocol == "NEC" && (data == 3877174275 || data == 3860462595))
22
    {
23
        dimmer_module.StopFade(2, 0);
24
    }
25
}
26
 
27
function test_status(event, id, available)
28
{
1604 runge 29
    Log("status change!");
1603 runge 30
    dimmer_module.AbsoluteFade(2, 0, 135, 0);
31
}
32
 
33
ir_module.Bind("onStatusChange", test_status);
34
ir_module.Bind("onPressed", test_press);
35
ir_module.Bind("onReleased", test_release);
36
 
1608 runge 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");