MODULE TestHeure; FROM MYINOUT IMPORT WriteLongReal, WriteString, WriteLn,WriteCard; FROM CLib IMPORT Heure; CONST valtest = 10000; mivaltest = 5000; TYPE SystemTime = RECORD seconds : CARDINAL; microSeconds : CARDINAL; END; VAR temp : SystemTime; i : CARDINAL; BEGIN temp.seconds := 5; temp.microSeconds := 5; FOR i := 1 TO 100 DO WriteCard(i,5);WriteLn END; WriteCard(9999999,10);WriteLn; i := temp.seconds; WriteString("DEBUT ");WriteCard(i,15);WriteLn; WriteCard(temp.microSeconds,15);WriteLn; (*temp := IToLR(CCALL("clock"));*) Heure(temp.seconds,temp.microSeconds); WriteCard(temp.seconds,15);WriteLn; WriteCard(temp.microSeconds,15);WriteLn; FOR i := 1 TO mivaltest DO WriteString("i : "); WriteCard(i,10); WriteString(" OHHHHHHH"); WriteLn; END; (*temp := IToLR(CCALL("clock"));*) (*temp := Heure();*) Heure(temp.seconds,temp.microSeconds); WriteString("MILIEU ");WriteCard(temp.seconds,15);WriteLn; WriteCard(temp.microSeconds,15);WriteLn; FOR i := mivaltest TO valtest DO WriteString("i : "); WriteCard(i,10); WriteString(" OHHHHHHH"); WriteLn; END; (*temp := IToLR(CCALL("clock"));*) (*temp := Heure();*) Heure(temp.seconds,temp.microSeconds); WriteString("FIN ");WriteCard(temp.seconds,15);WriteLn; WriteCard(temp.microSeconds,15);WriteLn; (*WriteLongReal(temp,50,20);WriteLn;*) (*temp := IToLR(CCALL("clock"));*) (*temp := Heure();*) Heure(temp.seconds,temp.microSeconds); WriteCard(temp.seconds,15);WriteLn; WriteCard(temp.microSeconds,15);WriteLn; (*WriteLongReal(temp,50,20);WriteLn;*) END TestHeure.