회원가입 ID/PW 찾기
AA
 
<style>body, table, tr, td, select, textarea { color:#565656; font-family:dotum, Tahoma; }.mailBodyOutlookFontSize{font-size:12px;}</style>
먼저 바쁘신데 죄송합니다.
큐블럭을 공부하고 있는 사람입니다.
아주 간단한 프로그램을 만들고 있는데 생각처럼 출력이 나오질 않아서 도움을 받을수 있을까 해서 질문 올립니다.
 
우선 0,2번포트에서 입력 받은 값을 3번 포트로 출력하는 프로그램입니다.
예) 0번 포트 입력 : abcd
      2번 포트 입력 : efgh
      3번 포트 출력  : abcdefgh
이러한 형식의 프로그램을 만들고 있습니다.
0번포트 에서 3번포트, 2번포트에서 3번포트 각각 독립적인 프로그램을 구동시 동작을 하지만,
입력을 2개를 넣을경우 0번포트는 출력을 보내지만 2번포트는 동작을 안하더군요...ㅡㅡ;
아래에 짧지만 코딩한 내용을 첨부하였습니다..
어떤 부분을 수정해야 원하는 결과를 얻을수 있을지 도움을 받을수 있을까요?
그럼 더운 날씨지만 수고하십시요..
 
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
댓글 1
  • No Profile

    data2_port_int 에서 Putstr 사용법이 틀리지 않았나요?

    Qblock 사용할때 출력 파라메터들 형태가 정확하지 않은면 제대로 동작하지 않은 경험이 있어서요.

    data0와 data2를 미리 합친 후에 Putstr로 출력해 보시는것은 어떤가요?

하드웨어 설계 및 개발에 대하여 개발자들이 자유롭게 토론하는 공간입니다.
- Q&A, 자유주재 토론, 관련 정보 공유
- 분야 : 마이크로프로세서 응용, 전기/전자(아날로그/디지털) 회로 설계, C/C++ 프로그래밍, 펌웨어,
         PCB Artwork, 트러블슈팅 등 하드웨어 설계에 관한 전반인 내용
※ 게시글에 맞는 분류를 선택하여 글을 작성해 주시면 쾌적한 사이트 운영에 많은 도움이 됩니다.
※ 하드웨어 인사이트는 회원들간의 거래정보를 게재할 뿐이지, 그 어떤 책임과 의무도 가지지 않습니다.

search
번호 분류 제목 글쓴이 조회 수 날짜
등록된 글이 없습니다.
  • 돈을 사랑하는 것은 모든 악의 근원이라고 전해진다. 돈의 결핍도 마찬가지로 악의 근원이다.
    - 버틀러
  • * 납포인트 정보 *
  • 글 작성 : 3
  • 댓글 작성 : 1
  • 내 글이 추천받음 : 1
저작권법에 위배되는 콘텐츠는 등록 불가하며, 저작물에 대한 권리는 저작자에게 있습니다.
Copyright 2006-2021 © hardwareis.com, All rights reserved.