Stoper acquisition et pas seulement programme

[AzoR]

Bonjour à tous !

Je cherche des lignes de commande qui permettrai que, lorsque l'on clique sur un bouton, mes acquisitions de mesures (AGILENT 34980A) s'arrêtent. Avec toutes les commandes que j'ai trouver, je ne peux pas avoir la main et cliquer sur le bouton lorsque mon Agilent fait ses acquisitions, je peux cliquer seulement pendant le traitement de mes données.
J'ai déjà essayer ceci :

"Dans la procédure de ton bouton Stop, tu insères le code suivant

'----------------------------
Sub Bouton_Stop()
arrêt = true
End Sub
'----------------------------

Dans la procédure qui génère des nombres aléatoires, tu
insères dans ladite boucle les 2 commandes suivantes :
'----------------------------
For a = 1 to XXX
DoEvents
if Arrêt = True then
Arrêt = False
Exit sub
End if

'le reste de ton code
Next
'---------------------------- "

Mais impossible de cliquer sur mon bouton pendant l'acquisition ...

Auriez vous une idée s'il vous plais ?

Merci d'avance pour votre attention,

Cordialement

 

[pascal82]

Re : Stoper acquisition et pas seulement programme

Bonjour AzoR,

Récupéré sur un autre site
A adapter donc !!!

Cordialement

Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim ArreterlaCapturedéfinitivement As Boolean

Sub Bidon()

  ArreterlaCapturedéfinitivement = False

  'While ArreterlaCapturedéfinitivement() = False
  While ArreterlaCapturedéfinitivement = False
    Call Sleep(100)
    Cells(1, 1) = "A"
    DoEvents
  Wend
  MsgBox "Terminé"
End Sub

Sub StopProcedure()
  ArreterlaCapturedéfinitivement = True
End Sub

 

[AzoR]

Re : Stoper acquisition et pas seulement programme

Bonjour,

cela ne marche pas du tout. J'ai rajouter un bouton pour exécuter ceci mais je n'ai pas la main pour pouvoir cliquer sur le bouton, et je ne comprend pas trop ce qu'il fait dans ces lignes de commande ...

Si quelqu'un a une autre idée je suis preneur !

Cordialement