Programme De Communication - Chauvin Arnoux C.A 25 Mode D'emploi

PROGRAMME DE COMMUNICATION

Cls
print "**** AFFICHAGE DES MESURES DU TACHYMETRE ****"
Open "COM1 : 1200, N, 8, 1, RS" as #1
print #1, chr$(07)
delay 2.5
print #1, chr$(63)
carac = 0 : k$ = "" : D = 0
while k$ = ""
while (carac <>10 and carac <>13)
out &H3FD,0
out &H3FC,03
ici :
D%=inp(&H3FD)
if (D% and 01) =0 then ici
out &H3FC,00
carac = inp(&H3F8)
j$=inkey$
if j$<>"" then print "fin demandée..." : end
if (carac<>13 and carac<>10) then
mesure$=mesure$+chr$(carac) 'concatène les caractères...
end if
wend
print mesure$
mesure$ = "" : k$ = inkey$ : carac = 0 : D = 0
delay 0.5
print #1,chr$(63)
wend
print "fin demandée...."
'réveil de l'appareil ...
'interrogation de la mesure...
'rebaisse drapeau "donnée reçue"...
'autorise l'émission de donnée sur COM1:
'attend une donnée reçue...
'inhibe l'émission de donnée sur COM 1:
'lit la donnée (octet)...
'interrogation de la mesure...
35