📄 test.~tbl

📁 电气控制仿真软件
💻 ~TBL
字号:
<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="8" zoom="200,100" range="0,0,1024,721" caption="设备监控" backcolor="$0" frontcolor="$0" pattern="1">
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="页1" bounds="17,10,254,190.5">
<elliment name="刀闸垂直25" cursor="7" bounds="27,10,61,49" onoff="True">
<text name="Text1" bounds="27,23,49,37" linewidth="2" linecolor="$FFFF" backcolor="$C0C0C0" border="$0" fontname="Arial" fontsize="10" fontcolor="$FFFF" textalign="26" text="492"/>
<line name="Line1" visible="false" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,25,6
61,34,2
</points>
</line>
<line name="Line2" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,10,6
55,19,2
</points>
</line>
<line name="Line3" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,40,6
55,49,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="52,19,58,25" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<shape name="Circle2" type="Circle" bounds="52,34,58,40" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<line name="Line4" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,25,6
55,34,2
</points>
</line>
<shape name="Rect1" bounds="27,10,61,49" origin="48.25,32" linetype="0" pattern="254"/>
<programe>
Private Function GetOnOff()
return Line4.Visible
End Function
Published Function OnClick(Sender)
Sender.OnOff = not Sender.OnOff
End Function
Property OnOff read GetOnOff write SetOnOff
Private Function SetOnOff(AOnOff)
Line4.Visible = AOnOff
Line1.Visible = not AOnOff
End Function
</programe>
</elliment>
<elliment name="刀闸垂直1" cursor="7" bounds="18,100,61,139" onoff="True">
<text name="Text1" bounds="18,113,49,127" linewidth="2" linecolor="$FFFF" backcolor="$C0C0C0" border="$0" fontname="Arial" fontsize="10" fontcolor="$FFFF" textalign="26" text="492-1"/>
<line name="Line1" visible="false" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,115,6
61,124,2
</points>
</line>
<line name="Line2" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,100,6
55,109,2
</points>
</line>
<line name="Line3" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,130,6
55,139,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="52,109,58,115" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<shape name="Circle2" type="Circle" bounds="52,124,58,130" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<line name="Line4" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
55,115,6
55,124,2
</points>
</line>
<shape name="Rect1" bounds="18,100,61,139" origin="42,124" linetype="0" pattern="254"/>
<programe>
Private Function GetOnOff()
return Line4.Visible
End Function
Published Function OnClick(Sender)
Sender.OnOff = not Sender.OnOff
End Function
Property OnOff read GetOnOff write SetOnOff
Private Function SetOnOff(AOnOff)
Line4.Visible = AOnOff
Line1.Visible = not AOnOff
End Function
</programe>
</elliment>
<text name="文字1" bounds="17,147,254,190.5" frontcolor="$808000" pattern="245" fontname="宋体" fontsize="8" fontcolor="$FF" textalign="0" text="说明:
　　这里演示电流在运动。
　　每个刀闸都可以手动开合。
　　在线路通的情况下，红色小球不断运动表示这里有电流通过。"/>
<line name="折线3" linecolor="$FF" endarrow="1">
<points>
39,50,6
39,91,2
</points>
</line>
<line name="折线4" origin="4,-0.5" linecolor="$FF" endarrow="1">
<points>
90,54.5,6
120,54.5,2
</points>
</line>
<elliment name="刀闸垂直2" cursor="7" bounds="118,105,161,144" origin="-18,1" onoff="True">
<text name="Text1" bounds="118,118,149,132" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$C0C0C0" border="$0" fontname="Arial" fontsize="10" fontcolor="$FFFF" textalign="26" text="492-2"/>
<line name="Line1" origin="-18,1" visible="false" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,120,6
161,129,2
</points>
</line>
<line name="Line2" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,105,6
155,114,2
</points>
</line>
<line name="Line3" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,135,6
155,144,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="152,114,158,120" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<shape name="Circle2" type="Circle" bounds="152,129,158,135" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF"/>
<line name="Line4" origin="-18,1" linewidth="2" linecolor="$FFFF" backcolor="$FF" pattern="1">
<points>
155,120,6
155,129,2
</points>
</line>
<shape name="Rect1" bounds="118,105,161,144" origin="158,133" linetype="0" pattern="254"/>
<programe>
Private Function GetOnOff()
return Line4.Visible
End Function
Published Function OnClick(Sender)
Sender.OnOff = not Sender.OnOff
End Function
Property OnOff read GetOnOff write SetOnOff
Private Function SetOnOff(AOnOff)
Line4.Visible = AOnOff
Line1.Visible = not AOnOff
End Function
</programe>
</elliment>
<elliment name="定时器2" bounds="158,46.5,174,62.5" origin="-34,-49.5" visible="false" enable="True" interval="40">
<shape name="Image1" bounds="158,46.5,174,62.5" origin="-34,-49.5" autosize="True" transparent="True" linetype="0">
<picture>
07TBitmap
424D42020000000000004200000028000000100000001000000001001000030000000002000000000000000000000000000000000000007C0000E00300001F00
0000FF7F000000000040FF7F00000000000000000000FF7F004000000000FF7FFF7FFF7FFF7F0040000000000000007C0000007C0000000000000040FF7FFF7F
FF7FFF7FFF7F00000000007CF75EFF7F0000FF7FF75E007C00000000FF7FFF7FFF7FFF7FEF3D0000007CF75E0000FF7FFF7FFF7F0000F75E007C0000EF3DFF7F
FF7FFF7F0000007C007CFF7FFF7F0000FF7FFF7FFF7FFF7F007C007C0000FF7FFF7FFF7F0000007C0000FF7FFF7FFF7F0000FF7FFF7F00000000007C0000FF7F
FF7FFF7F0000007C007CFF7FFF7FFF7F0000FF7FFF7FFF7F007C007C0000FF7FFF7FFF7FEF3D0000007CF75E0000FF7F0000FF7F0000F75E007C0000EF3DFF7F
FF7FFF7FFF7F00000000007CF75EFF7F0000FF7FF75E007C00000000FF7FFF7FFF7F00000000000000000000007C007C007C007C007C00000000000000000000
FF7F0000F75EF75EEF3D0000000000000000000000000000F75EEF3DEF3D0000FF7F0000F75EF75EF75EF75EEF3DEF3D0000EF3DF75EF75EF75EF75EEF3D0000
FF7FFF7F0000EF3DF75EF75E0000EF3D0000EF3D0000F75EF75EEF3D0000FF7FFF7FFF7FFF7FEF3D00000000FF7FFF7F0000FF7FFF7F00000000EF3DFF7FFF7F
FF7FFF7FFF7FFF7FFF7FFF7FFF7F000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
FF7F</picture>
</shape>
<programe>
Property Enable read GetEnable write SetEnable editor Bool
Private Function GetEnable()
  return FEnable
