Get_Last alternatives

Spire_Jeff · June 2008

The button indexes are returning 0 because I forgot to change the array I was passing to the various functions. Everything is working correctly as no buttons were pushed from that array

I thought I put that in my post, but it is rather wordy and it may have gotten lost in the fray.

Jeff

P.S.
I was going to fix the error and rerun the test, but I am working on some other code at the moment and since the problem did not affect the situation being tested, I decided to leave it as is.

a_riot42 · June 2008

jjames wrote: »

The results should not come as a surprise.

Thanks, I didn't have access to a master to try this out. It actually is a surprise to me that this works correctly but perhaps it shouldn't be.
Paul

jjames · June 2008

Spire_Jeff wrote: »

The button indexes are returning 0 because I forgot to change the array I was passing to the various functions.

Ahh - yes . . . whoops. Misread. I had just skimmed the results (pretty complex to read - just too much "junk" - no offense), and the last thing I saw was Index 0 in every push so . . . my bad.

Spire_Jeff · June 2008

Ya, I was thinking about adding some organizational indents to the results, but again, I'm in the middle of working on some code for tomorrow

Maybe when I have a few more minutes. Basically, the code is testing Get_Last in the send_string, Get_last in a local_var, and myGetLast functions. I would be happy to add your style of code for comparison if you don't mind posting it Paul.

I am also generating random pushes/releases on a hold to simulate another user on a different panel (or the same panel

)

Jeff

vining · June 2008

I ran a little test to see what GET_LAST would return outside of an event. Mainly to answer my previous question and determine if GET_LAST was event table specific or system wide. I ran a bunch of DO_PUSHs in define_start and then finally after allowing enough time for the button events to run I ran GET_LASTs again in define_start to see if it returned the last TPArry/BTN pushed system wide or just with in those arrays. Apparently they do not return the last TP/BTN system wide and are specific to their event table. Of course in this test each TP & CH array had unique device/channel numbers so maybe if they had some of the same values this result would change.

PROGRAM_NAME='TEST'
(***********************************************************)
(***********************************************************)
(*  FILE_LAST_MODIFIED_ON: 04/05/2006  AT: 09:00:25        *)
(***********************************************************)
(* System Type : NetLinx                                   *)
(***********************************************************)
(* REV HISTORY:                                            *)
(***********************************************************)
(*
    $History: $
*)
(***********************************************************)
(*          DEVICE NUMBER DEFINITIONS GO BELOW             *)
(***********************************************************)
DEFINE_DEVICE

dvTP1_1    = 10001:1:0 ;
dvTP2_1    = 10002:1:0 ;
dvTP3_1    = 10003:1:0 ;
dvTP4_1    = 10004:1:0 ;
dvTP5_1    = 10005:1:0 ;
 
dvTP1_2    = 10001:2:0 ;
dvTP2_2    = 10002:2:0 ;
dvTP3_2    = 10003:2:0 ;
dvTP4_2    = 10004:2:0 ;
dvTP5_2    = 10005:2:0 ;
                     
dvTP1_3    = 10001:3:0 ;
dvTP2_3    = 10002:3:0 ;
dvTP3_3    = 10003:3:0 ;
dvTP4_3    = 10004:3:0 ;
dvTP5_3    = 10005:3:0 ;
                     
dvTP1_4    = 10001:4:0 ;
dvTP2_4    = 10002:4:0 ;
dvTP3_4    = 10003:4:0 ;
dvTP4_4    = 10004:4:0 ;
dvTP5_4    = 10005:4:0 ;
                     
dvTP1_5    = 10001:5:0 ;
dvTP2_5    = 10002:5:0 ;
dvTP3_5    = 10003:5:0 ;
dvTP4_5    = 10004:5:0 ;
dvTP5_5    = 10005:5:0 ;

DEFINE_CONSTANT

CRLF[2] = {$0D,$0A}

DEFINE_TYPE

(***********************************************************)
(*               VARIABLE DEFINITIONS GO BELOW             *)
(***********************************************************)
DEFINE_VARIABLE // GENERAL VARS

VOLATILE INTEGER nTEST_DeBug ;

DEFINE_VARIABLE // BTN ARRAY_1

