加入收藏
联系我们
论坛帮助
   登陆 注册 搜索 自选风格 论坛状态 论坛展区 我能做什么

>> ..:::专业的技术论坛:::..
投影在线论坛 → 投影在线论坛 → 技术论坛 → AMX 投影幕升降程序

  发表一个新主题  发表一个新投票  回复主题 您是本帖的第 65 个阅读者浏览上一篇主题  刷新本主题   树形显示贴子　浏览下一篇主题
 * 贴子主题： AMX 投影幕升降程序 保存该页为文件  报告本帖给版主  显示可打印的版本  把本贴打包邮递  把本贴加入论坛收藏夹  发送本页面给朋友  把本贴加入IE收藏夹 
 007 美女呀，在线，快来找我吧！
  
  等级：新手上路
  文章：
  积分：
  注册：2025/9/23
给007发送一个短消息 把007加入好友 查看007的个人资料 搜索007在技术论坛的所有贴子 引用回复这个贴子 回复这个贴子楼主
发贴心情 AMX 投影幕升降程序
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    

级别：骑士
积分：422
经验：2031
*章：158
注册：05-04-15 11:15 
 
  发表: 2005-04-20 16:17:53 第2楼 

应用红外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>) *)

(****************************

点击查看用户来源及管理<br>发贴IP：*.*.*.* 2005/4/25 11:51:00
  鲜花(0)  鸡蛋(0)
 niko 美女呀，在线，快来找我吧！
  
  等级：新手上路
  文章：
  积分：
  注册：2025/9/23
给niko发送一个短消息 把niko加入好友 查看niko的个人资料 搜索niko在技术论坛的所有贴子 引用回复这个贴子 回复这个贴子第2楼
发贴心情 
你是从哪弄来的啊，，，怎么这么长的啊？？？？？？？？？
点击查看用户来源及管理<br>发贴IP：*.*.*.* 2005/4/26 11:42:00
 007 美女呀，在线，快来找我吧！
  
  等级：新手上路
  文章：
  积分：
  注册：2025/9/23
给007发送一个短消息 把007加入好友 查看007的个人资料 搜索007在技术论坛的所有贴子 引用回复这个贴子 回复这个贴子第3楼
发贴心情 
在百威论坛下载的
点击查看用户来源及管理<br>发贴IP：*.*.*.* 2005/4/27 17:39:00

本主题贴数3，分页： [1]
 *快速回复：AMX 投影幕升降程序
你的用户名:    还没注册?    密码:    忘记密码?
内容
  • HTML标签： 不可用
  • UBB标签： 可用
  • 贴图标签： 可用
  • 多媒体标签：可用
  • 表情字符转换：可用
  • 上传图片：可用
  • 最多15KB
    • 邮件回复 显示签名   [Ctrl+Enter直接提交贴子]

    管理选项： 锁定 | 解锁 | 提升 | 删除 | 移动 | 固顶 | 总固顶 | 奖励 | 惩罚 | 发布公告

    投影在线论坛 Ver1.0
    Copyright ©2002 - 2010 www.Pj68.COM , 页面执行时间：859.375毫秒