Discussion :

[CLeBeR]

Bonjour,

Je voudrais couper la connexion internet de mon PC selon les heures, j'utilise un tableau de checkbox. Cependant, tout fonctionne parfaitement, par exemple pour Mardi à 18H00 sauf ... Pour les extrémités c'est à dire Lundi à 00H00, et Dimanche à 23H00 que je n'ai pas encore testé. Quand je change la date de mon PC sur lundi 00H00, le programme m'informe de cette erreur :

Une exception non gérée du type 'System.IndexOutOfRangeException' s'est produite dans Monprogramme.exe

Informations supplémentaires : L'index se trouve en dehors des limites du tableau.

Voici le code que j'utilise pour la génération du tableau :

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
 
 
Dim tab(6, 23) As CheckBox
        Dim x As Integer
        Dim y = 104
        For jour = 0 To tab.GetLength(0) - 1
            x = 216
            For heure = 0 To tab.GetLength(1) - 1
                x = x + 30
                tab(jour, heure) = New CheckBox()
                tab(jour, heure).Left = x
                tab(jour, heure).Top = y
                tab(jour, heure).Width = 15
                Me.Controls.Add(tab(jour, heure))
            Next
            y = y + 35
        Next
    End Sub

Le code pour la vérification de l'état de connexion :

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
Dim Colonne As Integer = DateTime.Now.DayOfWeek - 1
        Dim Heure As Integer = DateTime.Now.Hour - 1
 
        If tab(Colonne, Heure).Checked And InternetDesactive = False Then
            CoupureInternet()
            InternetDesactive = True
        ElseIf tab(Colonne, Heure).Checked = False And InternetDesactive = True Then
            RemiseInternet()
            InternetDesactive = False
        End If
 
        If InternetDesactive = True Then
            LabelInternetActive.Text = "Internet activé :" & " Non"
        ElseIf InternetDesactive = False Then
            LabelInternetActive.Text = "Internet activé :" & " Oui"
        End If

Avez-vous une idée de comment résoudre le problème ?

Vous pouvez télécharger le projet de test en cliquant ici.
Cordialement.