tmpfile.pbs

Profibus 相关调试工具

--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 Text", 4, 0xFFFF00,TRUE)
--Log("Bold  Intltic Text", 5, 0xFF00FF,TRUE)
--Log("Underline  Intltic Text", 6, 0x888888,TRUE)


-- Log("Status Bits:", 1, 0x808080,TRUE)

-- Station Status_1
Log("Station Status_1:", 5, 0x000000,TRUE)

if GetBit(0,0,7) ~= 0 then
   Log("Master_Lock")
end
if GetBit(0,0,6) ~= 0 then
   Log("Prm_Fault", 0, 0xFF0000)
end
if GetBit(0,0,5) ~= 0 then
   Log("Invalid_Slave_Response")
end
if GetBit(0,0,4) ~= 0 then
   Log("Not_Supported")
end
if GetBit(0,0,3) ~= 0 then
   Log("Ext_Diag")
end
if GetBit(0,0,2) ~= 0 then
   Log("Cfg_Fault", 0, 0xFF00FF)
end
if GetBit(0,0,1) ~= 0 then
   Log("Station_not_ready")
end
if GetBit(0,0,0) ~= 0 then
   Log("Station_not_exist")
end

   Log("")

-- Station Status_2
Log("Station Status_2:", 5, 0x000000,TRUE)

if GetBit(0,1,7) ~= 0 then
   Log("Deactivated")
end
if GetBit(0,1,5) ~= 0 then
   Log("Sync_Mode")
end
if GetBit(0,1,4) ~= 0 then
   Log("Freeze_Mode")
end
if GetBit(0,1,3) ~= 0 then
   Log("WD_ON")
end
if GetBit(0,1,1) ~= 0 then
   Log("Stat_Diag")
end
if GetBit(0,1,0) ~= 0 then
   Log("Prm_Req")
end

   Log("")

-- Station Status_3
Log("Station Status_3:", 5, 0x000000,TRUE)
if GetBit(0,2,0) ~= 0 then
   Log("Ext_Overflow")
end

   Log("")

-- //Master_Add
Log("Master Addr: " .. GetByte(0, 3), 0, 0x0000FF,TRUE)
   
   Log("")

-- //Ident_Number
Log("Ident_Number: " ..  string.format("0x%04x", GetUint16(0, 4)) , 0, 0x000000,TRUE)