VOLATILE INTEGER nBtnArry_1[] =     
     
     { //CH#    INDEX#
	  11, 	//01 
	  12, 	//02 
	  13, 	//03 
	  14, 	//04 
	  15, 	//05 
	  16, 	//06 
	  17, 	//07 
	  18, 	//08 
	  19    //09
     }
     
DEFINE_VARIABLE // BTN ARRAY_2

VOLATILE INTEGER nBtnArry_2[] =     
     
     { //CH#    INDEX#
	  21, 	//01 
	  22, 	//02 
	  23, 	//03 
	  24, 	//04 
	  25, 	//05 
	  26, 	//06 
	  27, 	//07 
	  28, 	//08 
	  29    //09
     }

DEFINE_VARIABLE // BTN ARRAY_3

VOLATILE INTEGER nBtnArry_3[] =     
     
     { //CH#    INDEX#
	  31, 	//01 
	  32, 	//02 
	  33, 	//03 
	  34, 	//04 
	  35, 	//05 
	  36, 	//06 
	  37, 	//07 
	  38, 	//08 
	  39    //09
     }

DEFINE_VARIABLE // BTN ARRAY_4

VOLATILE INTEGER nBtnArry_4[] =     
     
     { //CH#    INDEX#
	  41, 	//01 
	  42, 	//02 
	  43, 	//03 
	  44, 	//04 
	  45, 	//05 
	  46, 	//06 
	  47, 	//07 
	  48, 	//08 
	  49    //09
     } 

DEFINE_VARIABLE // BTN ARRAY_5

VOLATILE INTEGER nBtnArry_5[] =     
     
     { //CH#    INDEX#
	  51, 	//01 
	  52, 	//02 
	  53, 	//03 
	  54, 	//04 
	  55, 	//05 
	  56, 	//06 
	  57, 	//07 
	  58, 	//08 
	  59    //09
     }    

DEFINE_VARIABLE // TP DEV ARRAY_1    

DEV dvTPArry_1 []= {dvTP1_1,dvTP2_1,dvTP3_1,dvTP4_1,dvTP5_1}

DEV dvTPArry_2 []= {dvTP1_2,dvTP2_2,dvTP3_2,dvTP4_2,dvTP5_2}

DEV dvTPArry_3 []= {dvTP1_3,dvTP2_3,dvTP3_3,dvTP4_3,dvTP5_3}

DEV dvTPArry_4 []= {dvTP1_4,dvTP2_4,dvTP3_4,dvTP4_4,dvTP5_4}

DEV dvTPArry_5 []= {dvTP1_5,dvTP2_5,dvTP3_5,dvTP4_5,dvTP5_5}

DEFINE_FUNCTION fnTEST_DEBUG (CHAR strMSG[]) //Debug messages

     {
     if(nTEST_DeBug)
	  {
	  SEND_STRING 0,"'TEST Mod- ',strMSG,CRLF" ;
	  }
     }
     
DEFINE_FUNCTION CHAR[11]fnDEV_TO_STRING(DEV iDEVICE)
     
     {
     RETURN "itoa(iDEVICE.NUMBER),':',itoa(iDEVICE.PORT),':',itoa(iDEVICE.SYSTEM)" ;
     }

DEFINE_START

nTEST_DeBug = 1 ;

