Project 14: Control outputs on another board from the touch screen

VAR X,Y,T
DISPLAY_INIT(SPI,ST7796,480,320,00,1,3,2)     // Initialize display with SPI interface and ST7796 driver (480x320 resolution)
PAUSE 100                                     // Wait 100 ms for the display to stabilize
DISPLAY_CLEAR(0x0)                         // Clear the display with color 0x0
FT6336U_INIT(X,Y,T,200)
UI_THEME("all", "text_color", RGB888(250,255,205))
UI_THEME("all", "bg_color", RGB888(100,100,100))
UI_THEME("all", "indicator_color", RGB888(255,155,0))
UI_THEME("arc", "indicator_color", RGB888(255,155,255))
DISPLAY_WIDGET(1, "button", 10, 10, 100, 50, "OUT 1", 1)
UI_TOUCH(X, Y, T)
ON_CLICK(1, out_1)
DISPLAY_WIDGET(2, "button", 120, 10, 100, 50, "OUT 2", 1)
UI_TOUCH(X, Y, T)
ON_CLICK(2, out_2)
DISPLAY_WIDGET(3, "button", 230, 10, 100, 50, "OUT 3", 1)
UI_TOUCH(X, Y, T)
ON_CLICK(3, out_3)
DISPLAY_WIDGET(4, "button", 340, 10, 100, 50, "OUT 4", 1)
UI_TOUCH(X, Y, T)
ON_CLICK(4, out_4)

WHILE (1)
    PAUSE 10
WEND

out_1:
    UI_VALUE(2, 0)
    UI_VALUE(3, 0)
    UI_VALUE(4, 0)
    COMMAND_SEND("123","OUT1 ON")
    COMMAND_SEND("123","OUT2 OFF")
    COMMAND_SEND("123","OUT3 OFF")
    COMMAND_SEND("123","OUT4 OFF")
RETURN

out_2:
    UI_VALUE(1, 0)
    UI_VALUE(3, 0)
    UI_VALUE(4, 0)
    COMMAND_SEND("123","OUT2 ON")
    COMMAND_SEND("123","OUT1 OFF")
    COMMAND_SEND("123","OUT3 OFF")
    COMMAND_SEND("123","OUT4 OFF")
RETURN

out_3:
    UI_VALUE(1, 0)
    UI_VALUE(2, 0)
    UI_VALUE(4, 0)
    COMMAND_SEND("123","OUT3 ON")
    COMMAND_SEND("123","OUT1 OFF")
    COMMAND_SEND("123","OUT2 OFF")
    COMMAND_SEND("123","OUT4 OFF")
RETURN

out_4:
    UI_VALUE(1, 0)
    UI_VALUE(2, 0)
    UI_VALUE(3, 0)
    COMMAND_SEND("123","OUT4 ON")
    COMMAND_SEND("123","OUT1 OFF")
    COMMAND_SEND("123","OUT2 OFF")
    COMMAND_SEND("123","OUT3 OFF")
RETURN

×
100%