test.tbl

电气控制仿真软件

<points>
126,336.5,6
120,342.5,2
120,364.5,2
126,370.5,2
132,364.5,2
132,342.5,2
126,336.5,2
</points>
</line>
<line name="折线4" origin="84,329.5" backcolor="$FF00" pattern="1">
<points>
126,371.5,6
120,377.5,2
120,399.5,2
126,405.5,2
132,399.5,2
132,377.5,2
126,371.5,2
</points>
</line>
<line name="折线5" origin="84,329.5" backcolor="$FF00" pattern="1">
<points>
91,335.5,6
97,329.5,2
119,329.5,2
125,335.5,2
119,341.5,2
97,341.5,2
91,335.5,2
</points>
</line>
<line name="折线6" origin="84,329.5" visible="false" backcolor="$FF00" pattern="1">
<points>
91,370.5,6
97,364.5,2
119,364.5,2
125,370.5,2
119,376.5,2
97,376.5,2
91,370.5,2
</points>
</line>
<line name="折线7" origin="84,329.5" backcolor="$FF00" pattern="1">
<points>
91,406.5,6
97,400.5,2
119,400.5,2
125,406.5,2
119,412.5,2
97,412.5,2
91,406.5,2
</points>
</line>
<group name="Group">
折线1
折线2
折线5
折线6
折线7
折线3
折线4
</group>
<programe>
Private Function GetValue()
  return FValue
End Function
Private Function Initialize(Sender)
  FValue=0
