[TP]Timer

Version imprimable

[TP]Timer

Salut à tous!

Comment pourrais obtenir le même résultat que MemL[Seg0040:$6C]:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Uses Winprocs,Wincrt; Var s1,s2:Longint; {$IFDEF WINDOWS} Procedure __0040H; far; external 'Kernel' index 193; const Seg0040: Word = Ofs(__0040H); {$ENDIF} Begin Clrscr; s1:=MemL[Seg0040:$6C]; s2:=GetCurrentTime; Repeat Gotoxy(1,1); Writeln(MemL[Seg0040:$6C]-s1); Writeln(GetCurrentTime-s2); Until(KeyPressed); End.
J'ai essayé avec GetCurrentTime, mais ce n'est pas linéaire...

Merci de votre aide! à+

En faisant le rapport suivant, j'obtiens environ 55:
Writeln(GetCurrentTime Div MemL[Seg0040:$6C]);

Et j'ai trouvé cette unité sur le net:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Unit TIMER; Interface Type TimerBuf = LongInt; Procedure StartTimer(Var t: TimerBuf); Function TrapTimer(t: TimerBuf; MilliSeconds: Word): Boolean; Implementation Procedure StartTimer(Var t: TimerBuf); Begin t := MemL[Seg0040:$6C] End; Function TrapTimer(t: TimerBuf; MilliSeconds: Word): Boolean; Begin TrapTimer := Trunc(t+MilliSeconds/54.92549322) > MemL[Seg0040:$6C] End; End.
54.92549322 a l'air d'être une constante.
Est-elle la même sur tous les pc?
A quoi peut-elle correspondre exactement?

06/02/2004, 20h27
M.Dlb

Le DWord situé at l'adresse 0040:006C correspond au nombre de ticks après minuit... Chaque tick est émis 18.2 par seconde (18,2 est environ égale à 4,77 (vitesse en MHz du processeur du premier PC, le Sperry PC) divisé par 4 (soit 1,19 environ) divisé par 65536 (le plus grand nombre stockable "à l'époque" ?)).
Est-ce que tes calculs correspondent avec ces informations ? Que veux-tu faire exactement ?

a+
06/02/2004, 20h29
M.Dlb

Ben 1000 millisecondes divisés par 18.2 est environ égale à 54,945...

Ca réponds à ta question ?
06/02/2004, 20h33
Sub0

Oui, j'ai déjà vu cette constante 18,2 dans des sources...
En fait, je désire un équivalent, car j'ai l'impression que MemL[Seg0040:$6C] ne marche pas sous Linux.
Je crois bien que GetCurrentTime / 54.92549322 me renvoit quelque chose d'assez correct...
Qu'en pensez-vous?
06/02/2004, 20h46
M.Dlb

Cette valeur est gérée par le BIOS donc elle est accessible sur toutes les machines compatibles IBM (c'est-à-dire depuis 1981 environ), et évidemment sur toutes les plateformes !

a+
06/02/2004, 21h04
Sub0
Arf! Dans ce cas, le bug doit venir de cette déclaration je suppose:
Code:

1 2 3 4 {$IFDEF WINDOWS} procedure __0040H; far; external 'Kernel' index 193; const Seg0040: Word = Ofs(__0040H); {$ENDIF}
En tous les cas, mon prog à son horloge bloquée lorsque je le lance avec l'émulateur win sous Linux...
En fait, j'espère que cette solution résolvera le problème... à+
06/02/2004, 21h46
M.Dlb
Ben tu n'as justement pas besoin de ça, vu que ca marche sur toute plateforme :
Code:

1 2 const seg0040=$0040;
Euh à ce propos, TP défint des variables comme Seg0040 ou SegA000 qui désigne les segments correspondants !

a+
06/02/2004, 22h06
Sub0

Exact! Ta solution fonctionne... Pas encore testé sous Linux, mais je suis confiant.
Je me demande pourquoi l'auteur de l'unité à utilisé ce code, alors que MemL[$0040:$6c] suffisait...

Merci pour ta participation, et pour avoir résolu ce problème! :wink:
à+
06/02/2004, 22h15
M.Dlb

De rien, ce fut avec plaisir comme toujours :D
09/02/2004, 06h42
Sub0
Après avoir testé sous Linux les 3 possibilités...
Code:

1 2 3 4 {$IFDEF WINDOWS} procedure __0040H; far; external 'Kernel' index 193; const Seg0040: Word = Ofs(__0040H); {$ENDIF}
est bien bloqué...

Code:

MemL[$0040:$6C];

Démarre très doucement, puis se lance normalement au bout de 3 ou 4 sec...

Code:

round(GetCurrentTime/54.92549322);

fonctionne à merveille! :wink:
à+
14/02/2004, 17h06
Eric Sigoillot

Pour info, si TP définit les variables Seg0040, par exemple, c'est parce qu'en mode protégé, l'adresse $0040 n'est pas accessible et il faut créer un sélecteur dessus pour y accéder.

Sous Windows, il faudrait aussi créer un sélecteur dessus. Si Win 3.1 eccepte la manip, je doûte qu'il en soit de même avec Win 95 et suivants, car un programme qui peut créer un sélecteur librement s'ouvre toutes les portes sur la RAM, donc met en danger la stabilité du système.

Pour la valeur exacte de 54,... :

T = 1000 / ($1234DD / $10000)

$1234DD est simple à se souvenir en hexa, plus que 1193181 Hz, fréquence du chip 8254 (qui gère l'hologe interne).

A+
15/02/2004, 12h20
Sub0

Excelente cette méthode!
Solution finale...

Code:

Round(GetCurrentTime/(1000/($1234DD/$10000)));

Vos explications sont claires et bien détaillées.
Merci à tous pour votre aide!
Merci aussi à FRD pour avoir fait les tests sous Linux! :wink:
à+