====== 간단한 예제 모음 ======
===== 릴레이 점멸 =====
* 본 소스코드는 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
{{ :msb:msb_simple_example:flashladderlogic2.png?nolink |}}
단순 로직은 레더쪽에서 처리 하는게 간단하다는 것을 알 수 있습니다.
----
===== A/D입력 예제 =====
* 본 소스코드는 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
[[msb:index#예제_모음|상위 페이지로 이동]]