End Function
Private Function GetInterval()
  return FInterval
End Function
Private Function Initialize(Sender)
  FInterval=1000
  Timer=0
  FEnable = false
End Function
Property Interval read GetInterval write SetInterval
Private Function OnDestroy(Sender)
  if Timer &lt;&gt; 0 then
    DestroyTimer( Timer )
    Timer = 0
  end if
End Function
Published Function OnTimer(Sender)
折线2.FlowAnim=(刀闸垂直2.OnOff and 刀闸垂直25.OnOff)折线1.FlowAnim=(刀闸垂直1.OnOff and 刀闸垂直25.OnOff)if 折线1.FlowAnim then  折线1.Flow()end ifif 折线2.FlowAnim then  折线2.Flow()end if
End Function
Private Function SetEnable(AEnable)
  FEnable = AEnable
  if not IsDesign() then
    if Timer &lt;&gt; 0 then
      DestroyTimer( Timer )
      Timer = 0
    end if
    if AEnable then
      Timer = CreateTimer( This, &quot;OnTimer&quot;, FInterval )
    end if
  end if
End Function
Private Function SetInterval(AInterval)
  if AInterval &lt;&gt; FInterval and AInterval &gt;= 1 then
    FInterval = AInterval
    if Timer&lt;&gt;0 then
      DestroyTimer( Timer )
      Timer = CreateTimer( This, &quot;OnTimer&quot;,  FInterval )
    end if
  end if
End Function
</programe>
</elliment>
<elliment name="折线2" bounds="55,73,155,107" origin="195,74" flowanim="True">
<line name="Line1" origin="271,65" linetype="3" linewidth="2" linecolor="$FFFF" linkmode="2">
<points>
55,73,6
155,73,2
155,107,2
</points>
</line>
<line name="Line2" origin="-61,73" visible="false" linetype="2" linewidth="2" linecolor="$FFFF">
<points>
55,73,6
55,73,2
</points>
</line>
<programe>
Public Function Flow()
Line1.Points[0].x = Line1.Points[0].x + 1if Line2.Visible then  Line2.Points[0].x = Line2.Points[0].x + 1  if Line2.Points[0].x - Line2.Points[1].x &gt;= 6 then    Line2.Visible = false    Line1.Points[0].x = Left   end ifelse if Line1.Points[0].x - Left &gt; 6 then  Line2.Visible = true  Line2.Points[0].x = Line1.Points[0].x - 6end ifLine1.Refresh()Line2.Refresh()
End Function
</programe>
</elliment>
<elliment name="折线1" bounds="55,48,55,102" origin="195,49" flowanim="True">
<line name="Line1" origin="271,40" linetype="3" linewidth="2" linecolor="$FFFF" linkmode="2">
<points>
55,48,6
55,102,2
</points>
</line>
<line name="Line2" origin="-61,48" visible="false" linetype="2" linewidth="2" linecolor="$FFFF">
<points>
55,48,6
55,48,2
</points>
</line>
<programe>
Public Function Flow()
Line1.Points[0].y = Line1.Points[0].y + 1if Line2.Visible then  Line2.Points[0].y = Line2.Points[0].y + 1  if Line2.Points[0].y - Line2.Points[1].y &gt;= 6 then    Line2.Visible = false    Line1.Points[0].y = Top  end ifelse if Line1.Points[0].y - Top &gt; 6 then  Line2.Visible = true  Line2.Points[0].y = Line1.Points[0].y - 6end ifLine1.Refresh()Line2.Refresh()
End Function
</programe>
</elliment>
</sheet>
</vg>
💿 文件大小 6325 K
👤 上传用户 zhouliang15
📂 所属分类实用工具
🏷️ 相关标签

#电气控制 #仿真软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -