Bonjour,
je voudrais développer une petite application qui coupe internet selon une plage horaire qui à été définie par l'utilisateur. (Faire un truc semblable au contrôle parental de la Freebox.)
Je pense donc à créer 168 checkbox pour définir la plage horaire.
Je voudrais récupérer le jour de la semaine exemple : Mercredi ainsi que l'heure sans les minutes si possible.
Ainsi je pourrais faire un code du genre :
Dim Jour As String = Récupération Jour
Dim Heure As String = Récupération Heure
If ME18.Checked And Jour = "Mercredi" And Heure = "18" Then
'Coupure Internet
End If
Voilà je n'ai trouvé que cette solution, si vous avez mieux merci de me proposer.
Merci.
Bonjour à tous !
voici la solution que j'ai retenue. J'initialise un tableau de chexbox.
Dim tab(7, 23) As CheckBox
Dim x
Dim y = 425
For jour = 0 To tab.GetLength(0) - 1
x = -8
For heure = 0 To tab.GetLength(1) - 1
x = x + 20
tab(jour, heure) = New CheckBox()
tab(jour, heure).Left = x
tab(jour, heure).Top = y
tab(jour, heure).Width = 20
Me.Controls.Add(tab(jour, heure))
Next
y = y + 20
Next
Ensuite il faut tester chaque checkbox pour savoir si le jour et l'heure sont cochés (Voici un exemple pour le lundi à 00h00:
If tab(0, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.LU0 = True 'Pour retenir que la checkbox est cochée
Else
RemiseInternet()
My.Settings.LU0 = False
End If
Bonjour FaonManager.
Malgré l'excellent conseil de ucfoutu, que je salue, vous ne bougez pas. Commencez donc à rédiger un cahier des charges clair, net, et précis, et demandez à une personne de confiance de le relire hors votre présence, puis de vous donner ses commentaires.
Salutations.
evidemment 168 checkboxes ,heureusement que tu n'enregistes
pas les demi heure dans ce cas les checkboxes pousseraient comme des champignons après la pluie LOL
un peu complexe mais possible
tu peux faire ainsi
le tout dans un panel
un combobox avec les jours de la semaine
un CheckedListBox avec 24 heures de choix
un bouton pour valider,un bouton terminer,un bouton modifier
dans un autre panel
afficher les choix
si un item du combo n'a pas été choisi et aussi un/plusieurs item du listbox le bouton valider enabled = false
autrement true
je clique sur valider
il va falloir enregistrer les données dans my.setting
definir une structure de donnée
Private Structure Scheduler
Public day As String
Public fromto As String
End Structure
Private listscheduler As New List(Of Scheduler)
dans les settings on peut definir le type systemCollections.specialized.StringCollection
s'il n'est pas présent dans la listbox type qui s'ouvre tu as Browse... comme dernier item
clique dessus
dans la liste qui s'ouvre tu as un treeview avec des choix de type
cherche systemCollections.specialized
clique sur le + et choisis stringCollection
ainsi tu as ajouté un nouveau type à ton setting
par ex dans ton setting
name = maliste
type = systemCollections.specialized.StringCollection
pour enregister dans le settings
Private Sub SaveSheduler()
For Each item As Scheduler In listscheduler
My.Settings.list.Add(item.day)
My.Settings.list.Add(item.fromto)
Next
My.Settings.Save()
End Sub
pour écrire dans listscheduler
dans le click event du bouton valider
verifier que le jour et l'heure n'ont pas déja été choisi
si non ajouter à la list listscheduler
maintenant après avoir choisi le jour et l'heure
on peut soit ajouter un autre jour et autre heure
soit cliquer sur terminer
un autre problème qui survient dans le cas ou on veut
modifier ou annuler
un casse tete
je verrais demain
Private listhours As New List(Of String)
Private Sub BuildListhours()
Dim hoursstr As String
For iter As Int32 = 0 To 23
hoursstr = iter.ToString("D2") & "h:00 - " & (iter + 1).ToString("D2") & "h:00"
listhours.Add(hoursstr)
Next
End Sub
Private Sub DesignScheduler()
Dim index, width, height As Integer
Dim weekday() As String = {"Dim", "Lun", "Mar", "Mer", "Jeu", "Ven", "Sam"}
BuildListhours()
index = 0
height = 0
DataGridView1.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders
width = 0
For col As Integer = 0 To 6
DataGridView1.Columns.Add("col" & col.ToString, weekday(col))
DataGridView1.Columns(col).ReadOnly = True
width += DataGridView1.Columns(col).Width()
Next
For Each item As String In listhours
DataGridView1.Rows.Add()
DataGridView1.Rows(index).HeaderCell.Value = item
height += DataGridView1.Rows(index).Height
index += 1
Next
DataGridView1.AllowUserToAddRows = False
DataGridView1.AllowUserToResizeRows = False
DataGridView1.AllowUserToResizeColumns = False
DataGridView1.Width = width + DataGridView1.RowHeadersWidth
DataGridView1.Height = height
DataGridView1.Location = New Point(3, 3)
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
If e.ColumnIndex < 0 Or e.RowIndex < 0 Then
Exit Sub
End If
DataGridView1.ClearSelection()
If DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.RoyalBlue Then
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.White
Else
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.RoyalBlue
End If
End Sub
Heu... La question initiale demandait juste de récupérer le jour de la semaine et l'heure en cours. Mais j'ai surement mal compris la question ;)
"je regarderai plus tard"
Je comprends bien, tu n'auras que l'embarras du choix pour les réponses. 4 forums de programmation différents pour ta question! Tu n'y vas pas de main morte ;)
Je suppose que tu auras plusieurs plages horaires dans une même semaine. Le plus simple finalement serait de regrouper ces plages dans un xml par exemple avec tes plages :
public class clsPlage
public nom as string
public debut as integer
public fin as integer
end class
Enfin, une classe servant de container :
public class clsPlages
public Plages as new list(of clsplage)
sub new()
end sub()
sub add(element as clsPlage)
plages.add(element)
end sub
end class
Pour y insérer des données il te suffira de faire (les noms dans un combo et les heures dans des numericupdown) :
dim Plage1 as new clsPlage with {.nom = "monday", .debut = 15, .fin = 17}
dim Plage2 as new clsPlage with {.nom = "wednesday", .debut = 10, .fin = 12}
dim mesplages as new clsplages
mesplages.add(plage1)
mesplages.add(plage2)
Tu n'auras plus qu'a sérialiser le tout dans un xml :
dim ser as new xml.serialization.xmlserializer(gettype(clsplages))
using flux as new io.streamwriter("monfichier.xml")
ser.serialize(flux,mesplages)
end using
Enfin, pour relire ton fichier il faudra le déserialiser :
dim mesplages as new clsplages
dim deser as new xml.serialization.xmlserializer(gettype(clsplages))
using flux as new io.streamreader("monfichier.xml")
mesplages = ctype(deser.deserialize(flux),clsplages)
end using
Enfin et pour finir, il faudra tester périodiquement qu'au moins un résultat soit retourné pour couper la connexion.
Dim requete As IEnumerable(Of String) = From valeur As clsPlage In mesplages.Plages _
Where valeur.nom = DateTime.Now.DayOfWeek.ToString _
And valeur.debut >= DateTime.Now.Hour _
And valeur.fin <= DateTime.Now.Hour
If requete.Count > 0 Then
'coupure internet
End If
voila ce que je propose
1 datagridview avec comme colonnes les jours de la semaine
rangées les heures de 00H à 24H
cellule couleur blanc = internet
cellule couleur bleue = couper
cliquer sur une cellule change de couleur
2 un bouton valider pour écrire dans un fichier xml
le code
Imports System.IO
Imports System.Xml.Serialization
Public Enum week
sunday
monday
tuesday
wednesday
thursday
friday
saturday
End Enum
Public Class Scheduler
Public dayscheduller As week
Public hours(23) As Boolean
End Class
Private Listscheduler As New List(Of Scheduler)
Private coloryes As Color = Color.White
Private colorno As Color = Color.CornflowerBlue
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DesignScheduler()
InitListSheduler()
LoadSheduler(Application.StartupPath & "SaveScheduler.xml")
FillSheduller()
ExecuteScheduler()
end sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'sauvegarder
SaveScheduler()
End Sub
Private Sub BuildListhours()
Dim hoursstr As String
For iter As Int32 = 0 To 23
hoursstr = iter.ToString("D2") & "h:00 - " & (iter + 1).ToString("D2") & "h:00"
listhours.Add(hoursstr)
Next
End Sub
Private Sub DesignScheduler()
Dim index, width, height As Integer
Dim weekday() As String = {"Dim", "Lun", "Mar", "Mer", "Jeu", "Ven", "Sam"}
BuildListhours()
index = 0
height = 0
DataGridView2.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders
width = 0
For col As Integer = 0 To 6
DataGridView2.Columns.Add("col" & col.ToString, weekday(col))
DataGridView2.Columns(col).ReadOnly = True
width += DataGridView2.Columns(col).Width()
Next
For Each item As String In listhours
DataGridView2.Rows.Add()
DataGridView2.Rows(index).HeaderCell.Value = item
height += DataGridView2.Rows(index).Height
index += 1
Next
For Each ro As DataGridViewRow In DataGridView2.Rows
For Each cell As DataGridViewCell In ro.Cells
cell.Tag = True
Next
Next
DataGridView2.AllowUserToAddRows = False
DataGridView2.AllowUserToResizeRows = False
DataGridView2.AllowUserToResizeColumns = False
DataGridView2.Width = width + DataGridView2.RowHeadersWidth
DataGridView2.Height = height
DataGridView2.Location = New Point(3, 3)
End Sub
Private Sub DataGridView2_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
If e.ColumnIndex < 0 Or e.RowIndex < 0 Then
Exit Sub
End If
DataGridView2.ClearSelection()
If DataGridView2.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = colorno Then
DataGridView2.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = coloryes
DataGridView2.Rows(e.RowIndex).Cells(e.ColumnIndex).Tag = True
Else
DataGridView2.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = colorno
DataGridView2.Rows(e.RowIndex).Cells(e.ColumnIndex).Tag = False
End If
End Sub
Private Sub SaveScheduler()
Dim myFileStream As New StreamWriter(Application.StartupPath & "SaveScheduler.xml")
For itercol As Integer = 0 To DataGridView2.Columns.Count - 1
For iterro As Integer = 0 To DataGridView2.Rows.Count - 1
Listscheduler(itercol).hours(iterro) = DirectCast(DataGridView2.Rows(iterro).Cells(itercol).Tag, Boolean)
Next
Next
Dim serialXML As Xml.Serialization.XmlSerializer = Nothing
Try
serialXML = New Xml.Serialization.XmlSerializer(GetType(Collections.Generic.List(Of Scheduler)))
serialXML.Serialize(myFileStream, Listscheduler)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
myFileStream.Close()
End Sub
Private Sub InitListSheduler()
Dim dayweek As Array
Listscheduler.Clear()
dayweek = System.Enum.GetValues(GetType(week))
For Each item As week In dayweek
Dim myday As New Scheduler
myday.dayscheduller = item
For iter As Integer = 0 To myday.hours.Count - 1
myday.hours(iter) = True
Next
Listscheduler.Add(myday)
Next
End Sub
Private Sub FillSheduller()
For Each item As Scheduler In Listscheduler
For iterrow As Integer = 0 To item.hours.Count - 1
DataGridView2.Rows(iterrow).Cells(item.dayscheduller).Tag = item.hours(iterrow)
If item.hours(iterrow) Then
DataGridView2.Rows(iterrow).Cells(item.dayscheduller).Style.BackColor = coloryes
Else
DataGridView2.Rows(iterrow).Cells(item.dayscheduller).Style.BackColor = colorno
End If
Next
Next
End Sub
Private Sub LoadSheduler(ByVal xmlfile As String)
Dim myFileStream As StreamReader = Nothing
Dim serialXML As Xml.Serialization.XmlSerializer = Nothing
Try
If System.IO.File.Exists(xmlfile) Then
Listscheduler.Clear()
serialXML = New Xml.Serialization.XmlSerializer(GetType(Collections.Generic.List(Of Scheduler)))
myFileStream = New StreamReader(xmlfile)
Listscheduler = DirectCast(serialXML.Deserialize(myFileStream), Collections.Generic.List(Of Scheduler))
myFileStream.Close()
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub ExecuteScheduler()
' bloque ou permet l'internet
For Each item As Scheduler In Listscheduler
If item.dayscheduller = DateTime.Now.DayOfWeek Then
For iter As Integer = 0 To item.hours.Count - 1
If item.hours(iter) And iter = DateTime.Now.Hour Then
MessageBox.Show("Play")
End If
If Not item.hours(iter) And iter = DateTime.Now.Hour Then
MessageBox.Show("CUT")
End If
Next
End If
Next
End Sub
ce que je ne comprend pas est ici la sub ExecuteScheduler
permet l'internet selon l'emploi tu temps
je l'ai appelé une fois dans le load event
mais il va falloir l'appeller toute les heures
Merci pour vos réponses, je n'ai pas encore lancé la bêta de mon programme, j'attends l'avis des utilisateurs pour voir si je modifier mes 168 checkbox !
Tu devrais lancé la beta et ne pas faire peur (lol) à l'utilisateur avec 168 checkbox
mets toi à la place de l'utilisateur qui voit afficher 168 checkbox sur l'écran
Mais le truc c'est que il ne tombe pas directement sur les 168 checkbox, elles sont sur un formulaire à part et bien intégrées avec un design. On verra bien ce qu'ils diront, je changerai si besoin est.
Merci du conseil en tout cas ;)
Ah... "le truc c'est que .." !!!
J'ai bien tout relu
Ce ne sera peut-être pas le tout premier formulaire, mais il y arrivera, à un moment ou à l'autre, à un formulaire lui présentant toutes ces checkboxes, hein ...
"on verra bien ce qu'ils diront" ...
tu ferais mieux de leur poser sans attendre cette question. Cela t'évitera de tout concevoir à nouveau !:
Tu nous mijotes quelque chose d'intéressant ?
c'est sur le feu
avec les évenements de 168 checkbox
Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click, CheckBox2.Click,...................à écrire 168 fois
End Sub
ou
Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click
Public Class FormGrilleLimitationAcces
Dim tab(7, 23) As CheckBox
Private Sub FormGrilleLimitationAcces_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim x
Dim y = 104
For jour = 0 To tab.GetLength(0) - 1
x = 216
For heure = 0 To tab.GetLength(1) - 1
x = x + 15
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 + 20
Next
End Sub
Public Sub RemiseInternet()
Shell("cmd.exe /C ipconfig /renew", AppWinStyle.Hide)
End Sub
Public Sub CoupureInternet()
Shell("cmd.exe /C ipconfig /release", AppWinStyle.Hide)
End Sub
Public Sub VerificationConnexionInternet()
If tab(0, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.LU0 = True
Else
RemiseInternet()
My.Settings.LU0 = False
End If
If tab(0, 1).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 1 Then
CoupureInternet()
My.Settings.LU1 = True
Else
RemiseInternet()
My.Settings.LU1 = False
End If
If tab(0, 2).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 2 Then
CoupureInternet()
My.Settings.LU2 = True
Else
RemiseInternet()
My.Settings.LU2 = False
End If
If tab(0, 3).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 3 Then
CoupureInternet()
My.Settings.LU3 = True
Else
RemiseInternet()
My.Settings.LU3 = False
End If
If tab(0, 4).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 4 Then
CoupureInternet()
My.Settings.LU4 = True
Else
RemiseInternet()
My.Settings.LU4 = False
End If
If tab(0, 5).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 5 Then
CoupureInternet()
My.Settings.LU5 = True
Else
RemiseInternet()
My.Settings.LU5 = False
End If
If tab(0, 6).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 6 Then
CoupureInternet()
My.Settings.LU6 = True
Else
RemiseInternet()
My.Settings.LU6 = False
End If
If tab(0, 7).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 7 Then
CoupureInternet()
My.Settings.LU7 = True
Else
RemiseInternet()
My.Settings.LU7 = False
End If
If tab(0, 8).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 8 Then
CoupureInternet()
My.Settings.LU8 = True
Else
RemiseInternet()
My.Settings.LU8 = False
End If
If tab(0, 9).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 9 Then
CoupureInternet()
My.Settings.LU9 = True
Else
RemiseInternet()
My.Settings.LU9 = False
End If
If tab(0, 10).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 10 Then
CoupureInternet()
My.Settings.LU10 = True
Else
RemiseInternet()
My.Settings.LU10 = False
End If
If tab(0, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.LU11 = True
Else
RemiseInternet()
My.Settings.LU11 = False
End If
If tab(0, 12).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 12 Then
CoupureInternet()
My.Settings.LU12 = True
Else
RemiseInternet()
My.Settings.LU12 = False
End If
If tab(0, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.LU13 = True
Else
RemiseInternet()
My.Settings.LU13 = False
End If
If tab(0, 14).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 14 Then
CoupureInternet()
My.Settings.LU14 = True
Else
RemiseInternet()
My.Settings.LU14 = False
End If
If tab(0, 15).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 15 Then
CoupureInternet()
My.Settings.LU15 = True
Else
RemiseInternet()
My.Settings.LU15 = False
End If
If tab(0, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.LU16 = True
Else
RemiseInternet()
My.Settings.LU16 = False
End If
If tab(0, 17).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 17 Then
CoupureInternet()
My.Settings.LU17 = True
Else
RemiseInternet()
My.Settings.LU17 = False
End If
If tab(0, 18).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 18 Then
CoupureInternet()
My.Settings.LU18 = True
Else
RemiseInternet()
My.Settings.LU18 = False
End If
If tab(0, 19).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 19 Then
CoupureInternet()
My.Settings.LU19 = True
Else
RemiseInternet()
My.Settings.LU19 = False
End If
If tab(0, 20).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 20 Then
CoupureInternet()
My.Settings.LU20 = True
Else
RemiseInternet()
My.Settings.LU20 = False
End If
If tab(0, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.LU21 = True
Else
RemiseInternet()
My.Settings.LU21 = False
End If
If tab(0, 22).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 22 Then
CoupureInternet()
My.Settings.LU22 = True
Else
RemiseInternet()
My.Settings.LU22 = False
End If
If tab(0, 23).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Monday And DateTime.Now.Hour = 23 Then
CoupureInternet()
My.Settings.LU23 = True
Else
RemiseInternet()
My.Settings.LU23 = False
End If
If tab(1, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.MA0 = True
Else
RemiseInternet()
My.Settings.MA0 = False
End If
If tab(1, 1).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 1 Then
CoupureInternet()
My.Settings.MA1 = True
Else
RemiseInternet()
My.Settings.MA1 = False
End If
If tab(1, 2).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 2 Then
CoupureInternet()
My.Settings.MA2 = True
Else
RemiseInternet()
My.Settings.MA2 = False
End If
If tab(1, 3).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 3 Then
CoupureInternet()
My.Settings.MA3 = True
Else
RemiseInternet()
My.Settings.MA3 = False
End If
If tab(1, 4).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 4 Then
CoupureInternet()
My.Settings.MA4 = True
Else
RemiseInternet()
My.Settings.MA4 = False
End If
If tab(1, 5).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 5 Then
CoupureInternet()
My.Settings.MA5 = True
Else
RemiseInternet()
My.Settings.MA5 = False
End If
If tab(1, 6).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 6 Then
CoupureInternet()
My.Settings.MA6 = True
Else
RemiseInternet()
My.Settings.MA6 = False
End If
If tab(1, 7).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 7 Then
CoupureInternet()
My.Settings.MA7 = True
Else
RemiseInternet()
My.Settings.MA7 = False
End If
If tab(1, 8).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 8 Then
CoupureInternet()
My.Settings.MA8 = True
Else
RemiseInternet()
My.Settings.MA8 = False
End If
If tab(1, 9).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 9 Then
CoupureInternet()
My.Settings.MA9 = True
Else
RemiseInternet()
My.Settings.MA9 = False
End If
If tab(1, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.MA11 = True
Else
RemiseInternet()
My.Settings.MA11 = False
End If
If tab(1, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.MA11 = True
Else
RemiseInternet()
My.Settings.MA11 = False
End If
If tab(1, 12).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 12 Then
CoupureInternet()
My.Settings.MA12 = True
Else
RemiseInternet()
My.Settings.MA12 = False
End If
If tab(1, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.MA13 = True
Else
RemiseInternet()
My.Settings.MA13 = False
End If
If tab(1, 14).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 14 Then
CoupureInternet()
My.Settings.MA14 = True
Else
RemiseInternet()
My.Settings.MA14 = False
End If
If tab(1, 15).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 15 Then
CoupureInternet()
My.Settings.MA15 = True
Else
RemiseInternet()
My.Settings.MA15 = False
End If
If tab(1, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.MA16 = True
Else
RemiseInternet()
My.Settings.MA16 = False
End If
If tab(1, 17).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 17 Then
CoupureInternet()
My.Settings.MA17 = True
Else
RemiseInternet()
My.Settings.MA17 = False
End If
If tab(1, 18).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 18 Then
CoupureInternet()
My.Settings.MA18 = True
Else
RemiseInternet()
My.Settings.MA18 = False
End If
If tab(1, 19).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 19 Then
CoupureInternet()
My.Settings.MA19 = True
Else
RemiseInternet()
My.Settings.MA19 = False
End If
If tab(1, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.MA21 = True
Else
RemiseInternet()
My.Settings.MA21 = False
End If
If tab(1, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.MA21 = True
Else
RemiseInternet()
My.Settings.MA21 = False
End If
If tab(1, 22).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 22 Then
CoupureInternet()
My.Settings.MA22 = True
Else
RemiseInternet()
My.Settings.MA22 = False
End If
If tab(1, 23).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Thursday And DateTime.Now.Hour = 23 Then
CoupureInternet()
My.Settings.MA23 = True
Else
RemiseInternet()
My.Settings.MA23 = False
End If
If tab(2, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.ME0 = True
Else
RemiseInternet()
My.Settings.ME0 = False
End If
If tab(2, 1).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 1 Then
CoupureInternet()
My.Settings.ME1 = True
Else
RemiseInternet()
My.Settings.ME1 = False
End If
If tab(2, 2).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 2 Then
CoupureInternet()
My.Settings.ME2 = True
Else
RemiseInternet()
My.Settings.ME2 = False
End If
If tab(2, 3).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 3 Then
CoupureInternet()
My.Settings.ME3 = True
Else
RemiseInternet()
My.Settings.ME3 = False
End If
If tab(2, 4).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 4 Then
CoupureInternet()
My.Settings.ME4 = True
Else
RemiseInternet()
My.Settings.ME4 = False
End If
If tab(2, 5).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 5 Then
CoupureInternet()
My.Settings.ME5 = True
Else
RemiseInternet()
My.Settings.ME5 = False
End If
If tab(2, 6).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 6 Then
CoupureInternet()
My.Settings.ME6 = True
Else
RemiseInternet()
My.Settings.ME6 = False
End If
If tab(2, 7).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 7 Then
CoupureInternet()
My.Settings.ME7 = True
Else
RemiseInternet()
My.Settings.ME7 = False
End If
If tab(2, 8).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 8 Then
CoupureInternet()
My.Settings.ME8 = True
Else
RemiseInternet()
My.Settings.ME8 = False
End If
If tab(2, 9).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 9 Then
CoupureInternet()
My.Settings.ME9 = True
Else
RemiseInternet()
My.Settings.ME9 = False
End If
If tab(2, 10).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 10 Then
CoupureInternet()
My.Settings.ME10 = True
Else
RemiseInternet()
My.Settings.ME10 = False
End If
If tab(2, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.ME11 = True
Else
RemiseInternet()
My.Settings.ME11 = False
End If
If tab(2, 12).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 12 Then
CoupureInternet()
My.Settings.ME12 = True
Else
RemiseInternet()
My.Settings.ME12 = False
End If
If tab(2, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.ME13 = True
Else
RemiseInternet()
My.Settings.ME13 = False
End If
If tab(2, 14).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 14 Then
CoupureInternet()
My.Settings.ME14 = True
Else
RemiseInternet()
My.Settings.ME14 = False
End If
If tab(2, 15).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 15 Then
CoupureInternet()
My.Settings.ME15 = True
Else
RemiseInternet()
My.Settings.ME15 = False
End If
If tab(2, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.ME16 = True
Else
RemiseInternet()
My.Settings.ME16 = False
End If
If tab(2, 17).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 17 Then
CoupureInternet()
My.Settings.ME17 = True
Else
RemiseInternet()
My.Settings.ME17 = False
End If
If tab(2, 18).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 18 Then
CoupureInternet()
My.Settings.ME18 = True
Else
RemiseInternet()
My.Settings.ME18 = False
End If
If tab(2, 19).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 19 Then
CoupureInternet()
My.Settings.ME19 = True
Else
RemiseInternet()
My.Settings.ME19 = False
End If
If tab(2, 20).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 20 Then
CoupureInternet()
My.Settings.ME20 = True
Else
RemiseInternet()
My.Settings.ME20 = False
End If
If tab(2, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.ME21 = True
Else
RemiseInternet()
My.Settings.ME21 = False
End If
If tab(2, 22).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 22 Then
CoupureInternet()
My.Settings.ME22 = True
Else
RemiseInternet()
My.Settings.ME22 = False
End If
If tab(2, 23).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Wednesday And DateTime.Now.Hour = 23 Then
CoupureInternet()
My.Settings.ME23 = True
Else
RemiseInternet()
My.Settings.ME23 = False
End If
If tab(3, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.JE0 = True
Else
RemiseInternet()
My.Settings.JE0 = False
End If
If tab(3, 1).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 1 Then
CoupureInternet()
My.Settings.JE1 = True
Else
RemiseInternet()
My.Settings.JE1 = False
End If
If tab(3, 2).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 2 Then
CoupureInternet()
My.Settings.JE2 = True
Else
RemiseInternet()
My.Settings.JE2 = False
End If
If tab(3, 3).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 3 Then
CoupureInternet()
My.Settings.JE3 = True
Else
RemiseInternet()
My.Settings.JE3 = False
End If
If tab(3, 4).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 4 Then
CoupureInternet()
My.Settings.JE4 = True
Else
RemiseInternet()
My.Settings.JE4 = False
End If
If tab(3, 5).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 5 Then
CoupureInternet()
My.Settings.JE5 = True
Else
RemiseInternet()
My.Settings.JE5 = False
End If
If tab(3, 6).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 6 Then
CoupureInternet()
My.Settings.JE6 = True
Else
RemiseInternet()
My.Settings.JE6 = False
End If
If tab(3, 7).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 7 Then
CoupureInternet()
My.Settings.JE7 = True
Else
RemiseInternet()
My.Settings.JE7 = False
End If
If tab(3, 8).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 8 Then
CoupureInternet()
My.Settings.JE8 = True
Else
RemiseInternet()
My.Settings.JE8 = False
End If
If tab(3, 9).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 9 Then
CoupureInternet()
My.Settings.JE9 = True
Else
RemiseInternet()
My.Settings.JE9 = False
End If
If tab(3, 10).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 10 Then
CoupureInternet()
My.Settings.JE10 = True
Else
RemiseInternet()
My.Settings.JE10 = False
End If
If tab(3, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.JE11 = True
Else
RemiseInternet()
My.Settings.JE11 = False
End If
If tab(3, 12).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 12 Then
CoupureInternet()
My.Settings.JE12 = True
Else
RemiseInternet()
My.Settings.JE12 = False
End If
If tab(3, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.JE13 = True
Else
RemiseInternet()
My.Settings.JE13 = False
End If
If tab(3, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.JE13 = True
Else
RemiseInternet()
My.Settings.JE13 = False
End If
If tab(3, 15).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 15 Then
CoupureInternet()
My.Settings.JE15 = True
Else
RemiseInternet()
My.Settings.JE15 = False
End If
If tab(3, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.JE16 = True
Else
RemiseInternet()
My.Settings.JE16 = False
End If
If tab(3, 17).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 17 Then
CoupureInternet()
My.Settings.JE17 = True
Else
RemiseInternet()
My.Settings.JE17 = False
End If
If tab(3, 18).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 18 Then
CoupureInternet()
My.Settings.JE18 = True
Else
RemiseInternet()
My.Settings.JE18 = False
End If
If tab(3, 19).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 19 Then
CoupureInternet()
My.Settings.JE19 = True
Else
RemiseInternet()
My.Settings.JE19 = False
End If
If tab(3, 20).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 20 Then
CoupureInternet()
My.Settings.JE20 = True
Else
RemiseInternet()
My.Settings.JE20 = False
End If
If tab(3, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.JE21 = True
Else
RemiseInternet()
My.Settings.JE21 = False
End If
If tab(3, 22).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 22 Then
CoupureInternet()
My.Settings.JE22 = True
Else
RemiseInternet()
My.Settings.JE22 = False
End If
If tab(3, 23).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Tuesday And DateTime.Now.Hour = 23 Then
CoupureInternet()
My.Settings.JE23 = True
Else
RemiseInternet()
My.Settings.JE23 = False
End If
If tab(4, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.VE0 = True
Else
RemiseInternet()
My.Settings.VE0 = False
End If
If tab(4, 1).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 1 Then
CoupureInternet()
My.Settings.VE1 = True
Else
RemiseInternet()
My.Settings.VE1 = False
End If
If tab(4, 2).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 2 Then
CoupureInternet()
My.Settings.VE2 = True
Else
RemiseInternet()
My.Settings.VE2 = False
End If
If tab(4, 3).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 3 Then
CoupureInternet()
My.Settings.VE3 = True
Else
RemiseInternet()
My.Settings.VE3 = False
End If
If tab(4, 4).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 4 Then
CoupureInternet()
My.Settings.VE4 = True
Else
RemiseInternet()
My.Settings.VE4 = False
End If
If tab(4, 5).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 5 Then
CoupureInternet()
My.Settings.VE5 = True
Else
RemiseInternet()
My.Settings.VE5 = False
End If
If tab(4, 6).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 6 Then
CoupureInternet()
My.Settings.VE6 = True
Else
RemiseInternet()
My.Settings.VE6 = False
End If
If tab(4, 7).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 7 Then
CoupureInternet()
My.Settings.VE7 = True
Else
RemiseInternet()
My.Settings.VE7 = False
End If
If tab(4, 8).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 8 Then
CoupureInternet()
My.Settings.VE8 = True
Else
RemiseInternet()
My.Settings.VE8 = False
End If
If tab(4, 9).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 9 Then
CoupureInternet()
My.Settings.VE9 = True
Else
RemiseInternet()
My.Settings.VE9 = False
End If
If tab(4, 10).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 10 Then
CoupureInternet()
My.Settings.VE10 = True
Else
RemiseInternet()
My.Settings.VE10 = False
End If
If tab(4, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.VE11 = True
Else
RemiseInternet()
My.Settings.VE11 = False
End If
If tab(4, 12).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 12 Then
CoupureInternet()
My.Settings.VE12 = True
Else
RemiseInternet()
My.Settings.VE12 = False
End If
If tab(4, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.VE13 = True
Else
RemiseInternet()
My.Settings.VE13 = False
End If
If tab(4, 14).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 14 Then
CoupureInternet()
My.Settings.VE14 = True
Else
RemiseInternet()
My.Settings.VE14 = False
End If
If tab(4, 15).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 15 Then
CoupureInternet()
My.Settings.VE15 = True
Else
RemiseInternet()
My.Settings.VE15 = False
End If
If tab(4, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.VE16 = True
Else
RemiseInternet()
My.Settings.VE16 = False
End If
If tab(4, 17).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 17 Then
CoupureInternet()
My.Settings.VE17 = True
Else
RemiseInternet()
My.Settings.VE17 = False
End If
If tab(4, 18).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 18 Then
CoupureInternet()
My.Settings.VE18 = True
Else
RemiseInternet()
My.Settings.VE18 = False
End If
If tab(4, 19).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 19 Then
CoupureInternet()
My.Settings.VE19 = True
Else
RemiseInternet()
My.Settings.VE19 = False
End If
If tab(4, 20).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 20 Then
CoupureInternet()
My.Settings.VE20 = True
Else
RemiseInternet()
My.Settings.VE20 = False
End If
If tab(4, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.VE21 = True
Else
RemiseInternet()
My.Settings.VE21 = False
End If
If tab(4, 22).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 22 Then
CoupureInternet()
My.Settings.VE22 = True
Else
RemiseInternet()
My.Settings.VE22 = False
End If
If tab(4, 23).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Friday And DateTime.Now.Hour = 23 Then
CoupureInternet()
My.Settings.VE23 = True
Else
RemiseInternet()
My.Settings.VE23 = False
End If
If tab(5, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.SA0 = True
Else
RemiseInternet()
My.Settings.SA0 = False
End If
If tab(5, 1).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 1 Then
CoupureInternet()
My.Settings.SA1 = True
Else
RemiseInternet()
My.Settings.SA1 = False
End If
If tab(5, 2).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 2 Then
CoupureInternet()
My.Settings.SA2 = True
Else
RemiseInternet()
My.Settings.SA2 = False
End If
If tab(5, 3).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 3 Then
CoupureInternet()
My.Settings.SA3 = True
Else
RemiseInternet()
My.Settings.SA3 = False
End If
If tab(5, 4).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 4 Then
CoupureInternet()
My.Settings.SA4 = True
Else
RemiseInternet()
My.Settings.SA4 = False
End If
If tab(5, 5).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 5 Then
CoupureInternet()
My.Settings.SA5 = True
Else
RemiseInternet()
My.Settings.SA5 = False
End If
If tab(5, 6).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 6 Then
CoupureInternet()
My.Settings.SA6 = True
Else
RemiseInternet()
My.Settings.SA6 = False
End If
If tab(5, 7).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 7 Then
CoupureInternet()
My.Settings.SA7 = True
Else
RemiseInternet()
My.Settings.SA7 = False
End If
If tab(5, 8).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 8 Then
CoupureInternet()
My.Settings.SA8 = True
Else
RemiseInternet()
My.Settings.SA8 = False
End If
If tab(5, 9).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 9 Then
CoupureInternet()
My.Settings.SA9 = True
Else
RemiseInternet()
My.Settings.SA9 = False
End If
If tab(5, 10).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 10 Then
CoupureInternet()
My.Settings.SA10 = True
Else
RemiseInternet()
My.Settings.SA10 = False
End If
If tab(5, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.SA11 = True
Else
RemiseInternet()
My.Settings.SA11 = False
End If
If tab(5, 12).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 12 Then
CoupureInternet()
My.Settings.SA12 = True
Else
RemiseInternet()
My.Settings.SA12 = False
End If
If tab(5, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.SA13 = True
Else
RemiseInternet()
My.Settings.SA13 = False
End If
If tab(5, 15).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 15 Then
CoupureInternet()
My.Settings.SA15 = True
Else
RemiseInternet()
My.Settings.SA15 = False
End If
If tab(5, 15).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 15 Then
CoupureInternet()
My.Settings.SA15 = True
Else
RemiseInternet()
My.Settings.SA15 = False
End If
If tab(5, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.SA16 = True
Else
RemiseInternet()
My.Settings.SA16 = False
End If
If tab(5, 17).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 17 Then
CoupureInternet()
My.Settings.SA17 = True
Else
RemiseInternet()
My.Settings.SA17 = False
End If
If tab(5, 18).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 18 Then
CoupureInternet()
My.Settings.SA18 = True
Else
RemiseInternet()
My.Settings.SA18 = False
End If
If tab(5, 19).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 19 Then
CoupureInternet()
My.Settings.SA19 = True
Else
RemiseInternet()
My.Settings.SA19 = False
End If
If tab(5, 20).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 20 Then
CoupureInternet()
My.Settings.SA20 = True
Else
RemiseInternet()
My.Settings.SA20 = False
End If
If tab(5, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.SA21 = True
Else
RemiseInternet()
My.Settings.SA21 = False
End If
If tab(5, 22).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 22 Then
CoupureInternet()
My.Settings.SA22 = True
Else
RemiseInternet()
My.Settings.SA22 = False
End If
If tab(5, 23).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Saturday And DateTime.Now.Hour = 23 Then
CoupureInternet()
My.Settings.SA23 = True
Else
RemiseInternet()
My.Settings.SA23 = False
End If
If tab(6, 0).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 0 Then
CoupureInternet()
My.Settings.DI0 = True
Else
RemiseInternet()
My.Settings.DI0 = False
End If
If tab(6, 1).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 1 Then
CoupureInternet()
My.Settings.DI1 = True
Else
RemiseInternet()
My.Settings.DI1 = False
End If
If tab(6, 2).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 2 Then
CoupureInternet()
My.Settings.DI2 = True
Else
RemiseInternet()
My.Settings.DI2 = False
End If
If tab(6, 3).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 3 Then
CoupureInternet()
My.Settings.DI3 = True
Else
RemiseInternet()
My.Settings.DI3 = False
End If
If tab(6, 4).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 4 Then
CoupureInternet()
My.Settings.DI4 = True
Else
RemiseInternet()
My.Settings.DI4 = False
End If
If tab(6, 5).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 5 Then
CoupureInternet()
My.Settings.DI5 = True
Else
RemiseInternet()
My.Settings.DI5 = False
End If
If tab(6, 6).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 6 Then
CoupureInternet()
My.Settings.DI6 = True
Else
RemiseInternet()
My.Settings.DI6 = False
End If
If tab(6, 7).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 7 Then
CoupureInternet()
My.Settings.DI7 = True
Else
RemiseInternet()
My.Settings.DI7 = False
End If
If tab(6, 8).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 8 Then
CoupureInternet()
My.Settings.DI8 = True
Else
RemiseInternet()
My.Settings.DI8 = False
End If
If tab(6, 9).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 9 Then
CoupureInternet()
My.Settings.DI9 = True
Else
RemiseInternet()
My.Settings.DI9 = False
End If
If tab(6, 10).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 10 Then
CoupureInternet()
My.Settings.DI10 = True
Else
RemiseInternet()
My.Settings.DI10 = False
End If
If tab(6, 11).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 11 Then
CoupureInternet()
My.Settings.DI11 = True
Else
RemiseInternet()
My.Settings.DI11 = False
End If
If tab(6, 12).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 12 Then
CoupureInternet()
My.Settings.DI12 = True
Else
RemiseInternet()
My.Settings.DI12 = False
End If
If tab(6, 13).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 13 Then
CoupureInternet()
My.Settings.DI13 = True
Else
RemiseInternet()
My.Settings.DI13 = False
End If
If tab(6, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.DI16 = True
Else
RemiseInternet()
My.Settings.DI16 = False
End If
If tab(6, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.DI16 = True
Else
RemiseInternet()
My.Settings.DI16 = False
End If
If tab(6, 16).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 16 Then
CoupureInternet()
My.Settings.DI16 = True
Else
RemiseInternet()
My.Settings.DI16 = False
End If
If tab(6, 17).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 17 Then
CoupureInternet()
My.Settings.DI17 = True
Else
RemiseInternet()
My.Settings.DI17 = False
End If
If tab(6, 18).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 18 Then
CoupureInternet()
My.Settings.DI18 = True
Else
RemiseInternet()
My.Settings.DI18 = False
End If
If tab(6, 19).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 19 Then
CoupureInternet()
My.Settings.DI19 = True
Else
RemiseInternet()
My.Settings.DI19 = False
End If
If tab(6, 20).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 20 Then
CoupureInternet()
My.Settings.DI20 = True
Else
RemiseInternet()
My.Settings.DI20 = False
End If
If tab(6, 21).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 21 Then
CoupureInternet()
My.Settings.DI21 = True
Else
RemiseInternet()
My.Settings.DI21 = False
End If
If tab(6, 22).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 22 Then
CoupureInternet()
My.Settings.DI22 = True
Else
RemiseInternet()
My.Settings.DI22 = False
End If
If tab(6, 23).Checked = True And DateTime.Now.DayOfWeek = DayOfWeek.Sunday And DateTime.Now.Hour = 23 Then
CoupureInternet()
My.Settings.DI23 = True
Else
RemiseInternet()
My.Settings.DI23 = False
End If
My.Settings.Save()
End Sub
End Class
ah enfin je pensais que j'arriverais jamais à la fin
un plus cela ne peut pas marcher
ou appelle tu la sub VerificationConnexionInternet
et aussi comment informer que tu as coché un/des checkbox
il te manque les évenements CheckBox1_Click etc
<mode humour> Si tu tiens vraiment à rendre encore plus fastidieuse cette usine à gaz, FaonManager, il ne te reste plus qu'à ajouter un tuyau, deux durites, une pompe et un incinérateur<\mode humour>
1 - N'oublie pas d'activer Option Strict une fois pour toutes et pour tous tes projets dans les propriétés de Visual Studio. Ca m'évitera de te le répéter à chaque nouveau sujet que tu ouvres et ça t'éviteras d'écrire des âneries du style :
Dim x
Dim y = 104
2 - Corrige ensuite les 168 redondances qui apparaissent dans ton code (bah oui 168 checkbox quand meme hin) :
If tab(6, 20).Checked = True Then 'redondance car checked est déjà un booléen
if tab(6,20).checked then 'suffit
if not tab(6,20).checked then 'si tu veux tester l'absence de coche
3 - Shell est obsolète et doit être remplacé par Process.Start
Bonjour à tous !
Petit déterrage de sujet !
Après m'être rendu compte que le code était lourd et qu'il comportait des bugs, j'ai réussi à optimiser le code et supprimer les bugs !
Voici donc le code pour générer un tableau de textbox :
Dim tab(6, 23) As CheckBox
Dim x As Integer
Dim y = 104
For jour = 0 To tab.GetLength(0) - 1
x = 187
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
Le code pour tester si une case est cochée ou non :
Dim Collone As Integer = DateTime.Now.DayOfWeek - 1
Dim Heure As Integer = DateTime.Now.Hour
If (Now.DayOfWeek = DayOfWeek.Sunday) Then
Collone = 6
End If
If tab(Collone, Heure).Checked And InternetDesactive = False Then
CoupureInternet()
InternetDesactive = True
ElseIf tab(Collone, Heure).Checked = False And InternetDesactive = True Then
RemiseInternet()
InternetDesactive = False
End If
Bonjour,
Certes des solutions ont été proposées mais je ne voyais pas un gros datagrid en plein milieu (bien que je remercie les membres de l'avoir quand même proposé).
De plus, ce n'est pas la peine d'être aussi ironique, cela frôle l'agression...
Je te l'accorde, bien que j'ai toujours su que le code n'était vraiment pas bon, je n'avais point d'idées pour l'optimiser. Donc il est vrai que je m'en suis rendu compte au moment même où je le tapais haha.
Enfin bref, sujet résolu !
