====== MSB Simple Examples ======

All example source code was tested on the MSB6XX series.

===== STATUS LED ======

<code xbasic>
#include "MSB6XX"
Do
	High 64
	Wait 500
	Low 64
	Wait 500
Loop
</code>

When using Ladder Logic.


<code xbasic>
#include "MSB6XX"
Set Ladder On
Do
	_F(64) = 1
	Wait 500
	_F(64) = 0
	Wait 500
Loop
</code>

Or direct control in Ladder Logic.

<code xbasic>
#include "MSB6XX"
Set Ladder On
Do
Loop
</code>

{{ :cublocmsb:msb_simple_example:flashladderlogic.png?nolink |}}

----
===== Relay On and Off =====

<code xbasic>
#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
</code>

----

===== Input and Output Control =====

Relay 32 on when get High input 8.

<code xbasic>
#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
</code>

Same action at Ladder logic

<code xbasic>
#include "MSB6XX"
Usepin 8,In
Usepin 32,Out
Set Ladder On
Do	
Loop
</code>

{{ :cublocmsb:msb_simple_example:flashladderlogic2.png?nolink |}}

----

===== A/D Input =====

<code xbasic>
#include "MSB6XX"
Dim AD As Integer	
Do
	AD = Adin(0) ' Read ch 0
	Debug Dec AD,Cr
	Delay 1000
Loop
</code>

<code xbasic>
#include "MSB6XX"
Dim AD As Integer	
Do
	AD = Adin(4) ' Read ch 4
	Debug Dec AD,Cr
	Delay 1000
Loop
</code>

Transfer to Ladder Logic.

<code xbasic>
#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
</code>

[[cublocmsb:index|MSB Series]]