Discussion :

[méphistopheles]

Bonjour à tous.

j'ai une procédure avec une progressbar qui fonctionne avec le temps:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim heure as date
heure=time
progressbar1.max=text1.text*60
do
'... code executé
progressbar1.value=datediff("s",heure,time)
loop until datediff("n",heure,time)>=text1.text

mais la barre de progression s'arrètte toujours aux deux tiers, je ne sait pas pourquoi.

merci

[jmfmarques]

Hé ! Méphisto ... tu t'es réveillé ?
Déjà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

progressbar1.max=text1.text*60

progressbar1.max est une valeur, de type integer
text1.text est de type string
text1.text * 60 n'est pas cohérent
Qu'est-ce-que tu nous fais là ?

bis repetita ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

loop until datediff("n",heure,time)>=text1.text

EDIT : VB s'en sortira quand même si Text1.text = un nombre (il en souffrira, mais...)
Mais ce n'est pas tout : mets donc 10 dans ta textbox et lance le programme, pour voir... (mais attention : ne le fais qu'avec, en tout et pour tout sur ta form qu'une textbox et un commandbutton dans l'événement click duquel tu places ton code...)
avec un tel procédé, tu es à la totale merci d'une faute de frappe. un 0 de plus, ou un chiffre mal considéré, et voilà ton appli partie pour une boucle qui promet d'être assez longue et sans possibilité (non prévue) de l'interrompre... que l'utilisateur frappe 100 et... bonjour les dégâts...

[méphistopheles]

tu devrais savoir que je ne ferais pas une déilité pareille sans m'en aperçevoir.

si tu veux savoir, le code avant ressemble à ça en résumé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if not isnumeric(text1.text) or int(text1.text)<>text1.text then exit sub

donc ça vien pas de là.
sinon, la saisie de l'utilisateur peut aller de 1 à 999999999, tout est controlé, mais là, je ne vois pas l'origine du bug.
si c'était un bug du genreque tu décrit, j'aurais un message d'erreur.
là, je n'ai rien.
la procédure se finit au bout des deux tiers de la progressbar, comme si
datediff("s",heure,time)<>datediff("n",heure,time)*60 lorsque datediff("n",heure,time) est un entier...

salut

[jmfmarques]

En dehors de ce que je t'ai dit,ta progressBar va chez moi jusqu'au bout...
mets 1 dans ta textbox (ce sera ainsi plus court) et vois..

[jmfmarques]

Ca y est Méphisto : je vois le problème :

sinon, la saisie de l'utilisateur peut aller de 1 à 999999999, tout est controlé, mais là, je ne vois pas l'origine du bug

Plus ce que tu mets dans textbox est grand, plus tu as de chances de passer par..... Minuit... (=0h.00)

[méphistopheles]

oui, mais ça me fait ce bug avec 1,2,3 ext...
pas encore testé avec 999999999

[jmfmarques]

comprends pas, je suis arrivé à tester jusqu'à 5 (après ce serait trop "paralysant" pour moi) sans aucun problème : tout va jusqu'au bout !

T'aurais pas un problème d'occupation de la mémoire ? (ça m'est arrivé aujourd'hui en voulant tester une fonction "ouvrevue" (ou quelquechose comme ça) d'un autre sujet (je crois que le titre était ouverture conditionnelle de forms)

[méphistopheles]

vais refaire une phase de tests, ça ce trouve, ça vien d'autre chose. je te donnerais la solution demain.

salut et merci.

[méphistopheles]

Voilà, j'ai fini par trouver la cause, même si je ne vois pas comment cela se fesait que ça marche chez toi (ou alors, hazard incroyable?)

en fait, le problème vien du fait que datediff ("n", heure, time) ne fera aucunes différences si heure = 18:59:00 ou 18:59:59.
il ne fait donc que la différence des chiffres des minutes ce qui n'est pas vraiment préçis.

j'ai donc résolu le problème en metant tout en foncction de la seconde et en remplaçant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

loop until datediff("n",heure,time)>=text1.text

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

loop until int(datediff("s",heure,time)/60)>=text1.text

voilà.


merçi.
bonne programation

[jmfmarques]

Le hasard est simple : lancer dans une bonne fourchette horaire .... (plus de 50 % de chances)

[méphistopheles]

non, pour que tu tombe juste, si tu l'a vérifié jusqu'au bout, il faut que tu l'ai lancé à s=00 soit une chance de 1/60. c'est peu probable.


salut

[jmfmarques]

Bon! j'ai voulu relancer, pour voir à quel point j'étais chanceux et ai découvert que je le suis souvent ! (je vais acheter un billet de loto).
Je me suis aussi amusé à changer l'heure de l'ordinnateur, pour voir...
Essaye par exemple une heure ##:30 : aucun souci. Essaye ensuite avec ##:56 ===>> plantage.

[méphistopheles]

je ne parle pas d'un plantage mais d'une procédure qui ne marche pas corectement.

normalement, à ## 01, il te manque un soissantième de ta barre au moment ou il s'arrète.


salut