bonsoir
je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
bonsoir
je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
bonsoir
je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Kic360 wrote:bonsoir
Hello,je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Kic360 wrote:
bonsoir
Hello,
je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Kic360 wrote:bonsoir
Hello,je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Kic360 wrote:bonsoir
Hello,je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Kic360 wrote:
bonsoir
Hello,
je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Kic360 wrote:bonsoir
Hello,je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Bonjour,
Et puis si t'as du mal avec le Timer, tu peux faire autre chose,
mais je vais me faire fusiller, ce n'est pas académique, ceci :
Bonjour,
Et puis si t'as du mal avec le Timer, tu peux faire autre chose,
mais je vais me faire fusiller, ce n'est pas académique, ceci :
Bonjour,
Et puis si t'as du mal avec le Timer, tu peux faire autre chose,
mais je vais me faire fusiller, ce n'est pas académique, ceci :
Mais... il a quoi mon gosub, es-tu anti-gosub, pourquoi donc ?
Mais... il a quoi mon gosub, es-tu anti-gosub, pourquoi donc ?
Mais... il a quoi mon gosub, es-tu anti-gosub, pourquoi donc ?
Kic360 wrote:bonsoir
Hello,je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Kic360 wrote:
bonsoir
Hello,
je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Kic360 wrote:bonsoir
Hello,je recherche le code pour lancer une suite de 3 programmes avec un
timer entre chaque pour leur laisser le temps de s'ouvrir.
open "c:program filestrucmuch.exe" ne fonctionne pas
une idée?
Oui :-)
Consulter la FAQ du groupe qui indique divers moyen de faire ça,
à adapter à tes besoins:
http://faq.vb.free.fr/index.php?question=7
http://faq.vb.free.fr/index.php?question3
http://faq.vb.free.fr/index.php?question2
Pour faire une pause entre les lacements, tu peux utiliser ceci:
http://faq.vb.free.fr/index.php?question6
Ou bien utiliser un timer. On met alors le nom des exe dans un tableau
et on crée un timer qui se déclenche par exemple toutes les N secondes.
Dans le timer, on maintient une variable statique que l'on incrémentera
à chaque passage. une fois le dernier programme lancé, on disable le
timer.
Ca donnerait un truc comme ça:
'
' Mettre sur la form un Timer (Timer1) et un
' bouton de commande (Command1)
Option Explicit
Const NBR_PROGS As Long = 3
Dim Tprogs(NBR_PROGS) As String
Private Sub Form_Load()
Tprogs(1) = "toto.exe"
Tprogs(2) = "titi.exe"
Tprogs(3) = "tutu.exe"
End Sub
Private Sub Command1_Click()
Timer1.Interval = 2000 ' 2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n > NBR_PROGS Then
MsgBox "tous les programmes ont été lancés"
Timer1.Enabled = False
n = 0 ' Reset
Else
MsgBox "lance le programme : " & Tprogs(n)
' lancer ici le programme
End If
End Sub
Note: l'instruction Open ne fonctionne pas du tout comme tu crois.
Cf. http://msdn.microsoft.com/en-us/library/aa266177(VS.60).aspx
Tu peux consulter l'aide de VB ici:
http://msdn.microsoft.com/en-us/library/aa139596.aspx
D'une façon générale, la FAQ du groupe contient de nombreux
articles et exemples de code: http://faq.vb.free.fr/
Cordialement,
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
bonjour
j'ai voulu simplifier le système pas de feuille, ni de boutons!
est-ce que je peux faire cela?
comment réduire les fenêtres des 2 premiers logiciels?
bonjour
j'ai voulu simplifier le système pas de feuille, ni de boutons!
est-ce que je peux faire cela?
comment réduire les fenêtres des 2 premiers logiciels?
bonjour
j'ai voulu simplifier le système pas de feuille, ni de boutons!
est-ce que je peux faire cela?
comment réduire les fenêtres des 2 premiers logiciels?