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 
 
([RELAY,101],[RELAY,102],[RELAY,103]) 
([RELAY,3],[RELAY,4]) 
(* or ([RELAY,101]..[RELAY,103]) *) 
 
(***********************************************************) 
(* SUBROUTINE/FUNCTION DEFINITIONS GO BELOW *) 
(***********************************************************) 
(* EXAMPLE: DEFINE_FUNCTION <RETURN_TYPE> <NAME> (<PARAMETERS>) *) 
(* EXAMPLE: DEFINE_CALL '<NAME>' (<PARAMETERS>) *) 
 
DEFINE_CALL 'SCREEN UP' 
{ IF([RELAY,102] OR [RELAY,103]) 
{ 
CANCEL_WAIT 'SCREEN STOP DELAY' 
ON[RELAY,101] 
OFF[RELAY,1] 
OFF[RELAY,2] 
WAIT 5 
{ 
ON[RELAY,1] 
OFF[RELAY,2] 
} 
WAIT 100 'SCREEN STOP DELAY' 
{ 
OFF[RELAY,1] 
OFF[RELAY,2] 
ON[RELAY,102] 
} 
} 
} 
 
DEFINE_CALL 'SCREEN STOP' 
{ ON[RELAY,102] OFF[RELAY,1] OFF[RELAY,2] 
} 
 
(***********************************************************) 
(* STARTUP CODE GOES BELOW *) 
(***********************************************************) 
DEFINE_START 
 
ON[RELAY,4] 
 
(* 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[TP,11] //SCREEN UP 
{ 
(* 下面一段PUSH{}内或用调用子程序 CALL ‘SCREEN UP’ *) PUSH: { 
IF([RELAY,102] OR [RELAY,103]) //IF (NOT[RELAY,101]) 
{ 
CANCEL_WAIT 'SCREEN STOP DELAY' 
ON[RELAY,101] 
OFF[RELAY,1] 
OFF[RELAY,2] 
WAIT 5 
{ 
ON[RELAY,1] 
OFF[RELAY,2] 
} 
WAIT 100 'SCREEN STOP DELAY' 
{ 
OFF[RELAY,1] 
OFF[RELAY,2] 
ON[RELAY,102] 
} 
} } 
} 
 
BUTTON_EVENT[TP,12] //SCREEN STOP 
{ 
PUSH: { ON[RELAY,102] OFF[RELAY,1] OFF[RELAY,2] } 
} 
 
BUTTON_EVENT[TP,13] //SCREEN DOWN 
{ 
PUSH: { 
IF([RELAY,102] OR [RELAY,101]) //IF (NOT[RELAY,103]) 
{ 
CANCEL_WAIT 'SCREEN STOP DELAY' 
ON[RELAY,103] 
OFF[RELAY,1] 
OFF[RELAY,2] 
WAIT 5 
{ 
ON[RELAY,1] 
ON[RELAY,2] 
} 
WAIT 100 'SCREEN STOP DELAY' 
{ 
OFF[RELAY,1] 
OFF[RELAY,2] 
ON[RELAY,102] 
} 
} } 
} 
 
DATA_EVENT[RELAY] 
{ ONLINE: { 
ON[RELAY,102] } 
} 
DATA_EVENT[TP] 
{ ONLINE: { 
PULSE[RELAY,3] } 
} 
 
(***********************************************************) 
(* THE ACTUAL PROGRAM GOES BELOW *) 
(***********************************************************) 
DEFINE_PROGRAM 
 
[TP,11]=[RELAY,101] 
[TP,12]=[RELAY,102] 
[TP,13]=[RELAY,103] 
 
(***********************************************************) 
(* END OF PROGRAM *) 
(* DO NOT PUT ANY CODE BELOW THIS COMMENT *) 
(***********************************************************)

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

应用红外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[TP,21] 
BUTTON_EVENT[TP,22] 
BUTTON_EVENT[TP,23] 
{ PUSH: { 
TO[AV_AMP,BUTTON.INPUT.CHANNEL+3] 
TO[TP,BUTTON.INPUT.CHANNEL] } 
} 
 
BUTTON_EVENT[TP,24] // LD SELECT 
{ PUSH: { PULSE[AV_AMP,85] PULSE[TP,BUTTON.INPUT.CHANNEL] } 
} 
 
BUTTON_EVENT[TP,25] // TV SELECT 
{ PUSH: { PULSE[AV_AMP,81] PULSE[TP,BUTTON.INPUT.CHANNEL] } 
} 
 
BUTTON_EVENT[TP,26] // VCR1 SELECT 
{ PUSH: { PULSE[AV_AMP,82] PULSE[TP,BUTTON.INPUT.CHANNEL] } 
} 
 
BUTTON_EVENT[TP,27] // VCR2 SELECT 
{ PUSH: { PULSE[AV_AMP,83] PULSE[TP,BUTTON.INPUT.CHANNEL] } 
} 
 
DATA_EVENT[MATRIX] //设置MATRIX波特率 
{ ONLINE: { 
SEND_COMMAND MATRIX,'SET BAUD 9600,N,8,1 DISABLE' 
SEND_COMMAND MATRIX,'HSOFF' 
SEND_COMMAND MATRIX,'XOFF' } 
} 
 
(* 设置矩阵 *) 
 
BUTTON_EVENT[TP,31] 
BUTTON_EVENT[TP,32] 
BUTTON_EVENT[TP,33] 
BUTTON_EVENT[TP,34] 
BUTTON_EVENT[TP,35] 
BUTTON_EVENT[TP,36] 
BUTTON_EVENT[TP,37] 
BUTTON_EVENT[TP,38] 
{ PUSH: { 
INPUT=BUTTON.INPUT.CHANNEL-30 } 
} 
 
BUTTON_EVENT[TP,41] 
BUTTON_EVENT[TP,42] 
BUTTON_EVENT[TP,43] 
BUTTON_EVENT[TP,44] 
BUTTON_EVENT[TP,45] 
BUTTON_EVENT[TP,46] 
BUTTON_EVENT[TP,47] 
BUTTON_EVENT[TP,48] 
{ PUSH: { 
OUTPUT=BUTTON.INPUT.CHANNEL-40 } 
} 
 
BUTTON_EVENT[TP,49] 
{ 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 
 
[TP,31]=(INPUT=1) 
[TP,32]=(INPUT=2) 
[TP,33]=(INPUT=3) 
[TP,34]=(INPUT=4) 
[TP,35]=(INPUT=5) 
[TP,36]=(INPUT=6) 
[TP,37]=(INPUT=7) 
[TP,38]=(INPUT=8) 
 
[TP,41]=(OUTPUT=1) 
[TP,42]=(OUTPUT=2) 
[TP,43]=(OUTPUT=3) 
[TP,44]=(OUTPUT=4) 
[TP,45]=(OUTPUT=5) 
[TP,46]=(OUTPUT=6) 
[TP,47]=(OUTPUT=7) 
[TP,48]=(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

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

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

很复杂

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

看着晕

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 主机的程序，编的有点乱。控投影幕不需要这样麻烦。

账号		自动登录	找回密码
密码			注册

AMX 投影幕升降程序

亲，只有注册或登录才能下载更有用的哦

相关帖子

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

怎么看起来这么复杂呀

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

re:很复杂

浏览过的版块

专家勋章

版主勋章