开云体育

More years ago than I can count I started driving operations in my programs with serial strings.? When the user selects to watch a source a serial string is generated and that drives all the xpoint connections, powering on a/v gear, etc. (I also used the same module to drive connections for controlling thermostats and other non-a/v gear).? At that time I wrote a small S+ module that accepted one of these strings and then drove the operation of the SimplWin equipment crosspoint connect symbol.? I've tweaked the S+ module in very minor ways over the years but the basic functionality has worked on 2-series, 3-series, and now on the CP4 running my home.? If the serial string it was meant to accept isn't compatible with the way you write your software then you can change it to suit your needs but it should provide a good example of how to drive connecting/disconnecting xpoints.? I've pasted the S+ code below.

Hope this helps

Jay

/*
? SIMPL+ Module Information
*/
/*
Dealer Name:??? ???
System Name:
System Number:
Programmer:??? ??? ???
Comments:
*/

/*
? Compiler Directives
*/
#SYMBOL_NAME "xpoint Manager v3"
#HINT "Manages crosspoint request traffic and disconnects unused connections"
#CATEGORY "5"
#DEFAULT_VOLATILE
#ENABLE_STACK_CHECKING
//#ENABLE_TRACE

#HELP_BEGIN
?? Accepts a string formatted as EnnnnnCnnnnnAVn followed by a \x0D
?? where the nnnnn following the E is a 5 digit equipment id (leading
?? zeros are required to pad the number to 5 digits and the nnnnn
?? folling the C is the control id.? Leading zeros are also required.
?? AV is followed by a 0 or 1 that specifies if this is an A/V equipment
?? connection or not
#HELP_END

/*
? DIGITAL, ANALOG and SERIAL INPUTS and OUTPUTS
*/
DIGITAL_INPUT Disconnect;
DIGITAL_INPUT _SKIP_;
BUFFER_INPUT connect$[1024];

DIGITAL_OUTPUT _SKIP_, _SKIP_;
DIGITAL_OUTPUT Connect, DiscFromC;
ANALOG_OUTPUT ControlID, EquipmentID;

/*
? Global Variables
*/

string command$[128];??? ??? ??? ??? ??? //storage for command
integer Semaphore;??? ??? ??? ??? ??? ??? //semaphore
integer Last_ControlID;??? ??? ??? ??? ??? //last xpoint control id value

/*
? Functions
*/
callback GatherEventHandler Process_Command(GatherEventArgs Args)
{
??? string temp$[5];
??? integer c;
??? integer cid, eid, av_flag;

??? command$ = Args.RxString;
??? trace("xpoint Manager - connect = %s\n", command$);
??? ???
??? while(Semaphore)??? ??? ??? ??? //wait for semaphore
??? {
??? ??? ProcessLogic();
??? }
??? ???
??? Semaphore = 1;??? ??? ??? ??? ??? // set semaphore
??? ???
???
??? //extract equipment id
??? temp$ = mid(command$, 2, 5);
??? eid = atoi(temp$);

??? ???
??? //extract control id
??? temp$ = mid(command$, 8, 5);
??? cid = atoi(temp$);
???
??? //extract AV flag
??? temp$ = mid(command$, 15, 1);
??? av_flag = atoi(temp$);
??? ??? ??? ??? ???
??? command$ = "";
??? ???????????????
??? trace("xpoint Manager - eid = %d\n", eid);
??? trace("xpoint Manager - cid = %d\n", cid);
??? trace("xpoint Manager - av_flag = %d\n", av_flag);
???
??? //perform digital signal sequence
??? if (eid = 0)??? ??? ??? ??? ??? //is this just a disconnect command
??? {
??? ??? trace("xpoint Manager - eid = 0, perform disconnect\n");
??? ??? if ((av_flag = 1)??? ??? ??? //if this is an av connnection command
??? ??? ??? && (cid = Last_ControlID))//need to clear last connection if we???
??? ??? {??? ??? ??? ??? ??? ??? ??? //are deleting it.? Otherwise that
??? ??? ??? Last_ControlID = 0;??? ??? //connection is still valid
??? ??? }
???
??? ??? //perform the disconnect
??? ??? EquipmentID = eid;
??? ??? ControlID = cid;
??? ??? pulse(2, DiscFromC);
??? ??? delay(2);
??? }
??? else
??? {
??? ??? trace("xpoint Manager - connect command\n");
??? ??? //Disconnect priror connection
??? ??? if ((av_flag = 1)??? ??? ??? //if this is an av connnection command
??? ??? ??? && (cid != Last_ControlID)//Don't disconnect if same control point
??? ??? ??? && (Last_ControlID != 0))//make sure there was a prior connection
??? ??? {
??? ??? ??? trace("xpoint Manager - disconnect prior to connect\n");
??? ??? ??? ControlID = Last_ControlID;
??? ??? ??? EquipmentID = 0;
??? ??? ??? pulse(2, DiscFromC);
??? ??? ??? delay(2);
??? ??? }
? ??? ??? ??? ??? ???
??? ??? if (av_flag = 1)??? ??? ??? //only save if it is an av device
??? ??? {
??? ??? ??? Last_ControlID = cid;??? //save new connection??? ??? ??? ???
??? ??? }
???
??? ??? //perform the new connection
??? ??? EquipmentID = eid;
??? ??? ControlID = cid;
??? ??? pulse(2, DiscFromC);
??? ??? delay(2);
??? ??? pulse(2, Connect);
??? ??? delay(2);
??? }
??? ???
??? Semaphore = 0;??? ??? ??? ??? ??? // release semaphore
??? RearmGatherAsync(Args.input);
}

/*
? Event Handlers
*/
THREADSAFE PUSH Disconnect
{
??? while(Semaphore)??? ??? ??? ??? ??? //wait for semaphore
??? {
??? ??? ProcessLogic();
??? }
???
??? Semaphore = 1;??? ??? ??? ??? ??? ??? // set semaphore

??? if (Last_ControlID != 0)??? ??? ??? //check if we have a connection
??? {
??? ??? ControlID = Last_ControlID;??? ??? //disconnect
??? ??? EquipmentID = 0;
??? ??? pulse(2, DiscFromC);
??? ??? Last_ControlID = 0;
??? }

??? Semaphore = 0;??? ??? ??? ??? ??? ??? // release semaphore
}

CHANGE connect$
{
??? GatherAsync("\x0D", connect$, Process_Command);
}
/*
? Main()
*/
Function Main()
{
??? WaitForInitializationComplete();
??? command$ = "";
??? Semaphore = 0;
}