AMX AXCENT3编程案例

lin12321 发表于 2005-4-15 13:06

PROGRAM_NAME='BEIJING 15-07-2000 TRAINING 2' (*程序文件名，最后修改日期、时间*) 
(* DATE:07/15/00 TIME:18:14:34 *) 
(***********************************************************) 
(* System Type : 系统类型 *) 
(***********************************************************) 
(***********************************************************) 
(* DEVICE NUMBER DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_DEVICE (*定义_设备号*) 
 
PROJ=1 (*定义投影机_1#*) 
RELAY=7 (*定义继电器_7#*) 
VCD=8 (*定义VCD_8#*) 
VOL=85 (*定义调音合_85#*) 
WP=87 (*定义墙身按键_87*) 
 
TP=128 (*定义触摸屏_128#*) 
 
DEFINE_CONNECT_LEVEL (*定义拉条与设备值相关联*) 
(TP,1,VOL,1,VOL,2) (*定义TP,1分别VOL,1T和VOL,2相关联*) 
 
(***********************************************************) 
(* CONSTANT DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_CONSTANT (*定义_常量*) 
 
SCREEN_UP_B=1 (*定义电动幕_向上_按键=1*) 
SCREEN_STOP_B=2 (*定义电动幕_停止_按键=2*) 
SCREEN_DOWN_B=3 (*定义电动幕_向下_按键=3*) 
 
SCREEN_UP_FB=101 (*定义电动幕_向上_按键反馈=101*)利用RELAY7的9~255空余的地址 
SCREEN_STOP_FB=102 (*定义电动幕_停止_按键反馈=102*) 存储反馈信息 
SCREEN_DOWN_FB=103 (*定义电动幕_向下_按键反馈=103*) 
 
PLAY_B=11 (*定义播放_按键=11*) 
STOP_B=12 (*定义停止_按键=12*) 
PAUSE_B=13(*定义暂停_按键=13*) 
SKIP_FWD_B=14 (*定义跳转_快进_按键=14*) 
SKIP_REW_B=15 (*定义跳转_快退_按键=15*) 
SCAN_FWD_B=16 (*定义搜索_快进=16*) 
SCAN_REW_B=17 (*定义搜索_快退_按键=17*) 
POWER_B=19 (*定义电源_按键=19*) 
 
VOL_UP_B=21 (*音量_增加_按键=21*) 
VOL_DOWN_B=22 (*音量_减少_按键=22*) 
VOL_MUTE_B=23 (*音量_静音_按键=23*) 
VOL_SLIDER=24 (*音量_拉条按钮号=24*) 
VOL_PRESET_B=25 (*音量_预置_按键=25*) 
 
PROJ_ON_B=31 (*投影机_开_按键=21*) 
PROJ_OFF_B=32 (*投影机_关_按键=21*) 
PROJ_VIDEO_B=33 (*投影机_切换视频_按键=21*) 
PROJ_RGB_B=34 (*投影机_切换VGA_按键=21*) 
 
PROJ_ON_FB=104 (*投影机_开_按键反馈=21*) 
PROJ_OFF_FB=105 (*投影机_开_按键反馈=21*) 
 
(***********************************************************) 
(* VARIABLE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_VARIABLE (*设置变量*) 
 
CURRENT_VOL_LEVEL （*定义音量值变量*） 
PRESET_VOL_LEVEL 
STORE_MODE 
PROJ_BUSY （*定义投影机输入端子*） 
 
 
(***********************************************************) 
(* LATCHING DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_LATCHING 
 
(***********************************************************) 
(* MUTUALLY EXCLUSIVE DEFINITIONS GO BELOW *) 
(***********************************************************) 
DEFINE_MUTUALLY_EXCLUSIVE (*定义互锁*) 
 
(..) (*定义电动幕上_停_下按钮反馈互锁*) 
（，，） 
（..） 
(,) (*定义投影机开_关按钮反馈互锁*) 
 
(***********************************************************) 
(* SUBROUTINE DEFINITIONS GO BELOW *) (*定义子程序*) 
(***********************************************************) 
（*当在IF判断语句里用OR时必须在DEFINE_START语句里将其另一种状态先置为开，*） 
（*否则在第一次的起动时其按键会没有响应*） 
DEFINE_CALL 'SCREEN UP' (*定义电动幕_向上子程序为"SCREEN UP"*) 
{ IF (NOT) (*判断电动幕向上反馈铵钮不是开则运行以下程序*) { CANCEL_WAIT 'SCREEN WAIT' （*取消等待“SCREEN WAIT”命令*） ON （*将电动幕向上反馈按钮置为开*） OFF （*将继电器1置为关*） OFF （*将继电器2置为关*） WAIT 5 （*等待0.5秒执行下行程序*） { ON (*将继电器1置为开*) } 
（*下面的一段程序是执行屏幕下降10秒钟后将继电器1，2关闭，这样可防止继电器长时间处于通电状态*） WAIT 100 'SCREEN WAIT' (*等待10秒,并将其定义为‘SCREEN WAIT’子程序*) { OFF (*将继电器1置为关*) OFF (*将继电器2置为关*) ON (*将电动幕停止反馈按钮置为开*) } } 
} 
 
DEFINE_CALL 'SCREEN STOP' (*定义电动幕_停止子程序为"SCREEN UP"*) 
{ ON (*将电动幕停止反馈按钮置为开*) OFF (*将继电器1置为关*) OFF (*将继电器2置为关*) 
} 
 
DEFINE_CALL 'SCREEN DOWN' (*定义电动幕_下降子程序为"SCREEN DOWN"*) 
{ IF (NOT) (*判断电动幕向下反馈铵钮不是开则运行以下程序*) { CANCEL_WAIT 'SCREEN WAIT' （*取消等待“SCREEN WAIT”命令*） ON （*将电动幕向下反馈按钮置为开*） OFF （*将继电器1置为关*） OFF （*将继电器2置为关*） WAIT 5 （*等待0.5秒执行下行程序*） { ON (*将继电器2置为开*) 这时是先将非供电继电器打开 WAIT 1 (*等待0.1秒) 等待0.1秒使非供电继电器动作完成 ON (*将继电器1置为开*) 再将供电继电器打开 } WAIT 100 'SCREEN WAIT' (*等待10秒, 并将其定义为’SCREEN WAIT’子程序*) { OFF (*将继电器1置为关*) OFF (*将继电器2置为关*) ON (*将电动幕停止反馈按钮置为开*) } } 
} 
 
(***********************************************************) 
(* STARTUP CODE GOES BELOW *) 
(***********************************************************) 
DEFINE_START (*设定初使状态*) 
 
SEND_COMMAND PROJ,'SET BAUD 19200,N,8,1' (*向投影机发射通信设置指令*) 
PROJ_BUSY=0 
 
ON (*将电动幕反馈按钮预置为开*) 
PRESET_VOL_LEVEL=50 (*开机预置音量为50*) 
 
CREATE_LEVEL VOL,1,CURRENT_VOL_LEVEL (*将VOL1路值送到CURRENT_VOL_LEVEL 变量*) 
 
(***********************************************************) 
(* THE ACTUAL PROGRAM GOES BELOW *)(*主程序*) 
(***********************************************************) 
DEFINE_PROGRAM (*主程序*) 
 
PUSH (*当按下触摸屏(TP),电动幕上升键(SCREEN_UP_B)执行下面的程序*) 
PUSH(*当按下墙身面板(WP),电动幕上升键(SCREEN_UP_B)执行下面的程序*) 
{ CALL 'SCREEN UP' (*用CALL命令调用电动幕上升子程序’SCREEN UP’*) 
} 
 
PUSH(*当按下触摸屏(TP),电动幕停止键执行下面的程序*) 
PUSH(*当按下触摸屏的电动幕停止键执行下面的程序*) 
{ CALL 'SCREEN STOP' (*用CALL命令调用电动幕停止子程序’SCREEN STOP’*) 
} 
 
PUSH(*当按下触摸屏的电动幕下降键执行下面的程序*) 
PUSH(*当按下触摸屏的电动幕下降键执行下面的程序*) 
{ CALL 'SCREEN DOWN' (*用CALL命令调用电动幕下降子程序’SCREEN DOWN’*) 
} 
（*以下的赋值语句必须放在外面，因如放在PASH语句里面，当程序下一次扫描程序时，将无法执行里面的赋值语句，即触摸屏上的按键会全部亮起来，这是因为当按其它键时其反馈值虽然已变，但赋给触摸屏的语句无法执行所产生的。*） 
= (*将继电器的电动幕下降反馈值送给触摸屏电动幕下降按钮*) 
=(*将继电器的电动幕上升反馈值送给触摸屏电动幕上升按钮*) 
=(*将继电器的电动幕停止反馈值送给触摸屏电动幕停止按钮*) 
 
=(*将继电器的电动幕下降反馈值送给墙身面板电动幕下降按钮*) 
=(*将继电器的电动幕上升反馈值送给墙身面板电动上升降按钮*) 
=(*将继电器的电动幕停止反馈值送给墙身面板电动幕停止按钮*) 
 
(* 
PUSH 
{ PULSE PULSE 
} 
 
PUSH 
{ PULSE PULSE 
} 
 
PUSH 
{ PULSE PULSE 
} 
 
PUSH 
{ SET_PULSE_TIME(1) （*设定PULSE发送时间为0.1秒*） PULSE SET_PULSE_TIME(5) （*设定PULSE初使状态为0.5秒*） PULSE 
} 
 
PUSH 
{ SET_PULSE_TIME(1) PULSE SET_PULSE_TIME(5) PULSE 
} 
 
PUSH 
{ TO TO 
} 
 
PUSH 
{ TO TO 
} 
*) 
 
(*系统调用‘CD2’子程序(设备为VCD,从触摸屏输入,播放键,停止键,……,0(为无按键)*) 
SYSTEM_CALL 'CD2' (VCD,TP,PLAY_B,STOP_B,PAUSE_B, SKIP_FWD_B,SKIP_REW_B,SCAN_FWD_B,SCAN_REW_B,0) 
（*注：PLAY_B,STOP_B等按钮名必须在定义常量内首先定义才可使用。*） 
 
 
PUSH (*当按下解摸屏的电源键执行下面程序*) 
{ PULSE (*发送VCD端口的第9个红外码*) PULSE (*反馈已接收到指令到触摸屏电源按键*) 
} 
 
PUSH (*当按下触摸屏音量上升键执行下面程序*) 
{ OFF (*关闭调音盒的3通道*) TO (*根据按下键的时间向上调节调音盒的1和2路音量*) TO (*根据按下键的时间显示触摸屏音量上调按钮*) 
} 
 
PUSH(*当按下触摸屏音量下调键执行下面程序*) 
{ OFF(*关闭VOL3通道*) TO (*根据按下键的时间向下调节调音盒的1和2路音量*) TO(*根据按下键的时间显示触摸屏音量下调按钮*) 
} 
 
PUSH(*当按下触摸屏静音键执行下面程序*) 
{ =NOT (*将调音盒VOL3的值取反*) 
} 
= (*将VOL3的值赋给触摸屏的静音按钮*) 
 
PUSH (*当按下触摸屏的音量滑条时执行下面的程序*) 
{ OFF (*关闭VOL3通道*) 
} 
 
PUSH (*当按下触摸屏预置按时执行下面的程序*) 
{ STORE_MODE=0 (*将变量STORE_MODE置为0*) WAIT 20 'STORE PRESET' (*等待2秒后执行下面程序,并定义为’STORE PRESET’*) { STORE_MODE=1 (*将变量STORE_MODE置为1*) SEND_COMMAND TP,'ADBEEP' (*要求触摸屏发一个声音,告知已完成命令*) } 
} 
 
RELEASE (*当长时间按下触摸屏音量重置键执行下面的程序*) 
{ CANCEL_WAIT 'STORE PRESET' (*取消等待‘STORE PRESET’*) IF (STORE_MODE) (*如果STORE_MODEO为真就运行下面的程序*) { PRESET_VOL_LEVEL=CURRENT_VOL_LEVEL (*将变量CURRENT_VOL_LEVEL的值赋给变量PRESET_VOL_LEVEL*) } ELSE (*如果STORE_MODEO为假就运行下面的程序*) { OFF (*关闭VOL3*) SEND_COMMAND VOL,"'P0L',ITOA(PRESET_VOL_LEVEL),'T20'" (*向VOL发射指令将其设定为所需顾预置值*) } 
} 
(*先将变量CURRENT_VOL_LEVEL的值赋给变量PRESET_VOL_LEVEL,再将其值赋给触摸屏的VOL_PRESET_B按钮*) 
=(PRESET_VOL_LEVEL=CURRENT_VOL_LEVEL) 
 
PUSH (*当按下触摸屏,投影机_开_键时执行下面的程序*) 
{ IF (NOT) (*如果继电器,投影机_开_反馈按键为非开状态时执行下面的程序*) { IF (NOT) (*如果投影机处于不忙状态*) { ON (*将投影机开反馈键打开*) PROJ_BUSY=1 (*将投影机变量设置为忙状态*) SEND_STRING 1,"'C00',13" (*通过RS-232口向投影机发射关闭电源指令*) WAIT 600 (*等待60秒*) PROJ_BUSY=0 (*将投影机变量设置为不忙状态*) } } 
} 
 
PUSH (*当按下触摸屏,投影机_关_键时执行下面的程序*) 
{ IF (NOT) (*如果继电器,投影机_关_反馈按键为非开状态时执行下面的程序*) { IF (NOT) (*如果投影机处于不忙状态就执行下面的程序*) { ON (*将投影机关反馈键打开*) PROJ_BUSY=1 (*将投影机变量设置为忙状态*) SEND_STRING 1,"'C01',13" (*通过RS-232口向投影机发射打开电源指令*) WAIT 600 (*等待60秒*) PROJ_BUSY=0 (*将投影机变量设置为不忙状态*) } } 
} 
= (*将投影机开反馈值赋给触摸屏的开按钮*) 
= (*将投影机关反馈值赋给触摸屏的关按钮*) 
 
 
IF() (*如果投影机开反馈值为真就执行下面的程序*) 
{ PUSH (*当按下触摸屏投影机视频按钮时执行下面程序*) { SEND_STRING 1,"'C07',13" (*向第1个RS-232设备投影机发射转换为视频命令*) PULSE (*将触摸屏的投影机视频按键按下*) } 
 PUSH (*当按下触摸屏投影机RGB按钮时执行下面程序*) { SEND_STRING 1,"'C05',13" (*向第1个RS-232设备投影机发射转换为RGB命令*) PULSE (*将触摸屏的投影机RGB按键按下*) } 
} 
 
（*注：当用SEND¬_STRING命令向RS-232/485/422（1-6号）设备发送指令时，因其设备的不同，其设备的指令代码也各不相同，所以要先将其设备的编码取得，再按其编码发送相应指令。*） 
 
(***********************************************************) 
(* END OF PROGRAM *) 
(* DO NOT PUT ANY CODE BELOW THIS COMMENT *) 
(***********************************************************)

lin12321 发表于 2005-4-15 13:08

re:小弟也是在AMX编程的入门阶段,希望与大...

小弟也是在AMX编程的入门阶段,希望与大家共同学习.NETLINX的编程晚些时候我再传上来给大家.也希望哪位高人有相关资料也能赐与小弟.

一条虫 发表于 2005-4-25 13:48

re:d

xycad 发表于 2005-5-1 18:33

re:好象AMX的编程公认的较其他难学些啊！不...

好象AMX的编程公认的较其他难学些啊！不象快思聪和快捷、VITI........容易，VITI学起来好象比快思聪更简单些。

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

re:我到觉得如果有C的基础的话,一点不难,关...

我到觉得如果有C的基础的话,一点不难,关键是大脑里的思路要清晰

manual_audio 发表于 2005-6-10 16:47

re:没有办法看啊,能给我发一份吗?? hmd...

没有办法看啊,能给我发一份吗?? hmdqx_cn@sina.com

LEEHJ 发表于 2005-6-20 09:32

re:看不到,努力

看不到,努力

eldbaby 发表于 2005-7-26 14:51

re:什么破玩意,有什么!!

什么破玩意,有什么!!

mojupeng 发表于 2005-7-26 15:09

re:加我QQ发一个给我也学习学习。在这等级...

加我QQ发一个给我也学习学习。在这等级都不够！！：） 
198939140天创电子莫举澎 
南区顾问

乡巴佬 发表于 2005-8-27 11:03

re:给我一份吧，想研究研究QQ1070679...

给我一份吧，想研究研究QQ107067962谢了

页: [1] 2 3 4

XYCAD中国音响设计网's Archiver