Email: Password: Remember Me | Create Account (Free)

Back to Subject List

Old thread has been locked -- no new posts accepted in this thread
???
08/21/00 02:39
Read: times


 
#4575 - RE: VB5 serial code
I've been testing code with VB5 and hyperterm. At 115200 baud, I only get 500bytes/sec. Here is the code.

Private Sub MSComm1_OnComm()
If Len(Text1.Text) > 40000 Then Text1.Text = ""
If MSComm1.CommEvent = comEvReceive Then
If MSComm1.InBufferCount > 1000 And MSComm1.DTREnable = True Then MSComm1.DTREnable = False
If MSComm1.InBufferCount < 200 And MSComm1.DTREnable = False Then MSComm1.DTREnable = True
a = MSComm1.RThreshold
MSComm1.RThreshold = 0
Text1.Text = Text1.Text & MSComm1.Input
MSComm1.RThreshold = a
'DoEvents

End If

End Sub

text1 is just the output. To test the code, I send a 60k text file from Hterm to VB, (COM1 to COM2).

PS. How fast is C++?

Thanks, Ben

List of 7 messages in thread
TopicAuthorDate
VB5 serial code            01/01/70 00:00      
RE: VB5 serial code            01/01/70 00:00      
RE: VB5 serial code            01/01/70 00:00      
RE: VB5 serial code            01/01/70 00:00      
RE: VB5 serial code            01/01/70 00:00      
RE: VB5 serial code            01/01/70 00:00      
RE: VB5 serial code            01/01/70 00:00      

Back to Subject List