工控编程吧

标题: 威纶通过宏实现弹出小窗口操作相同数据 [打印本页]

---

作者: qq263946146    时间: 2022-2-4 21:11
标题: 威纶通过宏实现弹出小窗口操作相同数据
例程效果如图。
(, 下载次数: 5)

上传

点击文件名下载附件
点击不同的电磁阀会弹出一个相同的小窗口，
在小窗口上点击对应按钮可以控制当前选中电磁阀的开与关。
功能小巧，为一网友想实现的功能，让我有偿编写参考。
功能可以通过不同控件配合实现。
当前例程使用三个宏完成，内容如下

1. macro_command main()
   
2. short PopupWindowIndex=11
   
3. SetData(PopupWindowIndex, "Local HMI", LW, 0, 1)//弹出开关窗口
   
4. bool a=false
   
5. SetData(a, "Local HMI", LB, 1000, 1)//此宏触发状态复位
   
6. end macro_command

复制代码

1. macro_command main()
   
2. bool bBitActivate[16]={0}
   
3. GetData(bBitActivate[0], "Local HMI", LB, 0, 16)//获取全部电磁阀开关状态
   
4. short valveChoosed=0
   
5. GetData(valveChoosed, "Local HMI", LW, 1, 1)//指示哪个电磁阀被选中
   
6. if(1==valveChoosed) then
   
7. bBitActivate[0]=true
   
8. else if(2==valveChoosed) then
   
9. bBitActivate[1]=true
   
10. else if(3==valveChoosed) then
    
11. bBitActivate[2]=true
    
12. else if(4==valveChoosed) then
    
13. bBitActivate[3]=true
    
14. else if(5==valveChoosed) then
    
15. bBitActivate[4]=true
    
16. else if(6==valveChoosed) then
    
17. bBitActivate[5]=true
    
18. else if(7==valveChoosed) then
    
19. bBitActivate[6]=true
    
20. else if(8==valveChoosed) then
    
21. bBitActivate[7]=true
    
22. else if(9==valveChoosed) then
    
23. bBitActivate[8]=true
    
24. else if(10==valveChoosed) then
    
25. bBitActivate[9]=true
    
26. else if(11==valveChoosed) then
    
27. bBitActivate[10]=true
    
28. else if(12==valveChoosed) then
    
29. bBitActivate[11]=true
    
30. else if(13==valveChoosed) then
    
31. bBitActivate[12]=true
    
32. else if(14==valveChoosed) then
    
33. bBitActivate[13]=true
    
34. else if(15==valveChoosed) then
    
35. bBitActivate[14]=true
    
36. else if(16==valveChoosed) then
    
37. bBitActivate[15]=true
    
38. end if
    
39. SetData(bBitActivate[0], "Local HMI", LB, 0, 16)//执行开关
    
40. end macro_command

复制代码

1. macro_command main()
   
2. bool bBitActivate[16]={0}
   
3. GetData(bBitActivate[0], "Local HMI", LB, 0, 16)//获取全部电磁阀开关状态
   
4. short valveChoosed=0
   
5. GetData(valveChoosed, "Local HMI", LW, 1, 1)//指示哪个电磁阀被选中
   
6. if(1==valveChoosed) then
   
7. bBitActivate[0]=false
   
8. else if(2==valveChoosed) then
   
9. bBitActivate[1]=false
   
10. else if(3==valveChoosed) then
    
11. bBitActivate[2]=false
    
12. else if(4==valveChoosed) then
    
13. bBitActivate[3]=false
    
14. else if(5==valveChoosed) then
    
15. bBitActivate[4]=false
    
16. else if(6==valveChoosed) then
    
17. bBitActivate[5]=false
    
18. else if(7==valveChoosed) then
    
19. bBitActivate[6]=false
    
20. else if(8==valveChoosed) then
    
21. bBitActivate[7]=false
    
22. else if(9==valveChoosed) then
    
23. bBitActivate[8]=false
    
24. else if(10==valveChoosed) then
    
25. bBitActivate[9]=false
    
26. else if(11==valveChoosed) then
    
27. bBitActivate[10]=false
    
28. else if(12==valveChoosed) then
    
29. bBitActivate[11]=false
    
30. else if(13==valveChoosed) then
    
31. bBitActivate[12]=false
    
32. else if(14==valveChoosed) then
    
33. bBitActivate[13]=false
    
34. else if(15==valveChoosed) then
    
35. bBitActivate[14]=false
    
36. else if(16==valveChoosed) then
    
37. bBitActivate[15]=false
    
38. end if
    
39. SetData(bBitActivate[0], "Local HMI", LB, 0, 16)//执行开关
    
40. end macro_command

复制代码

具体可以下载例程模拟查看效果。
(, 下载次数: 1)

上传

点击文件名下载附件

---

欢迎光临 工控编程吧 (https://www.gkbc8.com/)

Powered by Discuz! X3.4