수다닷컴

AVR만 다뤄보다가 이번에 갑자기 VB로 RFID통신을 다뤄야 할이 생겼는데 제가 VB는 건드려본적이 없어서 열심히 공부해서 하는 중인데 더 이상 진행이 않되서 이렇게 질문을 올려봅니다.

간단하게 RFID통신 구성을 통신포트를 열고, 시리얼 통신으로 (포트4를 이용하고 있습니다.) 16진수 값으로 40 00 60 FF을 전송하면 Response값으로 RFID카드를 대고 있으면 CE A2 21 24값을 받아와야 합니다. 그래서 아래와 같이 소스를 작성하였습니다.

Private Sub Command2_Click()
Dim txbuf(256) As Byte//송신값저장배열버퍼
Dim buff_read(256) As Byte //수신값 저장 배열 버퍼
Dim temp As String, row As Integer //저장 함수와 배열 길이 조정 함수

txbuf(0) = &H4//헥사 값 저장
txbuf(1) = &H0
txbuf(2) = &H60
txbuf(3) = &HFF

MSComm1.Output = txbuf //저장된 값 Output으로 출력

//수신값 저장 부분 제가 막히는 부분이 이 다음 부분입니다. 버퍼값이 0~3이니까 For문으로 3번 저장을 하여서 Input값을 첫번째 byte를 0배열에 두번째 byte를 1배열 이런식으로 하나씩 temp에 차곡차곡 저장하여서 Hex값으로 temp를 출력하여 저장하려고 합니다. 그런데 Input값이 당연히 저장이 않되는군요....MSComm1.Input을 어떤식으로 받아야지 buff_read()에 하나씩 차례대로 저장할 수 있을까요? Input값은 아마 한번에CE A2 21 24로 들어올 것입니다.

For row = 0 To 3
buff_read(row) = MSComm1.Input //0~3값을 저장하는 부분....
temp = temp & & Hex(buff_read(row)) //사실 제가 봐도 될리가 없는데
Next row//해결방법을 모르겠네요...
Text1.Text = UID = + temp //출력
End Sub

지금 소스를 아래 수신부분을 다 지우고

Data = MSComm1.Input
Text1.Text = UID = + Data
End Sub

이렇게만 하면수신값이 있긴 하는데 Hex값 출력도 아니고데이타를 전부 저장한것도 아닌것 같아서 그냥 쓰레기값처럼 표현되서 나오네요....도와주세요 ㅠ

신청하기