Click here to Skip to main content
15,669,603 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
hi guys

i try to recieve data through the usb port but fail and hang system , i m able to send only

What I have tried:

Dim Comm1 As Long
Open "COM6:9600,N,8" .... Read And Write #Comm1
Dim str as string
input #Comm1,,Buff
buff=String$(64," ")
input #Comm1,,Buff
Close #Comm1
Updated 17-Jan-22 4:42am

1 solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900