LiveCode Forums.

Code: Select all

on ProgramScan
   lock screen
   if PLC_Mode = 1 then
      send "ProgramScan" to me in 100 millisecond
      put the result into ProgamScanResult
      -- Program Update
      UpdateProgram
   else
      cancel ProgamScanResult
   end if
   unlock screen
end ProgramScan

Code: Select all

on UpdateProgram
   
   lock screen

   repeat with RungNumber = 1 to 1
      put "RungNumber = " & RungNumber & cr after fld "TextDisplay"
      repeat with tYCord = 1 to 4  -- X cordinate 
         put cr & cr after fld "TextDisplay"
         repeat with tXCord = 1 to 12  -- Y cordinate
            put cr & "XCord = " & tXCord & " - " after fld "TextDisplay"
            --Examine Object Type - stored in item 4 of array
            -- ** RungNumber,XCord,YCord,ObjectType,ObjectAddress,Data1,Data2,Data3,Data4,Data5,Data6,Data7 
            put item 4 of RungElement[RungNumber,tYCord,tXCord] into Test_1
            Switch Test_1
               -- Input Normally Open
               Case 4
                  put item 5 of RungElement[RungNumber,tYCord,tXCord] into Test_2
                  if char 1 of Test_2 = "I" then
                     put char -1 of Test_2 into Test_3
                     -- Identify the graphic 
                     put RungNumber & "_" & tYCord & "_" & tXCord & "_NO_True" into Test_4
                     -- Set Instruction TRUE indicator
                     if InputTable[Test_3] = "True" then
                        set vis of grc Test_4 to true
                     else
                        set vis of grc Test_4 to false
                     end if
                  end if
                  break
                  
                  -- Input Normally Closed
               Case 5
                  break
            end Switch
            
            --end repeat
         end repeat
      end repeat
   end repeat
   unlock screen
   
end UpdateProgram