WAIT 600
     {
     DO_PUSH(dvTPArry_1[1],nBtnArry_1[1]) ;
     WAIT 1
     DO_PUSH(dvTPArry_1[2],nBtnArry_1[2]) ;
     WAIT 2
     DO_PUSH(dvTPArry_1[3],nBtnArry_1[3]) ;
     WAIT 3
     DO_PUSH(dvTPArry_1[4],nBtnArry_1[4]) ;
     WAIT 4
     DO_PUSH(dvTPArry_1[5],nBtnArry_1[5]) ;
     WAIT 5
     DO_PUSH(dvTPArry_2[1],nBtnArry_2[1]) ;
     WAIT 6
     DO_PUSH(dvTPArry_2[2],nBtnArry_2[2]) ;
     WAIT 7
     DO_PUSH(dvTPArry_2[3],nBtnArry_2[3]) ;
     WAIT 8
     DO_PUSH(dvTPArry_2[4],nBtnArry_2[4]) ;
     WAIT 9
     DO_PUSH(dvTPArry_2[5],nBtnArry_2[5]) ;
     WAIT 10
     DO_PUSH(dvTPArry_3[1],nBtnArry_3[1]) ;
     WAIT 11
     DO_PUSH(dvTPArry_3[2],nBtnArry_3[2]) ;
     WAIT 12
     DO_PUSH(dvTPArry_3[3],nBtnArry_3[3]) ;
     WAIT 13
     DO_PUSH(dvTPArry_3[4],nBtnArry_3[4]) ;
     WAIT 14
     DO_PUSH(dvTPArry_3[5],nBtnArry_3[5]) ;
     WAIT 15
     DO_PUSH(dvTPArry_4[1],nBtnArry_4[1]) ;
     WAIT 16
     DO_PUSH(dvTPArry_4[2],nBtnArry_4[2]) ;
     WAIT 17
     DO_PUSH(dvTPArry_4[3],nBtnArry_4[3]) ;
     WAIT 18
     DO_PUSH(dvTPArry_4[4],nBtnArry_4[4]) ;
     WAIT 19
     DO_PUSH(dvTPArry_4[5],nBtnArry_4[5]) ;
     WAIT 20
     DO_PUSH(dvTPArry_5[1],nBtnArry_5[1]) ;
     WAIT 21
     DO_PUSH(dvTPArry_5[2],nBtnArry_5[2]) ;
     WAIT 22
     DO_PUSH(dvTPArry_5[3],nBtnArry_5[3]) ;
     WAIT 23
     DO_PUSH(dvTPArry_5[4],nBtnArry_5[4]) ;
     WAIT 24
     DO_PUSH(dvTPArry_5[5],nBtnArry_5[5]) ;
     WAIT 25
     DO_PUSH(dvTPArry_1[1],nBtnArry_1[1]) ;
     WAIT 26
     DO_PUSH(dvTPArry_2[2],nBtnArry_2[2]) ;
     WAIT 27
     DO_PUSH(dvTPArry_3[3],nBtnArry_3[3]) ;
     WAIT 28
     DO_PUSH(dvTPArry_4[4],nBtnArry_4[4]) ;
     WAIT 38
     fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_1[GET_LAST(dvTPArry_1)]),', Index Pos-,',itoa(GET_LAST(dvTPArry_1)),
	       ' *** PUSH CHANNEL-',itoa(nBtnArry_1[GET_LAST(nBtnArry_1)]),', Index Pos-,',itoa(GET_LAST(nBtnArry_1)),'. Line-<',ITOA(__LINE__),'>'") ;
     WAIT 48
     fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_2[GET_LAST(dvTPArry_2)]),', Index Pos-,',itoa(GET_LAST(dvTPArry_2)),
	       ' *** PUSH CHANNEL-',itoa(nBtnArry_2[GET_LAST(nBtnArry_2)]),', Index Pos-,',itoa(GET_LAST(nBtnArry_2)),'. Line-<',ITOA(__LINE__),'>'") ;
     WAIT 58
     fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_3[GET_LAST(dvTPArry_3)]),', Index Pos-,',itoa(GET_LAST(dvTPArry_3)),
	       ' *** PUSH CHANNEL-',itoa(nBtnArry_3[GET_LAST(nBtnArry_3)]),', Index Pos-,',itoa(GET_LAST(nBtnArry_3)),'. Line-<',ITOA(__LINE__),'>'") ;
     WAIT 68
     fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_4[GET_LAST(dvTPArry_4)]),', Index Pos-,',itoa(GET_LAST(dvTPArry_4)),
	       ' *** PUSH CHANNEL-',itoa(nBtnArry_4[GET_LAST(nBtnArry_4)]),', Index Pos-,',itoa(GET_LAST(nBtnArry_4)),'. Line-<',ITOA(__LINE__),'>'") ;
     WAIT 78
     fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_5[GET_LAST(dvTPArry_5)]),', Index Pos-,',itoa(GET_LAST(dvTPArry_5)),
	       ' *** PUSH CHANNEL-',itoa(nBtnArry_5[GET_LAST(nBtnArry_5)]),', Index Pos-,',itoa(GET_LAST(nBtnArry_5)),'. Line-<',ITOA(__LINE__),'>'") ;
     }

