Purebasic Serial Port Example

OpenConsole() Com = OpenSerialPort(#PB_Any, 'COM1', 1200, #PB_SerialPort_NoParity, 7, 2, #PB_SerialPort_NoHandshake, 64, 64) If Com Buffer$ = Space(14) WriteSerialPortString(Com, 'D', #PB_Ascii) ReadSerialPortData(Com, @Buffer$, 14) PrintN(Buffer$) CloseSerialPort(Com) EndIfBut it is without any checking and without a timeout! (like the QB-Program) And you have to compile it as console program (like the QB program) Bernd P.S.: for a timeout use AvailableSerialPortInput() to check if something is arrived. #Version = '1.00' Procedure Logging(Text$) Protected File File = OpenFile(#PB_Any, ReplaceString(ProgramFilename(), '. The Art Of Ancient Egypt Robbins Pdf File. exe', '.csv')) If File FileSeek(File, Lof(File)) WriteStringN(File, #DQUOTE$ + FormatDate('%yyyy%mm%dd%yy%ii%ss', Date()) + #DQUOTE$ + ';' + #DQUOTE$ + Text$ + #DQUOTE$) EndIf EndProcedure Com = OpenSerialPort(#PB_Any, 'COM1', 1200, #PB_SerialPort_NoParity, 7, 2, #PB_SerialPort_NoHandshake, 64, 64) If Not Com MessageRequester('Error', 'Can not open COM port!'

Effective Serial Port Use - Choice, Utilites, Programming, Virtual. For example your application can only access serial ports from 1 to 10 and Windows assigned your new serial port a number of 11. Well there is a way. I can hear snickers from different programmers over my choice of a Basic variant Purebasic.