用VB实现以下功能；
设备运行状态、红色；
设备停止状态、绿色；
设备故障状态、闪黄色；
当设备发出打开状态信号而设备的运行反馈信号还未到达时、闪红色；
当设备发出关闭信号而设备停止反馈信号还未到达时、闪绿色；
//i01设备停止；I03设备故障；I07为设备运行
//设备运行的启动脉冲信号为SB_1 ；运行反馈//信号为P1
//设备停止的脉冲信号为SB_2;停止的反馈信号为P2
Function BackColor_Trigger(ByVal Item)
Dim I01,I03,I07I01=HMIRuntime.Tags("I01").Read
I03=HMIRuntime.Tags("I03").Read
I07=HMIRuntime.Tags("I07").Read
Item.BackColor=vbWhite
If I01 Then Item.BackColor= vbGreen
If I03 Then Item.BackColor=&H808080 '#灰色
If I07 Then Item.BackColor= vbRed
End Function
上面的代码不全请高手看看哪些地方需要补充以下；
最佳答案
1、既然是在BackColor_Trigger中，应该用以下代码返回颜色:
dim iColorRet
'根据条件并对iColorRet赋值
BackColor_Trigger=iColorRet
2、你需要在"背景颜色"、"闪烁背景激活"、"闪烁背景颜色开"等属性中编写脚本，或者采用动态对话框：
背景颜色：iColorRet=vbWhite
if I07 then iColorRet = vbRed
if I01 then iColorRet = vbGreen
闪烁背景激活：
if I03 or (SB_1 AND NOT P1) OR (SB_2 AND NOT P2) then
FlashBackColor_Trigger = true
else
FlashBackColor_Trigger = false
end if
闪烁背景颜色开：
iFlashColorRet=vbWhite
if I03 then iFlashColorRet=vbYellow '#闪黄色
if (SB_1 AND NOT P1) then iFlashColorRet=vbRed '#闪红色
if (SB_2 AND NOT P2) then iFlashColorRet=vbGreen '#闪绿色
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc275272.html
微信扫一扫 
支付宝扫一扫 