找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 828|回复: 0

learn note v1.0

[复制链接]

351

主题

341

回帖

2433

积分

管理员

积分
2433
发表于 2023-10-28 21:39:48 | 显示全部楼层 |阅读模式
//S(Start)
    HS7=("product%ninfo, se1, ac7");
    PRESS(HS7)
        LM("TEST")
    END
//END
//S(SOFTKEY_1)
        ;se1    可见
        ;se2    不可操作
        ;se3    高亮
        ;名称.ac = 存取级 (ac:access level)
        ;说明: 查询当前访问级
        ;返回值: 0: 系统
        ;1: 制造商
        ;2: 维修
        ;3: 用户
        ;4: 钥匙开关位置 3
        ;5: 钥匙开关位置 2
        ;6: 钥匙开关位置 1
        ;7: 钥匙开关位置 0
    HS1=("Overview%ntop",SE1,AC6)
    HS2=("",SE1)
    HS3=("",SE1)   
    HS4=("",SE1)
    HS5=("",SE1)
    HS6=("",SE1)
    HS7=("TEST",SE1)
    HS8=("BACK",SE1)

    VS1=("",SE1)                  
    VS2=("",SE1)
    VS3=("change",SE1,ac4)                  
    VS4=("",SE1)   
    VS5=(["OK","\\sk_ok.png"])                  
    VS6=("",SE1)                  
    VS7=("",SE1)
    VS8=("",SE1)

    PRESS(HS1)
        LM("OVERVIEW_TOP")
    END_PRESS

    PRESS(HS7)
        LM("TEST")
    END_PRESS

    PRESS(VS3)
        LB("SUBS")
        CALL("POSCORR")
    END_PRESS

    PRESS(VS5)
        ;VN01.wr=3
        ;FOC="VN01"
        ;VR01.wr=1
        ;VR02.wr=1
        ;VR03.wr=1
        LM(MSK)
    END_PRESS

    PRESS(HS8)
        LM("SOFTKEY_1")
    END_PRESS
