scbus-tool.tcl
1: #!/usr/bin/wish
2: #
3: #
4:
5:
6:
7: #typedef struct {
8: # uint8_t start1;
9: # uint8_t start2;
10: # uint8_t type; // Typ (z.B. 1 = Text-Nachricht anzeigen, 2 = Geber-Absolutwert setzen, 3 = Geber-Relativwert setzen, 4 = Geber-Wert lesen, 200 = ACK ...)
11: # uint8_t node;
12: # uint8_t channel;
13: # int8_t value;
14: # uint16_t crc;
15: #} SCBUS_Command;
16:
17:
18: set SCBUS_Command(start1) "A"
19: set SCBUS_Command(start2) "A"
20: set SCBUS_Command(type) "2"
21: set SCBUS_Command(node) "1"
22: set SCBUS_Command(channel) "0"
23: set SCBUS_Command(value) "100"
24: set SCBUS_Command(crc1) "0"
25: set SCBUS_Command(crc2) "0"
26:
27: puts "$SCBUS_Command(start1)"
28:
29:
30:
31: