[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

mdyblog

826773297 发表于 2022-5-7 15:58
那就是系统问题了，难搞

这是正常的。 系统硬件数据库忙。
碰到55错误， 随机延时一会儿， 重试即可。

826773297

mdyblog 发表于 2022-5-7 16:39
这是正常的。 系统硬件数据库忙。
碰到55错误， 随机延时一会儿， 重试即可。

好的

527104427

826773297 发表于 2022-5-7 17:59
好的

如果是error能判断的话，那代码可以简化一下了：

ENVI &&WM_DEVICECHANGE                 =0x0219

_SUB WIN1,W405H254,新窗口1,
    ENVI @this.Visable=1
    ENVI @this.MSG=_%&WM_DEVICECHANGE%::&&wp,&&lp,WIN2
    LABE LABE1,L20T82W355H30,LABE1,,
    WIN2
_END

WIN1

_SUB WIN2
    loop #1=1,
    {*
        PCIP ? ,,,,0?SNAME
        ifex $%error%=0, exit
        wait 500
    }
    ENVI @LABE1=%SNAME%
_END

826773297

527104427 发表于 2022-5-7 18:03
如果是error能判断的话，那代码可以简化一下了：

ENVI &&WM_DEVICECHANGE                 =0x0219

感谢，昨天修一台机器忘记测试了，今天试试

mdyblog

527104427 发表于 2022-5-7 18:03
如果是error能判断的话，那代码可以简化一下了：

ENVI &&WM_DEVICECHANGE                 =0x0219

1. _SUB WIN2  // %&&wp%  %&&lp%
   
2.     DATE  &t1 uptime
   
3.     LOOP #1=1,
   
4.     {*  CALC  &i=%&i%+1
   
5.         PCIP ? ,,,,0?&&SNAME
   
6.         IFEX #%&ERROR%<>55, EXIT   //ERROR_DEV_NOT_EXIST=55
   
7.     }
   
8.     DATE  &t2 uptime
   
9.     CALC &&ta=%&t2%-%&t1%
   
10.     ENVI @LABE1=%&SNAME%[%&i%] [%&t1%--->%&t2%=%&ta%ms]
    
11. _END

复制代码

测试， 卸载VHD时， 竟然 会重试 几万次，耗 5000多ms。

826773297

mdyblog 发表于 2022-5-9 10:46
测试， 卸载VHD时， 竟然 会重试 几万次，耗 5000多ms。

我用的11系统，挂载和卸载iso进行测试

826773297

听说是系统问题，我就没管它了

527104427

mdyblog 发表于 2022-5-9 10:46
测试， 卸载VHD时， 竟然 会重试 几万次，耗 5000多ms。

哇，看来不能这么玩！

zjd1979

感谢分享

mdyblog

527104427 发表于 2022-5-9 12:43
哇，看来不能这么玩！

上面 用TIME 延时500ms,  实际测试都是PCIP立即完成。

泮安宁

请教m大，有没有返回指定字符串第n个字符的命令，如字符串123456第二个字符为2
我在帮助中没找到

527104427

泮安宁 发表于 2022-5-9 22:57
请教m大，有没有返回指定字符串第n个字符的命令，如字符串123456第二个字符为2
我在帮助中没找到

set   a=123456
mstr * b=2,1,a
mess. [%b%]

泮安宁

527104427 发表于 2022-5-9 23:27
set   a=123456
mstr * b=2,1,a
mess. [%b%]

好的，谢谢5大

泮安宁

527104427 发表于 2022-5-9 23:27
set   a=123456
mstr * b=2,1,a
mess. [%b%]

为什么你写的不用%引用变量呢，和这个

set a=123456
mstr b=2,1,%a%
mess. [%b%]

有什么区别呢

红毛樱木

泮安宁 发表于 2022-5-9 23:55
为什么你写的不用%引用变量呢，和这个

set a=123456

看帮助文档。
*则后面是变量名

泮安宁

红毛樱木 发表于 2022-5-10 00:34
看帮助文档。
*则后面是变量名

好的

481416322

顶

mdyblog

泮安宁 发表于 2022-5-5 23:12
应该是PECMD的BUG
用ENVI @Imag1.update=:::::;#1|PNG更换内置的PNG文件，最新版会卡死，导致程序无响应， ...

新版 直接用CHEK

CHEK -scale:(51*96/12)<123;51>:#1|PNG  CHECK1,L114T70W123H53,, ENVI @this=[%CHECK1.Check%]

即可。自己动态切换。

示例\IMAGE_Chek.WCS

51 是显示高度。

可支持4个子图。1：选中图  2：未选中图 ；  后2个对应禁止。
可横排或纵排。自动切分。
内置请带上 |类别。 防止当做文件名。默认BITMAP

826773297

mdyblog 发表于 2022-5-10 15:26
新版 直接用CHEK

CHEK -scale:(51*96/12):#1|PNG  CHECK1,L114T70W123H53,, ENVI @this=[%CHECK1.Chec ...

m大，窗口不完全透明，按钮不透明，应该怎么写，目前是要么窗口透明按钮也透明，要么窗口全透，按钮不透明

mdyblog

826773297 发表于 2022-5-10 16:41
m大，窗口不完全透明，按钮不透明，应该怎么写，目前是要么窗口透明按钮也透明，要么窗口全透，按钮不透 ...

窗口不完全透明，按钮不透明
--------------------------------------
标准的， 不允许的。
可参考下
示例\不同透明度窗口2.wcs
------------------------

1. #!PECMD
   
2. #code=936
   
3. 
   
4. SET &WID_W_LABE=00
   
5. SET &WID_W_EDIT=00
   
6. ENVI &&WIN1ID=0
   
7. 
   
8. 
   
9. _SUB WIN1,W600H250,新窗口透明度70%,KILL \,,70
   
10.     ENVI &WIN1ID=%&__WinID%
    
11.     ITEM ITEM1,L133T2W60H20,透明度70%, MESS   WIN1/ITEM1
    
12.     //CALL @-sub[:@-#LxTyWwHh]] [前导]<窗口名称> [命令行参数]
    
13.     TIME -t:1 T,0, CALL @-sub:@#L20T50 -W_LABE
    
14.     TIME -t:1 T,0, CALL @-sub:@#L320T50 -W_EDIT
    
15. _END //
    
16. 
    
17. _SUB W_LABE,W200H100,,,,-40
    
18.     ENVI &WID_W_LABE=%&__WinID%
    
19.     LABE LABE6,L0T0W200H100,透明度40%,,
    
20. _END //
    
21. 
    
22. _SUB W_EDIT,W200H100,,,,  //-40
    
23.     ENVI &WID_W_EDIT=%&__WinID%
    
24.     EDIT Edit1,L0T0W200H100,完全不透明,,0x224
    
25. _END //
    
26. 
    
27. WIN1

复制代码

泮安宁

mdyblog 发表于 2022-5-10 15:26
新版 直接用CHEK

CHEK -scale:(51*96/12):#1|PNG  CHECK1,L114T70W123H53,, ENVI @this=[%CHECK1.Chec ...

好的

红毛樱木

mdyblog 发表于 2022-5-10 16:48
窗口不完全透明，按钮不透明
--------------------------------------
标准的， 不允许的。

如果能动态调透明度，是不是更爽

mdyblog

红毛樱木 发表于 2022-5-10 19:48
如果能动态调透明度，是不是更爽

API
CALL $DLL

481416322

谢谢更新

泮安宁

怎么在窗口生成之后，通过按钮改变窗口大小呢
找到方法了 ENVI @this.pos

泮安宁

泮安宁 发表于 2022-5-11 12:20
怎么在窗口生成之后，通过按钮改变窗口大小呢
找到方法了 ENVI @this.pos

WIN1
_SUB WIN1,W765H500,窗口,,,,,-scale:125
    ITEM Item0,L200T100W100H50,>>,ENVI @WIN1.pos=::@765
_END

窗口加上缩放后，用ENVI @WIN1.pos=::调整窗口大小，虽然ENVI设置的窗口长度和一开始生成的窗口长度的值一样，但窗口大小还是会缩小，所以用ENVI @WIN1.pos调整的窗口大小是不是没有缩放的，不知道有没有什么办法解决

红毛樱木

泮安宁 发表于 2022-5-11 13:50
WIN1
_SUB WIN1,W765H500,窗口,,,,,-scale:125
    ITEM Item0,L200T100W100H50,>>,ENVI @WIN1.pos=::@ ...

WIN1
_SUB WIN1,W765H500,窗口,,,,,-scale:125
    ITEM Item0,L200T100W100H50,>>,ENVI @WIN1.pos=::@(765 * 1.25)
_END

这样子呢？自己计算是不是对的？

泮安宁

红毛樱木 发表于 2022-5-11 14:18
WIN1
_SUB WIN1,W765H500,窗口,,,,,-scale:125
    ITEM Item0,L200T100W100H50,>>,ENVI @WIN1.pos=::@ ...

还是会缩小一点

红毛樱木

泮安宁 发表于 2022-5-11 14:56
还是会缩小一点

那自己想办法计算了。。。

mdyblog

泮安宁 发表于 2022-5-11 14:56
还是会缩小一点

1. WIN1
   
2. _SUB WIN1,W765H500,窗口,,,,,-scale:120
   
3.     ENVI @this.pos=::@(765*120/96):(500*120/96)  //微调，方便计算
   
4.     ITEM Item0,L200T100W100H50,>>,ENVI @WIN1.pos=::@(765*120/96)
   
5. _END

复制代码

//DPI基准是96不是100， 所以放大系数为120/96=125%， -scale参数应该为96*1.25=120