Chrono paramétrable [Résolu]

nostra78 137 Messages postés jeudi 10 mars 2005Date d'inscription 6 décembre 2005 Dernière intervention - 31 mars 2005 à 15:37 - Dernière réponse : nostra78 137 Messages postés jeudi 10 mars 2005Date d'inscription 6 décembre 2005 Dernière intervention
- 31 mars 2005 à 16:00
Voilà j'ai conçu un chrono ki permet de lancer des appli ts les xtemps(fréquence). Jusque là pas de problème. Par contre je veux qu'il ne tourne que xpériode. Autrement dit le chrono lance une appli toutes les 10min par exemple(la j'arrive à faire ça) et s'arrête complète lorsqu'il à fait 3 fois l'opération soit au bout de 30 min.
Existe t'il une façon regardez le code je peux pas faire de for i=0 to periode. il me faudrait plus une variable qui s'incrémente à chaque fois que réalisé

Sub Chrono()
Dim H, DS, Init
Dim Final


DS = CByte(Chronometre.Timems.Caption) + 1
Init = TimeValue(Chronometre.Time.Caption)
Final = TimeValue("00:00:" & Interface.Minute.Value)
Chronometre.Timems.Caption = CStr(DS)
If (DS Mod 10) = 0 Then
H = TimeValue(Chronometre.Time.Caption) + TimeSerial(0, 0, 1)
Chronometre.Time.Caption = Format(H, "hh:mm:ss")
Chronometre.Timems.Caption = "0"
End If
If Init = Final Then
TimerOff
Chronometre.Time.Caption = "00:00:00"
If Interface.Application.Value = True Then
Call Application
End If
La il me faudrait une variable qui s'incrémente du genre i=i+1 ; mais quand je fais ça, lorsque le chrono repart i reprend la valeur 0.
Il doit y avoir un moyen
Si no comprendo, n'hésite pas à demander des précisions.
Merci d'avance
Afficher la suite 

1 réponse

Meilleure réponse
nostra78 137 Messages postés jeudi 10 mars 2005Date d'inscription 6 décembre 2005 Dernière intervention - 31 mars 2005 à 16:00
3
Merci
C bon j'ai trouve il suffisait que dans declaration je mette public i as byte

Merci nostra78 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 92 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.