인터페이스"텍스트

[member_tdh]

안녕!

내 프로젝트의 작품이다 :이 색 적 인 COM 포트에서 데이터를 입력한 다음 텍스트 파일에 데이터를보고 있지만 내 결과입니다 :
"textfile.txt"

E1234567
E12345678910

내가 왜 오류가 발생 몰라!

누구 나 좀 도와 줄래!?정말 고마워요!

전용 서브 MSComm1_OnComm ()
오래 Dim K를 최대한 오래
희미한 버퍼 Variant로
희미한 BytesReceived 바이트 (현재)
문자열로 Dim sRxData
희미한 sRD 마찬가지로 문자열
희미한 FileNum 바이트
희미한 FileName은 문자열로

FileNum = FreeFile
FileName은 =는 "C : \ 문서 및 설정 \ khac Trung Kien \ 바탕 화면 \ DataApr2008.txt"
오픈 FileName을 추가 # FileNum 아니라
MSComm1과 함께
만약. InBufferCount "= 1 다음
nCount = nCount . InBufferCount
Label4.Caption = nCount
Label4.AutoSize = True로

케이스를 선택하십시오. CommEvent
사례 comEvReceive
'버퍼 =. 입력'시리얼 데이터 가져오기
'BytesReceived () = 버퍼
sRxData = sRxData & MSComm1.Input
만약 sRxData = ""그렇다면 = 0 sRxData
전 = 1 렌 (sRxData에 대한)
Text2.Text = Text2.Text & 육각 $ (Asc (월 중순 $ (sRxData, 난, 1)))
다음

인쇄 # FileNum, Text2.Text
닫기 # FileNum

. InBufferCount = 0

최종 선택
최종면

'Debug.Print "받기 -"& Text2.Text
'DataLog (Text2.Text)

최종 함께
End Sub 참고

 

[Guest]

[No message]

 

[laktronics]

안녕,
이벤트를 수집해야하기 전에 당신이 문자를 예상 번호 Rthreshold 값을 설정해야합니다.

안부,
Laktronics