Fehlende Serielle Schnittstelle mit der messagebox abfangen..

Fragen zu Raspberry, FritzBox, Microcontroller, UART, etc...
Antworten
linuxer
Foriker
Beiträge: 102
Registriert: Di 7. Nov 2006, 20:47
Kontaktdaten:

Fehlende Serielle Schnittstelle mit der messagebox abfangen..

Beitrag von linuxer » Mo 12. Jun 2017, 19:44

Hallo Leute,

ich stehe momentan etwas auf dem Schlauch und bin auch etwas aus der Übung :(

Ich will "Serialport1.open" mit einer messagebox abfangen, wie mache ich das. Bin bis jetzt im Internet leider nicht fündig geworden.

Das hier..
http://cobecoballes-gambas.blogspot.cz/ ... using.html
verstehe ich nicht so ganz. Nachdem er die Schnittstelle öffnet folgt.

Code: Alles auswählen

 IF ERROR THEN    
Message("No Serial Come Exiting...")
QUIT
ENDIF  
Das funktioniert bei mir aber nicht.

Bei mir kommt "cannot open serialport (6)"

Mein Code sieht folgendermaßen aus..

Code: Alles auswählen

Public Sub verbinden_btn_Click()
 If portstatus = False Then
   Akt_chk.Value = False
   Akt_chk.Enabled = True
   verbinden_btn.Text = "Port Schließen"
   verbinden_btn.Background = &00FF00&
   SerialPort1.PortName = port_box.Text
   SerialPort1.Speed = baud_box.text
   SerialPort1.Parity = parity_box.Index
   SerialPort1.DataBits = data_box.Text
   SerialPort1.StopBits = stop_box.Text
   SerialPort1.FlowControl = 0
   portstatus = True
  
   SerialPort1.Open 
 
   If Error.Code = 6 Then
      Message.Error("keine Schnittstelle gefunden...")
   
    Endif  
 
    
  Else
   verbinden_btn.Text = "Port Öffnen"
   Akt_chk.Value = False
   Akt_chk.Enabled = False
   verbinden_btn.Background = &FF0000&
   portstatus = False
   SerialPort1.Close
 Endif
End
Könnte mich da bitte jemand in die richtige Richtung schieben ? :)

Danke und Gruß
Thomas

Benutzeravatar
gambi
Moderator
Beiträge: 182
Registriert: Mi 8. Mai 2013, 21:46
Kontaktdaten:

Re: Fehlende Serielle Schnittstelle mit der messagebox abfangen..

Beitrag von gambi » Sa 17. Jun 2017, 18:38

Groß/Kleinschreibung beim Portnamen?

gg

Naubaddi
Foriker
Beiträge: 90
Registriert: Di 10. Jan 2012, 21:30
Kontaktdaten:

Re: Fehlende Serielle Schnittstelle mit der messagebox abfangen..

Beitrag von Naubaddi » So 25. Jun 2017, 17:45

Hi,
linuxer hat geschrieben:
Mo 12. Jun 2017, 19:44
...Ich will "Serialport1.open" mit einer messagebox abfangen, wie mache ich das...
fange den Fehler mit Catch ab:
gambas code
Public Function RS232Open()
    blablabla
Catch
    Message("No Serial Come Exiting...")
End
Grüßle
Gruß, Naubaddi

linuxer
Foriker
Beiträge: 102
Registriert: Di 7. Nov 2006, 20:47
Kontaktdaten:

Re: Fehlende Serielle Schnittstelle mit der messagebox abfangen..

Beitrag von linuxer » Mo 26. Jun 2017, 13:11

Danke. Werde ich mal testen :)

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast