串口通信如何发送和接收数据

[richardvip]

我是新手，先做一个串口通信的简单软件，还望大家帮助，如果能有例子最好，谢谢

[CloneCenter]

http://www.codeproject.com/csharp/serialcommunication.asp
这里有例子。

baidu上可以搜索下。
http://www.baidu.com/s?tn=myie2dg&ie=gb2312&bs=codeproject+serial+vb.net&sr=&z=&cl=3&f=8&wd=codeproject+serialport+vb.net&ct=0

[niewb]

            Dim com As New System.IO.Ports.SerialPort(Me.components)
            Dim s() As Byte = {&HAA, &H11, &HFE, &H1, &H1, &H11}
            com.Open()
            com.Write(s, 0, s.Length)
            com.Close()

[cl9876]

http://topic.csdn.net/u/20080619/08/DCEF3FE2-F95B-4918-8EDB-36D48A3D0528.html
这上头的资料很全

[yj7416]

Private Sub Command1_Click()

'定义所要发送的数据
Dim bytebuf(1 To 12) As Byte
bytebuf(1) = &H55
bytebuf(2) = &H54
bytebuf(3) = &H0
bytebuf(4) = &H0
bytebuf(5) = &H0
bytebuf(6) = &H0
bytebuf(7) = &H0
bytebuf(8) = &H0
bytebuf(9) = &H0
bytebuf(10) = &H0
bytebuf(11) = &HAC
bytebuf(12) = &HFE

'发送数据
MSComm1.Output = bytebuf
'Debug.Print bytebuf(1)


End Sub


Private Sub Form_Load()
MSComm1.Settings = "115200,N,8,1" '设置串口参数
MSComm1.CommPort = 1 '选择串口1
MSComm1.InputMode = comInputModeBinary '设置接收模式为二进制
MSComm1.RThreshold = 1
MSComm1.PortOpen = True '打开串口
MSComm1.InBufferCount = 0 '清空发送缓冲区
End Sub

Private Sub MSComm1_OnComm()
Dim i%
Dim inbyte() As Byte
Select Case MSComm1.CommEvent
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive
'接收事件
Buf = ""
MSComm1.InputLen = 0 'read all input buffer
inbyte = MSComm1.Input '接受数据，接收的数据在mscomm1.input中

'这里根据你的数据格式自己设定
For i = LBound(inbyte) To UBound(inbyte)
Buf = Buf + Hex(inbyte(i))
Next i

Label1.Caption = Buf
Case comEvSend
End Select


End Sub

[gh_li]

路过，学习

[gsmsdn]

最近在做串口通讯项目，这是我自己写的基础的收和发，参考下吧：

Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
slpCom.open()
If txtSendData.Text = "" Then
Exit Sub
End If
If slpCom.IsOpen = True Then
slpCom.WriteLine(txtSendData.Text)
Else
MsgBox("打开串口")
End If

slpCom.close()
End Sub


Private Sub slpCom_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles slpCom.DataReceived
Dim readBuffer(4096) As Byte
Dim intLength As Integer = slpCom.Read(readBuffer, 0, 4096)
Dim bteData(intLength - 1) As Byte
Array.Copy(readBuffer, 0, bteData, 0, intLength - 1)
Me.Invoke(interfaceUpdateHandle, bteData)
End Sub

interfaceUpdateHandle 是个委托，这里你可以自己写想要的方法，
bteData就是接受到的字节流

[aiguoa3]

Imports System.IO.Ports
Dim rs232 As SerialPort
rs232 = New SerialPort(Combo.SelectedItem.ToString, 9600, Parity.None, 8, StopBits.One)
If Not rs232.IsOpen Then
Try
rs232.Open()

Catch ex As Exception
MsgBox("不打开")
End Try

If rs232.IsOpen Then MsgBox("open")
Else
MsgBox("不能打开")
End If