Discussion :

[bpellissier]

bonsoir à tous,

j'utilise depuis longtemps ce site pour mes recherches et j'ai toujours trouvé ma vie, merci à tous les contributeurs

j'ai crée un programme access 2013 pour gérer mes éclairage DMX avec un module K8062 pour ma disco mobile.
pour ceux qui ne connaissent pas :
- DMX : c'est un système de pilotage des éclairages de disco ou de scènes par un protocole DMX avec des prises XLR à 3 broches
- K8062 : c'est un module en kit électronique de welleman avec un liaison usb sur le pc qui envoi les infos en DMX pour des projecteurs DMX

je pilote mes projecteurs sans problème avec les fonctions en VBA.

mon problème :
je voudrais créer scènes ( enchainement de séquences ) :
par exemple lancer le projecteur 1 pendant 6 secondes, puis le projecteur 2 pendant 4 secondes, lancer le 3 et 4 pendant 10 secondes
faire un chenillard ( 4 projo en cadencement ) etc

comment gérer le temps et lancer une fonction en vba access à des intervalles de temps ( chrono, timelap ... )

j'èspere être clair dans mes explications

merci d'avance
bruno

[loufab]

Bonjour,

Les opérations temporelles (ça fait SF !! ) sont essentiellement pilotées par les événements Sur Minuterie dans les formulaires.

Chaque x millisecondes (qui se règle également dans les propriétés du formulaire) l'évènement invoqué...

Faire des enchainements peut se faire avec plusieurs formulaires ouvert avec leur propre minuterie (1 par formulaire) ou bien en avoir 1 seul qui est réglé tous les x ms et qui va vérifier que l'écart est bon pour exécuter tes phases.

Pas simple et pas pratique.

Cordialement,

[oxedet]

Bonjour
une temporisation, dans le cadre d'un SUB, entre deux actions. Différentes solutions sont évoquées :
http://www.developpez.net/forums/d17...on-access-vba/

[bpellissier]

bonsoir,
merci à vous, l'événement "sur minuterie" j'ai testé mais c'est pas top, on ne fait pas trop comme ont veux

j'ai trouvé le truc ( merci à lui ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
sub WaitSeconds(intSeconds As Integer) avec le code associé qui va bien :
 
Public Sub WaitSeconds(intSeconds As Integer)
  ' Comments: Waits for a specified number of seconds
  ' Params  : intSeconds      Number of seconds to wait
  ' Source  : Total Visual SourceBook
 
  On Error GoTo PROC_ERR
 
  Dim datTime As Date
 
  datTime = DateAdd("s", intSeconds, Now)
 
  Do
   ' Yield to other programs (better than using DoEvents which eats up all the CPU cycles)
    Sleep 100
    DoEvents
  Loop Until Now >= datTime
 
PROC_EXIT:
  Exit Sub
 
PROC_ERR:
  MsgBox "Error: " & Err.Number & ". " & Err.Description, , "modDateTime.WaitSeconds"
  Resume PROC_EXIT
End Sub

mon projet avance bien. 6 effets de jeu de lumière intégré et 4 par led en cours.


je continue
bruno

[bpellissier]

Juste pour le titre, modo merci par avance

[bpellissier]

bonsoir à tous,
voila mon projet est terminé. le logiciel permet de piloter des projecteurs et effets de lumière.
on peux aussi créer des scènes qui enchainent automatiquement les projecteurs.