Discussion :

[Fabdunet13]

bonjour
je cherche à faire un petit programme toute bête qui a pour action :

Code :

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

1
2
3
4
5
si il est entre 12H et 14H30 
alors 
echo "bien venue au club informatique"
 Else 
echo " le club informatique et fermé, la session va se déconnecter . "

Déconnecter la session, je sais, faire, mais la condition avec le temps , je sais pas faire . Aurais-tu une idée ?

[Kropernic]

Code :

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

1
2
3
4
5
6
7
8
 
If Now.Hours > 12 AndAlso Now.Hours < 15 Then
    If Now.Hours = 14 AndAlso Now.Minute > 30 Then
        MsgBox("club fermé")
    Else
        MsgBox("bienvenue")
    End If
End If

[tomlev]

Code :

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

1
2
3
4
5
6
7
8
9
Dim time = DateTime.Now
Dim minDate = time.Date.AddHours(12)
Dim maxDate = time.Date.AddHours(14).AddMinutes(30)
 
If time >= minDate AndAlso time <= maxDate Then
    ...
Else
    ...
End If

[tomlev]

Code :

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

1
2
3
4
5
6
7
8
 
If Now.Hours > 12 AndAlso Now.Hours < 15 Then
    If Now.Hours = 14 AndAlso Now.Minute > 30 Then
        MsgBox("club fermé")
    Else
        MsgBox("bienvenue")
    End If
End If

Avec ça, ça va rien indiquer du tout s'il n'est pas entre 12 et 15h...

En plus il faut éviter de teste plusieurs fois la valeur de Now, parce que ça renvoie une valeur différente à chaque fois (vu que le temps continue à s'écouler...). Il faut mettre Now dans une variable et travailler sur cette variable.

[Fabdunet13]

Code :

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

1
2
3
4
5
6
7
8
9
Dim time = DateTime.Now
Dim minDate = time.Date.AddHours(12)
Dim maxDate = time.Date.AddHours(14).AddMinutes(30)
 
If time >= minDate AndAlso time <= maxDate Then
    ...
Else
    ...
End If

Merci génial

[Kropernic]

Avec ça, ça va rien indiquer du tout s'il n'est pas entre 12 et 15h...

En plus il faut éviter de teste plusieurs fois la valeur de Now, parce que ça renvoie une valeur différente à chaque fois (vu que le temps continue à s'écouler...). Il faut mettre Now dans une variable et travailler sur cette variable.

Tu as tout à fait raison. Mais mon but n'était pas d'apporter une solution "clef sur porte".

[Fabdunet13]

Re Bonjour

je me suis baser sur un petit script horaire pour exécuter une action :

Code :

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

1
2
3
4
5
6
7
8
9
Dim time = DateTime.Now
        Dim minDate = time.Date.AddHours(12).AddMinutes(30)
        Dim maxDate = time.Date.AddHours(13).AddMinutes(30)
        If time >= minDate AndAlso time <= maxDate Then
        Else
            Shell("shutdown -l -f")
            MsgBox("Vous vous trouvez en dehors des heure club informatique ")
 
        End If

Cette ligne de programme dit qu'entre 12h30 et 13h30 rien ne sa passe, et avant et après ces horaires, la session Windows se ferme ( .

ex : ci ce programme et exécuter a 08h00 la session ce ferme (hell("shutdown -l -f")
ci ce programme et exécuter a 13h10 rien ne ce passe .

j'aimerais aller plus loin, dire que tous les mardis et tous les jeudis entre 12h30 et 13h30 il se passe rien,
en revanche avant et après la condition, il ferme la session Windows.

avez vous une idée ?
je suis perdu

[rv26t]

Bonjour,

Avec la méthode DayOfWeek

Code :

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

1
2
        Dim dt As DateTime = Now
        If Not (dt.DayOfWeek = DayOfWeek.Thursday Or dt.DayOfWeek = DayOfWeek.Tuesday) Then MessageBox.Show(" nous ne somme pas mardi ou jeudi ")

A utiliser en complément de ce que tu as déjà.

Cela devrait donner

Code :

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

1
2
3
4
5
6
7
        Dim dt As DateTime = Now
        Dim HeureMin As DateTime = dt.Date.AddHours(12).AddMinutes(30)
        Dim HeureMax As DateTime = dt.Date.AddHours(13).AddMinutes(30)
        If Not ((dt.DayOfWeek = DayOfWeek.Thursday Or dt.DayOfWeek = DayOfWeek.Tuesday) AndAlso dt >= HeureMin AndAlso dt <= HeureMax) Then
            MsgBox("Vous vous trouvez en dehors des heures d'ouverture du club informatique. ")
            Shell("shutdown -l -f")
        End If

Note : j'utilise la partie ordinale de DayOfWeek pour éviter les problèmes de culture.

[Edit]Rajout de parenthèses pour une meilleure clarté du code avec le not.

[Fabdunet13]

Bonjour,

Avec la méthode DayOfWeek

Code :

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

1
2
        Dim dt As DateTime = Now
        If Not (dt.DayOfWeek = DayOfWeek.Thursday Or dt.DayOfWeek = DayOfWeek.Tuesday) Then MessageBox.Show(" nous ne somme pas mardi ou jeudi ")

A utiliser en complément de ce que tu as déjà.

Cela devrait donner

Code :

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

1
2
3
4
5
6
7
        Dim dt As DateTime = Now
        Dim HeureMin As DateTime = dt.Date.AddHours(12).AddMinutes(30)
        Dim HeureMax As DateTime = dt.Date.AddHours(13).AddMinutes(30)
        If Not ((dt.DayOfWeek = DayOfWeek.Thursday Or dt.DayOfWeek = DayOfWeek.Tuesday) AndAlso dt >= HeureMin AndAlso dt <= HeureMax) Then
            MsgBox("Vous vous trouvez en dehors des heures d'ouverture du club informatique. ")
            Shell("shutdown -l -f")
        End If

Note : j'utilise la partie ordinale de DayOfWeek pour éviter les problèmes de culture.

[Edit]Rajout de parenthèses pour une meilleure clarté du code avec le not.

Au top MERCI