R
recainbo
Guest
-> Hier kostenlos registrieren
Ich möchte mit dem BC9000 gerne ein SMS verschicken. Dabei sind mir einige Punkte nicht klar:
In der Dok wird teilweise von einem 3 und teilweise von einem 5 Byte Mapping der KL6001 gesprochen.
Gemäss Dok ist das 3Byte Mapping die default Einstellung. Ich finde aber nur die Lib COMlibBC5B.lb6. Jetzt
hab ich es hat mal mit dieser probiert. Es scheint jedoch nicht zu klappen.
Wie kann ich die Com--Parameter einstellen (Baudrate, Datenbit etc?)
Anbei noch der Code, mit welchem ich probiert habe. Habe jeweils zuerst bInit manuell gesetzt, und dann bSend.
RTS und CTS habe ich HW-mässig kurzgeschlossen
Alle 3 LED brennen dauernd
An der KLemme habe ich einen PC mit Hyperterminal angeschlossen um zu prüfen, ob die Klemme etwas "rausspuckt"
Pin 2 und 3 habe ich mal getauscht
Kann jemand helfen? Hat vieleicht einer ein Stück Beispilecode?
Danke
Gruss Remo
PROGRAM PRG_SendSMS
VAR
fbSendSMS : SendSMS;
TxBuf,RXBuf : COMbuffer;
bSend : BOOL;
bBusy : BOOL;
bBusyS : BOOL;
bReady : BOOL;
iError : INT;
Kl6Control : KL6Control5B;
SerInit : KL6Init;
bInit : BOOL;
sNumber : STRING;
Text : STRING(160);
comIn AT %IB0 :KL6inData5B;
comOut AT %QB0 :KL6outData5B;
END_VAR
sNumber:='0794785935';
Text:='Judihui';
IF bReady = TRUE AND bBusy =FALSE
THEN
bInit:=0;
END_IF;
SerInit(Start:=bInit, SerStatus:=comIn.Status, SerCtrl:=comOut.Ctrl, Busy=>bBusy, Ready=>bReady);
fbSendSMS(Send:=bSend, Number:=sNumber, Text:= Text,RXbuffer:=RXBuf, TXbuffer:=TxBuf,Busy=>bBusyS,Error=>iError);
Kl6Control(COMIn:=comIn, COMOut:=comOut ,RXBuffer:=RXBuf,TXBuffer:=TXBuf);
In der Dok wird teilweise von einem 3 und teilweise von einem 5 Byte Mapping der KL6001 gesprochen.
Gemäss Dok ist das 3Byte Mapping die default Einstellung. Ich finde aber nur die Lib COMlibBC5B.lb6. Jetzt
hab ich es hat mal mit dieser probiert. Es scheint jedoch nicht zu klappen.
Wie kann ich die Com--Parameter einstellen (Baudrate, Datenbit etc?)
Anbei noch der Code, mit welchem ich probiert habe. Habe jeweils zuerst bInit manuell gesetzt, und dann bSend.
RTS und CTS habe ich HW-mässig kurzgeschlossen
Alle 3 LED brennen dauernd
An der KLemme habe ich einen PC mit Hyperterminal angeschlossen um zu prüfen, ob die Klemme etwas "rausspuckt"
Pin 2 und 3 habe ich mal getauscht
Kann jemand helfen? Hat vieleicht einer ein Stück Beispilecode?
Danke
Gruss Remo
PROGRAM PRG_SendSMS
VAR
fbSendSMS : SendSMS;
TxBuf,RXBuf : COMbuffer;
bSend : BOOL;
bBusy : BOOL;
bBusyS : BOOL;
bReady : BOOL;
iError : INT;
Kl6Control : KL6Control5B;
SerInit : KL6Init;
bInit : BOOL;
sNumber : STRING;
Text : STRING(160);
comIn AT %IB0 :KL6inData5B;
comOut AT %QB0 :KL6outData5B;
END_VAR
sNumber:='0794785935';
Text:='Judihui';
IF bReady = TRUE AND bBusy =FALSE
THEN
bInit:=0;
END_IF;
SerInit(Start:=bInit, SerStatus:=comIn.Status, SerCtrl:=comOut.Ctrl, Busy=>bBusy, Ready=>bReady);
fbSendSMS(Send:=bSend, Number:=sNumber, Text:= Text,RXbuffer:=RXBuf, TXbuffer:=TxBuf,Busy=>bBusyS,Error=>iError);
Kl6Control(COMIn:=comIn, COMOut:=comOut ,RXBuffer:=RXBuf,TXBuffer:=TXBuf);