//END
//M(TEST/"TEST WINDOW"/)
    DEF VR00=(R3////wr2///350,060,080/452,060,1,1),
        VR01=(R3///,"Offset X"/wr2,AC3///350,065,080/452,065,049),
        VR02=(R3///,"Offset Y"/wr2///350,086,080/452,086,049),
        VR03=(R3///,"Offset Z"/wr2///350,107,080/452,107,049),
        VR04=(R3////wr2///350,128,080/452,128,1,1),
    LOAD
        LS("SOFTKEY_1")
        LB("SUBS1")
    END_LOAD
    FOCUS
        CALL("FOC")
    END_FOCUS
//END
//B(SUBS1)
SUB(FOC)
    SWITCH(FOC)
        CASE "VR00"
            FOC="VR03"
        CASE "VR04"
            FOC="VR01"
    END_SWITCH
END_SUB
//END

;--------------------------------------------------------
;--------------------------------------------------------
;输入模式:
;wr0:输入/输出栏不可见,短文本可见
;wr1:读取(没有输入中心)
;wr2:读取和写入(行以白色显示)
;wr3:wr1 带输入中心
;wr4:所有变量单元不可见,没有输入中心
;wr5:按下任何键立即保存输入的值(和 wr2 相反 - 该模式下,在退出栏或者按下返回键后才开始保存值)。
;预设置:wr2

;名称.ac = 存取级 (ac:access level)
;AC ACCESS LEVEL
;S_ALEVEL
;说明: 查询当前访问级
;返回值: 0: 系统
;1: 制造商
;2: 维修
;3: 用户
;4: 钥匙开关位置 3
;5: 钥匙开关位置 2
;6: 钥匙开关位置 1
;7: 钥匙开关位置 0

;变量更改属性
;名称.ac = 存取级 (ac:access level)
;名称.al = 文本对齐 (al:alignment)
;名称.bc = 输入/输出栏的背景色 (bc:back color)
;名称 bc_gt = 图形文本的背景色 (bc:back color)(gt:graphic text)
;名称.bc_st = 短文本的背景色 (bc:back color)(st:short text)
;名称.bc_ut = 单位文本的背景色 (bc:back color)(ut:unit text)
;名称 do = 显示选项 (do:display option)
;名称.dt = 显示模式 (dt:display type)
;名称 .fc = 输入/输出栏的前景色 (fc:front color)
;名称.fc_gt = 图形文本的前景色 (fc:front color)(gt:graphic text)
;名称.fc_st = 短文本的前景色 (fc:front color)(st:short text)
;名称.fc_ut = 单位文本的前景色 (fc:front color)(ut:unit text)
;名称.al = 字体大小 (fs:font size)
;名称.gt = 图形文本 (gt:graphic text)
;名称.hlp = 帮助图形 (hlp:help)
;名称.li = 极限值 (li:limit)
;名称.lt = 长文本 (lt:long text)
;名称.max = 最大极限值 (max:maximum)
;名称.min = 最小极限值 (min:minimum)
;名称.sc = 信号色 (sc:signal color)
;名称.st = 简要说明 (st:short text)
;名称.tg = 转换符号 (tg:toggle)
;名称.tt = 提示框 (tt:提示框
;名称.typ = 变量类型 (typ:type)
;名称.ur = 刷新速度 (ur:update rate)
;名称.ut = 单位文本 (ut:unit text)
;名称 val = 变量值 (val:value)
;名称.var = 系统或者用户变量 (var:variable)
;名称.vld = 变量状态 (vld:validation)
;名称.wr = 输入模式 (wr:write)

;图形与转换栏有关
;转换栏用替换的图像覆盖。如果标记字节值为 1 ,则显示 “bild1.png”;如果标记字节值为 2 ,则显示 “bild2.png
;DEF VAR1=(IDB/*1="\\bild1.png", 2="\\bild2.png"//,$85000/wr1//"MB[130]"//160,40,50,50)

;一个块有下列结构:
;//B(块名称)
;SUB(名称)
;END_SUB
;[SUB(名称)
;...
;END_SUB]
;...
;//END

;--------------------------------------------------------
;--------------------------------------------------------


















//M(OVERVIEW_TOP/"Overview top"/"Side_top.png")

DEF PIC01=(B/*0="\\Pfeil.png"/0//wr0////72,030,40,40),
    PIC02=(B/*0="\\Pfeil.png"/0//wr0////72,045,40,40),
    PIC03=(B/*0="\\Pfeil.png"/0//wr0////76,058,40,40),
    PIC04=(B/*0="\\Pfeil.png"/0//wr0////72,088,40,40),
    PIC05=(B/*0="\\Pfeil.png"/0//wr0////72,117,40,40),
    PIC06=(B/*0="\\Pfeil.png"/0//wr0////72,174,40,40),
    PIC07=(B/*0="\\Pfeil.png"/0//wr0////72,188,40,40),
    PIC08=(B/*0="\\Pfeil.png"/0//wr0////325,030,40,40),
    PIC09=(B/*0="\\Pfeil.png"/0//wr0////325,045,40,40),
    PIC10=(B/*0="\\Pfeil.png"/0//wr0////325,058,40,40),
    PIC11=(B/*0="\\Pfeil.png"/0//wr0////325,088,40,40),
    PIC12=(B/*0="\\Pfeil.png"/0//wr0////325,117,40,40),
    PIC13=(B/*0="\\Pfeil.png"/0//wr0////325,174,40,40),
    PIC14=(B/*0="\\Pfeil.png"/0//wr0////325,188,40,40),
    PIC15=(B/*0="\\Pfeil.png"/0//wr0////095,147,40,40),
    PIC16=(B/*0="\\Pfeil.png"/0//wr0////298,147,40,40),
    PIC17=(B/*0="\\Pfeil.png"/0//wr0////0,0,0,0),
    PIC18=(B/*0="\\Pfeil.png"/0//wr0////0,0,0,0),
    PIC19=(B/*0="\\Pfeil.png"/0//wr0////0,0,0,0),
    PIC20=(B/*0="\\Pfeil.png"/0//wr0////0,0,0,0),
    PIC21=(B/*0="\\Pfeil.png"/0//wr0////0,0,0,0),
    PIC22=(B/*0="\\Pfeil.png"/0//wr0////0,0,0,0),

DEF VN01=(B/1///wr3////1,1,1,1),
    VN02=(B/2///wr3////1,2,1,1),
    VN03=(B/3///wr0////1,3,1,1),
    VN04=(B/4///wr3////1,4,1,1),
    VN05=(B/5///wr3////1,5,1,1),
    VN06=(B/6///wr3////1,6,1,1),
    VN07=(B/7///wr0////1,7,1,1),
    VN08=(B/8///wr3////1,8,1,1),
    VN09=(B/9///wr3////1,9,1,1),
    VN10=(B/10///wr3////1,10,1,1),
    VN11=(B/11///wr3////1,11,1,1),
    VN12=(B/12///wr3////1,12,1,1),
    VN13=(B/13///wr3////1,13,1,1),
    VN14=(B/14///wr3////1,14,1,1),
    VN15=(B/15///wr3////1,15,1,1),
    VN16=(B/16///wr3////1,16,1,1),
    VN17=(B/17///wr0////1,17,1,1),
    VN18=(B/18///wr0////1,18,1,1),
    VN19=(B/19///wr0////1,19,1,1),
    VN20=(B/20///wr0////1,20,1,1),
    VN21=(B/19///wr0////1,21,1,1),
    VN22=(B/20///wr0////1,22,1,1),

DEF VR01=(R3///,"Offset X"/wr1///350,065,080/452,065,049),
    VR02=(R3///,"Offset Y"/wr1///350,086,080/452,086,049),
    VR03=(R3///,"Offset Z"/wr1///350,107,080/452,107,049),

DEF VAR00=(I//0//wr0),
    VAR01=(I////wr0),
    MSK=(S16//"OVERVIEW_TOP"//wr0),

;DEF 命名符=(/变量类型/极限值或转换栏/预设值/文本(长文本,短文本|图,图形文本,单位文本)/属性/帮助画面/系统变量或者用户变量/短文本位置/输入栏位置(左、上、宽度、高度)/颜色/在线帮助)
;DEF XXX=(R/-1,+1/0/TXT1,TXT2/WR2,AC7/HLP.PNG/H_SET[0]/0,0,100,20/0,0,150,20/颜色/在线帮助)
;定义 MSK=(字符串长度16//预设值"OVERVIEW_TOP"//wr0),
;DEF MSK=(S16//"OVERVIEW_TOP"//wr0),

FOCUS
IF (FOC<>"VR01") AND (FOC<>"VR02") AND (FOC<>"VR03")
LB("SUBS")
CALL("pic_wr0")
CALL("FOC")
ENDIF
END_FOCUS

LOAD
LS("SOFTKEY_1")
HS1.se=3
END_LOAD

//END


//B(SUBS)

SUB(pic_wr0)
PIC01.wr=0
PIC02.wr=0
PIC03.wr=0
PIC04.wr=0
PIC05.wr=0
PIC06.wr=0
PIC07.wr=0
PIC08.wr=0
PIC09.wr=0
PIC10.wr=0
PIC11.wr=0
PIC12.wr=0
PIC13.wr=0
PIC14.wr=0
PIC15.wr=0
PIC16.wr=0
PIC17.wr=0
PIC18.wr=0
PIC19.wr=0
PIC20.wr=0
PIC21.wr=0
PIC22.wr=0
END_SUB

SUB(vn_wr0)
VN01.wr=0
VN02.wr=0
VN03.wr=0
VN04.wr=0
VN05.wr=0
VN06.wr=0
VN07.wr=0
VN08.wr=0
VN09.wr=0
VN10.wr=0
VN11.wr=0
VN12.wr=0
VN13.wr=0
VN14.wr=0
VN15.wr=0
VN16.wr=0
VN17.wr=0
VN18.wr=0
VN19.wr=0
VN20.wr=0
VN21.wr=0
VN22.wr=0
END_SUB

SUB(FOC)
SWITCH(FOC)
CASE "VN01"
PIC01.wr=1
VAR01.VAL=0
CASE "VN02"
PIC02.wr=1
VAR01.VAL=1
CASE "VN03"
PIC03.wr=1
VAR01.VAL=2
CASE "VN04"
PIC04.wr=1
VAR01.VAL=3
CASE "VN05"
PIC05.wr=1
VAR01.VAL=4
CASE "VN06"
PIC06.wr=1
VAR01.VAL=5
CASE "VN07"
PIC07.wr=1
VAR01.VAL=6
CASE "VN08"
PIC08.wr=1
VAR01.VAL=7
CASE "VN09"
PIC09.wr=1
VAR01.VAL=8
CASE "VN10"
PIC10.wr=1
VAR01.VAL=9
CASE "VN11"
PIC11.wr=1
VAR01.VAL=10
CASE "VN12"
PIC12.wr=1
VAR01.VAL=11
CASE "VN13"
PIC13.wr=1
VAR01.VAL=12
CASE "VN14"
PIC14.wr=1
VAR01.VAL=13
CASE "VN15"
PIC15.wr=1
VAR01.VAL=14
CASE "VN16"
PIC16.wr=1
VAR01.VAL=15
CASE "VN17"
PIC17.wr=1
VAR01.VAL=16
CASE "VN18"
PIC18.wr=1
VAR01.VAL=17
CASE "VN19"
PIC19.wr=1
VAR01.VAL=18
CASE "VN20"
PIC20.wr=1
VAR01.VAL=19
CASE "VN21"
PIC21.wr=1
VAR01.VAL=20
CASE "VN22"
PIC22.wr=1
VAR01.VAL=21
END_SWITCH
VR01.VAR="_CORR["<<VAR00<<","<<VAR01<<",0]"
VR02.VAR="_CORR["<<VAR00<<","<<VAR01<<",1]"
VR03.VAR="_CORR["<<VAR00<<","<<VAR01<<",2]"
END_SUB

SUB(POSCORR)
CALL("vn_wr0")

SWITCH (FOC)
CASE "VN01"
;VN01.wr=1
PIC01.wr=1
CASE "VN02"
;VN02.wr=1
PIC02.wr=1
CASE "VN03"
;VN03.wr=1
PIC03.wr=1
CASE "VN04"
;VN04.wr=1
PIC04.wr=1
CASE "VN05"
;VN05.wr=1
PIC05.wr=1
CASE "VN06"
;VN06.wr=1
PIC06.wr=1
CASE "VN07"
;VN07.wr=1
PIC07.wr=1
CASE "VN08"
;VN08.wr=1
PIC08.wr=1
CASE "VN09"
;VN09.wr=1
PIC09.wr=1
CASE "VN10"
;VN10.wr=1
PIC10.wr=1
CASE "VN11"
;VN11.wr=1
PIC11.wr=1
CASE "VN12"
;VN12.wr=1
PIC12.wr=1
CASE "VN13"
;VN13.wr=1
PIC13.wr=1
CASE "VN14"
;VN14.wr=1
PIC14.wr=1
CASE "VN15"
;VN15.wr=1
PIC15.wr=1
CASE "VN16"
;VN16.wr=1
PIC16.wr=1
CASE "VN17"
;VN17.wr=1
PIC17.wr=1
CASE "VN18"
;VN18.wr=1
PIC18.wr=1
CASE "VN19"
;VN19.wr=1
PIC19.wr=1
CASE "VN20"
;VN20.wr=1
PIC20.wr=1
CASE "VN21"
;VN21.wr=1
PIC21.wr=1
CASE "VN22"
;VN22.wr=1
PIC22.wr=1
END_SWITCH
VR01.wr=2
VR02.wr=2
VR03.wr=2
FOC="VR01"
END_SUB

//END

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|笔记

GMT+8, 2025-7-8 04:38 , Processed in 0.039370 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表