\r\n\r\n
Go Back  Xtreme Visual Basic Talk > Legacy Visual Basic (VB 4/5/6) > General > Mscomm


\r\n \r\n
 
 
Thread Tools Display Modes

\r\n\r\n\r\n
I am having some problem with receiving data for a serial port. There is either no data displayed or strange ascii will appear. Can anyone tell me what changes I should make to this code?
\n
\n \'configure the com port settings
\n \' SerialCom.CommPort = 2
\n SerialCom.Settings = "9600,N,8,1"
\n SerialCom.RThreshold = 0
\n SerialCom.RTSEnable = True
\n
\n \'open the com port
\n On Error Resume Next
\n SerialCom.PortOpen = True
\n
\n \'check if port available
\n If Err Then
\n MsgBox "COM" & SerialCom.CommPort & "is not available"
\n Exit Sub
\n End If
\nSelect Case SerialCom.CommEvent
\n Case comEvReceive
\n Do While SerialCom.InBufferCount
\n inputText.Text = inputText.Text & SerialCom.Input
\n Loop
\n End Select
\n SerialCom.PortOpen = False
\n
\n
\n
\n
\r\n \r\n\r\n
\r\n \r\n\r\n \r\n \r\n\r\n \r\n\r\n \r\n\r\n \r\n\r\n
\r\n \r\n \r\n \r\n \r\n Reply With Quote\r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n
\r\n\r\n \r\n\r\n
\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n \r\n \r\n \r\n \r\n\r\n\r\n\r\n\r\n'; pd[5044] = '\r\n\r\n \r\n\r\n
\r\n
\r\n
\r\n\r\n
\r\n \r\n\r\n\r\n\r\n\r\n\r\n \r\n\r\n\r\n\r\n \r\n
\r\n
\r\n  \r\n #2  \r\n \r\n \r\n \r\n \r\n \r\n
\r\n\r\n
\r\n \r\n Old\r\n \r\n 09-01-2000, 12:44 PM\r\n \r\n \r\n \r\n
\r\n
\r\n \r\n \r\n \r\n \r\n \r\n
BillSoo\'s Avatar\r\n\r\n
\r\n \r\n BillSoo\r\n BillSoo is offline\r\n\r\n\r\n
Prev Previous Post   Next Post Next
  #1  
Old 08-31-2000, 08:52 PM
baddy
Guest
 
Posts: n/a
Question Mscomm


I am having some problem with receiving data for a serial port. There is either no data displayed or strange ascii will appear. Can anyone tell me what changes I should make to this code?

'configure the com port settings
' SerialCom.CommPort = 2
SerialCom.Settings = "9600,N,8,1"
SerialCom.RThreshold = 0
SerialCom.RTSEnable = True

'open the com port
On Error Resume Next
SerialCom.PortOpen = True

'check if port available
If Err Then
MsgBox "COM" & SerialCom.CommPort & "is not available"
Exit Sub
End If
Select Case SerialCom.CommEvent
Case comEvReceive
Do While SerialCom.InBufferCount
inputText.Text = inputText.Text & SerialCom.Input
Loop
End Select
SerialCom.PortOpen = False



Reply With Quote
 


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
 
 
-->