End Function
Public Function SetValue(AValue)
  Group.Units[0].Visible = ( AValue = 0 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[1].Visible = ( AValue = 0 or AValue = 2 or AValue = 6 or AValue = 8 )
  Group.Units[2].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[3].Visible = ( AValue = 2 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[4].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[5].Visible = ( AValue = 0 or AValue = 1 or AValue = 2 or AValue = 3 or AValue = 4 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[6].Visible = ( AValue = 0 or AValue = 1 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  FValue = AValue
End Function
Property Value read GetValue write SetValue
</programe>
</elliment>
<elliment name="元件3" bounds="132,329.5,180,412.5" origin="36,329.5" value="0">
<line name="折线1" origin="132,329.5" backcolor="$FF00" pattern="1">
<points>
138,336.5,6
132,342.5,2
132,364.5,2
138,370.5,2
144,364.5,2
144,342.5,2
138,336.5,2
</points>
</line>
<line name="折线2" origin="132,329.5" backcolor="$FF00" pattern="1">
<points>
138,371.5,6
132,377.5,2
132,399.5,2
138,405.5,2
144,399.5,2
144,377.5,2
138,371.5,2
</points>
</line>
<line name="折线3" origin="132,329.5" backcolor="$FF00" pattern="1">
<points>
174,336.5,6
168,342.5,2
168,364.5,2
174,370.5,2
180,364.5,2
180,342.5,2
174,336.5,2
</points>
</line>
<line name="折线4" origin="132,329.5" backcolor="$FF00" pattern="1">
<points>
174,371.5,6
168,377.5,2
168,399.5,2
174,405.5,2
180,399.5,2
180,377.5,2
174,371.5,2
</points>
</line>
<line name="折线5" origin="132,329.5" backcolor="$FF00" pattern="1">
<points>
139,335.5,6
145,329.5,2
167,329.5,2
173,335.5,2
167,341.5,2
145,341.5,2
139,335.5,2
</points>
</line>
<line name="折线6" origin="132,329.5" visible="false" backcolor="$FF00" pattern="1">
<points>
139,370.5,6
145,364.5,2
167,364.5,2
173,370.5,2
167,376.5,2
145,376.5,2
139,370.5,2
</points>
</line>
<line name="折线7" origin="132,329.5" backcolor="$FF00" pattern="1">
<points>
139,406.5,6
145,400.5,2
167,400.5,2
173,406.5,2
167,412.5,2
145,412.5,2
139,406.5,2
</points>
</line>
<group name="Group">
折线1
折线2
折线5
折线6
折线7
折线3
折线4
</group>
<programe>
Private Function GetValue()
  return FValue
End Function
Private Function Initialize(Sender)
  FValue=0
End Function
Public Function SetValue(AValue)
  Group.Units[0].Visible = ( AValue = 0 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[1].Visible = ( AValue = 0 or AValue = 2 or AValue = 6 or AValue = 8 )
  Group.Units[2].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[3].Visible = ( AValue = 2 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[4].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[5].Visible = ( AValue = 0 or AValue = 1 or AValue = 2 or AValue = 3 or AValue = 4 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[6].Visible = ( AValue = 0 or AValue = 1 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  FValue = AValue
End Function
Property Value read GetValue write SetValue
</programe>
</elliment>
<elliment name="元件4" bounds="180,329.5,228,412.5" origin="36,329.5" value="0">
<line name="折线1" origin="180,329.5" backcolor="$FF00" pattern="1">
<points>
186,336.5,6
180,342.5,2
180,364.5,2
186,370.5,2
192,364.5,2
192,342.5,2
186,336.5,2
</points>
</line>
<line name="折线2" origin="180,329.5" backcolor="$FF00" pattern="1">
<points>
186,371.5,6
180,377.5,2
180,399.5,2
186,405.5,2
192,399.5,2
192,377.5,2
186,371.5,2
</points>
</line>
<line name="折线3" origin="180,329.5" backcolor="$FF00" pattern="1">
<points>
222,336.5,6
216,342.5,2
216,364.5,2
222,370.5,2
228,364.5,2
228,342.5,2
222,336.5,2
</points>
</line>
<line name="折线4" origin="180,329.5" backcolor="$FF00" pattern="1">
<points>
222,371.5,6
216,377.5,2
216,399.5,2
222,405.5,2
228,399.5,2
228,377.5,2
222,371.5,2
</points>
</line>
<line name="折线5" origin="180,329.5" backcolor="$FF00" pattern="1">
<points>
187,335.5,6
193,329.5,2
215,329.5,2
221,335.5,2
215,341.5,2
193,341.5,2
187,335.5,2
</points>
</line>
<line name="折线6" origin="180,329.5" visible="false" backcolor="$FF00" pattern="1">
<points>
187,370.5,6
193,364.5,2
215,364.5,2
221,370.5,2
215,376.5,2
193,376.5,2
187,370.5,2
</points>
</line>
<line name="折线7" origin="180,329.5" backcolor="$FF00" pattern="1">
<points>
187,406.5,6
193,400.5,2
215,400.5,2
221,406.5,2
215,412.5,2
193,412.5,2
187,406.5,2
</points>
</line>
<group name="Group">
折线1
折线2
折线5
折线6
折线7
折线3
折线4
</group>
<programe>
Private Function GetValue()
  return FValue
End Function
Private Function Initialize(Sender)
  FValue=0
End Function
Public Function SetValue(AValue)
  Group.Units[0].Visible = ( AValue = 0 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[1].Visible = ( AValue = 0 or AValue = 2 or AValue = 6 or AValue = 8 )
  Group.Units[2].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[3].Visible = ( AValue = 2 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[4].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[5].Visible = ( AValue = 0 or AValue = 1 or AValue = 2 or AValue = 3 or AValue = 4 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[6].Visible = ( AValue = 0 or AValue = 1 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  FValue = AValue
End Function
Property Value read GetValue write SetValue
</programe>
</elliment>
<elliment name="元件5" bounds="228,329.5,276,412.5" origin="36,329.5" value="0">
<line name="折线1" origin="228,329.5" backcolor="$FF00" pattern="1">
<points>
234,336.5,6
228,342.5,2
228,364.5,2
234,370.5,2
240,364.5,2
240,342.5,2
234,336.5,2
</points>
</line>
<line name="折线2" origin="228,329.5" backcolor="$FF00" pattern="1">
<points>
234,371.5,6
228,377.5,2
228,399.5,2
234,405.5,2
240,399.5,2
240,377.5,2
234,371.5,2
</points>
</line>
<line name="折线3" origin="228,329.5" backcolor="$FF00" pattern="1">
<points>
270,336.5,6
264,342.5,2
264,364.5,2
270,370.5,2
276,364.5,2
276,342.5,2
270,336.5,2
</points>
</line>
<line name="折线4" origin="228,329.5" backcolor="$FF00" pattern="1">
<points>
270,371.5,6
264,377.5,2
264,399.5,2
270,405.5,2
276,399.5,2
276,377.5,2
270,371.5,2
</points>
</line>
<line name="折线5" origin="228,329.5" backcolor="$FF00" pattern="1">
<points>
235,335.5,6
241,329.5,2
263,329.5,2
269,335.5,2
263,341.5,2
241,341.5,2
235,335.5,2
</points>
</line>
<line name="折线6" origin="228,329.5" visible="false" backcolor="$FF00" pattern="1">
<points>
235,370.5,6
241,364.5,2
263,364.5,2
269,370.5,2
263,376.5,2
241,376.5,2
235,370.5,2
</points>
</line>
<line name="折线7" origin="228,329.5" backcolor="$FF00" pattern="1">
<points>
235,406.5,6
241,400.5,2
263,400.5,2
269,406.5,2
263,412.5,2
241,412.5,2
235,406.5,2
</points>
</line>
<group name="Group">
折线1
折线2
折线5
折线6
折线7
折线3
折线4
</group>
<programe>
Private Function GetValue()
  return FValue
End Function
Private Function Initialize(Sender)
  FValue=0
End Function
Public Function SetValue(AValue)
  Group.Units[0].Visible = ( AValue = 0 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[1].Visible = ( AValue = 0 or AValue = 2 or AValue = 6 or AValue = 8 )
  Group.Units[2].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[3].Visible = ( AValue = 2 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[4].Visible = ( AValue = 0 or AValue = 2 or AValue = 3 or AValue = 5 or AValue = 6 or AValue = 8 or AValue = 9 )
  Group.Units[5].Visible = ( AValue = 0 or AValue = 1 or AValue = 2 or AValue = 3 or AValue = 4 or AValue = 7 or AValue = 8 or AValue = 9 )
  Group.Units[6].Visible = ( AValue = 0 or AValue = 1 or AValue = 3 or AValue = 4 or AValue = 5 or AValue = 6 or AValue = 7 or AValue = 8 or AValue = 9 )
  FValue = AValue
End Function
Property Value read GetValue write SetValue
</programe>
</elliment>
<programe>
Property DigNum read GetDigNum write SetDigNum
Private Function GetDigNum()
  return UnitCount
End Function
Private Function GetValue()
  return FValue
End Function
Private Function Initialize(Sender)
  FValue=0
End Function
Private Function SetDigNum(ADigNum)
  if ADigNum &gt; 6 then
    ADigNum = 6
  end if
  if ADigNum &lt; 1 then
    ADigNum = 1
  end if
  while UnitCount &gt; 1
    DeleteUnit( Units[1] )
  wend
  i=1
  while i &lt; ADigNum
    d=Copy( 元件1 )
    d.Left = 元件1.Left + i * d.Width
    i=i+1
  wend
  Refresh()
End Function
Private Function SetValue(AValue)
  if ( AValue &gt;= 0 ) and ( AValue &lt; 1000000 ) then
    FValue = AValue
    i = UnitCount - 1
    d = AValue
    while i &gt;= 0
      x = Mod( d, 10 )
      Units[i].Value = x
      d = int( d - x ) / 10
      i = i - 1
    wend
  end if
End Function
Property Value read GetValue write SetValue
</programe>
</elliment>
<elliment name="垂直刀闸1" type="垂直刀闸" bounds="373,84,432.5,339" origin="377,99" protect="128" id="102" color="0" datatype="3" value="True">
<line name="Line1" origin="368,81" visible="false" backcolor="$FF" pattern="1">
<points>
390,177.5,6
432.5,245.5,2
</points>
</line>
<shape name="Circle1" type="Circle" bounds="373,143.5,407,177.5" origin="368,81" backcolor="$FF"/>
<line name="Line4" origin="368,81" backcolor="$FF" pattern="1">
<points>
390,177.5,6
390,254,2
</points>
</line>
<shape name="Circle2" type="Circle" bounds="373,254,407,288" origin="368,81" backcolor="$FF"/>
<line name="L2" origin="368,81" linkmode="2">
<points>
390,288,6
390,339,2
</points>
</line>
<line name="L1" origin="368,81" linkmode="2">
<points>
390,143.5,6
390,84,2
</points>
</line>
<group name="Group1">
Line1
Circle1
Line4
Circle2
L2
L1
</group>
<programe>
Property Color read GetColor write SetColor
Private Function GetColor()
return Line1.LineColor
End Function
Private Function GetIsoff()
return Line4.Visible
End Function
Private Function SetColor(AColor)
FColor = AColor
Line1.LineColor = AColor
Line4.LineColor = AColor
L2.LineColor = AColor
L1.LineColor = AColor
Circle1.LineColor = AColor
Circle2.LineColor = AColor
End Function
Private Function SetIsoff(AIsoff)
Line4.Visible = AIsoff
Line1.Visible = not AIsoff
End Function
Property Value read GetIsoff write SetIsoff name 开合 editor Bool
</programe>
</elliment>
</sheet>
</vg>