* 본 소스코드는 MSB624RA-DC에서 실험되었습니다.

#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

* 본 소스코드는 MSB624RA-DC에서 실험되었습니다.

입력 8번이 ON되면 STATUS LED와 릴레이 32번을 ON하는 프로그램입니다.

#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

같은 동작을 레더쪽에서 하도록 할 수 있습니다.

#include "MSB6XX"
Usepin 8,In
Usepin 32,Out
Set Ladder On
Do	
Loop

단순 로직은 레더쪽에서 처리 하는게 간단하다는 것을 알 수 있습니다.

* 본 소스코드는 MSB624RA-DC에서 실험되었습니다.

A/D입력 을 수행하는 프로그램입니다. 결과는 PC상의 Debug창에 표시합니다.

0부터 3번 채널까지는 0~20mA 입력만 가능합니다.

#include "MSB6XX"
Dim AD As Integer	
Do
	AD = Adin(0) '0번 채널을 읽어옵니다.
	Debug Dec AD,Cr
	Delay 1000
Loop

4부터 7번 채널까지는 0~10VDC 입력만 가능합니다.

#include "MSB6XX"
Dim AD As Integer	
Do
	AD = Adin(4) '4번 채널을 읽어옵니다.
	Debug Dec AD,Cr
	Delay 1000
Loop

A/D입력값을 레더쪽으로 전송하는 경우

#include "MSB6XX"
Dim AD As Integer	
Set Ladder on
Do
	AD = Adin(0) '0번 채널을 읽어옵니다.
        _D(10) = AD  '결과값을 레더 데이터영역 D10에도 저장합니다. 
	Delay 1000
Loop

상위 페이지로 이동