Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic au sujet du timer

au sujet du timer

21 réponses
Avatar
squat541
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
LE TROLL
Eh, y vont pas te conserver comme mvp, par rapport aux
autres ici, tu aboies de trop, surtout que ce n'est même pas
ton forum, alors tu connais la sortie ---> DEGAGE --->
------------

"scraper" a écrit dans le message de
news: O$
Bonjour squat541, dans le message
news:
tu disais :


desomé troll mais la premiere il ne se passe rient et la
deuxieme
message d'erreur
"fichier introuvable: kernel"



c'est normal, voyons : il fait son code de tête (et il le
vérifie même pas ! :-(




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
scraper
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
Avatar
scraper
Bonjour LE TROLL, dans le message
news:
tu disais :


Eh, y vont pas te conserver comme mvp, par rapport aux
autres ici, tu aboies de trop,



ça, c'est *ton* sentiment ... tu es aveuglé par la rage et le ressentiment
(la frustration, aussi ??)

je peux comprendre ça :-)

surtout que ce n'est même pas
ton forum, alors tu connais la sortie



là, tu vois, moi contrairement à toi, je suis le bienvenu sur *tous* les
forums microsoft ... tu veux que je te raffraichisse la mémoire, concernant
ton (bref et pénible) passage sur scripting et OE 6 ?? MDR !!!


---> DEGAGE --->

ce n'est certainement pas toi qui vas me dicter ma conduite ;-)
PS : tu apprendras que c'est pas forcément celui qui CRIE qui a raison :o)
est ce que je m'énerve moi ?

tu es à court d'arguments, tu vas encore nous ressortir ton couplet sur
l'armée, le délit de sale gueule et autres gracieusetés firsant le point
GodWin ? :-(



par contre, je vais dégager de ce post, que tu as pollué comme tant d'autres
ici par ta simple présence



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
LE TROLL
Scraper ne donne pas de solution, scraper ne fais pas de
VB (il fait du mvp dans OutLook express et les macros avec
vbA); Scraper ne borne à critiquer mes réponses, c'est mon
critique attitré, une sorte de parasite qui vit de mon sang
:o)

Et si tu montrais ton code, juste les deux morceaux
utiles, celui qui génère le début de ton analyse, et celui
qui constate la fin de ton analyse, peut être qu'on pourrait
t'aider... Car il me semble que les méthodes données sont
bonnes, mais que tu ne sais pas où les mettre, et pour ça,
faudrait voir ton code :o)

Sur le principe:
-1- lancement timer
-2- début d'analyse
-3- analyse
-4- fin d'analyse
-5- arrêt et lecture du timer ou de l'API...

Où est le problème (avec les exemple joints hier)???
------------

"squat541" a écrit dans
le message de news:

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






Avatar
scraper
Bonjour squat541, dans le message
news:
tu disais :


a part ca g toujours pa la solution




dans ce thread je me suis juste borné à souligner l'énormité (une de plus
... incongruité, devrais je dire ?) de la réponse de LE TROLL ...

contrairement à lui, je ne prétends pas avoir un QI digne de la foire du
Trône, ni tout savoir ou connaitre ....
la diférence essentielle, avec lui, c'est que moi, la seule chose que je
sais, c'est que je ne sais rien ... :-)

mais voir quelqu'un qui se prétend aussi au dessus de la moyenne, et qui en
plus prétend sur son CV bidon avoir des connaissances aussi extraordinaires
en informatique débiter de telles conneries, désolé, moi, je ne laisse pas
passer :-)


j'espère que tu auras les réponses que tu souhaites

fin de ce thread (pollué par la présence de LE TROLL, comme bien d'autres
ici) en ce qui me concerne




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
LE TROLL
Mon bon 747, ou, je veux dire 541, tu as quand même
remarqué que je t'ai donné deux réponses, moi, et scraper
(crétin n°2), n'a donné aucune réponse, à part critiquer les
miennes, mais à travers ça il te critique, car il dit que la
dll que tu indiquais ne pas avoir, ce n'est pas possible,
car un ordinateur ne peut fonctionner sans, certes, mais ça
signifie aussi qu'il te dit que tu dis n'importe quoi, eh
oui, il faut se méfier du crétin n°2...

C'est trop marrant ce scraper crétin n°2, il ne sait pas
gérer le temps en VB, or c'est tellement "basic" que comme
je le dis, c'est un incapable complet qui n'a rien à faire
ici, il ne sait pas programmer, pourtant il vient
régulièrement, et seulement pour attaquer les réponses des
autres, ou recoller en réponse un bout de code recopié sur
Internet, qu'il ne comprend pas, en guise de réponse, et
personne ne voit rien, et après ils s'étonnent que je les
prenne pour des truffes, mais y a de quoi, nul ne voit que
c'est un imposteur !!!

Bon, à part ça, quand est-ce que tu montres ton code ???
Qu'on en termine avec ton problème ???
------------

"scraper" a écrit dans le message de
news:
Bonjour squat541, dans le message
news:
tu disais :


a part ca g toujours pa la solution




dans ce thread je me suis juste borné à souligner
l'énormité (une de plus ... incongruité, devrais je dire
?) de la réponse de LE TROLL ...

contrairement à lui, je ne prétends pas avoir un QI digne
de la foire du Trône, ni tout savoir ou connaitre ....
la diférence essentielle, avec lui, c'est que moi, la
seule chose que je sais, c'est que je ne sais rien ...
:-)

mais voir quelqu'un qui se prétend aussi au dessus de la
moyenne, et qui en plus prétend sur son CV bidon avoir des
connaissances aussi extraordinaires en informatique
débiter de telles conneries, désolé, moi, je ne laisse pas
passer :-)


j'espère que tu auras les réponses que tu souhaites

fin de ce thread (pollué par la présence de LE TROLL,
comme bien d'autres ici) en ce qui me concerne




--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
Eric
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






Avatar
Pascal B.
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
| > >>
| > >>
| >
Avatar
Driss HANIB
je souscrit à la réponse de Pascal

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
| > >>
| > >>
| >




Avatar
Patrice Henrio
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

Private Sub CmdFin_Click()
Dim D1 As Long, D2 As Long, D3 As Long
GetLocalTime Fin
LblFin.Caption = Ecrire(Fin)
D1 = 3600 * CLng(Début.wHour) + 60 * CLng(Début.wMinute) + Début.wSecond
D2 = CLng(24) * CLng(3600) * CLng(Fin.wDay - Début.wDay) + 3600 *
CLng(Fin.wHour) + 60 * CLng(Fin.wMinute) + Fin.wSecond
D3 = D2 - D1
Durée.wDay = Int(D3 / CLng(86400))
D3 = D3 - CLng(86400) * Durée.wDay
Durée.wHour = Int(D3 / 3600)
D3 = D3 - 3600 * Durée.wHour
Durée.wMinute = Int(D3 / 60)
Durée.wSecond = D3 - 60 * Durée.wMinute
LblDurée.Caption = Ecrire(Durée)

End Sub


"Driss HANIB" a écrit :

je souscrit à la réponse de Pascal

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
> | > >>
> | > >>
> | >
>
>







1 2 3