Crestron CI-KNX 4 Bit v1.4.usp

/*******************************************************************************************
  SIMPL+ Module Information
  (Fill in comments below)
*******************************************************************************************/
/*
Dealer Name:
System Name:
System Number:
Programmer: Christophe Hombrouck
Comments:
*/

/*******************************************************************************************
  Compiler Directives
  (Uncomment and declare compiler directives as needed)
*******************************************************************************************/
// #ENABLE_DYNAMIC
// #SYMBOL_NAME ""
// #HINT ""
#DEFINE_CONSTANT START_UP 1
#DEFINE_CONSTANT STOP_UP 2
#DEFINE_CONSTANT START_DOWN 3
#DEFINE_CONSTANT STOP_DOWN 4
// #CATEGORY "" 
// #DEFAULT_VOLATILE
// #PRINT_TO_TRACE
// #DIGITAL_EXPAND 
// #ANALOG_SERIAL_EXPAND 
#OUTPUT_SHIFT 1
// #HELP_PDF_FILE ""
#DEFAULT_VOLATILE
#ENABLE_STACK_CHECKING
#ENABLE_TRACE
/*
#HELP_BEGIN
   (add additional lines of help lines)
#HELP_END
*/

/*******************************************************************************************
  Include Libraries
  (Uncomment and include additional libraries as needed)
*******************************************************************************************/
// #CRESTRON_LIBRARY ""
// #USER_LIBRARY ""

/*******************************************************************************************
  DIGITAL, ANALOG and SERIAL INPUTS and OUTPUTS
  (Uncomment and declare inputs and outputs as needed)
*******************************************************************************************/
DIGITAL_INPUT _SKIP_,Up, Down,_SKIP_;
// ANALOG_INPUT 
// STRING_INPUT 
STRING_INPUT FeedBack[15];

DIGITAL_OUTPUT Up_FB, Down_FB,_SKIP_;
// ANALOG_OUTPUT 
STRING_OUTPUT Command;

/*******************************************************************************************
  SOCKETS
  (Uncomment and define socket definitions as needed)
*******************************************************************************************/
// TCP_CLIENT
// TCP_SERVER
// UDP_SOCKET

/*******************************************************************************************
  Parameters
  (Uncomment and declare parameters as needed)
*******************************************************************************************/
INTEGER_PARAMETER ObjectID;
// INTEGER_PARAMETER 
// SIGNED_INTEGER_PARAMETER
// LONG_INTEGER_PARAMETER
// SIGNED_LONG_INTEGER_PARAMETER
// STRING_PARAMETER

/*******************************************************************************************
  Parameter Properties
  (Uncomment and declare parameter properties as needed)
*******************************************************************************************/
/*
#BEGIN_PARAMETER_PROPERTIES parameter_variable, parameter_variable, ...
   // propValidUnits = // unitString or unitDecimal|unitHex|unitPercent|unitCharacter|unitTime|unitTicks;
   // propDefaultUnit = // unitString, unitDecimal, unitHex, unitPercent, unitCharacter, unitTime or unitTicks;
   // propBounds = lower_bound , upper_bound;
   // propDefaultValue = ;  // or, propDefaultValue = "";
   // propList = // { "value" , "label" } , { "value" , "label" } , ... ;
   // propShortDescription = "status_bar_hint_text";
   // #BEGIN_PROP_FULL_DESCRIPTION  line_1...  line_2...  line_n  #END_PROP_FULL_DESCRIPTION
   // #BEGIN_PROP_NOTES line_1...  line_2...  line_n  #END_PROP_NOTES
#END_PARAMETER_PROPERTIES
*/

/*******************************************************************************************
  Structure Definitions
  (Uncomment and define structure definitions as needed)
  Note:  Be sure to initialize all declared STRING variables as needed
         For example, in Function Main: struct.myString = "";
*******************************************************************************************/
/*
STRUCTURE MyStruct1
{
};

MyStruct1 struct;
*/

