在文本窗口 右击 属性 字李唤没体 右击 选择 vbs
Function Text_Trigger(Byval Item)
Dim a
Set a=HMIRuntime.Tags("变量")
a.read
If "a= "链没 Then
Item.Text="哪纳内容1"
End If
If "a= " Then
Item.Text="内容2"
End If
......
End Function
希望能帮到你
%给圆心(a,b)返租纳者弊薯回安全系数K
function output=damnk(a,b)
cita=50;
h=50;
c=20;
gama=18;
fi=35;
n=10;
r=(a^2+b^2)^(1/茄伍2);
n1=(a+(r^2-(h-b)^2)^(1/2))/n;