Subversion Repositories HomeAutomation

Rev

Rev 1604 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | SVN | RSS feed

Rev 1604 Rev 1608
Line 5... Line 5...
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 
{
Line 30... Line 32...
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");