-         
Ergebnis 1 bis 2 von 2

Thema: Zeilenumbruch via RS232

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    19.08.2011
    Beiträge
    59

    Zeilenumbruch via RS232

    Anzeige

    SMARTPHONES & TABLETS-bis zu 77% RABATT-Kostenlose Lieferung-Aktuell | Cool | Unentbehrlich
    Hallo!!

    Ich möchte übungshalber einen Kleinen String verschicken.

    Damit es mein Arduino versteht, muss nach dem Text ein Zeilenumbruch sein.

    Mein Code:

    Imports System.IO.Ports.SerialPort

    Public Class Form1

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

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

    'Verfügbare Comports suchen
    Dim ports As String() = GetPortNames()
    Dim Port As String

    'Combobox richtig sortieren
    ComboBox_Comport.Items.Clear()

    If ports.Length > 0 Then

    ' für alle COM-Nr. < 10 ein Leerzeichen einfügen
    For ii As Integer = 0 To (ports.Length - 1)
    If CInt(ports(ii).Substring(3)) < 10 Then
    ports(ii) = "COM " & ports(ii).Substring(3)
    End If
    Next

    Array.Sort(ports)

    ' das Leerzeichen in "COM x" wieder entfernen
    For ii As Integer = 0 To (ports.Length - 1)
    ports(ii) = "COM" & ports(ii).Substring(3).Trim
    Next

    End If

    'In die Combobox übernehmen
    For Each Port In ports
    ComboBox_Comport.Items.Add(Port)
    Next Port

    'Buttons setzen
    Button_Disconnect.Enabled = False
    Button_Connect.Enabled = False
    Button1.Enabled = False
    Button3.Enabled = False

    End Sub

    Private Sub ComboBox_Comport_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_Comport.SelectedIndexChanged

    'Comport auswählen
    If ComboBox_Comport.SelectedItem <> "" Then
    Button_Connect.Enabled = True
    End If

    End Sub

    Private Sub Button_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Connect.Click

    'Comport verbinden
    Try

    'Buttons freigeben-/ sperren
    Button_Connect.Enabled = False
    Button_Disconnect.Enabled = True
    ComboBox_Comport.Enabled = False
    Button1.Enabled = True
    Button3.Enabled = True

    'Comport Einstellungen
    SerialPort1.PortName = ComboBox_Comport.Text
    SerialPort1.BaudRate = 9600
    SerialPort1.Open()

    Timer1.Enabled = True

    Catch ex As Exception

    'Fehlermeldung
    MessageBox.Show("Achtung die Schnittstelle konnte nicht geöffnet werden! " + e.ToString _
    , "Ausnahmefehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Button_Connect.Enabled = True
    Button_Disconnect.Enabled = False
    ComboBox_Comport.Enabled = True

    End Try

    End Sub

    Private Sub Button_Disconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Disconnect.Click

    'Verbindung trennen
    SerialPort1.Write(ChrW(100))
    Timer1.Enabled = False
    Button_Connect.Enabled = True
    Button_Disconnect.Enabled = False
    ComboBox_Comport.Enabled = True
    Button1.Enabled = False
    Button3.Enabled = False
    SerialPort1.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If SerialPort1.IsOpen Then
    SerialPort1.Write("Ein")
    SerialPort1.NewLine()
    End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    If SerialPort1.IsOpen Then
    SerialPort1.Write("Aus")
    SerialPort1.NewLine
    End If
    End Sub
    End Class

    Wie kann ich Statt dem " SerialPort1.NewLine()" einen Zeilenumbruch machen?

    Danke für eure Hilfe!!

  2. #2
    Erfahrener Benutzer Begeisterter Techniker Avatar von Picojetflyer
    Registriert seit
    03.08.2004
    Ort
    Sauerland
    Beiträge
    247
    Probiere mal ein CHR$(13) zu senden

Ähnliche Themen

  1. Rn-Control (RS232) mit einem USB-to-RS232- Adapter unter Win7 64 bit
    Von Liquidator im Forum Schaltungen und Boards der Projektseite Mikrocontroller-Elektronik.de
    Antworten: 4
    Letzter Beitrag: 17.04.2011, 23:16
  2. Zeilenumbruch Display LCD
    Von TobiasBlome im Forum Basic-Programmierung (Bascom-Compiler)
    Antworten: 11
    Letzter Beitrag: 08.10.2009, 22:31
  3. Antworten: 1
    Letzter Beitrag: 17.06.2008, 23:08
  4. Zeilenumbruch
    Von habunus im Forum Basic-Programmierung (Bascom-Compiler)
    Antworten: 7
    Letzter Beitrag: 09.11.2007, 08:08
  5. Serielle Ausgange mit print ohne Zeilenumbruch
    Von boeseTURBO-CT im Forum Basic-Programmierung (Bascom-Compiler)
    Antworten: 1
    Letzter Beitrag: 02.07.2005, 16:15

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •