Soyez le premier à donner votre avis sur cette source.
Vue 3 682 fois - Téléchargée 228 fois
Dim nb, temps1, temps2, temps3, temps4, temps5, temps6, temps7, temps8, app1, app2, app3, app4, app5, app6, app7, app8 As String Private Sub Form_Load() Open "APPS.TXT" For Input As #1 Line Input #1, nb If nb >= 1 Then Line Input #1, app1 Line Input #1, temps1 End If If nb >= 2 Then Line Input #1, app2 Line Input #1, temps2 End If If nb >= 3 Then Line Input #1, app3 Line Input #1, temps3 End If If nb >= 4 Then Line Input #1, app4 Line Input #1, temps4 End If If nb >= 5 Then Line Input #1, app5 Line Input #1, temps5 End If If nb >= 6 Then Line Input #1, app6 Line Input #1, temps6 End If If nb >= 7 Then Line Input #1, app7 Line Input #1, temps7 End If If nb >= 8 Then Line Input #1, app8 Line Input #1, temps8 End If If nb > 8 Then nb = 8 Close #1 test = Shell(app1, vbNormalFocus) Timer1.Interval = temps1 * 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Timer1.Enabled = False If nb >= 2 Then test = Shell(app2, vbNormalFocus) Timer2.Interval = temps2 * 1000 Timer2.Enabled = True Else: End End If End Sub Private Sub Timer2_Timer() Timer2.Enabled = False If nb >= 3 Then test = Shell(app3, vbNormalFocus) Timer3.Interval = temps3 * 1000 Timer3.Enabled = True Else: End End If End Sub Private Sub Timer3_Timer() Timer3.Enabled = False If nb >= 4 Then test = Shell(app4, vbNormalFocus) Timer4.Interval = temps4 * 1000 Timer4.Enabled = True Else: End End If End Sub Private Sub Timer4_Timer() Timer4.Enabled = False If nb >= 5 Then test = Shell(app5, vbNormalFocus) Timer5.Interval = temps5 * 1000 Timer5.Enabled = True Else: End End If End Sub Private Sub Timer5_Timer() Timer5.Enabled = False If nb >= 6 Then test = Shell(app6, vbNormalFocus) Timer6.Interval = temps6 * 1000 Timer6.Enabled = True Else: End End If End Sub Private Sub Timer6_Timer() Timer6.Enabled = False If nb >= 7 Then test = Shell(app7, vbNormalFocus) Timer7.Interval = temps7 * 1000 Timer7.Enabled = True Else: End End If End Sub Private Sub Timer7_Timer() Timer7.Enabled = False If nb = 8 Then test = Shell(app8, vbNormalFocus) Timer8.Interval = temps8 * 1000 Timer8.Enabled = True Else: End End If End Sub Private Sub Timer8_Timer() Timer8.Enabled = False End End Sub
Mais cest utile...
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.