Robert JUHASZ wrote:
> Useful info, I'll do like that.
> Thanks, Robi
>> 2009/9/19 nando <nando_f at ...951...>
>>>> In my Linux serial port experience, serial port devices are named:
>>>> /dev/ttyS0..9 and upwards
>> /dev/ttyUSB0..9 and upwards depending on what is plugged in USB.
>>>> I have done a lot of serial port stuff with Gambas.
>>>> I know that trying to open then with the serial port control
>> will fail is non-exising port. This error can be detected.
>>>> It can be possible to open a port as a test to see if it exists, but you
>> may be changing parameters and stealing chars from an existing connection.
>> I've had this happen too....really messes things up.
>>>> -Fernando
>>>>>> ---------- Original Message -----------
>> From: yuhej <robert1juhasz at ...626...>
>> To: gambas-user at lists.sourceforge.net>> Sent: Fri, 18 Sep 2009 21:08:04 -0700 (PDT)
>> Subject: [Gambas-user] serial port
>>>>>>> Hello,
>>>>>> I can see that Gambas can handle the serial ports which is a very good
>>>>> news
>>>>> for me.
>>> Can someone tell me how can I get the list of the serial ports of my
>>> computer? I wish to make an autodetect function and only allow to select
>>> from the working serial ports.
>>>>>> Robi
>>> --
>>> View this message in context:
>>>>>http://www.nabble.com/serial-port-tp25518421p25518421.html>>>>> Sent from the gambas-user mailing list archive at Nabble.com.
>>>>>>>>>>> ------------------------------------------------------------------------------
>>>>> Come build with us! The BlackBerry® Developer Conference in SF, CA
>>> is the only developer event you need to attend this year. Jumpstart your
>>> developing skills, take BlackBerry mobile applications to market and stay
>>> ahead of the curve. Join us from November 9-12, 2009. Register
>>>>> now!
>>>>>http://p.sf.net/sfu/devconf>>> _______________________________________________
>>> Gambas-user mailing list
>>>Gambas-user at lists.sourceforge.net>>>https://lists.sourceforge.net/lists/listinfo/gambas-user>>>>> ------- End of Original Message -------
>>>>>>>> ------------------------------------------------------------------------------
>> Come build with us! The BlackBerry® Developer Conference in SF, CA
>> is the only developer event you need to attend this year. Jumpstart your
>> developing skills, take BlackBerry mobile applications to market and stay
>> ahead of the curve. Join us from November 9-12, 2009. Register now!
>>http://p.sf.net/sfu/devconf>> _______________________________________________
>> Gambas-user mailing list
>>Gambas-user at lists.sourceforge.net>>https://lists.sourceforge.net/lists/listinfo/gambas-user>>>>> ------------------------------------------------------------------------------
> Come build with us! The BlackBerry® Developer Conference in SF, CA
> is the only developer event you need to attend this year. Jumpstart your
> developing skills, take BlackBerry mobile applications to market and stay
> ahead of the curve. Join us from November 9-12, 2009. Register now!
>http://p.sf.net/sfu/devconf> _______________________________________________
> Gambas-user mailing list
>Gambas-user at lists.sourceforge.net>https://lists.sourceforge.net/lists/listinfo/gambas-user>>Hi, try the code below, I have no problems with the serial port.
PRIVATE Sport AS SerialPort
CONST None AS Integer = 0
PRIVATE Rx AS String
PUBLIC SUB Form_Open()
Sport = NEW SerialPort AS "Sport"
Sport.PortName = "/dev/ttyUSB0"
Sport.Speed = "19200"
Sport.Parity = 0
Sport.DataBits = "8"
Sport.StopBits = "1"
Sport.FlowControl = 0
TRY
Sport.Open()
IF ERROR THEN
TRY Sport.PortName = "/dev/ttyS0"
Sport.Speed = "19200"
Sport.Parity = 0
Sport.DataBits = "8"
Sport.StopBits = "1"
Sport.FlowControl = 0
Sport.Open()
IF ERROR THEN
Message(" Onboard Uart Comm 1 not found -- PROGRAM TERMINATING")
QUIT
ENDIF
ENDIF
END
'******** Get RS232 data ********
PUBLIC SUB Sport_Read()
SLEEP 0.025
TRY READ #Sport, Rx, Lof(Sport)
IF ERROR THEN
GOTO NoRx
ENDIF
IF Len(Rx) > 8 THEN
ListBox1.Add(Rx)
END IF
NoRx:
Rx = ""
END
PUBLIC SUB Form_Close()
Sport.Close()
QUIT
END
Regards
Mike