com schnitstellen abfragen auswerten anzeigen

firegod · 19. September 2010, 23:45

Hallo
habe mich mal dran gemacht und eine kleines programm für mein µc gebastelt.

Das programm soll wenn es fertig gestellt ist für meine Töchter sein das sie wenn sie mit mir am pc sitzen auch einige funktionen eines µc lernen sehen staunen können.

nun zu mein Problem wir besitzen mehrere pc´s und egal an welchen pc ich meinen controller ran schnalle hat das ding immer ein anderen com port.

nun an meinen pc läuft das programm ohne probleme da ich fest com port 3 habe aber das prog ist relativ sensibel wenn es darum geht einen com port zu finden der nicht vorhanden ist = crash .

jetzt habe ich schon eine sehr lange weile im netz gestöbert viele neue ideen gefunden und auch einige ansätze aber irgendwie will ich es einfach nicht raffen wie es geht.

Meine Entwickler Umgeben ist von SharpDevelop und code ist in vb.net geschrieben. SharpDevelop Version : 3.2.0.5777
.NET Version : 2.0.50727.3615

Jetzt wollte ich mal ganz bescheiden nachfragen wie ich eine kleine com port Abfrage hinbekomme und die dann in meiner combobox angezeigt bekomme so das ich mit einem klick auf einen der vorhandenen com ports auch einen von denen öffnen kann.

Ich habe schon viele code´s gesehen weiß nur noch nicht wie ich die lauffähig einbinden kann.

Ich habe mal für die jenigen die mal reinschauen wollen mein gesamtes projekt hoch geladen. nicht wundern ist noch lange nicht fertig und wird noch ein wenig ausgebaut.

Über Hilfen wäre ich und meine Töchter sehr dankbar

peterfido · 20. September 2010, 16:11

Neulich erst hier gehabt

firegod · 23. September 2010, 23:42

Erstmal danke für die antwort leider kann ich mich jetzt erst wieder melden hatte einen kleine Unfall in der Zwischenzeit war ein paar tage im krankenhaus.

Dann sei mal bitte so nett und erklär mir doch wie ich das ganze bei mir einbinde.

eventuell zur Hilfe nahme meines Projektes.

wie kann ich sowas verwenden komme mit dem syntax überhaupt nicht klar immo.
social.msdn.microsoft.com/Foru…ab-436b-be08-7fb7475e0a64

peterfido · 24. September 2010, 21:43

Sharp Develop habe ich nicht. Ich progge Windowsprogramme nur in VB6. Das Beispiel muss halt an .net angepasst werden. Im Prinzip wird versucht einen Comport zu öffnen (müsste unter.net mit try und catch abzufangen sein, wenn es dort die on error Methode nicht mehr gibt). wenn erfolgreich offen, wird was gesendet, worauf die Antwort des Mikrocontrollers bekannt ist. Kommt diese Antwort, ist es der richtige Port. Kommt keine Antwort oder eine andere, dann Port schließen und den nächsten probieren.

firegod · 25. September 2010, 18:55

danke für info habe das mal versucht bekomme es nicht hin scheinbar ist .net nicht das wahre mit sharp develop weil ich habe jetzt meine frage versucht zu lösen in dem ich mir nen tutorial rein gezogen habe nun kann ich fast alles machen aber mit ports und deren handhabe war leider nichts dabei das i-net bringt auch nichts weiteres und ich denke ich habe irgendwoe ein denk fehler mit dem umschreiben vom vb6 zu .net weil mit try/catch bekomme ich es nicht hin werde mal versuchen mich weiter in die materie ein zu lesen und mal sehen wie ich es hin bekomme.

nun habe ich noch ne andere idee das das mit dem comport an sich nicht so dramatisch ist muß ja mein µc nicht unbedingt mir was senden um zu wissen welchen port er benutz das weiß ich schon wenn ich ihn anschliesse und man könnte doch sowas wie ne allgemeine com port abfrage machen welche überhaupt vorhanden sind oder ?

wenn jemand da ne idee hat immer her damit.

