rlacroix/Ada_S2
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

adding yet some other spaces for ... fun?

Browse source
This commit is contained in:
Raphael Lacroix 2020-05-31 23:24:20 +02:00
parent a99c753ae4
commit da838498bc
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
TD_R_LACROIX_ENG_06-01-2020.adb
View file

@ -198,10 +198,10 @@ procedure td is
TableTime(Event.Num, 1) := Event.Date; -- starting value
TableTime(Event.Num, 4) := Event.Date; -- Last value
end if;
elsif (Event.Emetteur = Capteur_Nord and (Event.Date - TableTime(Event.Num,4)>5.0)) then -- it's hard to do 50m in less than 5 seconds
elsif (Event.Emetteur = Capteur_Nord and (Event.Date - TableTime(Event.Num, 4) > 5.0)) then -- it's hard to do 50m in less than 5 seconds
if TableNum(Event.Num) = 0 then
TableTime(Event.Num, 2) := Event.Date; -- we store the value at the first 50 m
TableNum(Event.Num):=TableNum(Event.Num)+1; -- we increment the numer of runs
TableNum(Event.Num) := TableNum(Event.Num) + 1; -- we increment the numer of runs
elsif TableNum(Event.Num) = 15 then -- it means he's finishing his last run
TableTime(Event.Num, 3) := Event.Date; -- we store the arrival's date
end if;