Mit VB über FTDI Roboter steuern

**Der Einsteiger** · 27.03.2013, 12:33

Dann sagt er mir das der Com 1 nicht vorhanden ist. So habe ich also noch das davor geschrieben:

SerialPort1.PortName = TextBox1.Text
SerialPort1.BaudRate = TextBox2.Text

Doch dann sagt er mir ,menn ich auf den Verbinden Button gedrückt habe:
PortName kann nicht bei geöffnetem Anschluss festgelegt werden.

Was jetzt???

**HeXPloreR** · 27.03.2013, 12:41

Wie gut das ich schon aufgehört habe Deine Fragen und Antworten zu lesen....bis jetzt.

Hast Du Port 1 oder 10? Mal schreibst Du so, dann wieder so...

Also Du kannst keinen Port auswählen den Du schon anderweitig geöffnet hast oder mehrfach öffnen willst ... und schon garnicht einen der nicht vorhanden ist bzw an dem nicht die Zielhardware angeschlossen ist.

Der Daniel beweist ziemliche Geduld mit Dir. Ein großes Lob.

**DanielSan** · 27.03.2013, 12:43

COM 1 ist ja auch nicht vorhanden! Dann musst du den Timer mit einem Button enablen und erst den Comport, Baudrate etc zuweisen.

Ich helf ihm alleine! Ich wäre froh wenn hier noch einer helfen würde!

**Der Einsteiger** · 27.03.2013, 12:55

Also erst mal zu HeXPloreR :

Der Daniel beweist ziemliche Geduld mit Dir. Ein großes Lob.

Das finde ich auch ,einen großen Dank.

Hast Du Port 1 oder 10? Mal schreibst Du so, dann wieder so...

Also bei mir ist es Com 10. Doch hat mir das Programm gesagt dass es bei Com1 nicht gefunden hat ,da ich bei dieser Sub vergessen habe den Eingang du deklarieren.

Zu Daniel:

Dann musst du den Timer mit einem Button enablen und erst den Comport, Baudrate etc zuweisen.

Wie genau ??

So ??:::

Code:

Imports System.IO.Ports.SerialPort


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            SerialPort1.PortName = TextBox1.Text
            SerialPort1.BaudRate = TextBox2.Text
            SerialPort1.Open()
            Button1.Enabled = False
            Button2.Enabled = True
            Button3.Enabled = True
            CheckBox1.Enabled = True
            CheckBox2.Enabled = True

        Catch ex As Exception
            MsgBox("Verbindung konnte nicht hergestellt werden")
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If SerialPort1.IsOpen = True Then
            SerialPort1.Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Write("1" & vbCr)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SerialPort1.Write("0" & vbCr)
    End Sub


    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Label1.Text = "LED1 ist an"
            SerialPort1.Write("1" & vbCr)
        Else
            Label1.Text = "LED1 ist aus"
            SerialPort1.Write("0" & vbCr)
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Label2.Text = "LED2 ist an"
            SerialPort1.Write("3" & vbCr)
        Else
            Label2.Text = "LED2 ist aus"
            SerialPort1.Write("2" & vbCr)
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SerialPort1.PortName = TextBox1.Text
        SerialPort1.BaudRate = TextBox2.Text
        SerialPort1.Open()
        If SerialPort1.BytesToRead > 0 Then
            Do
                TextBox3.AppendText(Chr(SerialPort1.ReadByte))
                TextBox3.ScrollToCaret()
                If SerialPort1.BytesToRead = 0 Then
                    Exit Do
                End If
            Loop
        End If
        SerialPort1.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer1.Enabled = True
    End Sub
End Class

Zur Erklärung des Codes : die Checkboxen musst du nicht beachten.

**HeXPloreR** · 27.03.2013, 12:56

Zitat von DanielSan

...

Die beiden? Ich helf ihm alleine! Ich wäre froh wenn hier noch einer helfen würde!

Soso, garnicht gemerkt das Du soooo vergesslich bist

PS: Habe nichts von "beiden" geschrieben :P

**DanielSan** · 27.03.2013, 13:02

Ja so. Probier es doch auch einfach mal aus bevor du hier was fragst. Try and Error ist auch eine Methode zu lernen!

Hab mich wohl verlesen. Sehe jetzt auch das Wort "beiden" nicht mehr.

**Der Einsteiger** · 27.03.2013, 13:13

Also ich hab das jetzt einfach mal getestet ,aber es wird wieder das angezeigt:

**DanielSan** · 27.03.2013, 13:15

Lies doch mal die Fehlermeldung!!! Da steht doch ganz klar was nicht in Ordnung ist!

**Der Einsteiger** · 27.03.2013, 13:21

Ok, habe jetzt mal das gemacht ,was du gesagt hast (mit selber ausprobieren )

Und : Jetzt funktioniert es.
Doch eine Frage : Muss ich den Timer wieder ausschalten ,wenn ich was vom PC aus senden möchte ,oder kann ich trotzdem Empfangen und auch gleichzeitig senden ???

Code:

Imports System.IO.Ports.SerialPort


Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            SerialPort1.PortName = TextBox1.Text
            SerialPort1.BaudRate = TextBox2.Text
            SerialPort1.Open()
            Button1.Enabled = False
            Button2.Enabled = True
            Button3.Enabled = True
            CheckBox1.Enabled = True
            CheckBox2.Enabled = True

        Catch ex As Exception
            MsgBox("Verbindung konnte nicht hergestellt werden")
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If SerialPort1.IsOpen = True Then
            SerialPort1.Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Write("1" & vbCr)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SerialPort1.Write("0" & vbCr)
    End Sub


    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Label1.Text = "LED1 ist an"
            SerialPort1.Write("1" & vbCr)
        Else
            Label1.Text = "LED1 ist aus"
            SerialPort1.Write("0" & vbCr)
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            Label2.Text = "LED2 ist an"
            SerialPort1.Write("3" & vbCr)
        Else
            Label2.Text = "LED2 ist aus"
            SerialPort1.Write("2" & vbCr)
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If SerialPort1.BytesToRead > 0 Then
            Do
                TextBox3.AppendText(Chr(SerialPort1.ReadByte))
                TextBox3.ScrollToCaret()
                If SerialPort1.BytesToRead = 0 Then
                    Exit Do
                End If
            Loop
        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Timer1.Enabled = True
    End Sub
End Class