?? 監(jiān)控設備.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 >= 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=AValueend 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 < 1 then h = 1 end if while i < 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 > 90 then 文字1.BackColor = $FF00 else 文字1.BackColor = $80 end if if FValue > 80 then 文字2.BackColor = $FF00 else 文字2.BackColor = $80 end if if FValue > 70 then 文字3.BackColor = $FF00 else 文字3.BackColor = $80 end if if FValue > 60 then 文字4.BackColor = $FF00?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -