OpenEuphoria

1. new libraries to access serial ports

• Posted by jacques_desch May 25, 2009
• 3123 views

For those who maybe interested
I written 2 libraries to access serial port
one for windows: http://www.rapideuphoria.com/serial2.zip
one for linux: http://www.rapideuphoria.com/serial.tar.gz

Jacques

3. Re: new libraries to access serial ports

• Posted by ryanj Jul 04, 2009
• 3024 views

Thank you, Jacques! I have been waiting for someone to write serial libraries for euphoria, especially for linux. Some people seem to think serial ports are obsolete, but that's not true. Those of us who tinker with electronics need serial I/O to talk to micro-controllers, GPS, etc.

I will try your libraries soon.

5. Re: new libraries to access serial ports

• Posted by oguim Jul 04, 2009
• 2978 views

Thank you for your prompt answer.

Yes, I tried to use comm config dialog, called by a button. It seems to work, cause the dialog opens...it seems to take the changes to the baud rate, bytes, etc...but when I call it again ,the configuration stays as it was before.... I tried to check by the mode com1 on the command line...also shows no changes...

will you please send me a sample of the simplest program that uses the serial port, so I can check if I am doing something stupid?

Thank you.

7. Re: new libraries to access serial ports

• Posted by daduko Jul 09, 2009
• 2981 views

Is it possible to turn on/off DTR, DSR signals ?

Vlado

9. Re: new libraries to access serial ports

• Posted by jacques_desch Jul 09, 2009
• 3007 views

The flow contol is set by SetCommState() usiing control parameter

-- no flow control 
SetCommState(hComm, "baud:9600,parity:even,bits:8,stop:1,control:none") 
-- software flow control (xon/xoff) 
SetCommState(hComm, "baud:9600,parity:even,bits:8,stop:1,control:soft") 
-- hardware flow control DTR/RTS handshake, CTS and DSR are monitored.  
SetCommState(hComm, "baud:9600,parity:even,bits:8,stop:1,control:hard") 

NOTE from: http://msdn.microsoft.com/en-us/library/aa363214(VS.85).aspx
Enables RTS handshaking. The driver raises the RTS line when the "type-ahead" (input) buffer is less than one-half full and lowers the RTS line when the buffer is more than three-quarters full. If handshaking is enabled, it is an error for the application to adjust the line by using the EscapeCommFunction function.

jacques

11. Re: new libraries to access serial ports

• Posted by lpuster Oct 19, 2010
• 2600 views

Your library works well for me, except for one thing: If I try to read the input stream when there are no bytes in the buffer, the whole computer locks up waiting for data.

How can I test to see if the input buffer is empty or not?

There must be a way to do it, as every terminal program waits for input and displays it whenever it comes without locking up. Can I hook into the serial port interrupt chain?

13. Re: new libraries to access serial ports

• Posted by Fernando Oct 19, 2010
• 2556 views

Hi,

Thanks Jacques for your library. I have been using it with success to test some devices.

Maybe this could help (tested in Windows XP):

include serial.ew 
include get.e 
include misc.e 
 
object val 
integer port, a 
atom hCom1 
 
constant MAXDWORD=#FFFFFFFF 
constant ESC=27 
 
port = 1				-- ADJUST TO YOUR PORT 
  
hCom1 = serial_open(port) 
if hCom1 < 0 then 
	printf(1,"Error opening port %d.\n\n",port) 
	abort(1) 
end if 
-- http://msdn.microsoft.com/en-us/library/aa363190%28v=VS.85%29.aspx 
-- A value of MAXDWORD, combined with zero values for both the ReadTotalTimeoutConstant and ReadTotalTimeoutMultiplier  members, 
-- specifies that the read operation is to return immediately with the bytes that have already been received, 
-- even if no bytes have been received. 
SetCommTimeouts(hCom1,{MAXDWORD,0,0,0,0}) 
SetCommState(hCom1, "baud:9600;parity:none;bits:8;stop:1;control:none") 
 
puts(1,"1) Connect TX and RX (loopback) (pins 2 and 3 in the DB9 connector).\n" & 
       "2) Every key you hit will be send and received by serial port and echoed to the screen.\n" & 
       "3) ESC abort.\n") 
PurgeComm(hCom1,PURGE_RXCLEAR) 
while 1 do 
	a = get_key() 
	if a != -1 then 
		if a = ESC then 
			puts(1,"\nAborted!\n") 
			abort(0) 
		end if 
		serial_puts(hCom1, a)				-- SEND KEY CODE TO SERIAL PORT 
	end if 
	val = serial_getc(hCom1) 
	if val != -1 then 
		puts(1,val) 
	end if 
end while 

P.S.: I had to define MAXDWORD since it's not defined as global in serial.ew.

Regards,
Fernando

15. Re: new libraries to access serial ports

• Posted by coconut Oct 20, 2010
• 2432 views

Yes both on windows xp sp3 and linux I used it with USB-RS232 converter sucessfully. As long as the driver for the converter is installed and functionnal, for application programming this like any other serial port.

But I didn't test the libraries extensively. I written those libraries for a personnal project and as long as it works with my project I'm satisfied with it. As it was written I decided to share it but I don't intent to support it. Use it as it is, or debug and improve it by yourself.

Regards, Jacques

17. Re: new libraries to access serial ports

• Posted by coconut Oct 21, 2010
• 2337 views

Hi Fernando, If you look at the first message of that thread, it is about my serial librairies posted to rds 1 year ago.

regards, Jacques