VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > VB.net教程 >

  • VB.net使用SerialPort类访问串口

 


    

  1. 

    

    
Public Class Form1
    

    

    2. 

  2. 

    

    
 
    

    

    

    
Dim mySerialPort As New System.IO.Ports.SerialPort
    

    

    3. 

  3. 

    

    
 
    

    

    

    
Delegate Sub DataShow(ByVal myString As String)
    

    

    4. 

  4. 

    

    
 
    

    

    

    
 
    

    

    5. 

  5. 

    

    
 
    

    

    

    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    

    

    6. 

  6. 

    

    
 
    

    

    

    
mySerialPort.Write("at+wmsn" & vbCrLf)
    

    

    7. 

  7. 

    

    
 
    

    

    

    
End Sub
    

    

    8. 

  8. 

    

    
 
    

    

    

    
 
    

    

    9. 

  9. 

    

    
 
    

    

    

    
Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
    

    

    10. 

  10. 

    

    
 
    

    

    

    
If mySerialPort.IsOpen Then
    

    

    11. 

  11. 

    

    
 
    

    

    

    
mySerialPort.Close()
    

    

    12. 

  12. 

    

    
 
    

    

    

    
End If
    

    

    13. 

  13. 

    

    
 
    

    

    

    
End Sub
    

    

    14. 

  14. 

    

    
 
    

    

    

    
 
    

    

    15. 

  15. 

    

    
 
    

    

    

    
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    

    

    16. 

  16. 

    

    
 
    

    

    

    
With mySerialPort
    

    

    17. 

  17. 

    

    
 
    

    

    

    
.PortName = "COM3"
    

    

    18. 

  18. 

    

    
 
    

    

    

    
.DataBits = 8
    

    

    19. 

  19. 

    

    
 
    

    

    

    
.StopBits = IO.Ports.StopBits.One
    

    

    20. 

  20. 

    

    
 
    

    

    

    
.Parity = IO.Ports.Parity.None
    

    

    21. 

  21. 

    

    
 
    

    

    

    
.BaudRate = 115200
    

    

    22. 

  22. 

    

    
 
    

    

    

    
.RtsEnable = True
    

    

    23. 

  23. 

    

    
 
    

    

    

    
.ReceivedBytesThreshold = 1
    

    

    24. 

  24. 

    

    
 
    

    

    

    
AddHandler mySerialPort.DataReceived, AddressOf SerialPort_DataReceived
    

    

    25. 

  25. 

    

    
 
    

    

    

    
.Open()
    

    

    26. 

  26. 

    

    
 
    

    

    

    
End With
    

    

    27. 

  27. 

    

    
 
    

    

    

    
End Sub
    

    

    28. 

  28. 

    

    
 
    

    

    

    
 
    

    

    29. 

  29. 

    

    
 
    

    

    

    
Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
    

    

    30. 

  30. 

    

    
 
    

    

    

    
Dim sp As IO.Ports.SerialPort = sender
    

    

    31. 

  31. 

    

    
 
    

    

    

    
Dim s As String = sp.ReadExisting
    

    

    32. 

  32. 

    

    
 
    

    

    

    
Invoke(New DataShow(AddressOf SerialPort_DataShow), New Object() {s})
    

    

    33. 

  33. 

    

    
 
    

    

    

    
End Sub
    

    

    34. 

  34. 

    

    
 
    

    

    

    
 
    

    

    35. 

  35. 

    

    
 
    

    

    

    
Private Sub SerialPort_DataShow(ByVal myString As String) 
    

    

    36. 

  36. 

    

    
 
    

    

    

    
TextBox1.Text = TextBox1.Text & myString
    

    

    37. 

  37. 

    

    
 
    

    

    

    
End Sub
    

    

    38. 

  38. 

    

    
 
    

    

    

    
End Class
    

    

    39. 




 










    













相关教程