salut
g un prog qui fait des analyses reseau, g mis un timer pour connaitre le
temps qui met, mais le prob est qu'il ne marche pas bien, il s'arrete puis
decompte le temps et n'affihe pas le vrai mais un temps bidon je pense qui
interagit avec le prog
Enfin ça marche que tant qu'on ne change pas de mois et que le programme n'empiète pas sur ce passage, pour être clair entre le 31 mars 2005 à 23h55 et le 1er avril 2005 à 0h10. Il faut affiner bien sûr. "Patrice Henrio" a écrit dans le message de news: %
En fait je pense que le timer n'était pas vraiment ce qui était nécessaire ici. Il ne s'agissait pas de laisser s'écouler du temps mais bien de calculer le temps passé entre deux moments. "squat541" a écrit dans le message de news:
merci les gars et surtout a Patrice Henrio qui m'a donné la soluce
Option Explicit
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Début As SYSTEMTIME, Fin As SYSTEMTIME, Durée As SYSTEMTIME Private Function Ecrire(HMS As SYSTEMTIME) As String 'Dim St As String Ecrire = HMS.wHour & ":" & HMS.wMinute & ":" & HMS.wSecond End Function
Private Sub CmdDébut_Click() GetLocalTime Début LbLDébut.Caption = Ecrire(Début) End Sub
si tu appelles un prog extérieur, il faut pouvoir attendre la fin de ce prog d'où sa réponse quant au fait que le temps rendu soit en ms, cela se converti en heures:minutes:secondes...
Driss "Pascal B." a écrit dans le message de news:% > Slut squat, > > Je crois qu'on ne comprend pas bien ce que tu veux réellement. > Explique-nous ce qu'il y a comme code entre "Horloge.Start" et "Horloge.Stop" ! > > A moins qu'il y aie un Shell qui lance une commande (celle qui analyse > ton réseau). > Alors effectivement tu ne mesureras que le temps mis pour lancer la commande et non le traitement en lui-meme (qui s'exécutera en > arrière plan). Pour résoudre ce problème il faudra créer par API un > Shell synchronisé (c-a-d qu'on passera qu'à l'instruction > suivante que lorsque la commande est terminée) > > Cordilement. > Pascal B. > > > "squat541" wrote in message news: > | salut Eric oui g fait la methode de driss mais c pas ce que je veut > en > | faitesa methode me donne le temps qu'il fait pour l'execution du > prog c'est a > | dire un temps en milliseconde moi je veu le temp qu'il met pour l'analyse de > | mon reseau par ex il met environ 12 minute alors que la methode me > donn des > | temps qui on rien a voir > | > | "Eric" a écrit : > | > | > Bonjour squat541, > | > > | > As-tu essayé la solution de Driss? > | > > | > A ton projet tu ajoutes un module de *classe* que tu nommes cBenchmark. > | > Tu y copies le code donné commencant par : > | > '******* début classe ************* > | > et se terminant par : > | > '********* fin classe *********** > | > > | > Dans la feuille de ton projet, dans la procédure où tu as besoin > de > | > l'horloge tu mets : > | > Dim Horloge as cBenchmark > | > Set horloge = New cBenchmark > | > > | > Puis > | > Horloge.Start > | > ' ton traitement > | > Horloge.Finish > | > MsgBox Horloge.ElapsedTime > | > Set Horloge=Nothing > | > > | > Ca devrait faire l'affaire, je viens de tester > | > > | > A+ > | > Eric > | > > | > squat541 a écrit : > | > > a part ca g toujours pa la solution > | > > > | > > "scraper" a écrit : > | > > > | > > > | > >>Bonjour LE TROLL, dans le message > | > >> news: > | > >> tu disais : > | > >> > | > >> > | > >> > | > >>>Le petit, regardes sa réponse, il dit qu'il n'a pas, alors, > | > >>>c'est à lui qu'il faut le dire... > | > >> > | > >>eh, le gros, c'est bien à toi que je répondais : je sais encore placer mes > | > >>réponses au bon endroit ... > | > >> > | > >>que squat541 ne *trouve* pas ce fichier, car il n'a > certainement pas > | > >>demandé l'affichage des fichiers et dossiers cachés et systeme > est une chose > | > >>.... > | > >> > | > >>que toi tu débites des énormités en est une autre > | > >> > | > >>:-( > | > >> > | > >> > | > >> > | > >>-- > | > >> > | > >>Attention ! Adresse mail invalide ... > | > >>Pour me contacter, cliquez sur le lien ci-dessous: > | > >>http://scraper.chez.tiscali.fr/contact.htm > | > >> > | > >>scraper > | > >> > | > >> > | > > >
Enfin ça marche que tant qu'on ne change pas de mois et que le programme
n'empiète pas sur ce passage, pour être clair entre le 31 mars 2005 à 23h55
et le 1er avril 2005 à 0h10.
Il faut affiner bien sûr.
"Patrice Henrio" <patrice.henrio@laposte.net> a écrit dans le message de
news: %23z8CCLRQFHA.2680@TK2MSFTNGP09.phx.gbl...
En fait je pense que le timer n'était pas vraiment ce qui était nécessaire
ici. Il ne s'agissait pas de laisser s'écouler du temps mais bien de
calculer le temps passé entre deux moments.
"squat541" <squat541@discussions.microsoft.com> a écrit dans le message de
news: 9F04E52F-62F8-4623-9425-B19B0C9F0E2A@microsoft.com...
merci les gars et surtout a Patrice Henrio qui m'a donné la soluce
Option Explicit
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As
SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Début As SYSTEMTIME, Fin As SYSTEMTIME, Durée As SYSTEMTIME
Private Function Ecrire(HMS As SYSTEMTIME) As String
'Dim St As String
Ecrire = HMS.wHour & ":" & HMS.wMinute & ":" & HMS.wSecond
End Function
Private Sub CmdDébut_Click()
GetLocalTime Début
LbLDébut.Caption = Ecrire(Début)
End Sub
si tu appelles un prog extérieur, il faut pouvoir attendre la fin de ce
prog
d'où sa réponse
quant au fait que le temps rendu soit en ms, cela se converti en
heures:minutes:secondes...
Driss
"Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit dans le message de
news:%23RHMoeCQFHA.4028@tk2msftngp13.phx.gbl...
> Slut squat,
>
> Je crois qu'on ne comprend pas bien ce que tu veux réellement.
> Explique-nous ce qu'il y a comme code entre "Horloge.Start" et
"Horloge.Stop" !
>
> A moins qu'il y aie un Shell qui lance une commande (celle qui analyse
> ton
réseau).
> Alors effectivement tu ne mesureras que le temps mis pour lancer la
commande et non le traitement en lui-meme (qui s'exécutera en
> arrière plan). Pour résoudre ce problème il faudra créer par API un
> Shell
synchronisé (c-a-d qu'on passera qu'à l'instruction
> suivante que lorsque la commande est terminée)
>
> Cordilement.
> Pascal B.
>
>
> "squat541" <squat541@discussions.microsoft.com> wrote in message
news:9850850C-A507-496C-B4E1-6CC861AD230D@microsoft.com...
> | salut Eric oui g fait la methode de driss mais c pas ce que je veut
> en
> | faitesa methode me donne le temps qu'il fait pour l'execution du
> prog
c'est a
> | dire un temps en milliseconde moi je veu le temp qu'il met pour
l'analyse de
> | mon reseau par ex il met environ 12 minute alors que la methode me
> donn
des
> | temps qui on rien a voir
> |
> | "Eric" a écrit :
> |
> | > Bonjour squat541,
> | >
> | > As-tu essayé la solution de Driss?
> | >
> | > A ton projet tu ajoutes un module de *classe* que tu nommes
cBenchmark.
> | > Tu y copies le code donné commencant par :
> | > '******* début classe *************
> | > et se terminant par :
> | > '********* fin classe ***********
> | >
> | > Dans la feuille de ton projet, dans la procédure où tu as besoin
> de
> | > l'horloge tu mets :
> | > Dim Horloge as cBenchmark
> | > Set horloge = New cBenchmark
> | >
> | > Puis
> | > Horloge.Start
> | > ' ton traitement
> | > Horloge.Finish
> | > MsgBox Horloge.ElapsedTime
> | > Set Horloge=Nothing
> | >
> | > Ca devrait faire l'affaire, je viens de tester
> | >
> | > A+
> | > Eric
> | >
> | > squat541 a écrit :
> | > > a part ca g toujours pa la solution
> | > >
> | > > "scraper" a écrit :
> | > >
> | > >
> | > >>Bonjour LE TROLL, dans le message
> | > >> news:OT6xhw5PFHA.4052@TK2MSFTNGP12.phx.gbl
> | > >> tu disais :
> | > >>
> | > >>
> | > >>
> | > >>>Le petit, regardes sa réponse, il dit qu'il n'a pas, alors,
> | > >>>c'est à lui qu'il faut le dire...
> | > >>
> | > >>eh, le gros, c'est bien à toi que je répondais : je sais encore
placer mes
> | > >>réponses au bon endroit ...
> | > >>
> | > >>que squat541 ne *trouve* pas ce fichier, car il n'a
> certainement
pas
> | > >>demandé l'affichage des fichiers et dossiers cachés et systeme
> est
une chose
> | > >>....
> | > >>
> | > >>que toi tu débites des énormités en est une autre
> | > >>
> | > >>:-(
> | > >>
> | > >>
> | > >>
> | > >>--
> | > >>
> | > >>Attention ! Adresse mail invalide ...
> | > >>Pour me contacter, cliquez sur le lien ci-dessous:
> | > >>http://scraper.chez.tiscali.fr/contact.htm
> | > >>
> | > >>scraper
> | > >>
> | > >>
> | >
>
>
Enfin ça marche que tant qu'on ne change pas de mois et que le programme n'empiète pas sur ce passage, pour être clair entre le 31 mars 2005 à 23h55 et le 1er avril 2005 à 0h10. Il faut affiner bien sûr. "Patrice Henrio" a écrit dans le message de news: %
En fait je pense que le timer n'était pas vraiment ce qui était nécessaire ici. Il ne s'agissait pas de laisser s'écouler du temps mais bien de calculer le temps passé entre deux moments. "squat541" a écrit dans le message de news:
merci les gars et surtout a Patrice Henrio qui m'a donné la soluce
Option Explicit
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Début As SYSTEMTIME, Fin As SYSTEMTIME, Durée As SYSTEMTIME Private Function Ecrire(HMS As SYSTEMTIME) As String 'Dim St As String Ecrire = HMS.wHour & ":" & HMS.wMinute & ":" & HMS.wSecond End Function
Private Sub CmdDébut_Click() GetLocalTime Début LbLDébut.Caption = Ecrire(Début) End Sub
si tu appelles un prog extérieur, il faut pouvoir attendre la fin de ce prog d'où sa réponse quant au fait que le temps rendu soit en ms, cela se converti en heures:minutes:secondes...
Driss "Pascal B." a écrit dans le message de news:% > Slut squat, > > Je crois qu'on ne comprend pas bien ce que tu veux réellement. > Explique-nous ce qu'il y a comme code entre "Horloge.Start" et "Horloge.Stop" ! > > A moins qu'il y aie un Shell qui lance une commande (celle qui analyse > ton réseau). > Alors effectivement tu ne mesureras que le temps mis pour lancer la commande et non le traitement en lui-meme (qui s'exécutera en > arrière plan). Pour résoudre ce problème il faudra créer par API un > Shell synchronisé (c-a-d qu'on passera qu'à l'instruction > suivante que lorsque la commande est terminée) > > Cordilement. > Pascal B. > > > "squat541" wrote in message news: > | salut Eric oui g fait la methode de driss mais c pas ce que je veut > en > | faitesa methode me donne le temps qu'il fait pour l'execution du > prog c'est a > | dire un temps en milliseconde moi je veu le temp qu'il met pour l'analyse de > | mon reseau par ex il met environ 12 minute alors que la methode me > donn des > | temps qui on rien a voir > | > | "Eric" a écrit : > | > | > Bonjour squat541, > | > > | > As-tu essayé la solution de Driss? > | > > | > A ton projet tu ajoutes un module de *classe* que tu nommes cBenchmark. > | > Tu y copies le code donné commencant par : > | > '******* début classe ************* > | > et se terminant par : > | > '********* fin classe *********** > | > > | > Dans la feuille de ton projet, dans la procédure où tu as besoin > de > | > l'horloge tu mets : > | > Dim Horloge as cBenchmark > | > Set horloge = New cBenchmark > | > > | > Puis > | > Horloge.Start > | > ' ton traitement > | > Horloge.Finish > | > MsgBox Horloge.ElapsedTime > | > Set Horloge=Nothing > | > > | > Ca devrait faire l'affaire, je viens de tester > | > > | > A+ > | > Eric > | > > | > squat541 a écrit : > | > > a part ca g toujours pa la solution > | > > > | > > "scraper" a écrit : > | > > > | > > > | > >>Bonjour LE TROLL, dans le message > | > >> news: > | > >> tu disais : > | > >> > | > >> > | > >> > | > >>>Le petit, regardes sa réponse, il dit qu'il n'a pas, alors, > | > >>>c'est à lui qu'il faut le dire... > | > >> > | > >>eh, le gros, c'est bien à toi que je répondais : je sais encore placer mes > | > >>réponses au bon endroit ... > | > >> > | > >>que squat541 ne *trouve* pas ce fichier, car il n'a > certainement pas > | > >>demandé l'affichage des fichiers et dossiers cachés et systeme > est une chose > | > >>.... > | > >> > | > >>que toi tu débites des énormités en est une autre > | > >> > | > >>:-( > | > >> > | > >> > | > >> > | > >>-- > | > >> > | > >>Attention ! Adresse mail invalide ... > | > >>Pour me contacter, cliquez sur le lien ci-dessous: > | > >>http://scraper.chez.tiscali.fr/contact.htm > | > >> > | > >>scraper > | > >> > | > >> > | > > >
