Need advice on COM port Programming 1

Hello Adriaan,

Coding for Serial COM's can be difficult. I've done a lot of serial COM programming, talking to weighbridge scales, overhead projectors etc.
In my opinion (and there's probably way better coders than I) the best way to READ data from the serial port is to create a procedure for reading the serial port buffer and call the procedure in the 'Timer' embed of the window. Set the Window's timer value to 50.

Read the entire contents of the buffer on each timer event, and append the data read (if any) into a separate STRING Variable (ex. locataBuffer) - leave the Winevent buffer alone, just concatenate the variable contents to your own buffer variable. You then check your buffer(locataBuffer) for the beginning and end character(s) of a 'valid/complete' 'Data packet'... Since you know what the data 'packet' looks like (how many bates, where each piece of data begins and ends etc. inside your packet.)

Once you have valid packet, extract the data using INSTRING etc. and clear your buffer.
Simple example code:

! Some local Variables
loc:BytesRead Byte ! Just a byte type variable to catch the returnvalue of Winevent's 'ReadPort'
loc:RXBuffer STRING(1000) ! WinEvent's buffer which Readport will fill with whatever it gets from the serial port
locataBuffer STRING(1000) ! My own data buffer

! Code to run on timer event

loc:BytesRead = ReadPort(PortId,loc:RXBuffer,0) ! Read EVERYTHING from serial port (returns QTY bytes read in loc:BytesRead variable)

IF loc:BytesRead THEN ! If P:bytesRead has a value then concatenate read data to my own buffer
locataBuffer = CLIP(locataBuffer) & CLIP(loc:RXBuffer) ! just add whatever is read from port to whatever I have in my buffer
END

! Inspect 'My Buffer' locatabuffer and see if you have a valid and complete packet.
! For example, say my packet start is '~x' and the packet end is '~y' : my packet ~x12345678,123,12345678,abc,123~y

IF LEN(CLIP(locataBuffer)) THEN ! If there's data in 'my' buffer
P#=INSTRING('~x',CLIP(locataBuffer),1,1) ! Search for beginning of packet.
IF P# THEN ! great, found beginning
Q#=INSTRING('~y',CLIP(locataBuffer),1,P#)
IF Q# THEN ! great, found end
! Now you have the start position and end position of a packet.
! You can now slice out whatever data you want from the 'packet'
! For example: to cut the serialnumber out of the example packet:
S# = INSTRING(',',locataBuffer,1,P#+2) ! look for comma, starting at character just after '~x'
IF S# THEN
loc:SerialNumber = locataBuffer[P#+2:S#-1] ! get all values in buffer between ~x and , (will get 12345678)
END

P# = INSTRING(',',locataBuffer,1,S#+1) ! look for next comma starting at character just after previous comma
IF P# THEN
loc:SerialNumber = locataBuffer[S#+1#-1] ! get all values in buffer between , and , ( will get 123 )
END

etc..

! Once you have 'sliced' all the data from the packet, clear your buffer (locataBuffer)
CLEAR(locataBuffer)
END
END
END

Easy .... hope it helps.

Regards.

Thank you so much. It helps me alot.

Hope you have a great day further and thanks again for the example.

Regards,
Adriaan Du Plessis