AMX 投影幕升降程序

lin12321 发表于 2005-4-20 16:16

PROGRAM_NAME='Screen Control' 
(***********************************************************) 
(* System Type : NetLinx *) 
(***********************************************************) 
(* REV HISTORY: *) 
(***********************************************************) 
 
(***********************************************************) 
(* DEVICE NUMBER DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_DEVICE 
 
RELAY=5001:4:0 
 
TP=128:1:0 
 
AV-AMP=5001:5:0 
 
(***********************************************************) 
(* CONSTANT DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_CONSTANT 
 
SCREEN_UP_FB=101 
SCREEN_STOP_FB=102 
SCREEN_DOWN_FB=103 
 
(***********************************************************) 
(* DATA TYPE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_TYPE 
 
(***********************************************************) 
(* VARIABLE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_VARIABLE 
 
(***********************************************************) 
(* LATCHING DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_LATCHING 
 
(***********************************************************) 
(* MUTUALLY EXCLUSIVE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_MUTUALLY_EXCLUSIVE 
 
(,,) 
(,) 
(* or (..) *) 
 
(***********************************************************) 
(* SUBROUTINE/FUNCTION DEFINITIONS GO BELOW *) 
(***********************************************************) 
(* EXAMPLE: DEFINE_FUNCTION <RETURN_TYPE> <NAME> (<PARAMETERS>) *) 
(* EXAMPLE: DEFINE_CALL '<NAME>' (<PARAMETERS>) *) 
 
DEFINE_CALL 'SCREEN UP' 
{ IF( OR ) 
{ 
CANCEL_WAIT 'SCREEN STOP DELAY' 
ON 
OFF 
OFF 
WAIT 5 
{ 
ON 
OFF 
} 
WAIT 100 'SCREEN STOP DELAY' 
{ 
OFF 
OFF 
ON 
} 
} 
} 
 
DEFINE_CALL 'SCREEN STOP' 
{ ON OFF OFF 
} 
 
(***********************************************************) 
(* STARTUP CODE GOES BELOW *) 
(***********************************************************) 
DEFINE_START 
 
ON 
 
(* System Information Strings ******************************) 
(* Use this section if there is a TP in the System! *) 
(* SEND_COMMAND TP,"'!F',250,'1'" SEND_COMMAND TP,"'TEXT250-',__NAME__" SEND_COMMAND TP,"'!F',251,'1'" SEND_COMMAND TP,"'TEXT251-',__FILE__,', ',S_DATE,', ',S_TIME" SEND_COMMAND TP,"'!F',252,'1'" SEND_COMMAND TP,"'TEXT252-',__VERSION__" SEND_COMMAND TP,"'!F',253,'1'" (* Must fill this (Master Ver) *) SEND_COMMAND TP,'TEXT253-' SEND_COMMAND TP,"'!F',254,'1'" (* Must fill this (Panel File) *) SEND_COMMAND TP,'TEXT254-' SEND_COMMAND TP,"'!F',255,'1'" (* Must fill this (Dealer Info) *) SEND_COMMAND TP,'TEXT255-' 
*) 
(***********************************************************) 
(* THE EVENTS GO BELOW *) 
(***********************************************************) 
DEFINE_EVENT 
 
BUTTON_EVENT //SCREEN UP 
{ 
(* 下面一段PUSH{}内或用调用子程序 CALL ‘SCREEN UP’ *) PUSH: { 
IF( OR ) //IF (NOT) 
{ 
CANCEL_WAIT 'SCREEN STOP DELAY' 
ON 
OFF 
OFF 
WAIT 5 
{ 
ON 
OFF 
} 
WAIT 100 'SCREEN STOP DELAY' 
{ 
OFF 
OFF 
ON 
} 
} } 
} 
 
BUTTON_EVENT //SCREEN STOP 
{ 
PUSH: { ON OFF OFF } 
} 
 
BUTTON_EVENT //SCREEN DOWN 
{ 
PUSH: { 
IF( OR ) //IF (NOT) 
{ 
CANCEL_WAIT 'SCREEN STOP DELAY' 
ON 
OFF 
OFF 
WAIT 5 
{ 
ON 
ON 
} 
WAIT 100 'SCREEN STOP DELAY' 
{ 
OFF 
OFF 
ON 
} 
} } 
} 
 
DATA_EVENT 
{ ONLINE: { 
ON } 
} 
DATA_EVENT 
{ ONLINE: { 
PULSE } 
} 
 
(***********************************************************) 
(* THE ACTUAL PROGRAM GOES BELOW *) 
(***********************************************************) 
DEFINE_PROGRAM 
 
= 
= 
= 
 
(***********************************************************) 
(* END OF PROGRAM *) 
(* DO NOT PUT ANY CODE BELOW THIS COMMENT *) 
(***********************************************************)

lin12321 发表于 2005-4-20 16:17

re:应用红外IR的程序PROGRAM...

应用红外IR的程序 
 
PROGRAM_NAME='IR CONTROL' 
(***********************************************************) 
(* System Type : NetLinx *) 
(***********************************************************) 
(* REV HISTORY: *) 
(***********************************************************) 
 
(***********************************************************) 
(* DEVICE NUMBER DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_DEVICE 
 
matrix=5001:1:164 //autopatch matrix switcher CI804T 
 
RELAY=5001:4:164 
 
TP=128:1:0 
 
AV_AMP=5001:5:164 
 
(***********************************************************) 
(* CONSTANT DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_CONSTANT 
 
(***********************************************************) 
(* DATA TYPE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_TYPE 
 
(***********************************************************) 
(* VARIABLE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_VARIABLE 
 
INTEGER INPUT //定义变量 
INTEGER OUTPUT 
 
(***********************************************************) 
(* LATCHING DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_LATCHING 
 
(***********************************************************) 
(* MUTUALLY EXCLUSIVE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_MUTUALLY_EXCLUSIVE 
 
(***********************************************************) 
(* SUBROUTINE/FUNCTION DEFINITIONS GO BELOW *) 
(***********************************************************) 
(* EXAMPLE: DEFINE_FUNCTION <RETURN_TYPE> <NAME> (<PARAMETERS>) *) 
(* EXAMPLE: DEFINE_CALL '<NAME>' (<PARAMETERS>) *) 
 
(***********************************************************) 
(* STARTUP CODE GOES BELOW *) 
(***********************************************************) 
DEFINE_START 
 
(* System Information Strings ******************************) 
(* Use this section if there is a TP in the System! *) 
(* SEND_COMMAND TP,"'!F',250,'1'" SEND_COMMAND TP,"'TEXT250-',__NAME__" SEND_COMMAND TP,"'!F',251,'1'" SEND_COMMAND TP,"'TEXT251-',__FILE__,', ',S_DATE,', ',S_TIME" SEND_COMMAND TP,"'!F',252,'1'" SEND_COMMAND TP,"'TEXT252-',__VERSION__" SEND_COMMAND TP,"'!F',253,'1'" (* Must fill this (Master Ver) *) SEND_COMMAND TP,'TEXT253-' SEND_COMMAND TP,"'!F',254,'1'" (* Must fill this (Panel File) *) SEND_COMMAND TP,'TEXT254-' SEND_COMMAND TP,"'!F',255,'1'" (* Must fill this (Dealer Info) *) SEND_COMMAND TP,'TEXT255-' 
*) 
(***********************************************************) 
(* THE EVENTS GO BELOW *) 
(***********************************************************) 
DEFINE_EVENT 
 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
{ PUSH: { 
TO 
TO } 
} 
 
BUTTON_EVENT // LD SELECT 
{ PUSH: { PULSE PULSE } 
} 
 
BUTTON_EVENT // TV SELECT 
{ PUSH: { PULSE PULSE } 
} 
 
BUTTON_EVENT // VCR1 SELECT 
{ PUSH: { PULSE PULSE } 
} 
 
BUTTON_EVENT // VCR2 SELECT 
{ PUSH: { PULSE PULSE } 
} 
 
DATA_EVENT //设置MATRIX波特率 
{ ONLINE: { 
SEND_COMMAND MATRIX,'SET BAUD 9600,N,8,1 DISABLE' 
SEND_COMMAND MATRIX,'HSOFF' 
SEND_COMMAND MATRIX,'XOFF' } 
} 
 
(* 设置矩阵 *) 
 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
{ PUSH: { 
INPUT=BUTTON.INPUT.CHANNEL-30 } 
} 
 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
BUTTON_EVENT 
{ PUSH: { 
OUTPUT=BUTTON.INPUT.CHANNEL-40 } 
} 
 
BUTTON_EVENT 
{ PUSH: { SEND_STRING MATRIX,"'CI',ITOA(INPUT),'O',ITOA(OUTPUT),'T'" 
 
 
 
 
 
(**发简单字符如ABCD等，用单引号，发的是16进制码用“ $XX, $XX" 
 
上面如下 "$0d,$0c,$AA,53,60,70,'ABC',$0D" *) } 
} 
 
 
 
 
(***********************************************************) 
(* THE ACTUAL PROGRAM GOES BELOW *) 
(***********************************************************) 
DEFINE_PROGRAM 
 
=(INPUT=1) 
=(INPUT=2) 
=(INPUT=3) 
=(INPUT=4) 
=(INPUT=5) 
=(INPUT=6) 
=(INPUT=7) 
=(INPUT=8) 
 
=(OUTPUT=1) 
=(OUTPUT=2) 
=(OUTPUT=3) 
=(OUTPUT=4) 
=(OUTPUT=5) 
=(OUTPUT=6) 
=(OUTPUT=7) 
=(OUTPUT=8) 
 
(***********************************************************) 
(* END OF PROGRAM *) 
(* DO NOT PUT ANY CODE BELOW THIS COMMENT *) 
(***********************************************************)

JACKSON 发表于 2005-5-9 12:31

怎么看起来这么复杂呀

是用程序语言写出来的吗，我怎么看台电的中控就是简单的编码就行了呀

lin12321 发表于 2005-5-11 16:54

re:这是用AMX的程序编写软件写的

这是用AMX的程序编写软件写的

ady 发表于 2005-7-19 13:25

re:很复杂

很复杂

杨炎晓 发表于 2009-6-24 22:05

:L 看着晕

zf4232486 发表于 2009-7-16 17:09

楼主就是让大家看看他的水平，其实大家都是来学习的，楼主直接把其中的主要部分弄出来就可以了

fapborden 发表于 2009-12-27 18:42

学习了！！！！！！！！！！！！！！！！！！！

xiaomazha 发表于 2010-7-20 10:08

学习。。。。。。。。。。

djrhvkgd 发表于 2010-9-30 19:30

是NI-2100 主机的程序，编的有点乱。控投影幕不需要这样麻烦。

页: [1] 2

XYCAD中国音响设计网's Archiver