;Communication vers PC - i2cslave (28/05/2019)
#picaxe 20X2 'Type de Picaxe
;w0 -> w2 : reserve val_temps_cent 'b0 -> b5 = lecture des temps ... NE PAS UTILISER POUR AUTRE CHOSE
;w3 -> w5 : reserve val_temps_sec 'b6 -> b11 = lecture des temps ... NE PAS UTILISER POUR AUTRE CHOSE
;w6 -> w8 : reserve val_temps_min 'b12 -> b17 = lecture des temps ... NE PAS UTILISER POUR AUTRE CHOSE
;w9
symbol tx=w10 'envoi d'un temps = 1
symbol val_temps=w11 'memorisation temps chrono
symbol val_temps_cent=w12
symbol val_temps_sec=w13
symbol val_temps_min=w14
symbol val_temps_calcul=w15
symbol mode=w16 'Mode du chrono : 1 = manuel - 0 = automatique
;...
;w27
i2cslave %00000100, i2cfast, i2cword 'Initialisation du i2c Slave adresse 4
main:
tx=0
hi2cin 0,(val_temps,mode,tx)
if tx=1 then
if val_temps=0 then '---------- Top START
if mode=0 then
sertxd ("I 9999 c0 00:00:00:0000 00","CR") 'Mode AUTO
else
sertxd ("I 9999 c0M 00:00:00:0000 00","CR") 'Mode MANUEL
end if
else '---------- Top STOP
val_temps_cent=val_temps//100 '=> isole la partie centièmes de secondes
val_temps_calcul=val_temps/100 '=> supprime les centièmes de secondes: reste le temps en seconde entières
val_temps_sec=val_temps_calcul//60 '=> isole la partie secondes
val_temps_min=val_temps_calcul/60 '=> supprime les secondes: reste le temps en minutes entières
bintoascii val_temps_min, b1,b2,b3,b4,b5
bintoascii val_temps_sec, b7,b8,b9,b10,b11
bintoascii val_temps_cent, b13,b14,b15,b16,b17
if mode=1 then
sertxd ("I 9999 c0 00:",b16,b17,":",b10,b11,":",b4,b5,"00"," 00","CR") 'Mode AUTO
else
sertxd ("I 9999 c0M 00:",b16,b17,":",b10,b11,":",b4,b5,"00"," 00","CR") 'Mode MANUEL
end if
end if
end if
goto main