Purebasic Serial Port Example

Modbus for TCP RTU over TCP. Bridge RTU over IP Gateway. Modbus for serial RS-485 library. MODBUS TCP Master and Slave. Data Acquisition Products. MODBUS Protocol with LabView samples. Modbus Master library. Modbus bridging serial to TCP/IP for Windows. Embarcadero RAD. Ashta chamma serial songs download. MODBUS data transfer. Samples for PureBasic, Perl.

Define Com.i, Int1.l, Int2.l, Recv.l, Ptr.i Com = OpenSerialPort(#PB_Any, 'COM7', 115200, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 256, 256) If Com Int1 = 123 Int2 = 456 WriteSerialPortData(Com, @Int1, SizeOf(Long)) WriteSerialPortData(Com, @Int2, SizeOf(Long)) Repeat While AvailableSerialPortInput(Com) ReadSerialPortData(Com, @Recv + Ptr, 1) Ptr + 1 Wend Until Ptr = 4 Debug Recv CloseSerialPort(Com) EndIf Maybe a byte swap is needed. I don't know the endianess of the Arduino. Sunline dlya avtokada.

Here is a program to look for any installed serial ports (Com1 - 16). For each port found, an attempt is made to send and receive data, Actually, the data sent is a standard modem request that should return the modem's information if the port has an attached modem. NOTE: This uses several WinAPI calls The code includes examples of: Defining the DCB Setting the COMM State Setting the COMM Timouts Setting the COMM Buffers Purging the COMM Buffers Sending data to a COMx port Receiving data from a COMx port Panel and ListIcon gadget handling SplashMsg (thanks to Vanleth and PB) An executable and the source code is available HERE. Screenshot Hope you find this useful, Terry.