Attendre la fin d'une acquisition

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Attendre la fin d'une acquisition

bruelhagerri

bonjour à tous,

je travaille en vba sur le logiciel pulselabshop (v6.0)
ce soft sert à récupérer des signaux acoustiques
ma macro permet de faire plusieurs acquisitions à la suite puis enregistrer les données dans un fichier texte; chaque acquisition dure 10s
mon problème est le suivant:

l'avancement du code de la macro n'attends pas la fin de l'acquisition (code: pulselabshop.start).
j'ai trouvé un moyen de la faire fonctionner mais j'aimerai éviter de devoir cliquer lors des mesures successives:

Code :

PulseLabShop.start
check = timer
start = timer
tempo=10
while check<tempo+start
msgbox "attends 10s"
check=timer
wend

sans l'apparition de la msgbox, l'acquisition ne se fait pas, la commande etant passé. j'ai déjà essayer les "sleep" et "do event", même constat. j'ai essayer également de créer un userframe avec date d'expiration de 10s, mais elle aussi prends le dessus sur ma mesure.

j'ai pas trouvé de flag indiquant la fin des mesures non plus.

pour finir, voici ou sont sauvegardé les données

Code :

Dim FunctionData As Object
Dim Data As Variant
Set FunctionData = Project.FunctionOrganiser.FunctionGroups("LOG" ).Functions("Spectre dB (Input " & NumeroMicro & " )" ).FunctionData
Data = FunctionData.GetAllValues(True)

j'aurais voulu verifier si la derniere case etait vide et attendre tant qu'elle ne l'est pas

genre

Code :

while data(1600,0) is empty
wend

mais avant d'être remplie, cette case est de type <type mismatch>, donc je sais pas comment faire ma condition, is empty ne marchant pas :furieux:
(de toute façon je doute que ça marche ...)

comment puis je faire ? thread avec l'userform? (si oui, je veux bien l'adresse d'un cours simple en VB, j'en ai pas trouvé)

merci d'avance !

Publicité

vave

Nice to meet me

Bonjour,
tu as essayé avec

Code :

while data(1600,0) = ""
wend

---------------
Bel ours Vave, je me dois de l’admettre. -Skyl"win"- Mais toi tu es intelligent -Homerde- - Ce génie -SkylWINd- JDD S16M72 10:43:46 GMT-DTC +1

bruelhagerri

à l'instant, il aime pas plus ...

bruelhagerri

Code :

While (Data(1600, 0)) = QNAN
Data = FunctionData.GetAllValues(True)
Wend

permet de bloquer la macro met ne permet plus a l'acquisition de reprendre comme pourrait le faire la msgbox...

donc, cette solution ne semble pas la bonne

Message édité par bruelhagerri le 29-11-2012 à 16:05:08

bruelhagerri

j'ai choisi de créer un userform comme une messagebox mais avec une date limite de 20s. le problème étant que quand cette user s'affiche elle bloque le code. j'aimerai la faire devenir modal donc (comme la msgbox non ?)
pour l'instant le soft fonctionne pke j'ai fait un truc dégueulasse (et mauvais pour la santé des épileptiques!)

Code :

Public Sub UserForm_Activate()
popup.Hide
End Sub

userform popup s'ouvre et se ferme

Code :

Sub fenetrepopup()
UserForm2.Hide
waiting
Dim Check, start, tempo As Long
Check = Timer
start = Timer
While Check < start + 20
Check = Timer
popup.Show
waiting
Wend
UserForm2.Show
End Sub

et la en fait j'appelle popup qui se ferme pendant 20 secondes.
si je met ma tempo dans userform popup, mon acquisition s’interrompt.
Userform2 est ma form principale, et pour info, waiting:

Code :

Public Sub waiting()
Dim i As Integer
For i = 1 To 1000
DoEvents
Next i

Des idées ?
merci

Marc L

Bonjour ! Je ne vois pas très bien la problématique mais voici le code de ma fonction de pause (gérant le passage à minuit de la fonction Timer)
me donnant une totale satisfaction en VBA Office …

Code :

Sub Pause(Optional P = 0.01)
D = Timer
F = D + P
While Timer < F
If Timer < D Then F = F - 86400: D = 0
DoEvents
Wend
End Sub

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Attendre la fin d'une acquisition

Sujets relatifs
DOS : Attendre sans consommer 100% de l'UC	[JS] Attendre la fin d'une instruction avant de passer à la suivante
Problèmes - Logiciel d'acquisition de temps	acquisition image sous matlab
Requête asynchrone (comment attendre ?)	[bash] wait pour n'attendre qu'un seul fils
SCADA:supervisory control and data acquisition	C - attendre n milliseconds entre 2 iterations d'une boucle
[D7]Clavier et Application.ProcessMessages	Programmer Acquisition de données en C++/VB
Plus de sujets relatifs à : Attendre la fin d'une acquisition

Page générée en 0.067 secondes