DEFINE_EVENT // 

BUTTON_EVENT[dvTPArry_1,nBtnArry_1] //Buttons pushed 
     
     {
     PUSH:
	  {
	  STACK_VAR INTEGER nTP_Index ;
	  STACK_VAR INTEGER nBTN_Index ;
	  
	  nTP_Index = GET_LAST(dvTPArry_1) ; 
	  nBTN_Index = GET_LAST(nBtnArry_1) ;
	  SWITCH(nBTN_Index)
	       {
	       CASE 1:
	       CASE 2:
	       CASE 3:
	       CASE 4:
	       CASE 5:
	       CASE 6:
	       CASE 7:
	       CASE 8:
	       CASE 9:
		    {
		    fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_1[nTP_Index]),', Index Pos-,',itoa(nTP_Index),
			      ' *** PUSH CHANNEL-',itoa(nBtnArry_1[nBTN_Index]),', Index Pos-,',itoa(nBTN_Index),'. Line-<',ITOA(__LINE__),'>'") ;
		    }
	       }
	  }
     }
     
BUTTON_EVENT[dvTPArry_2,nBtnArry_2] //Buttons pushed 
     
     {
     PUSH:
	  {
	  STACK_VAR INTEGER nTP_Index ;
	  STACK_VAR INTEGER nBTN_Index ;
	  
	  nTP_Index = GET_LAST(dvTPArry_2) ; 
	  nBTN_Index = GET_LAST(nBtnArry_2) ;
	  SWITCH(nBTN_Index)
	       {
	       CASE 1:
	       CASE 2:
	       CASE 3:
	       CASE 4:
	       CASE 5:
	       CASE 6:
	       CASE 7:
	       CASE 8:
	       CASE 9:
		    {
		    fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_2[nTP_Index]),', Index Pos-,',itoa(nTP_Index),
			      ' *** PUSH CHANNEL-',itoa(nBtnArry_2[nBTN_Index]),', Index Pos-,',itoa(nBTN_Index),'. Line-<',ITOA(__LINE__),'>'") ;
		    }
	       }
	  }
     }

BUTTON_EVENT[dvTPArry_3,nBtnArry_3] //Buttons pushed 
     
     {
     PUSH:
	  {
	  STACK_VAR INTEGER nTP_Index ;
	  STACK_VAR INTEGER nBTN_Index ;
	  
	  nTP_Index = GET_LAST(dvTPArry_3) ; 
	  nBTN_Index = GET_LAST(nBtnArry_3) ;
	  SWITCH(nBTN_Index)
	       {
	       CASE 1:
	       CASE 2:
	       CASE 3:
	       CASE 4:
	       CASE 5:
	       CASE 6:
	       CASE 7:
	       CASE 8:
	       CASE 9:
		    {
		    fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_3[nTP_Index]),', Index Pos-,',itoa(nTP_Index),
			      ' *** PUSH CHANNEL-',itoa(nBtnArry_3[nBTN_Index]),', Index Pos-,',itoa(nBTN_Index),'. Line-<',ITOA(__LINE__),'>'") ;
		    }
	       }
	  }
     }
     
BUTTON_EVENT[dvTPArry_4,nBtnArry_4] //Buttons pushed 
     
     {
     PUSH:
	  {
	  STACK_VAR INTEGER nTP_Index ;
	  STACK_VAR INTEGER nBTN_Index ;
	  
	  nTP_Index = GET_LAST(dvTPArry_4) ; 
	  nBTN_Index = GET_LAST(nBtnArry_4) ;
	  SWITCH(nBTN_Index)
	       {
	       CASE 1:
	       CASE 2:
	       CASE 3:
	       CASE 4:
	       CASE 5:
	       CASE 6:
	       CASE 7:
	       CASE 8:
	       CASE 9:
		    {
		    fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_4[nTP_Index]),', Index Pos-,',itoa(nTP_Index),
			      ' *** PUSH CHANNEL-',itoa(nBtnArry_4[nBTN_Index]),', Index Pos-,',itoa(nBTN_Index),'. Line-<',ITOA(__LINE__),'>'") ;
		    }
	       }
	  }
     }
     
BUTTON_EVENT[dvTPArry_5,nBtnArry_5] //Buttons pushed 
     
     {
     PUSH:
	  {
	  STACK_VAR INTEGER nTP_Index ;
	  STACK_VAR INTEGER nBTN_Index ;
	  
	  nTP_Index = GET_LAST(dvTPArry_5) ; 
	  nBTN_Index = GET_LAST(nBtnArry_5) ;
	  SWITCH(nBTN_Index)
	       {
	       CASE 1:
	       CASE 2:
	       CASE 3:
	       CASE 4:
	       CASE 5:
	       CASE 6:
	       CASE 7:
	       CASE 8:
	       CASE 9:
		    {
		    fnTEST_Debug("'DEV-',fnDEV_TO_STRING(dvTPArry_5[nTP_Index]),', Index Pos-,',itoa(nTP_Index),
			      ' *** PUSH CHANNEL-',itoa(nBtnArry_5[nBTN_Index]),', Index Pos-,',itoa(nBTN_Index),'. Line-<',ITOA(__LINE__),'>'") ;
		    }
	       }
	  }
     }
     
(***********************************************************)
(*            THE ACTUAL PROGRAM GOES BELOW                *)
(***********************************************************)
DEFINE_PROGRAM

(***********************************************************)
(*                     END OF PROGRAM                      *)
(*        DO NOT PUT ANY CODE BELOW THIS COMMENT           *)
(***********************************************************)

Line      1 (21:56:29):: TEST Mod- DEV-10001:1:0, Index Pos-,1 *** PUSH CHANNEL-11, Index Pos-,1. Line-<272>$0D$0A
Line      3 (21:56:29):: TEST Mod- DEV-10002:1:0, Index Pos-,2 *** PUSH CHANNEL-12, Index Pos-,2. Line-<272>$0D$0A
Line      4 (21:56:29):: TEST Mod- DEV-10003:1:0, Index Pos-,3 *** PUSH CHANNEL-13, Index Pos-,3. Line-<272>$0D$0A
Line      5 (21:56:30):: TEST Mod- DEV-10004:1:0, Index Pos-,4 *** PUSH CHANNEL-14, Index Pos-,4. Line-<272>$0D$0A
Line      6 (21:56:30):: TEST Mod- DEV-10005:1:0, Index Pos-,5 *** PUSH CHANNEL-15, Index Pos-,5. Line-<272>$0D$0A
Line      7 (21:56:30):: TEST Mod- DEV-10001:2:0, Index Pos-,1 *** PUSH CHANNEL-21, Index Pos-,1. Line-<301>$0D$0A
Line      8 (21:56:30):: TEST Mod- DEV-10002:2:0, Index Pos-,2 *** PUSH CHANNEL-22, Index Pos-,2. Line-<301>$0D$0A
Line      9 (21:56:30):: TEST Mod- DEV-10003:2:0, Index Pos-,3 *** PUSH CHANNEL-23, Index Pos-,3. Line-<301>$0D$0A
Line     10 (21:56:30):: TEST Mod- DEV-10004:2:0, Index Pos-,4 *** PUSH CHANNEL-24, Index Pos-,4. Line-<301>$0D$0A
Line     11 (21:56:30):: TEST Mod- DEV-10005:2:0, Index Pos-,5 *** PUSH CHANNEL-25, Index Pos-,5. Line-<301>$0D$0A
Line     12 (21:56:30):: TEST Mod- DEV-10001:3:0, Index Pos-,1 *** PUSH CHANNEL-31, Index Pos-,1. Line-<330>$0D$0A
Line     13 (21:56:30):: TEST Mod- DEV-10002:3:0, Index Pos-,2 *** PUSH CHANNEL-32, Index Pos-,2. Line-<330>$0D$0A
Line     14 (21:56:30):: TEST Mod- DEV-10003:3:0, Index Pos-,3 *** PUSH CHANNEL-33, Index Pos-,3. Line-<330>$0D$0A
Line     15 (21:56:31):: TEST Mod- DEV-10004:3:0, Index Pos-,4 *** PUSH CHANNEL-34, Index Pos-,4. Line-<330>$0D$0A
Line     16 (21:56:31):: TEST Mod- DEV-10005:3:0, Index Pos-,5 *** PUSH CHANNEL-35, Index Pos-,5. Line-<330>$0D$0A
Line     17 (21:56:31):: TEST Mod- DEV-10001:4:0, Index Pos-,1 *** PUSH CHANNEL-41, Index Pos-,1. Line-<359>$0D$0A
Line     18 (21:56:31):: TEST Mod- DEV-10002:4:0, Index Pos-,2 *** PUSH CHANNEL-42, Index Pos-,2. Line-<359>$0D$0A
Line     19 (21:56:31):: TEST Mod- DEV-10003:4:0, Index Pos-,3 *** PUSH CHANNEL-43, Index Pos-,3. Line-<359>$0D$0A
Line     20 (21:56:31):: TEST Mod- DEV-10004:4:0, Index Pos-,4 *** PUSH CHANNEL-44, Index Pos-,4. Line-<359>$0D$0A
Line     21 (21:56:31):: TEST Mod- DEV-10005:4:0, Index Pos-,5 *** PUSH CHANNEL-45, Index Pos-,5. Line-<359>$0D$0A
Line     22 (21:56:31):: TEST Mod- DEV-10001:5:0, Index Pos-,1 *** PUSH CHANNEL-51, Index Pos-,1. Line-<388>$0D$0A
Line     23 (21:56:31):: TEST Mod- DEV-10002:5:0, Index Pos-,2 *** PUSH CHANNEL-52, Index Pos-,2. Line-<388>$0D$0A
Line     24 (21:56:31):: TEST Mod- DEV-10003:5:0, Index Pos-,3 *** PUSH CHANNEL-53, Index Pos-,3. Line-<388>$0D$0A
Line     25 (21:56:32):: TEST Mod- DEV-10004:5:0, Index Pos-,4 *** PUSH CHANNEL-54, Index Pos-,4. Line-<388>$0D$0A
Line     26 (21:56:32):: TEST Mod- DEV-10005:5:0, Index Pos-,5 *** PUSH CHANNEL-55, Index Pos-,5. Line-<388>$0D$0A
Line     27 (21:56:32):: TEST Mod- DEV-10001:1:0, Index Pos-,1 *** PUSH CHANNEL-11, Index Pos-,1. Line-<272>$0D$0A
Line     28 (21:56:32):: TEST Mod- DEV-10002:2:0, Index Pos-,2 *** PUSH CHANNEL-22, Index Pos-,2. Line-<301>$0D$0A
Line     29 (21:56:32):: TEST Mod- DEV-10003:3:0, Index Pos-,3 *** PUSH CHANNEL-33, Index Pos-,3. Line-<330>$0D$0A
Line     30 (21:56:32):: TEST Mod- DEV-10004:4:0, Index Pos-,4 *** PUSH CHANNEL-44, Index Pos-,4. Line-<359>$0D$0A
Line     31 (21:56:33):: TEST Mod- DEV-10001:1:0, Index Pos-,1 *** PUSH CHANNEL-11, Index Pos-,1. Line-<232>$0D$0A
Line     32 (21:56:34):: TEST Mod- DEV-10002:2:0, Index Pos-,2 *** PUSH CHANNEL-22, Index Pos-,2. Line-<235>$0D$0A
Line     33 (21:56:35):: TEST Mod- DEV-10003:3:0, Index Pos-,3 *** PUSH CHANNEL-33, Index Pos-,3. Line-<238>$0D$0A
Line     34 (21:56:36):: TEST Mod- DEV-10004:4:0, Index Pos-,4 *** PUSH CHANNEL-44, Index Pos-,4. Line-<241>$0D$0A
Line     35 (21:56:37):: TEST Mod- DEV-10005:5:0, Index Pos-,5 *** PUSH CHANNEL-55, Index Pos-,5. Line-<244>$0D$0A

Get_Last alternatives

Comments