/*******************************************************************************************
  Global Variables
  (Uncomment and declare global variables as needed)
  Note:  Be sure to initialize all declared STRING variables as needed
         For example, in Function Main: myString = "";
*******************************************************************************************/
INTEGER State,NextState;
INTEGER RxOK;
// LONG_INTEGER
// SIGNED_INTEGER
// SIGNED_LONG_INTEGER
STRING CommandString[200];

/*******************************************************************************************
  Functions
  (Add any additional functions here)
  Note:  Functions must be physically placed before the location in
         the code that calls them.
*******************************************************************************************/
/*
Function MyFunction1()
{
    
}
*/

/*
Integer_Function MyIntFunction1()
{
    // TODO:  Add local variable declarations here

    // TODO:  Add code here

    Return (0);
}
*/

/*
String_Function MyStrFunction1()
{
    // TODO:  Add local variable declarations here

    // TODO:  Add code here

    Return ("");
}
*/

/*******************************************************************************************
  Event Handlers
  (Uncomment and declare additional event handlers as needed)
*******************************************************************************************/

PUSH Up
{
    Command = "\xF0\x06" + chr(ObjectID) + "\x01" + chr(ObjectID) + "\x31\x09";
    NextState = START_UP;
}

RELEASE Up
{
    Command = "\xF0\x06" + chr(ObjectID) + "\x01" + chr(ObjectID) + "\x31\x08";
    NextState = STOP_UP;
}

PUSH Down
{
   	Command = "\xF0\x06" + chr(ObjectID) + "\x01" + chr(ObjectID) + "\x31\x01";
   	NextState = START_DOWN;
}

RELEASE Down
{
    Command = "\xF0\x06" + chr(ObjectID) + "\x01" + chr(ObjectID) + "\x31\x00";
    NextState = STOP_DOWN;
}

/*
RELEASE input
{
    // TODO:  Add code here
}
*/


CHANGE Feedback
{
    if(RxOk)
    {
     	RxOK = 0;
     	if(left(Feedback,10) = "CHANGE OK\x0D")
     	{
     	     State = NextState;
     	     Switch(state)
     	     {
     	     	case(START_UP):
     	     	{
     	     	   
     	     	    Up_FB = on;
     	     	}
     	     	case(STOP_UP):
     	     	{
     	     	    Up_FB = off;
     	     	}
     	     	case(START_DOWN):
     	     	{
     	     	    Down_FB = on;
     	     	}
     	     	case(STOP_DOWN):
     	     	{                         
     	     	    Down_FB = off;
     	     	}
     	     }		     
     	}
     	else if(left(Feedback,13) = "CHANGE STATE:")
     	{
     	     Switch(Byte(Feedback,14))
     	     {
     	     	case(0x09):
     	     	{
     	     	    Up_FB = on;
     	     	    state = START_UP; 
     	     	}
     	     	case(0x08):
     	     	{
     	     	    Up_FB = off;
     	     	    state = STOP_UP;
     	     	}
     	     	case(0x01):
     	     	{
     	     	    Down_FB = on;
     	     	    state = START_DOWN;
     	     	}
     	     	case(0x00):
     	     	{
     	     	    if(state = START_UP)
     	     	    {
     	     	  		Up_FB = off;
     	     	    	state = STOP_UP;  	
     	     	    }	
     	     	 	else if(state = START_DOWN)
     	     	 	{ 	  	
     	     	    	Down_FB = off;
     	     	    	state = STOP_DOWN; 
     	     	    }
     	     	}
     	     }
     	}
     	else
     	{
     	      Feedback = "";
     	}
     	
     	RxOK = 1;
    }
}





/*******************************************************************************************
  Main()
  Uncomment and place one-time startup code here
  (This code will get called when the system starts up)
*******************************************************************************************/

Function Main()
{
	State = 0;
	NextState = 0;
	RxOK = 1;
}