Bonjour,
Pour envoyer : sEcrit( Port, Caract(<valeur Ascii du caractére>) )
par exemple ENQ = 05h : sEcrit( Port, Caract(0x05) )
Pour tester dans une chaine
p est un entier = Position(BufferIn, Caract(0x05) )
IF p>0 THEN
// ENQ est présent dans la chaine à la position p
END
"CDAG" <cdag@chez.com> a écrit dans le message de
news:408372dd$1@news.pcsoft.fr...
>
>
> D'abord merci pour ta réponse...
> Je vais essayer comme ça mais je vois mal où et comment envoyer et
recevoir
> les codes de control ACK, NAK, DC1, DC3, pour me positionner dans le
"BufferIn"???
> Sans vouloir abusé, peut être as tu une idée ?
> cordialement
> CDAG
>
>
> "Philippe Pasquali" <philippe.pasquali@bopack.com> wrote:
> >
> >
> > Bonjours, je pense que c'est que tu n'a pas saisi completement le
mode
> de
> >fonctionnement d'un port RS232
> >
> > sOuvre() // La connection entre le port et la zone
> >"BufferIn" est ouverte
> > sFixeParametre() // La reception peut commencer. Les caractères
arrivant
> >sur le port RS232 sont stockés dans un buffer interne "BufferIn"
> > .
> > .
> > .
> > sLit() // extrait les caractères du BufferIn pour
les
> >mettres dans ta variable MAIS SEULEMENT SI IL Y EN A !!!!!!
> >
> > hors dans ton exemple tu lis sans tester le nombre d'octet présent
dans
> >BufferIn : sDansFileEntree()
> >
> > ChaineRecue est une chaine = ""
> > DateHeureDepart est une chaine = datesys()+heuresys()
> > while val(Droite(
> >DateHeureDifference(DateHeureDepart,datesys()+heuresys()), 4))<0400
> >// 04secondes de timeout
> > if sDansFileEntree(PortCom)>0 then
> > ChaineRecue += sLit(PortCom,sDansFileEntree(PortCom))
> > DateHeureDepart = datesys()+heuresys()
> > if (condition sur la chaine) = true
> > sortie
> > end
> > end
> > end
> > if ChaineRecue<>"" then
> > .....
> > else
> > .....
> >
> >
> > "CDAG" <cdag@chez.com> a écrit dans le message de
> >news:407ff0f1$1@news.pcsoft.fr...
> > >
> > >
> > > Bonjour,
> > >
> > > Pour une connexion PC / Caisse de magasin via le port serie...
> > > J'ai rédigé le code suivant :
> > >
> > > //_____________________________________________________
> > > SI sOuvre(2,5000,5000)=Faux ALORS
> > > Info("Erreur lors de l'ouverture de la com ")
> > > sFerme(2)
> > > FIN
> > >
> > > // paramétrage du port série
> > > gf = sFixeParamètre(2,9600,1,8,0,Vrai,Vrai,Vrai)
> > > SI gf =Faux ALORS
> > > Erreur("PB dans les paramètres")
> > > FIN
> > >
> > >
> > > t est une chaîne =sLit(2,50)
> > > SI t = 0 ALORS
> > > Info("PB a la lecture")
> > > sFerme(2)
> > >
> > > SINON
> > > Saisie1 = t
> > > Info("Lecture éffectuée")
> > >
> > > sFerme(2)
> > > FIN
> > >
> > > Multitache(-1)
> > > //______________________________________________________
> > >
> > > Tout semble fonctionner mais la chaine t reste vide.
> > > J'en déduit que je dois me positionner une page avant de lire le
contenu
> > > et c'est là ou je bloque...
> > > QQ aurait il une idée pour éclairer ma lanterne ??????????
> > > Ci dessous le protocole de com utilisé
> > >
> > > //____________________________________________________
> > >
> > > 1. Interface Specification
> > >
> > >
> > >
> > > * Hardware Interface : Asychronus RS-232C
> > >
> > > * Transmission : Full Duplex
> > >
> > > * Baud Rate : 9600 Bit / Sec.
> > >
> > > * Data Length : 8 Bits / Character
> > >
> > > * Start Bit : 1 Bit
> > >
> > > * Stop Bit : 1 Bit
> > >
> > > * Parity : Even Parity
> > >
> > > Sio 85-98 1st must be set 53
> > > 1st digit 1 ; 600, 2 ;1200,
3
> >;2400
> > > 4 ;4800, 5 ;9600,
6
> >;19200
> > > 2nd digit 3 ;P.C Mode
> > > 2nd must be set 00110111b
> > > bit0 ; parity check y/n bit1
;
> >odd/even
> > > bit2-3 ; stop bit 1/1/1.5/2
> > > bit4-5; character 5/6/7/8
> > > ** Signal DTR and RTS of Terminal which is connected with
> > > ET-6600 must be "ON".
> > >
> > >
> > > ** Hardware Pin Assignment of PC Interface and Connection
> > >
> > >
> > > PC side ET-6600 side
> > >
> > > Frame Ground Frame Ground
> > > (FG) 1 -------------- 11 (FG)
> > >
> > > Transmitted Data Transmitted Data
> > > (TXD) 2 >>>>>>>>>>>>>> 3 (TXD)
> > >
> > > Received Data Received Data
> > > (RXD) 3 <<<<<<<<<<<<<< 13 (RXD)
> > >
> > > Request To Send Request To Send
> > > (RTS) 4 >>>>>>>>>>>>>> 9 (RTS)
> > >
> > > Clear To Send Clear To Send
> > > (CTS) 5 <<<<<<<<<<<<<< 10 (CTS)
> > >
> > > Data Set Ready Data Set Ready
> > > (DSR) 6 <<<<<<<<<<<<<< 6 (DSR)
> > >
> > > Data Terminal Ready Data Terminal Ready
> > > (DTR) 20 >>>>>>>>>>>>>> 2 (DTR)
> > >
> > > Signal Ground Signal Ground
> > > (SG) 7 -------------- 5 (GND)
> > >
> > >
> > >
> > > 2. Transmission Protocol
> > >
> > >
> > > The Data are "Text Data" and "Control Code Data".
> > >
> > > Text Data : start data ... STX
> > > end data ... CR & LF
> > >
> > > STX ..... CR LF
> > >
> > > Control Code Data : ACK, NAK, DC1, DC3, STX, CR, LF
> > > ** STX, CR and LF are used as start and end data.
> > >
> > > ** When "Text Data" is received, Terminal and ET-6600
> > > must transmit "ACK" or "NAK".
> > >
> > >
> > > Terminal ET-6600
> > >
> > > DC1 ----------> . Transmission Requirement
> > > <---------- DC1 . Receive Enable Answer
> > > TEXT ----------> . Require TEXT DATA
> > > <---------- ACK or NAK . ACK/NAK Requirement
> > > *
> > > DC1 ----------> . Receive Enable
> > > <---------- TEXT . Transmit "Text Data"
> > > ACK/NAK ----------> . ACK/NAK of Transmitted Data
> > > *
> > > DC1 ----------> . Receive Enable
> > > <---------- TEXT . Transmit "Text Data"
> > > ACK/NAK ----------> . ACK/NAK of Transmitted Data
> > > *
> > > DC1 ----------> . Receive Enable
> > > <---------- TEXT . Transmit final "Text Data"
> > > with "ETX" code
> > > ACK/NAK ----------> . ACK/NAK of final "Text Data"
> > >
> > >
> > > Note : This time (* mark) is PC (Terminal) processing time
> > > of the received data from ET-6600.
> > >
> > > The time period between "ACK/NAK" (for receiving
> > > next Text) from PC (Terminal) needs minimum 6.0 ms.
> > >
> > >
> > >
> > >
> > > 3. Configuration of Transmission Data
> > >
> > >
> > > . Control Code : ACK NAK DC1 DC3
> > >
> > > . Text Data : STX ID DATA CR LF
> > >
> > >
> > > . The code value of each Control Code are showed in page.
> > > . ID code identifys the Text Data.
> > > . The data length is different, it depends on "ID code".
> > > . Data Code is ASCII except "ID code".
> > > * Refer to Code Table.
> > >
> > >
> > >
> > > * Text Format
> > >
> > > -----------------------------
> > > Basic Format : | STX | ID | DATA | CR | LF |
> > > |----------------------------
> > > Final Data : | STX | ID | ETX | CR | LF |
> > > ---------------------------
> > > * only the case of all data request
> > >
> > >
> > > Requirement of all data transmission of ID code
> > >
> > > -------------------------------
> > > | STX | ID | ?(3Fh) | CR | LF |
> > > -------------------------------
> > >
> > > Example 1 :
> > > The following format is the requirement of all
> > > department programming data.
> > >
> > > ------------------------------------
> > > | STX | 30h(ID) | 3Fh(?) | CR | LF |
> > > ------------------------------------
> > >
> > > Example 2 :
> > > The following is the requirement of department No.12
> > > programming data.
> > >
> > > --------------------------------------------------
> > > | STX | 30h(ID) | 30 30 31 32 | 3Fh(?) | CR | LF |
> > > --------------------------------------------------
> > >
> > > Example 3 :
> > > The following is the requirement of 123 PLU Sales
> > > Data.
> > >
> > > --------------------------------------------------------
> > > | STX | 43h(ID) | 30 30 30 31 32 33 | 3Fh(?) | CR | LF
> > > --------------------------------------------------------
> > >
> > >
>
//_________________________________________________________________________
_
> >____
> > >
> >
> >
>