컴파일사 큐블록 MSB624RA-DC 와 LS 인버터 IG5A 485 인버터 통신

0004 지령 주파수로 하면 되겠음. 아래의 예제는 0009 출력 주파수로 했음. 정지시에는 0으로 됨

 

 

-------------------------------------------

큐블록 소스

  #include "MSB6XX" '디바이스 모델을 선언

 Opencom 0,9600,3,100,300  ' 채널 0번 열고 115200bps로 보레이트, 8-N-1, 그리고 500 수신 800 송신 버퍼!

Opencom 1,9600,3,300,300

Opencom 2,9600,3,300,300

   Set Rs232 3, 9600, 3

On Recv3 Gosub RCV_RTN

'On Recv0 Gosub RCV_RTN2

Ramclear

Usepin 8,In,START1 '레더에서 사용할 입출력 포트

Usepin 9,In,START2

Usepin 10,In,START3

Usepin 11,In,START4

Usepin 12,In,START5

 

 

Alias M0 = RST1 '별명 선언

Alias M1 = RST2

Alias M2 = RST3

Alias M3 = RST4

Alias M4 = RST4

 

Set Ladder On '레더의 시작 지시

  Dim A(14) As Byte

Dim B(8) As Byte

 

Dim K As Integer

 

      Dim st1 As String * 3

Dim st2 As String * 3

Dim st3 As String * 3

Dim st4 As String * 3

Dim st5 As String * 3

Dim st6 As String * 4

Dim st7 As String * 3

 

      Dim a1 As Integer

Dim a2 As Integer

Dim a3 As Integer

   

Do

B(0) =  &H01

B(1) =  &H04

B(2) =  &H00

B(3) =  &H09

B(4) =  &H00

B(5) =  &H01

B(6) =  &HE1

B(7) =  &HC8

   Puta 3, B, 8

      

Delay 2000

 

Loop

 

RCV_RTN:

  If Blen(3,0) > 4 Then

    For K = 0 To 5

  A(K)= Get(3,1)

Next

st1 = Dec A(0)

st2 = Dec A(1)

st3 = Dec A(2)

st4 = Dec A(3)

st5 = Dec A(4)

 

     a1 = Val(Dec A(3))

     a2 = Val(Dec A(4))

     a3 = (a1*256) + a2

     st6 = Dec a3

   Waittx 1 ' RS232 포트로 출력 할 수 있는지 확인 후

 

Putstr 1, "GET /xxxx?Type=z1&equip1=" , st1 , "&equip2=" , st2 , "&equip3=" , st3 , "&equip4=" , st4 

Putstr 1, "&equip5=" , st6

Putstr 1, " HTTP/1.1", Cr

Putstr 1, "Host: xxxx.cafe24.com", Cr

Putstr 1, "Connection: close", Cr

Putstr 1, "",Cr

      

Delay 500

Bclr 3,0

  End If

 

Return ' 복귀