gruß Fire

Lightsource · 25. September 2010, 19:50

wie kann ich sowas verwenden komme mit dem syntax überhaupt nicht klar immo.
social.msdn.microsoft.com/Foru…ab-436b-be08-7fb7475e0a64

Dort steht:

Quellcode

ComboBox3.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
If ComboBox3.Items.Count > 0 Then ComboBox3.SelectedIndex = 0

Und das geht bei dir nicht oder was?

fraju · 25. September 2010, 20:01

Hallo

[VB.NET] Bitwackeln mit der seriellen (Abfrage RI u.RxD wird noch gesucht)

Lade das Prog mal,hier werden die Coms auch gelistet.
Vielleicht hilft es!

Gruß

firegod · 27. September 2010, 10:33

das ist doch mal was

nur habe ich wieder ein problem egal wie ich es versuche einzubinden irgendwo mache ich da was falsch passe es ja sogar an mein projekt an aber irgend wie will der nicht^^

vllr kannste ja mal in mein projekt schauen und mir weitere tipps geben

ich glaube es liegt auch daran das es nicht geht

VB.NET-Quellcode

Sub Timer1Tick(sender As Object, e As EventArgs)
if serialport1.BytesToRead > 0 then
Do
textbox1.AppendText (chr(SerialPort1.Readbyte))
textbox1.ScrollToCaret
If SerialPort1.BytesToRead = 0 Then
Exit do
End If
Loop
end if
End Sub

damit will ich vom µc daten empfangen das funktioniert ja auch wenn ich direkt einen com port habe.

kann man nicht einfach eine textbox oder der gleichen erstellen womit man einfach ein port auswählt und connectet ohne irgendwelche abfragen?

fraju · 27. September 2010, 13:16

Hallo
Einen Com auswählen hast du im Bitwackeln.
Doppelklick in die Liste dann neuen Port aktivieren.
Verfolge dies im Quellcode.
Arbeite lieber auch mit Receiver Event und lies die empfangene Variable mit dem Timer aus.

Glaube in deinen Falle kannst du besser mit Delegaten arbeiten,
dann kannst du die Textbox direkt aus dem Receiver Thread laden.
Ohne Timer!

Gruß

firegod · 27. September 2010, 13:51

also ich habe mal dein quellcode durchschaut und bin zu der meinung gekommen das dieser abschnitt für die port abfrage ist

Spoiler anzeigen

VB.NET-Quellcode

Public Function PortTest(ByVal COMPortNummer As Integer) As Boolean
Dim SerialPort1 = "COM1" '*********************
SerialPort1.CommPort = COMPortNummer
On Error Resume Next
SerialPort1.PortOpen = True
'If Err() = 0 Then
If 1 = 0 Then
PortTest = True
SerialPort1.PortOpen = False
Else
PortTest = False
SerialPort1.PortOpen = False
End If
End Function
Public Sub PoTest()
Dim Portzaehler As Integer
For Portzaehler = 1 To 16
If PortTest(Portzaehler) Then
MsgBox("COM" + Str(Portzaehler) + " verfügbar")
End If
Next
End Sub
Private Sub GetSerialPortNames()
' COM ports sehen.
For Each sp As String In My.Computer.Ports.SerialPortNames
ListBox1.Items.Add(sp)
Next
Try
Catch ex As Exception
End Try
''''''''''''''''''''''''''''''''''''''''''''' Label1.Text = ListBox1.FindString(ComVar)
' If ComVar = Str(-1) Then
If ComVar <> String.Empty Then
'MsgBox("" & ComVar & " " & ListBox1.FindString(ComVar))
' If ListBox1.Items(0) = "" Then MsgBox("Keine Com") : Application.Exit()
' ComVar = ListBox1.Items(0)
'ComWahl()
End If
If ListBox1.FindString(ComVar) = -1 Then
TextBoxComX.BackColor = Color.Red
TextBoxComX.Text = ComVar
TextBox1.Enabled = False
Label1.Text = "Neuen Com wählen"
Else
TextBoxComX.Text = ComVar
SerialPort1.Close()
SerialPort1.PortName = ComVar
SerialPort1.Open()
End If
End Sub
Public Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Dim za As Integer
'TextBox1.Text = ListBox1.Items.Count
'Die Listbox durchlaufen
za = ListBox1.SelectedIndex
ComVar = ListBox1.Items(za)
My.Settings.ComVar = ComVar ' variable speichern
My.Settings.Save()
Try
Catch ex As Exception
MsgBox("Port nicht mehr vorhanden Programm beenden")
'Programm benden
Application.Exit()
End Try
TextBoxComX.BackColor = Color.White
TextBoxComX.Text = ListBox1.Items(za)
TextBox1.Enabled = True
CheckBox1.Enabled = False
CheckBox2.Enabled = False
CheckBox3.Enabled = False
TextBox1.Text = "Port Aktivieren"
Button2.Enabled = False
Button3.Enabled = False
End Sub
Private Function GetItemText(ByVal i As Integer) As String
' Return ComboBox1.Items(i).ToString
Return ListBox1.Items(i).ToString
End Function
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then SerialPort1.BreakState = False Else SerialPort1.BreakState = True
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then SerialPort1.DtrEnable = False Else SerialPort1.DtrEnable = True
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked Then SerialPort1.RtsEnable = False Else SerialPort1.RtsEnable = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
abfrage()
End Sub
Private Sub abfrage()
If 1 = 1 Then
Try
If SerialPort1.DsrHolding Then : Label2.BackColor = Color.Red : Else : Label2.BackColor = Color.White : End If
If SerialPort1.CtsHolding Then : Label3.BackColor = Color.Red : Else : Label3.BackColor = Color.White : End If
If SerialPort1.CDHolding Then : Label4.BackColor = Color.Red : Else : Label4.BackColor = Color.White : End If
Catch ex As Exception
Timer1.Enabled = False
MsgBox("Port wurde verändert")
'programm beenden
Application.Exit()
End Try
End If
End Sub

oder blicke ich da schon wieder was nicht.

fraju · 27. September 2010, 14:31

Hallo
Bedenke das es hier erst einmal um die Wahl des Coms geht,nicht Seriell senden/empfangen.
In diesen Primitivbeispiel wird die Seriell nicht "Artgerecht" genutzt.

Hier wird der gewählte Port verändert.

VB.NET-Quellcode

Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
Timer1.Interval = 100
Timer1.Enabled = True
'###############################################
If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
SerialPort1.PortName = ComVar
SerialPort1.Open()
'#################################
CheckBox1.Enabled = True
CheckBox2.Enabled = True
CheckBox3.Enabled = True
ListBox1.Enabled = False
TextBox1.Enabled = False
TextBox1.Text = "Port Aktiv"
ListBox1.Enabled = True
CheckBox1.Checked = True
CheckBox2.Checked = True
CheckBox3.Checked = True
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
Button2.Enabled = True
Button3.Enabled = True
End Sub

[VB 2008] Zwei Hexadezimalwerte per Serieller Schnittstelle übertragen

[VB 2008] Anzeige von Messwerten

Etwas zum Auswählen und senden/empfangen über echte RS232

Gruß

firegod · 27. September 2010, 15:28

ich verstehe es nicht und komme an der sache nicht weiter

könntest du mir ein kleines beispiel schreiben mit 1 textbox 1 listbox und 1 aktivieren zeile

in der textbox soll der verwendete comport stehen listbox die zu verwendeten com port´s stehen welche vorhanden sind und 1 button zum aktivieren des ausgewählten ports.

kannst du das machen komme da einfach nicht mit.

Lightsource · 27. September 2010, 17:06

Leider sagst du überhaupt nicht, was nicht geht.

Ich habe aus dem von dir angegebenen Link zu dem msdn Forum
den entsprechenden Part herauskopiert und hier eingefügt.
Ich hatte diesen Part sogar bei mir ausprobiert, und es hat
funktionniert.

Aber du sagt nicht ob es bei dir geht oder nicht.

Keine Ahnung was du machst und ob du Fehlermeldungen bekommst.
Ich weiß nicht ob du überhaupt weißt wie man Comboboxen programmiert,
oder ob da bei dir denn keine Comports drin stehen, wenn du
das Beispiel ausprobierst.

Von mir wirst du auf diese Weise keine Hilfe erwarten können.

fraju · 27. September 2010, 17:37

vERSUCHS MAL GANZ EINFACH!

Button betätigen
Auslesen deiner Textbox.

Z.B COM1

VB.NET-Quellcode

Private Sub bUTTON_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bUTTON.Click
'###############################################
If SerialPort1.IsOpen Then
SerialPort1.Close()
End If
SerialPort1.PortName = Textbox1.text
SerialPort1.Open()
'#################################
End Sub

Gruß

firegod · 27. September 2010, 17:45

@ lightsource ich sage nicht umsonst das ich das nicht verstehe weil bei euch alles anders ist als bei mir programmieren kenne ich mich schon ein wenig aus leider funktionieren die meisten codes nicht auch wenn ich anpasse an meiner umgebung kommt nur ein abbruch weil er kein port öffnen konnte der angeben wurde deswegen bitte ich um hilfe ich sitze nicht tatenlos rum und probiere seit ewigkeiten.
wenigstens fraju führt mich langsaam an mein gewünschtes erbenis so fraju das macht ist es super klasse so verstehe ich es auch was sol ich euch denn für ne fehler meldung geben wenn es nur nen crash gibt un winblöd mich fragt das zu microsoft zu schicken.

es kann auch sein das es an meine entwickler umgebung liegt das die nicht so igeal ist nun ich habe nun mal ins blaue gegriffen und will jetzt nur noch das hinbekommen.

und fraju vielen dank das du mich dabei unterstützt ich habe schon einiges lernen können weil ich auch gerne mal ausschweife und alles drum herum versuche und somit bin ich schon auf einige gute sachen gestoßen die ich auch gleich verwendet habe.

bitte sei weiter so geduldig und hilf mir daran zu kommen.

dickes danke

peterfido · 27. September 2010, 20:02

Hast Du zwischenzeitlich schon zu Visual Basic von Microsoft installiert?
.Net Framwork auf aktuellem Stand?

Es geht immer noch um das "bloße" automatische erkennen des Com-Ports?
Was musst Du senden und welche Antwort erwartest Du vom uC? Welche Baudrate wird genutzt?

Lightsource · 27. September 2010, 21:13

Form mit SerialPort Komponente Combobox und zwei Buttons

Funktioniert bei mir einwandfrei!

Quellcode

'
' Erstellt mit SharpDevelop.
' Benutzer: Lightsource
' Datum: 27.09.2010
' Zeit: 21:03
'
' Sie können diese Vorlage unter Extras > Optionen > Codeerstellung > Standardheader ändern.
'
Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()
end sub
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
End Sub
Sub Button2Click(sender As Object, e As EventArgs)
Try
With SerialPort1
If .IsOpen() And ComboBox1.Text <> "" Then
.Close()
ElseIf ComboBox1.Text <> "" Then
.PortName = ComboBox1.Text
'.Handshake = IO.Ports.Handshake.XOnXOff
.Handshake = IO.Ports.Handshake.None
.Parity = IO.Ports.Parity.None
.WriteBufferSize = 10
.WriteTimeout = 10
.StopBits = IO.Ports.StopBits.Two
.DataBits = 8
.BaudRate = 9600
.Open()
.Write("AT")
End If
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub Button1Click(sender As Object, e As EventArgs)
If SerialPort1.IsOpen() Then
SerialPort1.Close()
End If
Me.Close()
End Sub
End Class

und das gleiche mit VB2010

Quellcode

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
If ComboBox1.Items.Count > 0 Then ComboBox1.SelectedIndex = 0
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If SerialPort1.IsOpen() Then
SerialPort1.Close()
End If
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
With SerialPort1
If .IsOpen() And ComboBox1.Text <> "" Then
.Close()
ElseIf ComboBox1.Text <> "" Then
.PortName = ComboBox1.Text
'.Handshake = IO.Ports.Handshake.XOnXOff
.Handshake = IO.Ports.Handshake.None
.Parity = IO.Ports.Parity.None
.WriteBufferSize = 10
.WriteTimeout = 10
.StopBits = IO.Ports.StopBits.Two
.DataBits = 8
.BaudRate = 9600
.Open()
.Write("AT")
End If
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

firegod · 28. September 2010, 16:36

ahh lightsource du hast mir die augen geöffnet.

dank dir schon mal einen ganzen schritt weiter man sollte schon unterscheiden können was .net ist und vb 2010 somit ist es mir klar geworden wieso es nicht gefunzt hat werde noch ein wenig testen und dann bescheid geben wie es läuft.

vielen vielen dank jetzt schon mal werde mein fertiges projekt dann hier frei zur verfügung stellen.

ann alle anderen großen dank für die große hilfe die ihr geleistet habt.

ich hoffe ich darf wenn ich wieder probleme bekomme auf eure hilfe zurückgreifen? :thumbup:

edit:
jetzt habe ich es mal bei mir eingebaut und nun kommt diese fehler meldung
Microsoft.VisualBasic.ApplicationServices.NoStartupFormException: A startup form has not been specified.
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run
bei jetzt_richtig.My.MyApplication.Main

edit: nach ner kurzem weile kam ich drauf das was fehlt und zwar:
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = My.Forms.MainForm
end sub
End Class
ich verstehe zwar nicht ganz was das macht aber nun mehr habe ich ein anderes problem ..
System.InvalidOperationException: The port is closed.
bei System.IO.Ports.SerialPort.get_BytesToRead
bei jetzt_richtig.MainForm.Timer1Tick in C:\Dokumente und Einstellungen\Gaby\Eigene Dateien\SharpDevelop Projects\jetzt richtig\jetzt richtig\MainForm.vb:Zeile 57
bei System.Windows.Forms.Timer.OnTick
bei TimerNativeWindow.WndProc
bei System.Windows.Forms.NativeWindow.DebuggableCallback
bei ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop
bei ThreadContext.RunMessageLoopInner
bei ThreadContext.RunMessageLoop
bei System.Windows.Forms.Application.Run
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel
bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run
bei jetzt_richtig.My.MyApplication.Main

wie kann ich das jetzt umgehen

ok das problem liegt hier

VB.NET-Quellcode

Sub Timer1Tick(sender As Object, e As EventArgs)
if serialport1.BytesToRead > 0 then
Do
textbox1.AppendText (chr(SerialPort1.Readbyte))
textbox1.ScrollToCaret
If SerialPort1.BytesToRead = 0 Then
Exit do
End If
Loop
end if
End Sub

edit: habe jetzt mal einfach

VB.NET-Quellcode

Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()
serialport1.open ' das hier eingebunden
'

da das programm zu testzwecken jetzt nur com1 findet und keine weiteren habe ich mal com 1 genommen und einfach dadrauf was gesendet da kam die gleiche fehler meldung wie beim letzten mal das der port wohl geschlossen sei kann das sein das nichts am com port angeschlossen ist das es deswegen ist ??

zu meinem problem mit dem timer ich kann doch bestimmen wann der enable ist oder nicht ?

habe mal gebastelt

Spoiler anzeigen

kann man es so belassen ??

Lightsource · 28. September 2010, 19:37

braucht deine Programmiersprache kein Handles für ?

Sub Button19Click(sender As Object, e As EventArgs)

firegod · 28. September 2010, 20:29

braucht deine Programmiersprache kein Handles für ?

Sub Button19Click(sender As Object, e As EventArgs)

scheinbar nicht ich habe gerade mal nachgeschaut wird wohl automatisch gemacht.

com schnitstellen abfragen auswerten anzeigen

com schnitstellen abfragen auswerten anzeigen

War schon mal da...

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben