COMPTE À REBOUR LE PLUS SIMPLIFIER POSSIBLE

Commentaire de ScSami le 31/05/2005 02:59:23

Ben a raison... De plus, ton code n'est pas très correcte :

Private Sub Commande4_Click()

'Déclare les variables locales
Dim varNombreDeSecondes As Integer  'Secondes du compte à rebours
Dim varTempsDeDepart As Long        'Temps de départ
Dim varTempsDarrivee As Long        'Temps d'arrivée

'Initialise la valeur des variables
varNombreDeSecondes = 10  '10 secondes pour le compte à rebours
varTempsDeDepart = Timer  'Timer => Temps actuel en secondes
varTempsDarrivee = varTempsDeDepart + varNombreDeSecondes

'Affiche le résultat pour la 1ère fois
' TempsFinal - Temps Actuel = secondes restantes!
Texte13.Value = varTempsDarrivee - Timer

'Fait Tant que (TempsActuel < varTempsDarrivee)
Do While Timer < varTempsDarrivee
  Texte13.Value = varTempsDarrivee - Timer
  DoEvents  'Permet à Windows de faire autre
            'chose durant un cours instant
Loop  'Retourne à "Do" [Recommance la boucle]
'On ressort donc de la boucle si le temps actuel
' est égale ou supérieur aux temps de fin
' précédemment calculé!

'Affiche le résultat pour la dernière fois
Texte13.Value = varTempsDarrivee - Timer

End Sub


Si t'as d'autres questions, on est à ta disposition!

Bon début, persévère :-)

Enjoy

Commentaire de Ben2998 le 31/05/2005 14:27:39

Pour le label, c'est une étiquette de texte, dans les nouveau Visual Basic .net, la fonction .caption est remplacé par .text

Pour l'interval, c'est comme un métronome, à chaque x temps il agit, l'intervale sert à définir ce temps. dans un interval, la variable est en miliseconde alors si tu veux faire une seconde il faut l'ajuster à 1000...

J'espère t'avoir aidé ;)

Ben2998

Commentaire de ScSami le 01/06/2005 00:49:01

Alors déjà, mon code est un peu moins du "bricolage" que le tien!!! Alors, utilise-le!

Ma solution, oui, tu peux l'utiliser sans autre dans VBA, celle de Ben, non(et oui à la fois)... En effet, celle de Ben utilise un "Controle" "Timer" (attension à ne pas confondre avec l'instruction Timer que j'utilise!!!). Or, le VBA n'a pas, par défaut, ce controle. Mais les controles, tu peux en ajouter sur ton ordinateur... Le controle ActiveX Timer est livré avec ceux par défaut du Visual BASIC (version complète)... Donc, si tu as déjà un programme VB installé sur ta machine, y'a des chances que tu ais ce controle (qui sont sous la forme de fichier d'extension .OXC). Mais si tu veux utiliser ton code VBA sur d'autres machines que la tienne (portabilité), il faudra aussi livrer le .OCX du Timer (même si, quelque part, vu que tu n'as pas acheté le VB, tu n'en as pas le droit... ;-).

Alors, en effet, un des nombreux avantages du Controle Timer face à l'instruction Timer, c'est que le controle, lui, fonctionne en millisecondes alors que Timer fonctionne en secondes. D'où l'explication que "Timer = Timer + 1" donne bien 1 seconde!!! Donc, tout fonctionne parfaitement, rassure-toi ;-)

En ce qui concerne Label, ben c'est aussi un control qu'il faut placer sur ta feuille... Ensuite, si c'est le premier, ce sera Label1.text... Mais tu peux renommer les controles comme tu veux en affichant la fenêtre des propriétés (c.f. clique droit ou menus...).

En espèrant également t'avoir apporté de nouvelles lumières...

Enjoy

Commentaire de yoman64 le 01/06/2005 06:20:07

Encore plus simple et plus propre:

Dim Stoptime As Long
Dim Startime As Long
Dim Compte As Integer

Compte = 10 ' Indiqué la duré du timer
Startime = Timer
Stoptime = Startime + Compte


While Stoptime > Timer
    'afficher ou le compte est rendu
    Texte13.Text = Format(Compte - (Timer - Startime), "00")
    DoEvents
Wend

Voila


@++
Que la prog soit avec vous ;-)

Commentaire de ScSami le 01/06/2005 14:19:52

Grrr... Que veux-tu Man, on s'refait pas!!! J'aime tartiner à outrance... j'y peux rien... c'est un peu comme Sega... c'est plus fort que moi!!! Pi franchement, avec mon avatar, tout le monde sait bien que je suis un peu schizo ;-)

Non mais clair que ton code est plus propre... mais j'essayais juste de reprendre (avec bcp de difficultés je dois bien avouer!!! la fatigue?) celui de Till...

Enjoy...
et que le punk soit aussi avec vous ;-)

Commentaire de sosodef88 le 01/06/2005 15:56:07

vaut mieux utiliser un thread qu'un timer sinon pour des durées comme une heure il y a un décalage de quelques seconde ...

Commentaire de sosodef88 le 01/06/2005 16:50:35

Declare Function CreateThread Lib "kernel32" Alias "CreateThread" (lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal dwStackSize As Long, lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long

==> sert a créé des thread.... ai je été clair ? :)

Commentaire de BruNews le 01/06/2005 17:17:11 administrateur CS

On ne crée pas de thread en VB, c'est plantage à tout coup.

Commentaire de sosodef88 le 01/06/2005 18:30:16

ha bon ? je ne sais pas j'ai pas tester mais il me semble qu'on peut créé des thread meme en vb

Commentaire de BruNews le 01/06/2005 18:45:48 administrateur CS

La seule incertitude est sur le moment du plantage, peut varier entre 2 tests du même prog, dépendra seulement du fait que VB ira écrire sur la pile du thread (et donc corruption) car n'a aucune info sur le thread créé.

Commentaire de Ben2998 le 02/06/2005 02:42:39

Alors, j'ai fait mon travail et félécitation à vous autres ;). L'art d'enseigner sans être irrespectueux. :D Je laisse ce message aller et bravo encore!

Commentaire de didyman le 03/06/2005 02:54:57

cest vrai... personne n'y avais penser a minuit!!!

Bravo joebarteamv

Commentaire de nico1610 le 09/06/2005 15:58:55

un problémé avec tous ca : quand le prgm bouffe trops de GHz le timer ralentis !!