| ??? 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 |
| Topic | Author | Date |
| 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 |



