All example source code was tested on the MSB6XX series.
#include "MSB6XX" Do High 64 Wait 500 Low 64 Wait 500 Loop
When using Ladder Logic.
#include "MSB6XX" Set Ladder On Do _F(64) = 1 Wait 500 _F(64) = 0 Wait 500 Loop
Or direct control in Ladder Logic.
#include "MSB6XX" Set Ladder On Do Loop
#include "MSB6XX" Do High 64 ' STATUS LED ON High 32 ' RELAY 32 ON Wait 500 Low 64 ' STATUS LED OFF Low 32 ' RELAY 32 OFF Wait 500 Loop
Relay 32 on when get High input 8.
#include "MSB6XX" Do If In(8) = 1 Then High 64 ' STATUS LED ON High 32 ' RELAY 32 ON Else Low 64 ' STATUS LED OFF Low 32 ' RELAY 32 OFF Endif Loop
Same action at Ladder logic
#include "MSB6XX" Usepin 8,In Usepin 32,Out Set Ladder On Do Loop
#include "MSB6XX" Dim AD As Integer Do AD = Adin(0) ' Read ch 0 Debug Dec AD,Cr Delay 1000 Loop
#include "MSB6XX" Dim AD As Integer Do AD = Adin(4) ' Read ch 4 Debug Dec AD,Cr Delay 1000 Loop
Transfer to Ladder Logic.
#include "MSB6XX" Dim AD As Integer Set Ladder on Do AD = Adin(0) 'Read ch 0 _D(10) = AD 'Store to D10 Delay 1000 Loop