Go Down

Topic: Ayuda interficie VB - COM3 (Read 1 time) previous topic - next topic

adumet

Feb 05, 2011, 01:08 pm Last Edit: Apr 30, 2012, 04:31 am by coleoptero Reason: 1
Buenas foreros!

Este es el codigo de mi aplicacion en Visual Basic 2010:

Public Class Form1

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

       Dim cad As String
       cad = ReceiveSerialData()
       Me.TextBox1.Text = cad
   End Sub
   Function ReceiveSerialData() As String
       ' Receive strings from a serial port.
       Dim returnStr As String = ""

       Dim COM3 As IO.Ports.SerialPort = Nothing
       Try
           COM3 = My.Computer.Ports.OpenSerialPort("COM3")
           COM3.ReadTimeout = 10000
           Do
               Dim Incoming As String = COM3.ReadLine()
               If Incoming Is Nothing Then
                   Exit Do
               Else
                   returnStr &= Incoming & vbCrLf
               End If
           Loop
       Catch ex As TimeoutException
           returnStr = "Error: Serial Port read timed out."
       Finally
           If COM3 IsNot Nothing Then COM3.Close()
       End Try

       Return returnStr
   End Function

End Class


-->Tengo un simple formulario con un TextBox i un boton.
-->El Arduino lo tengo conectado al COM3.Este lee datos de temperatura,pression y humedad.
-->El programa debería leer el puerto serie COM3 y mostrarlo en el texbox.
No me salen errores de codigo pero me sale esto:


Excepción del tipo 'System.UnauthorizedAccessException' en System.dll
Excepción del tipo 'System.UnauthorizedAccessException' en System.dll


Si alguien me puede ayudar....

Un saludo!

Go Up