Subversion Repositories mdb

Rev

Rev 23 | Rev 25 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 23 Rev 24
Line 43... Line 43...
43
	dev dvTPs[] = { dvTP1, dvTP2, dvTP3, dvTP4, dvTP5, dvTP6 };
43
	dev dvTPs[] = { dvTP1, dvTP2, dvTP3, dvTP4, dvTP5, dvTP6 };
44
	dev dvTPs_mdb[] = { dvTP1_mdb, dvTP2_mdb, dvTP3_mdb, dvTP4_mdb, dvTP5_mdb, dvTP6_mdb };
44
	dev dvTPs_mdb[] = { dvTP1_mdb, dvTP2_mdb, dvTP3_mdb, dvTP4_mdb, dvTP5_mdb, dvTP6_mdb };
45
 
45
 
46
define_module 'MDB_Comm' MDBC(dvMDB, vdvMDB, sIP, nPort);
46
define_module 'MDB_Comm' MDBC(dvMDB, vdvMDB, sIP, nPort);
47
define_module 'MDB_UI'   MDBU(dvTPs, vdvMDB);
47
define_module 'MDB_UI'   MDBU(dvTPs, vdvMDB);
-
 
48
 
-
 
49
define_event
-
 
50
	data_event[dvTPs]
-
 
51
	{
-
 
52
		string:
-
 
53
		{
-
 
54
		stack_var integer pan;
-
 
55
 
-
 
56
			pan = get_last(dvTPs);
-
 
57
 
-
 
58
			if (find_string(DATA.TEXT, 'KEYP-', 1))
-
 
59
			{
-
 
60
				remove_string(DATA.TEXT, 'KEYP-', 1);
-
 
61
				send_string vdvMDB,"'KEYPAD:',itoa(pan),':',DATA.TEXT,';'";
-
 
62
			}
-
 
63
 
-
 
64
			if (find_string(DATA.TEXT, 'KEYB-', 1))
-
 
65
			{
-
 
66
				remove_string(DATA.TEXT, 'KEYB-', 1);
-
 
67
				send_string vdvMDB,"'KEYBOARD:',itoa(pan),':',DATA.TEXT,';'";
-
 
68
			}
-
 
69
		}
-
 
70
	}