监控设备.tbl

电气控制仿真软件

</line>
<line name="折线22" linecolor="$800000">
<points>
50,70,6
60,70,2
</points>
</line>
<line name="折线23" linecolor="$800000">
<points>
50,80,6
60,80,2
</points>
</line>
<line name="折线24" linecolor="$800000">
<points>
50,90,6
60,90,2
</points>
</line>
<line name="折线25" linecolor="$800000">
<points>
50,100,6
60,100,2
</points>
</line>
<line name="折线26" linecolor="$800000">
<points>
50,110,6
60,110,2
</points>
</line>
<line name="折线27" linecolor="$800000">
<points>
50,120,6
60,120,2
</points>
</line>
<line name="折线28" linecolor="$800000">
<points>
50,130,6
60,130,2
</points>
</line>
<line name="折线29" linecolor="$800000">
<points>
50,140,6
60,140,2
</points>
</line>
<line name="折线30" linecolor="$800000">
<points>
50,150,6
60,150,2
</points>
</line>
<line name="折线31" linecolor="$800000">
<points>
50,160,6
60,160,2
</points>
</line>
<line name="折线32" linecolor="$800000">
<points>
50,170,6
60,170,2
</points>
</line>
<line name="折线33" linecolor="$800000">
<points>
50,180,6
60,180,2
</points>
</line>
<line name="折线34" linecolor="$800000">
<points>
50,190,6
60,190,2
</points>
</line>
<line name="折线37" linecolor="$800000">
<points>
20,40,6
20,190,2
</points>
</line>
<line name="折线38" linecolor="$800000">
<points>
50,40,6
50,190,2
</points>
</line>
<shape name="矩形2" bounds="25,20,46,200" corner="20" linecolor="$800000" pattern="243"/>
<text name="文字4" bounds="0,0,70,20" linecolor="$800000" border="$0" fontname="宋体" fontsize="16" fontcolor="$800000" numberdigital="2" text="18.00"/>
<programe>
Private Function GetValue()
  return 矩形2.Height/10
End Function
Private Function SetValue(AValue)
  FValue = AValue * 10
  矩形2.Height = FValue
  矩形2.Top = 矩形1.Top + 矩形1.Height - FValue
  文字4.Value = AValue
  Refresh()
End Function
Property Value read GetValue write SetValue
</programe>
</sheet>
<sheet name="压力容器">
<shape name="弧线1" type="Arc" bounds="-1,149,149,188" origin="-1,-3" endangle="1" startangle="179" linetype="0" backcolor="$FFFF00" pattern="243"/>
<shape name="矩形1" bounds="0,20,150,172" linetype="0" backcolor="$FFFF00" pattern="243"/>
<shape name="Circle1" type="Circle" bounds="0,0,150,39" backcolor="$808000" frontcolor="$FFFF00" pattern="241"/>
<text name="文字1" bounds="0,8,150,27" border="$0" fontname="宋体" fontsize="16" fontbold="true" fontcolor="$FFFF" numberdigital="2"/>
<programe>
Private Function GetValue()
return 矩形1.Height
End Function
Private Function SetValue(AValue)
if AValue &gt;= 0
  矩形1.Height = AValue
  矩形1.Top = 弧线1.Top - AValue + 弧线1.Height / 2
  Circle1.Top = 矩形1.Top - Circle1.Height / 2
  文字1.Top = Circle1.Top + Circle1.Height / 2 - 文字1.Height / 2
  文字1.Value=AValue
end if
End Function
Property Value read GetValue write SetValue
</programe>
</sheet>
<sheet name="八位信号灯">
<shape name="园形1" type="Circle" bounds="0,0,20,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<shape name="园形2" type="Circle" bounds="30,0,50,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<shape name="园形3" type="Circle" bounds="60,0,80,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<shape name="园形4" type="Circle" bounds="90,0,110,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<shape name="园形5" type="Circle" bounds="120,0,140,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<shape name="园形6" type="Circle" bounds="150,0,170,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<shape name="园形7" type="Circle" bounds="180,0,200,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<shape name="园形8" type="Circle" bounds="210,0,230,20" linewidth="2" linecolor="$FFFFFF" backcolor="$FF" pattern="241"/>
<programe>
Private Function GetBits()
  return FBits
End Function
Private Function Initialize(Sender)
  FBits=0
End Function
Private Function SetBits(ABits)
  FBits = ABits
  v=FBits
  if Mod( v, 2 ) = 0 then
    园形1.BackColor = $FF
  else
    园形1.BackColor = $FF00
  end if
  v=int(v/2)
  if Mod( v, 2 ) = 0 then
    园形2.BackColor = $FF
  else
    园形2.BackColor = $FF00
  end if
  v=int(v/2)
  if Mod( v, 2 ) = 0 then
    园形3.BackColor = $FF
  else
    园形3.BackColor = $FF00
  end if
  v=int(v/2)
  if Mod( v, 2 ) = 0 then
    园形4.BackColor = $FF
  else
    园形4.BackColor = $FF00
  end if
  v=int(v/2)
  if Mod( v, 2 ) = 0 then
    园形5.BackColor = $FF
  else
    园形5.BackColor = $FF00
  end if
  v=int(v/2)
  if Mod( v, 2 ) = 0 then
    园形6.BackColor = $FF
  else
    园形6.BackColor = $FF00
  end if
  v=int(v/2)
  if Mod( v, 2 ) = 0 then
    园形7.BackColor = $FF
  else
    园形7.BackColor = $FF00
  end if
  v=int(v/2)
  if Mod( v, 2 ) = 0 then
    园形8.BackColor = $FF
  else
    园形8.BackColor = $FF00
  end if
End Function
Property Value read GetBits write SetBits
</programe>
</sheet>
<sheet name="垂直分档指示">
<text name="文字1" bounds="0,0,60,20" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字2" bounds="0,20,60,40" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字3" bounds="0,40,60,60" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字4" bounds="0,60,60,80" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字5" bounds="0,80,60,100" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字6" bounds="0,100,60,120" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字7" bounds="0,120,60,140" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字8" bounds="0,140,60,160" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字9" bounds="0,160,60,180" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<text name="文字10" bounds="0,180,60,200" backcolor="$80" pattern="245" fontname="宋体" fontsize="16"/>
<programe>
Private Function GetValue()
  return FValue
End Function
Private Function Initialize(Sender)
  FValue=0
End Function
Private Function OnResize(Sender)
  i=0
  h = Height / 10
  if h &lt; 1 then
    h = 1
  end if
  while i &lt; UnitCount
    Units[i].SetBounds( Left, Top + i * h, Width, h )
    i = i + 1
  wend
  Refresh()
End Function
Private Function SetValue(AValue)
  FValue = AValue
  if FValue &gt; 90 then
    文字1.BackColor = $FF00
  else
    文字1.BackColor = $80
  end if
  if FValue &gt; 80 then
    文字2.BackColor = $FF00
  else
    文字2.BackColor = $80
  end if
  if FValue &gt; 70 then
    文字3.BackColor = $FF00
  else
    文字3.BackColor = $80
  end if
  if FValue &gt; 60 then
    文字4.BackColor = $FF00