das ist jetzt so garnicht meine Welt. Aber ich muß da halt ran ...
Es geht darum, das ich die Gewichte von einer Waage abholen muß. Analog zu einem bestehenden Codeteil und dem Sample von Alaska habe ich das mal so gemacht:
Code: Alles auswählen
LOCAL lErfolgreich := .F.
LOCAL nComPort := 3
LOCAL lOldhandshakeHard := .F.
LOCAL lOldHandshakeSoft := .F.
LOCAL cSignal := "WEI.GRO" + Chr(13) + Chr(10)
LOCAL lInitialisiert := .F.
LOCAL lComGeoeffnet := .F.
LOCAL nBytesNichtGesendet := 0
LOCAL cZeichen := ""
lComGeoeffnet := Com_Open(nComPort)
IF lComGeoeffnet
lInitialisiert := Com_Init(nComPort, 9600, "N", 8, 1)
lOldhandshakehard := COM_HARD(nComPort, .T.)
lOldHandshakeSoft := COM_SOFT(nComPort, .F.)
lErfolgreich := COM_READMODE(nComPort, READ_TIMEOUT, 100)
lErfolgreich := COM_SENDMODE(nComPort, WRITE_TIMEOUT, 2000)
lErfolgreich := COM_FLUSH(nComPort)
lErfolgreich := COM_SFLUSH(nComPort)
nBytesNichtGesendet := Com_Send(nComPort, cSignal)
cZeichen := Com_Read(nComPort)
ENDIF
Hat jemand eine Idee, was ich da falsch mache, oder mal testen könnte?
Jan