Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

function senden(nCommand,nBoard,nVal,nCom)
*************************************************************************
static lOpen
local cEmpfang :="",lOk ,x,nCheck

/*
 Kommandos:
 0 NO OPERATION
 1 SETUP Initialisierung
 2 GET PORT Schaltzustände abfragen
 3 SET PORT Port setzten
 4 GET OPTION Optionen abfragen
 5 SET OPTION Optionen setzen
*/

nCheck := DC_XorBits(nCommand,nBoard)
if nCommand # 3 .and. nCommand # 5 //
     nVal := 0                           //nur Kommando schicken
endif
nCheck := DC_XorBits(nCheck,nVal)
cSenden := chr(nCommand) + chr(nBoard) + chr(nVal) + chr(nCheck) 
if empty(lOpen)
     if !COM_OPEN(nCom,100,.T.)
          wmeld("Schnittstelle COM" + ntrim(nCom) + " nicht verfügbar !")
          return NIL
     else
          COM_INIT(nCom,19200,"N",8,1)
          lOpen := .t.
     endif
endif
if com_send(nCom,cSenden) # 0
  piep(1)
endif
dc_pause(.1)
//com_flush(1)
*------------ EMPFANGEN ---------------------------------------------
cEmpfang   := com_read(nCom,100)
return cEmpfang