Check den her :
Function GetClock:LongInt; Assembler;
{ this routine returns a clock With occassional spikes where time
will look like its running backwards 1/18th of a second. The resolution
of the clock is 1/(18*256) = 1/4608 second. 66 ticks of this clock
are supposed to be equal to a monitor 1/70 second tick.}
Asm
mov ah,0 { get tick count from
Dos and use For hi 3 Bytes }
int 01ah { lo order count in DX,
hi order in CX }
mov ah,dl
mov dl,dh
mov dh,cl
mov al,0 { read lo Byte straight
from timer chip }
out $043,al { latch count }
mov al,1
out $043,al { set up to read
count }
in al,$040 { read in lo Byte
(and discard) }
in al,$040 { hi Byte into al }
neg al { make it so counting up
instead of down }
end;
Virkewr kun med Win9x systemer... har ikke prøvet ME...denne funktion skulle
være supernøjagtig...eller lige så nøjagtig som krystallen i compen...
--
Regards
Ingolf
"Ingolf" <DONT_SPAM_ingolf@musling.dk> wrote in message
news:rOX97.121$xn.20310@news010.worldonline.dk...
> Fra D3 hjælp...
>
> The float keyword designates a 32-bit floating-point number.
> The float type is one of the base types of the interface definition
language
> (IDL). The float type can appear as a type specifier in typedef
> declarations, general declarations, and function declarators (as a
> function-return-type specifier and a parameter-type specifier). For the
> context in which type specifiers appear, see IDL.
> The float type cannot appear in const declarations.
>
> FLOAT benyttes i D3 til at referere til DATAtyper fra C
> FLOAT bruges i C, ikke i delphi... ihvertfald ikke D3
>
> i Delphi benyttes REAL, COMP, SINGLE, DOUBLE ...
>
> >
> > Hvad hvis man har et tal af Typen Double i en variabel, hvordan ændrer
> > jeg den til en STRING?
>
> Brug VAL
>
> Så det op i hjælpen..
>
> Når du har problemer med disse ord, stil curseren på ordet, og tryk F1
>
> F.eks... skriv VAL et sted i din kode, og tryk F1.
>
> Check også hvis du har lavet en knap, når du skriver
>
> BUTTON1.
>
> Så vil der komme en liste med properties for netop BUTTON1
>
>
> --
> Regards
> Ingolf
>
>
>
> base_types, double.
> "Polle" <Polle@Snave.dk> wrote in message
> news:3b68269c.21436190@news.worldonline.dk...
> > Tak Uffe
> > Det kan jeg godt bruge og se mig nogenlunde ud af.
> > Jeg er dog ikke helt med på hvad FLOAT er for en "data" type??
> > "now" er altså osse et reserveret ord i D, og tar tilsyneladende
> > klokkeslettet på nuværende tidspunkt, ikk!!
> >
> > Hvad hvis man har et tal af Typen Double i en variabel, hvordan ændrer
> > jeg den til en STRING?
> >
> > og det samme med mange af de andre typer data?
> > mvh Polle
> >
> > >Hvis det ikke skal være nøjagtigt (eller din kode tager lang tid), kan
du
> > >anvende følgende:
> > >
> > >var
> > > time1: float;
> > >begin
> > > time1:= now;
> > > kode...
> > > edit1.text:= floattostr((now-time1)*86400)+' sekunder';
> > >
> > >Du kan også bruge Str proceduren eller FloatToStrFormat, hvis du vil
> styre
> > >antallet af decimaler.
> > >
> > >Skal tidsmålingen være mere præcis, skal du have fat i gettickcount i
> stedet
> > >for now. Den er af typen longword og returnerer millisekunder.
> > >
> > >Hilsen
> > >Uffe
> > >
> > >"Polle" <Polle@Snave.dk> wrote in message
> > >news:3b68f833.9552759@news.worldonline.dk...
> > >> Jeg er TOTAL nybegynder:
> > >>
> > >> En vist nok simpel ting som at tage TID på hvor længe et stykke kode
> > >> er om at udføres i Delphi.
> > >>
> > >> altså:
> > >>
> > >> begin
> > >> tiden blir målt her med TIME
> > >> kode....
> > >> kode....
> > >> kode....
> > >> tiden blir målt her IGEN med TIME
> > >>
> > >> den forskel der nu skulle være i de to tider kan jeg ikke finde ud af
> > >> at få subtraheret og omvendt til en editboks.
> > >>
> > >> jeg har mange problemer med at hitte ud af det der med TimeToStr
eller
> > >>
> > >> så snart det er en Double eller en Real der skal til en String, så ka
> > >> jætte hitte u af det.
> > >>
> > >> Det gør ligemeget med at målingen måske ikke blir så præcis da koden
> > >> er rimelig kort, det er mere princippet i hvordan jeg får Time til
> > >> String og vise versa, eller eks. TIME til et format jeg kan REGNE med
> > >> og evt. gange(*) med et nyt tal.
> > >>
> > >> Hvis i fatter mit STORE(LILLE) problem her, så blir jeg glad hvis i
> > >> hjælper
> > >>
> > >> Evt. hvor jeg på nettet kunne finde noget lige netop om det..!
> > >> mvh Polle
> > >
> >
>
>