6.0 아스키 분해좀 알려주세요.;;

[어린학생]

With MSComm1
        .CommPort = 2
        .Settings = "57600,n,8,1"
        .InputMode = comInputModeBinary
        .RThreshold = 4 '4byte 받으면 이벤트 발생
        .SThreshold = 1
        .InputLen = 4 '수신버퍼 4byte 허용
        .PortOpen = True
    End With
End Sub

4byte 를 받아서 1byte 씩 잘라서 텍스트 박스에 값을 뿌릴려고 합니다.

아스키 분해 하는 법 좀 알려주세요,....제가좀 허접이라..ㅡ..ㅜ

[냐냐냐]

구조체와 LSet을 이용하면 간단하게 분해할 수 있습니다.

[수학쟁이]

대략 이런식으로 해보세요.:

[수학쟁이]

Private Sub MSComm1_OnComm()

[수학쟁이]

Text1.Text = Text1.Text & StrConv(LeftB$(MSComm1.Input, MSComm1.InputLen), vbUnicode)

[수학쟁이]

End Sub

[수학쟁이]

냐냐냐 // 구조체하고 LSet 이야기는 여기서는 좀 무의미한듯 싶군요.

[어린학생]

감사합니다.^^~