Chrono paramétrableRésolu

Question

Voil&#224; j'ai con&#231;u un chrono ki permet de lancer des appli ts les xtemps(fr&#233;quence). Jusque l&#224; pas de probl&#232;me. Par contre je veux qu'il ne tourne que xp&#233;riode. Autrement dit le chrono lance une appli toutes les 10min par exemple(la j'arrive &#224; faire &#231;a) et s'arr&#234;te compl&#232;te lorsqu'il &#224; fait 3 fois l'op&#233;ration soit au bout de 30 min.
Existe t'il une fa&#231;on regardez le code je peux pas faire de for i=0 to periode. il me faudrait plus une variable qui s'incr&#233;mente &#224; chaque fois que r&#233;alis&#233;

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&#233;mente du genre i=i+1 ; mais quand je fais &#231;a, lorsque le chrono repart i reprend la valeur 0.
Il doit y avoir un moyen
Si no comprendo, n'h&#233;site pas &#224; demander des pr&#233;cisions.
Merci d'avance

nostra78 · Accepted Answer

C bon j'ai trouve il suffisait que dans declaration je mette public i as byte

Chrono paramétrable

1 réponse

Discussions similaires