the correct use of serial communication events

Arepi

Hi!

I read from emulated serial port (whit usb).It works correctly but with the condition of waitcommevent doesnt. How can use correct the serial events?

Thanks!

Sep 30 '08 #1

KevinADC

I have no idea. Maybe someone else will.

Sep 30 '08 #2

Icecrack

first off use strict if you can,

second:

try put this on one line,

try

don't forget to take out ' ' for your handle.

or

usage for above:

Sep 30 '08 #3

Arepi

first off use strict if you can,

Expand|Select|Wrap|Line Numbers

1. use strict;

second:

try put this on one line,

Expand|Select|Wrap|Line Numbers

1.  $PortObj= new Win32API::CommPort ('com4')
2.        || die "Can't open PortName: $^E\n";  

try

Expand|Select|Wrap|Line Numbers

1.  if ( ($PortObj->WaitCommEvent(com4, EV_RXCHAR, ERROR_IO_INCOMPLETE )) )  
2.          {

don't forget to take out ' ' for your handle.

or

Expand|Select|Wrap|Line Numbers

1.  if ( ($PortObj->WaitCommEvent(com4, EV_RXCHAR, )) )  
2.          {

usage for above:

Expand|Select|Wrap|Line Numbers

1. WaitCommEvent($handle, $Event_Bitmask, $lpOverlapped);

Thanks for help!

I try the code whit use strict but the following message come in promt shell: Bareword "EV_RXCHAR" not allowed while "stricts sub" in use
and same for com4 and ERROR_IO_INCOMPLETE.

Itry this to:
its run but doesnt work like without strict.
any other idea?

Thanks!

Oct 1 '08 #4

Icecrack

Thanks for help!


Itry this to:

Expand|Select|Wrap|Line Numbers

1. if ( ($PortObj->WaitCommEvent('com4', 'EV_RXCHAR' ,  )) ) 

!

did you try:

if so please get back to me with all errors.

thanks

Oct 1 '08 #5

Arepi

did you try:

Expand|Select|Wrap|Line Numbers

1. if ( ($PortObj->WaitCommEvent(com4, 'EV_RXCHAR' ,  )) ) 

if so please get back to me with all errors.

thanks

yes I try all variations : whit srtict and whitout ' ', combackwhit errror:not allowed while "stricts sub" in use
when i use ' ' its run but doesnt use event

Thank you!

Oct 2 '08 #6