Pages: [1]   Go Down
Author Topic: Ayuda interficie VB - COM3  (Read 1408 times)
0 Members and 1 Guest are viewing this topic.
0
Offline Offline
Newbie
*
Karma: 0
Posts: 9
Arduino rocks
View Profile
 Bigger Bigger  Smaller Smaller  Reset Reset

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!
« Last Edit: April 29, 2012, 09:31:18 pm by coleoptero » Logged

Pages: [1]   Go Up
Jump to: