Software & IDEs HOT큐블럭 프로그래밍 관련 질문 올립니다.

 

 

Const Device = CB400

 Dim data0 As String
 Dim data2 As String
  
 Opencom 3,9600,3,60,60
 Set Until 0,50,&h0A

 

 Opencom 0,9600,3,20,20
 On Recv0 Gosub data0_port_int
 Set Until 0,50,&h0A
 Do
 Loop
 
 Opencom 2,9600,3,20,20
 Set Until 2,50,&h0A
 On Recv2 Gosub data2_port_int
 Do
 Loop

 

Ramclear 

 

data0_port_int:
  data0 = Getstr2(0,20,&h0A)
'  Putstr 3,data0,Cr
Return

 

data2_port_int:
  data2 = Getstr2(2,20,&h0A)
  Putstr 3,data0,data2,Cr
Return