BytesToRead ' read one byte from buffer 'ByteToRead = SerialPort1.ReadByte() ' read one char from buffer 'CharToRead = SerialPort1.ReadChar() ' read until string "90" readBuffer = SerialPort1. ToCharArray ' get number off bytes in buffer Bytenumber = SerialPort1. DataReceived If comOpen Then Try byteEnd = SerialPort1. Close () End Sub Private Sub SerialPort1_DataReceived ( ByVal sender As System. WriteLine ( "VAL1?" ) End Sub Private Sub Form1_FormClosed ( ByVal sender As System. Message ) End Try End If If comOpen Then SerialPort1. IsOpen Catch ex As Exception comOpen = False MsgBox ( "Error Open: " & ex. Click If comOpen = False Then Try SerialPort1. Empty Private Bytenumber As Integer Private ByteToRead As Integer Private byteEnd ( 2 ) As Char Private comOpen As Boolean Private Sub Button1_Click ( sender As Object, e As EventArgs ) Handles Button1. VB.net Public Class Form1 Private readBuffer As String = String.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |