... ENDIF
ComClose( hComm )
msginfo("puerto cerrado")
ENDIF
****************************************************************************
joop.
Este fuente puede servirte de ayuda.
Saludos.
Salvador Gallardo
/////////////////////////////////////////////
//
// Funciones de comunicacion ...
Search found 7 matches: joop
Searched query: joop
- Tue Oct 23, 2007 7:26 pm
- Forum: FiveWin for Pocket PC
- Topic: Serial Communication
- Replies: 10
- Views: 7726
- Tue Oct 23, 2007 2:27 pm
- Forum: FiveWin para Pocket PC
- Topic: mail
- Replies: 7
- Views: 2162
- Wed Oct 03, 2007 10:50 am
- Forum: FiveWin for Pocket PC
- Topic: Serial Communication
- Replies: 10
- Views: 7726
Serial Communication
Salvador,
Muchas gracias!!!
I will do some testing today.
Regards,
Joop
Muchas gracias!!!
I will do some testing today.
Regards,
Joop
- Tue Oct 02, 2007 8:34 pm
- Forum: FiveWin for Pocket PC
- Topic: Serial Communication
- Replies: 10
- Views: 7726
- Tue Oct 02, 2007 2:53 pm
- Forum: FiveWin for Pocket PC
- Topic: Serial Communication
- Replies: 10
- Views: 7726
- Mon Oct 01, 2007 11:45 am
- Forum: FiveWin for Pocket PC
- Topic: Serial Communication
- Replies: 10
- Views: 7726
- Mon Oct 01, 2007 9:31 am
- Forum: FiveWin for Pocket PC
- Topic: Serial Communication
- Replies: 10
- Views: 7726
Serial Communication
... IF nCharacter > 0
HelpSTR=COM_READ(portnumber,nCharacter) //Read n characters
Pos1 = AT("##",HelpSTR)
IF Pos1 > 0 //Vending <Machine is Up
ret_waarde=.T.
ENDIF
ENDIF
ENDIF
ENDIF
RETURN ret_waarde
I hope somebody can help me to start this issue in a good direction.
Best regards,
Joop
HelpSTR=COM_READ(portnumber,nCharacter) //Read n characters
Pos1 = AT("##",HelpSTR)
IF Pos1 > 0 //Vending <Machine is Up
ret_waarde=.T.
ENDIF
ENDIF
ENDIF
ENDIF
RETURN ret_waarde
I hope somebody can help me to start this issue in a good direction.
Best regards,
Joop