CONST DEVICE = R5
'liaison entre un PBM-R5 et un palm en RS232
'i/o14 avec TX de la PnPBoard
'i/o15 avec RX de la PnPBoard
' pour cette essai seul les AD0, AD1, AD3 et AD4 sont connectés comme input (mettre des potentiométres)
' i/o 16, i/o17,i/o18,i/o19 sont des output (connecter les lEDs de la PNPBOARD)
'Copyright http://arn.gui.free.fr/picbasic
'le 1/02/2004
'NE JAMAIS OUBLIER DE METTRE UN MAX232 ENTRE LE PICBASIC ET LE PALM


SET PICBUS HIGH
SET RS232 19200	

DIM DATAOUT as STRING*16
DIM ANA as STRING*4
DIM CAR as STRING*4
DIM INPU as BYTE
DIM AD(4)as INTEGER 
DIM I as BYTE
DIM J as BYTE
DIM X as BYTE
DIM A as BYTE


10 DATAOUT =""
'Boucle pour la lecture des entrés analogiques AD0 à AD3
ON RECV GOSUB 100
I=0
for I=0 to 3
AD(I)=ADIN(I)
ANA = DEC (AD(I),4,0)
DATAOUT = DATAOUT + ANA			' DATAOUT sous la forme 01230752102300000245
NEXT I
PUT DATAOUT						' envoie de DATAOUT via le port série

DELAY 350						'delai de 350 en 19200 bauds

GOTO 10

100 A=0
beep 4
A =BLEN(0)						' connaitre le nb de données dans le buffer
x =16
FOR J = 1 to A
	GET INPU					' recupere une donnée
		IF INPU = 1 THEN
			OUT X,1 
		ELSE
			OUT X,0
		END IF
	X=X+1
NEXT
RETURN