Appliquer une pause jusqu'à un évènement temporel

AzoR · 26 Août 2015

Bonjour !

Je poste ce petit message car j'ai du mal à faire un truc tout bête je pense ...

J'ai un programme avec des acquisitions qui durent environ 15s et qui se répète pendant un certain temps "b" (choisi par l'utilisateur) grâce à cette ligne :

While Time < debut + TimeSerial(0, b, 0)

Donc cela fonctionne très bien.

Or on me demande maintenant de faire en sorte que l'on choisisse une "période", par défaut 30s.
Enfaite l'acquisition devra se faire, durant environ 15s puis le programme devra attendre jusqu'à la fin de cette période, qui ne sera pas tout le temps 30s, on peut le choisir dans la listbox.

Donc avec cet exemple, pour une période de 30s, l'acquisition durera environ 15s, puis le programme devra donc attendre environ 15s.

Je fais donc une variable débutperiode = Time au début de l'acquisition, et ensuite mon problème est de dire au programme qu'il doit ATTENDRE ( et c'est bien là le problème ... ) jusqu'à ce que Now = debutperiode + TimeSerial(0, 0, p) , p étant le temps de la "période" choisi par l'utilisateur dans mon interface.

En gros je voudrais faire : " Tant que le temps de la période n'est pas atteint, attendre, puis continuer " et donc après le continuer le programme rebouclera étant donné qu'il y a le Wend à la fin qui va de paire avec ma ligne "While Time < debut + TimeSerial(0, b, 0)".

J'espère avoir été clair ... 😕

Mon programme est trop gros pour que j'arrive à le joindre mais je pense avoir assez expliquer mon problème.

Merci d'avance ! 😛

Iznogood1 · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Bonjour,

Avec une soustraction ?

VB:

AcquisitionTime = 15
TotalTime = 30
While Time < debut + TimeSerial(0, TotalTime , 0) 
  If Time < debut + TimeSerial(0, AcquisitionTime , 0) Then
    'Acquisition
  End If
WEnd

AzoR · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Bonjour Iznogood1, merci pour ta réponse !

Oui mais le soucis justement comme je l'ai expliqué c'est que mon "TotalTime" ne sera pas toujours 30s, c'est mon "p" pour moi, je remplace par TimeSerial(0, 0, p) du coup ?
Et pareil je ne veux pas avoir une variable "AcquisitionTime" = 15 car ce n'est pas toujours 15s et il faut que ce soit précis donc je ne peux pas fixer ce temps à 15s alors qu'il peut faire 14s comme 16s par exemple.

Cordialement, AzoR

Pierrot93 · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Bonjour,

si tu utilises un objet "QueryTables" mets le paramètre "BackgroundQuery" du rafraichissement à false...

bonne journée
@+

AzoR · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Bonjour Pierrot93,

Oulah .. Je n'ai rien compris à ta phrase 😕 , je vais me renseigner sur "QueryTables" et "BackgroundQuery" alors.
Bonne journée à toi aussi

Iznogood1 · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

VB:

Sub test()
  Dim TotalTime As String
  Dim AcquisitionTime As String
  Dim Debut As Date
  
  AcquisitionTime = InputBox("Temps d'acquisition :")
  TotalTime = InputBox("Temps d'éxécution maximum :")

  Debut = Time
  
  While Time <= Debut + TimeSerial(0, 0, CInt(TotalTime))
    If Time <= Debut + TimeSerial(0, 0, CInt(AcquisitionTime)) Then
      'Acquisition
    End If
  Wend

End Sub

AzoR · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Cela ne fonctionne pas les acquisitions continuent de se faire à la suite sans prendre en compte la pause.

Iznogood1 · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Quel est le code pour les acquisitions ?

AzoR · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Il existe une fonction "Wait" ou autre qui fasse que le programme attende juste un évènement ? ( ici : tant que Time <= Debut + TimeSerial(0, 0, p) WAIT, et après il continue. )

AzoR · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Bah je vais te mettre le code entier qu'il y a entre les deux mais ça ne va pas t'aider ...

While Time < Debut + TimeSerial(0, b, 0) ' avec "b" valeur de temps d'acquisition désiré
'T° ambiante

If CheckBoxTempAmb = True Then
Mesure.Cells(2, 4) = UserForm1.TxtBoxTempAmb.Value
Else:
UserForm1.TxtBoxTempAmb.Enabled = False
UserForm1.TxtBoxTempAmb.BackColor = &H80000016
UserForm1.CheckBoxTempAmb.Enabled = False

instrument.WriteString "MEAS:TEMP? THER,10000,(@5070)" 'Demande à l'Agilent de mesurer la température
ref = instrument.ReadString() '
ref = Left(ref, Len(ref) - 1) ' Température ambiante
Cells(2, 4) = ref '
End If

If CheckbPlancher = True Then
Label12_barre.Caption = "0%"
CheckbPlancher.Enabled = False

progression = 0 ' mise à zéro de la variable progression pour largeur de la barre
Image4_barre.Width = progression

'PLANCHER'
mesureP1 = Acquisition("@1001:1032")
progression = progression + 69
Image4_barre.Width = progression
Label12_barre.Caption = "50%"

mesureP2 = Acquisition("@1033:1064")

progression2 = ((Time - Debut) / TimeSerial(0, b, 0))
Label13.Caption = Int(progression2 * 100) & "%"
Image7_barre.Width = progression2 * 138

Image4_barre.Width = 138
Label12_barre.Caption = "100%"

Call TableauxPlancher
Call differencePlancher

If i <> 1 Then
Call ComparaisonRemplacementPlancher
End If

Range("Plancher") = nouveauTabPfinal
ancienTabPfinal = nouveauTabPfinal

'Application.Wait (Now + TimeSerial(0, 0, p)) 'Applique un temps d'attente égal à ce que l'on a rentré dans la ComboBox2

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Application.Wait (Now + TimeValue("0:00:02")) '
' Permet d'appliquer un temps d'attente en cas de besoin ( ici 2 secondes )'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Else:

CheckbPlancher.Enabled = False

progression = 0 ' mise à zéro de la variable progression pour largeur de la barre

'PLANCHER'
Image4_barre.Width = progression
Label12_barre.Caption = "0%"

mesureP1 = Acquisition("@1001:1032")
progression = progression + 23.2
Image4_barre.Width = progression
Label12_barre.Caption = "16%"

mesureP2 = Acquisition("@1033:1064")
progression = progression + 23.2
Image4_barre.Width = progression
Label12_barre.Caption = "33%"

'PAROI DE GAUCHE'
mesureG1 = Acquisition("@3052,3044,3036,3028,3020,3012,3004,2048,2040,2032,2024,2016,2008,3051,3043,3035,3027,3019,3011,3003,2047,2039,2031,2023,2015,2007,3050,3042,3034,3026,3018,3010,3002,2046,2038,2030,2022,2014,2006")
progression = progression + 15.4
Image4_barre.Width = progression
Label12_barre.Caption = "44%"

mesureG4 = Acquisition("@3049,3041,3033,3025,3017,3009,3001,2045,2037,2029,2021,2013,2005,3048,3040,3032,3024,3016,3008,2052,2044,2036,2028,2020,2012,2004,3047,3039,3031,3023,3015,3007,2051,2043,2035,2027,2019,2011,2003")
progression = progression + 15.5
Image4_barre.Width = progression
Label12_barre.Caption = "55%"

mesureG7 = Acquisition("@3046,3038,3030,3022,3014,3006,2050,2042,2034,2026,2018,2010,2002,3045,3037,3029,3021,3013,3005,2049,2041,2033,2025,2017,2009,2001")
progression = progression + 15.5
Image4_barre.Width = progression
Label12_barre.Caption = "67%"

'PAROI DE DROITE'
mesureD1 = Acquisition("@5045,5037,5029,5021,5013,5005,4049,4041,4033,4025,4017,4009,4001,5046,5038,5030,5022,5014,5006,4050,4042,4034,4026,4018,4010,4002,5047,5039,5031,5023,5015,5007,4051,4043,4035,4027,4019,4011,4003")
progression = progression + 23.2
Image4_barre.Width = progression
Label12_barre.Caption = "82%"

mesureD4 = Acquisition("@5048,5040,5032,5024,5016,5008,4052,4044,4036,4028,4020,4012,4004,5049,5041,5033,5025,5017,5009,5001,4045,4037,4029,4021,4013,4005,5020,5042,5034,5026,5018,5010,5002,4046,4038,4030,4022,4014,4006")
progression = progression + 22
Image4_barre.Width = progression
Label12_barre.Caption = "100%"

mesureD7 = Acquisition("@5051,5043,5035,5027,5019,5011,5003,4047,4039,4031,4023,4015,4007,5052,5044,5036,5028,5020,5012,5004,4048,4040,4032,4024,4016,4008")

Call Tableaux
Call difference

If i <> 1 Then
Call ComparaisonRemplacement
End If

Range("Plancher") = nouveauTabPfinal
Range("Gauche") = nouveauTabGfinal
Range("Droite") = nouveauTabDfinal

ancienTabPfinal = nouveauTabPfinal
ancienTabGfinal = nouveauTabGfinal
ancienTabDfinal = nouveauTabDfinal

'Application.Wait (Now + TimeSerial(0, 0, p)) 'Applique un temps d'attente égal à ce que l'on a rentré dans la ComboBox2

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Application.Wait (Now + TimeValue("0:00:02")) '
' Permet d'appliquer un temps d'attente en cas de besoin ( ici 2 secondes )'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Label13.Caption = m & "%"

End If

' Dim start As Double
' start = Timer
If CheckbEntourage = True Then
Call Entourage
End If
' Debug.Print "Entourage : " & Timer - start

Call MaxMin

progression2 = ((Time - Debut) / TimeSerial(0, b, 0))
Label13.Caption = Int(progression2 * 100) & "%"
Image7_barre.Width = progression2 * 138

i = i + 1

Wend ' While End

Iznogood1 · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

En effet !

Comment saisis-tu tes durées d'acquisition et ta durée max ?
Minutes ou secondes ?

AzoR · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Je saisi ces deux temps dans 2 ComboBox de mon interface.

b = UserForm1.ComboBox1.Value ' valeur de temps d'acquisition désiré
p = UserForm1.ComboBox2.Value ' valeur de temps de période désiré

Ma durée totale d'acquisition "b" est en minutes et ma période d'acquisition "p" est en secondes.

Par défaut j'ai mis mes combobox à b = 1 minute et p = 30s

AzoR · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

J'ai essayé ça :

periode = TimeSerial(Hour(Time), Minute(Time), Second(Time) + p)

........

If Now < periode Then
Application.Wait (Now - periode)
End If

Mais cela ne fonctionne pas les acquisitions continuent de s'enchainer ...

Pierrot93 · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

Re,

regarde peut être ceci, avec un "DoEvents " :

Code:

Option Explicit
Sub test()
Dim p As Integer, s As Single
p = 15
s = Timer
Do While Timer < s + p
    DoEvents    ' Donne le contrôle à d'autres processus.
Loop
End Sub

Iznogood1 · 26 Août 2015

Re : Appliquer une pause jusqu'à un évènement temporel

J'insiste :

Commence ton code par

VB:

Début = Time
While Time < Debut + TimeSerial(0, b, 0) ' avec "b" valeur de temps d'acquisition désiré
  If Time < Debut + TimeSerial(0, 0, p) Then

et termine le par

VB:

  End If
Wend ' While End

Appliquer une pause jusqu'à un évènement temporel

AzoR

XLDnaute Occasionnel

Iznogood1

XLDnaute Impliqué

AzoR

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

AzoR

XLDnaute Occasionnel

Iznogood1

XLDnaute Impliqué

AzoR

XLDnaute Occasionnel

Iznogood1

XLDnaute Impliqué

AzoR

XLDnaute Occasionnel

AzoR

XLDnaute Occasionnel

Iznogood1

XLDnaute Impliqué

AzoR

XLDnaute Occasionnel

AzoR

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Iznogood1

XLDnaute Impliqué

Discussions similaires

Appliquer une pause jusqu'à un évènement temporel

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Impliqué

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency