visualstudio2005中serialport控件访问串口实例2

《visualstudio2005中serialport控件访问串口实例2》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VisualStudio2005中serialPort控件访问串口实例点评:这个例子包括了这个控件几乎所有的操作，非常有参考价值.serialPort是在.netframework2.0中才有的东酋，感觉这个东西和MSCOMM很相似•这里给出的例子是基于vb.net和CSHAPE的,相应的可以在Cshape和C++中使用，基本上都是一样的.ImportsSystemImportsSystem」OPortsImportsSystem.ThreadingEEPublicClassPortChatShared.continueAsBooleanShared_ser

2、ialPortAsSerialPortE由PublicSharedSubMain()IDimnameAsStringIDimmessageAsStringDimsComparerAsStringComparer=StringComparer.OrdinallgnoreCaseDimreadThreadAsThread=NewThread(AddressOfRead)II'CreateanewSerialPortobjectwithdefaultsettings.I_serialPort=NewSerialPort()II'Allowtheusertosett

3、heappropriateproperties._serialPort.PortName=SetPortName(_serialPort.PortName)_serialPort.BaudRate=SetPortBaudRate(_serialPort.BaudRate)_serialPort.Parity=SetPortParity(_serialPort.Parity)_serialPort.DataBits=SetPortDataBits(_serialPort.DataBits)_serialPort.StopBits=SetPortStopBits

4、(_serialPort.StopBits)_serialPort.Handshake=SetPortHandshake(_serialPort.Handshake)Settheread/writetimeouts.serialPort.ReadTimeout=500serialPort.WriteTimeout=500_serialPort.Open()continue=TruereadThread.Start()Console.Write(nName:n)name=Console.ReadLine()Console.WriteLine(MTypeQUIT

5、toexitH)While(_continue)message=Console.ReadLine()IfsComparer.Equals(,,quitM,message)Thencontinue=FalseElse_serialPort.WriteLine(String.Format(n<{0}>:name,message))IEndIfIendwhileIIreadThread.Join()I_serialPort.Close()卜EndSubIE由PublicSharedSubRead()IWhile(_continue)TryDimmessageAsS

6、tring=_serialPort.ReadLine()Console.WriteLine(message)ICatchexAsTimeoutExceptionI'DonothingIEndTryEndWhile卜EndSubI「丨PublicSharedFunctionSetPortName(ByValdefaultPortNameAsString)AsStringIDimnewPortNameAsStringConsole.WriteLine("AvailablePorts:*')DimsAsStringForEachsInSerialPort.GetP

7、ortNames()IConsole.WriteLine(H{0}n,s)INextsConsole.WriteC'COMport({0}):",defaultPortName)InewPortName=Console.ReadLine()IfnewPortName=""ThennewPortName=defaultPortNameIEndIfIReturnnewPortName卜EndFunctionI「PublicSharedFunctionSetPortBaudRate(ByValdefaultPortBaudRateAsInteger)AsInteg

8、erIDimnewBaudRateAsStringC