duvisual.pbs

来自「Profibus 相关调试工具」· PBS 代码 · 共 42 行

Log("Normal Default Text")
Log("Normal Color", 0, 0xFF0000,TRUE)
Log("Bold  Color Text", 1, 0x00FF00,TRUE)
Log("Underline  Color Text", 2, 0x0000FF,TRUE)
Log("Intitic  Color Text", 3, 0x00FFFF,TRUE)
Log("Bold  Underline", 4, 0xFFFF00,TRUE)
Log("Bold  Intltic", 5, 0xFF00FF,TRUE)
Log("Underline  Intltic", 6, 0x888888,TRUE)


Log("&")  --     &
Log(" ") -- space
Log(""")  --    "
Log("&lt;")      --   <
Log("&gt;")     --  >

if GetBit(0,0,0) ~= 0 then
   Log("Bit0 = 1")
else
   Log("Bit0 = 0")
end


local byteValue1 = GetByte( 0, 0 )
local byteValue2 = GetByte( 1, 0 )

if  byteValue1 == byteValue2 then
    Log("Source Value1: " .. byteValue1.. " Euqal Dest Value: ".. byteValue2)
else
    Log("Source Value1: " .. byteValue1.. " Not Euqal Dest Value: ".. byteValue2)
end

local int16Value = GetInt32( 0, 2 )
if  int16Value <= 10 then
    Log("Current is Low",   0, 0x00FF00)
elseif  int16Value <= 20 then
    Log("Current is Middle",0, 0x0000FF)
elseif  int16Value <= 30 then
    Log("Current is High",   0, 0xFF0000)
end