Fehlende Serielle Schnittstelle mit der messagebox abfangen..

[linuxer]

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

[gambi]

Groß/Kleinschreibung beim Portnamen?

gg

[Naubaddi]

Hi,

...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

[linuxer]

Danke. Werde ich mal testen