Laine_prikol

RedBoardControlClient

Feb 10th, 2017
90
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. -- REDBoardControlClient ver 1.2.dev1
  2. forms=require("forms")
  3. local term = require("term")
  4. local sides = require("sides")
  5. local computer = require("computer")
  6. local component = require("component")
  7. local modem = component.modem
  8. os.execute("resolution 80 25")
  9. modem.open(57)
  10. Form1=forms.addForm()
  11. Form1.border=2
  12. term.setCursor(2,2)
  13. -- Авторы и название программы
  14. Label1=Form1:addLabel(30,25,"Автор прогаммы: Laine_prikol Автор API: Zer0Galaxy")
  15. Label1=Form1:addLabel(2,1,"REDBOARD Control Remote (Client) ver 1.2.dev1")
  16. -- Панель 1
  17. Label1=Form1:addLabel(2,2,"Управление передней стороной:")
  18. Btn1=Form1:addButton(2,3,"РЫЧАГ ВКЛ ",function() modem.broadcast(57, "RSOutputFront") computer.beep(600,0.5)  end)
  19. Btn1.color=0xfffff                      
  20. Btn2=Form1:addButton(2,4,"РЫЧАГ ВЫКЛ",function() modem.broadcast(57, "RSOutputFrontOFF") computer.beep(100,0.8) end)
  21. Btn2.color=0xff0000
  22. -- Панель 2
  23. Label1=Form1:addLabel(2,6,"Управление левой стороной:")
  24. Btn4=Form1:addButton(2,7,"РЫЧАГ ВКЛ ",function() modem.broadcast(57, "RSOutputLeft") computer.beep(600,0.5)  end)
  25. Btn4.color=0xfffff
  26. Btn5=Form1:addButton(2,8,"РЫЧАГ ВЫКЛ",function() modem.broadcast(57, "RSOutputLeftOFF") computer.beep(100,0.8) end)
  27. Btn5.color=0xff0000
  28. -- Панель 3
  29. Label1=Form1:addLabel(2,10,"Управление тыльной стороной:")
  30. Btn7=Form1:addButton(2,11,"РЫЧАГ ВКЛ ",function() modem.broadcast(57, "RSOutputBack") computer.beep(600,0.5)  end)
  31. Btn7.color=0xfffff
  32. Btn8=Form1:addButton(2,12,"РЫЧАГ ВЫКЛ",function() modem.broadcast(57, "RSOutputBackOFF") computer.beep(100,0.8) end)
  33. Btn8.color=0xff0000
  34. -- Панель 4
  35. Label1=Form1:addLabel(40,2,"Управление правой стороной:")
  36. Btn10=Form1:addButton(40,3,"РЫЧАГ ВКЛ ",function() modem.broadcast(57, "RSOutputRight") computer.beep(600,0.5)  end)
  37. Btn10.color=0xfffff
  38. Btn11=Form1:addButton(40,4,"РЫЧАГ ВЫКЛ",function() modem.broadcast(57, "RSOutputRightOFF") computer.beep(100,0.8) end)
  39. Btn11.color=0xff0000
  40. -- Разное
  41. Label1=Form1:addLabel(40,9,"Разное:")
  42. Btn1=Form1:addButton(40,10,"Закрыть соединение",function() computer.beep(775,0.5) modem.broadcast(57, "STOP") forms.stop() print("Соединение закрыто")  end)
  43. Btn1.color=0xfffff
  44. Btn1=Form1:addButton(40,11,"Выход",function() forms.stop() term.clear() end)
  45. Btn1.color=0x505050
  46. forms.run(Form1) -- Запуск
RAW Paste Data