Thanks!you really made it the great! Itays Hi,My code is as below and I used exactly the same from the working example. However, I got an error ' Compile error: Sub or function not defined'Would you mind to share with me the code see if which part of the code I might have missed.Thanks. Sub TESTIOICC() Dim intPortID As Integer ' Ex. 1, 2, 3, 4 for COM1 - COM4 Dim lngStatus As Long Dim strError As String Dim strData As String ' Initialize Communications lngStatus = CommOpen(intPortID, 'COM' & CStr(intPortID), _ 'baud=9600 parity=N data=8 stop=1') If lngStatus 0 Then ' Handle error. LngStatus = CommGetError(strError) MsgBox 'COM Error: ' & strError End If ' Set modem control lines.

Tools for Embedded Developers. Tools for Embedded Systems. We're tool makers and tool users. Embedded developers - both those doing hardware work and those crafting. Tools for Embedded Developers. Tools for Embedded Systems. We're tool makers and tool users. Embedded developers - both those doing hardware work and those crafting.

Tera Term Serial Macro Examples. Hence, a serial terminal application (like Tera Term/Hyper. Terminal/minicom) should be running on the host. Lazy Cam Software. Is there any way to obtain TTL files format output to a text file? Software Penangkap Wifi. What I do is I'm using txt file to send command to multiple Tera Term windows, but some TTL script are written as program language, hence I need to convert before sending it into Tera Term. Can you post a more.

LngStatus = CommSetLine(intPortID, LINE_RTS, True) lngStatus = CommSetLine(intPortID, LINE_DTR, True) ' Write data to serial port. LngSize = Len(strData) lngStatus = CommWrite(intPortID, strData) If lngStatus lngSize Then ' Handle error.

Download Prince Valiant Comics Rapidshare Downloader. End If ' Read maximum of 64 bytes from serial port. LngStatus = CommRead(intPortID, strData, 64) If lngStatus >0 Then ' Process data. ElseIf lngStatus.