Subversion Repositories HomeAutomation

Rev

Rev 1604 | Go to most recent revision | Blame | Last modification | View Log | SVN | RSS feed

  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");
  10.         dimmer_module.StartFade(1, 0, 135, "Increase");
  11.     }
  12.     else if (protocol == "NEC" && data == 3860462595)
  13.     {
  14.         dimmer_module.StartFade(2, 0, 135, "Decrease");
  15.         dimmer_module.StartFade(1, 0, 135, "Decrease");
  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. {
  29.     Log("status change!");
  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.  
  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");
  62.