{"id":1148,"date":"2022-12-10T08:53:17","date_gmt":"2022-12-10T07:53:17","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=1148"},"modified":"2022-12-10T08:59:32","modified_gmt":"2022-12-10T07:59:32","slug":"pc-vb6","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/pc-vb6\/","title":{"rendered":"PC (VB6)\u200b"},"content":{"rendered":"\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t\t
\n\t\t\t
\n\t\t\t\t\t\t
\n\t\t\t\t
\n\t\t\t\t\t\t\t

Tim_Timer<\/h3>

Private Sub Tim_Timer()<\/em><\/span>
\u00a0\u00a0 \u00a0FondBas.Panels(1).Text = TcpServerStates(TcpServer(0).State)\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0Inc CompteurSecondes<\/em><\/span>
\u00a0\u00a0 \u00a0If CompteurSecondes >= 60 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CompteurSecondes = 0<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If EcouterLeSiteEdf Then RaffrEdfSite<\/em><\/span>
\u00a0\u00a0 \u00a0End If\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If MonID.ComputerName <> \u00ab\u00a0MrdDomoGiada\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TempActuelle = \u00ab\u00a012.5\u00a0\u00bb: LblVal(0).Caption = TempActuelle<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ConsigneTemp = \u00ab\u00a011.0\u00a0\u00bb: LblVal(1).Caption = ConsigneTemp<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ForcageCons = \u00ab\u00a099.9\u00a0\u00bb: LblVal(2).Caption = ForcageCons<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MonHeureTsx = Now: Me.Caption = MonApp.Titre & \u00a0\u00bb\u00a0 [Heure TSX: \u00a0\u00bb & MonHeureTsx & \u00ab\u00a0]\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0For i = 0 To 11<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ConsignesTemperature(i) = Format$(i, \u00ab\u00a000.0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i + 3).Caption = ConsignesTemperature(i)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Next i<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0End If\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0Dim MaCategorie As String<\/em><\/span>
\u00a0\u00a0 \u00a0Dim MonAction As String, GChange As Boolean<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0Grp.Read<\/em><\/span>
\u00a0\u00a0 \u00a0TempActuelle = \u00ab\u00a0???\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0ConsigneTemp = \u00ab\u00a0???\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0ForcageCons = \u00ab\u00a0???\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0MonHeureTsx = \u00ab\u00a0???\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseHoroTsx) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MesValeursHoroTsx = Grp.GetValue(MonAdresseHoroTsx)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MonHeureTsx = TsxHoroToString(MesValeursHoroTsx)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Me.Caption = MonApp.Titre & \u00a0\u00bb\u00a0 [Heure TSX: \u00a0\u00bb & MonHeureTsx & \u00ab\u00a0]\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseTemperature) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MesValeursTemperature = Grp.GetValue(MonAdresseTemperature)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TempActuelle = Format$(MesValeursTemperature(0) \/ 10, \u00ab\u00a00.0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ConsigneTemp = Format$(MesValeursTemperature(2) \/ 10, \u00ab\u00a00.0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(0).Caption = TempActuelle<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(1).Caption = ConsigneTemp<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseConsignesTemperature) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MesValeursConsignesTemperature = Grp.GetValue(MonAdresseConsignesTemperature)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0For i = 0 To 11<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ConsignesTemperature(i) = Format$(MesValeursConsignesTemperature(i) \/ 10, \u00ab\u00a00.0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i + 3).Caption = ConsignesTemperature(i)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Next i<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseForcageTemperature) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MesValeursForcageTemperature = Grp.GetValue(MonAdresseForcageTemperature)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ForcageCons = Format$(MesValeursForcageTemperature \/ 10, \u00ab\u00a00.0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(2).Caption = ForcageCons<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseRecopieSortiesTsx_MW60) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MesValeursRecopieSortiesTsx_MW60 = Grp.GetValue(MonAdresseRecopieSortiesTsx_MW60)<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim CouleurJour As Integer<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If LireBit(MesValeursRecopieSortiesTsx_MW60, 9) Then CouleurJour = 1<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If LireBit(MesValeursRecopieSortiesTsx_MW60, 10) Then CouleurJour = 2<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If LireBit(MesValeursRecopieSortiesTsx_MW60, 11) Then CouleurJour = 3\u00a0 \u00a0\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim CouleurDemain As Integer<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If LireBit(MesValeursRecopieSortiesTsx_MW60, 6) Then CouleurDemain = 1<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If LireBit(MesValeursRecopieSortiesTsx_MW60, 7) Then CouleurDemain = 2<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If LireBit(MesValeursRecopieSortiesTsx_MW60, 8) Then CouleurDemain = 3\u00a0 \u00a0\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Dim Hc As Boolean, Hp As Boolean<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Hc = LireBit(MesValeursRecopieSortiesTsx_MW60, 12)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Hp = Not Hc\u00a0 \u00a0\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(3).FontBold = Hp And CouleurJour = 1<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(4).FontBold = CouleurJour = 1 And CouleurDemain = 1<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(5).FontBold = CouleurJour = 1 And CouleurDemain = 2<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(6).FontBold = CouleurJour = 1 And CouleurDemain = 3<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0For i = 3 To 6<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Lbl(i).FontBold Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).BackColor = MrdBleu<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Hp And i = 3 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdVertFonc\u00e9<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ElseIf Hc And i <> 3 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdVertFonc\u00e9<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdRouge<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).BackColor = 16777152<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdNoir<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i).BackColor = Lbl(i).BackColor<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i).ForeColor = Lbl(i).ForeColor<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Next i<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(7).FontBold = Hp And CouleurJour = 2<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(8).FontBold = CouleurJour = 2 And CouleurDemain = 1<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(9).FontBold = CouleurJour = 2 And CouleurDemain = 2<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(10).FontBold = CouleurJour = 2 And CouleurDemain = 3<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0For i = 7 To 10<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Lbl(i).FontBold Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).BackColor = MrdBlanc<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Hp And i = 7 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdVertFonc\u00e9<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ElseIf Hc And i <> 7 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdVertFonc\u00e9<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdRouge<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).BackColor = 14737632<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdNoir<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i).BackColor = Lbl(i).BackColor<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i).ForeColor = Lbl(i).ForeColor<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Next i<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(11).FontBold = Hp And CouleurJour = 3<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(12).FontBold = CouleurJour = 3 And CouleurDemain = 1<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(13).FontBold = CouleurJour = 3 And CouleurDemain = 2<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(14).FontBold = CouleurJour = 3 And CouleurDemain = 3<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0For i = 11 To 14<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Lbl(i).FontBold Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).BackColor = MrdRouge<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Hp And i = 7 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdVertFonc\u00e9<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ElseIf Hc And i <> 7 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdVertFonc\u00e9<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdNoir<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).BackColor = 12632319<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Lbl(i).ForeColor = MrdNoir<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i).BackColor = Lbl(i).BackColor<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0LblVal(i).ForeColor = Lbl(i).ForeColor<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Next i<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseMasqueSortiesTsx_MW61) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MesValeursMasqueSortiesTsx_MW61 = Grp.GetValue(MonAdresseMasqueSortiesTsx_MW61)<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseSiteEdf) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MesValeursSiteEdf = Grp.GetValue(MonAdresseSiteEdf)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ChkEcouterSiteEdf.Value = Abs(LireBit(MesValeursSiteEdf, 0))<\/em><\/span>
\u00a0\u00a0 \u00a0End If\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0For i = 3 To 14<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Toto = Split(Lbl(i).ToolTipText)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0PicDifferent(i).Visible = Val(Toto(1)) <> Val(LblVal(i).Caption)<\/em><\/span>
\u00a0\u00a0 \u00a0Next i<\/em><\/span>
End Sub<\/em><\/span><\/p>

RaffrEdfSite<\/h3>

Sub RaffrEdfSite()<\/em><\/span>
\u00a0\u00a0 \u00a0Dim EdfSite As String<\/em><\/span>
\u00a0\u00a0 \u00a0Dim CouleurAujourdHui As Integer, CouleurDemain As Integer<\/em><\/span>
\u00a0\u00a0 \u00a0Dim NbJoursBleusRestants As Integer, NbJoursBlancsRestants As Integer, NbJoursRougesRestants As Integer\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0\u00a0 EdfSite = \u00ab\u00a0https:\/\/particulier.edf.fr\/bin\/edf_rc\/servlets\/ejptemponew?TypeAlerte=TEMPO&Date_a_remonter=\u00a0\u00bb & Format(Now, \u00ab\u00a0yyyy-mm-dd\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Inet.OpenURL(EdfSite)<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Replace(TxtWeb.Text, \u00ab\u00a0{\u00ab\u00a0, \u00ab\u00a0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Replace(TxtWeb.Text, \u00ab\u00a0}\u00a0\u00bb, \u00ab\u00a0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Replace(TxtWeb.Text, Chr(34), \u00ab\u00a0\u00a0\u00bb)\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If Trim(TxtWeb.Text) = \u00ab\u00a0\u00a0\u00bb Then Exit Sub\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0Err.Clear: On Error Resume Next<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Toto = Split(TxtWeb.Text, \u00ab\u00a0,\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If IsArray(Toto) Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0riri = Split(Toto(0), \u00ab\u00a0:\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0fifi = Split(Toto(1), \u00ab\u00a0:\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If\u00a0 \u00a0\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If Error$ <> \u00ab\u00a0\u00a0\u00bb Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MsgBox \u00ab\u00a0Le site renvoit une merde: \u00a0\u00bb & vbCrLf & TxtWeb.Text & vbCrLf & \u00ab\u00a0D\u00e9sol\u00e9…\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0On Error GoTo 0<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0 \u00a0On Error GoTo 0<\/em><\/span><\/p>

\u00a0\u00a0\u00a0 ‘Affectation de la couleur d’Aujourd’hui<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0If InStr(LCase(fifi(2)), \u00ab\u00a0bleu\u00a0\u00bb) > 0 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaAujourdhui.BackColor = MrdBleu<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurAujourdHui = 1<\/em><\/span>
\u00a0\u00a0 \u00a0ElseIf InStr(LCase(fifi(2)), \u00ab\u00a0blanc\u00a0\u00bb) Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaAujourdhui.BackColor = MrdBlanc<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurAujourdHui = 2<\/em><\/span>
\u00a0\u00a0 \u00a0ElseIf InStr(LCase(fifi(2)), \u00ab\u00a0rouge\u00a0\u00bb) Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaAujourdhui.BackColor = MrdRouge<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurAujourdHui = 3<\/em><\/span>
\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaAujourdhui.BackColor = MrdGrisClair<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurAujourdHui = 4<\/em><\/span>
\u00a0\u00a0 \u00a0End If\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0‘Affectation de la couleur de Demain<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0If InStr(LCase(riri(2)), \u00ab\u00a0bleu\u00a0\u00bb) Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaDemain.BackColor = MrdBleu<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurDemain = 1<\/em><\/span>
\u00a0\u00a0 \u00a0ElseIf InStr(LCase(riri(2)), \u00ab\u00a0blanc\u00a0\u00bb) Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaDemain.BackColor = MrdBlanc<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurDemain = 2<\/em><\/span>
\u00a0\u00a0 \u00a0ElseIf InStr(LCase(riri(2)), \u00ab\u00a0rouge\u00a0\u00bb) Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaDemain.BackColor = MrdRouge<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurDemain = 3<\/em><\/span>
\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ShaDemain.BackColor = MrdGrisClair<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CouleurDemain = 4<\/em><\/span>
\u00a0\u00a0 \u00a0End If\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0‘Recherche des nombres de jours restants<\/span><\/em><\/span>
\u00a0\u00a0 \u00a0EdfSite = \u00ab\u00a0https:\/\/particulier.edf.fr\/bin\/edf_rc\/servlets\/ejptempodaysnew?TypeAlerte=TEMPO\u00a0\u00bb<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Inet.OpenURL(EdfSite)<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Replace(TxtWeb.Text, \u00ab\u00a0{\u00ab\u00a0, \u00ab\u00a0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Replace(TxtWeb.Text, \u00ab\u00a0}\u00a0\u00bb, \u00ab\u00a0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0TxtWeb.Text = Replace(TxtWeb.Text, Chr(34), \u00ab\u00a0\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0Toto = Split(TxtWeb.Text, \u00ab\u00a0,\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0If IsArray(Toto) Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0riri = Split(Toto(0), \u00ab\u00a0:\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0fifi = Split(Toto(1), \u00ab\u00a0:\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0loulou = Split(Toto(2), \u00ab\u00a0:\u00a0\u00bb)<\/em><\/span>
\u00a0\u00a0 \u00a0Else<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0NbJoursBleusRestants = Val(loulou(1))<\/em><\/span>
\u00a0\u00a0 \u00a0LblVal(15).Caption = Trim(NbJoursBleusRestants)<\/em><\/span>
\u00a0\u00a0 \u00a0PicGraphBleu.Cls<\/em><\/span>
\u00a0\u00a0 \u00a0PicGraphBleu.Line (0, 0)-(PicGraphBleu.Width, NbJoursBleusRestants), MrdBleu, BF\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0NbJoursBlancsRestants = Val(riri(1))<\/em><\/span>
\u00a0\u00a0 \u00a0LblVal(16).Caption = Trim(NbJoursBlancsRestants)<\/em><\/span>
\u00a0\u00a0 \u00a0PicGraphBlanc.Cls<\/em><\/span>
\u00a0\u00a0 \u00a0PicGraphBlanc.Line (0, 0)-(PicGraphBlanc.Width, NbJoursBlancsRestants), MrdBlanc, BF\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0NbJoursRougesRestants = Val(fifi(1))<\/em><\/span>
\u00a0\u00a0 \u00a0LblVal(17).Caption = Trim(NbJoursRougesRestants)<\/em><\/span>
\u00a0\u00a0 \u00a0PicGraphRouge.Cls<\/em><\/span>
\u00a0\u00a0 \u00a0PicGraphRouge.Line (0, 0)-(PicGraphRouge.Width, NbJoursRougesRestants), MrdRouge, BF\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0If QuelPc <> PcDomo Then Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0If Not EcouterLeSiteEdf Then Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0If time < \u00ab\u00a006:05:00\u00a0\u00bb Then Exit Sub<\/em><\/span>
\u00a0\u00a0 \u00a0If time > \u00ab\u00a023:55:00\u00a0\u00bb Then Exit Sub\u00a0\u00a0 \u00a0<\/em><\/span><\/p>

\u00a0\u00a0 \u00a0Dim MonMot As Integer<\/em><\/span>
\u00a0\u00a0 \u00a0Grp.Read<\/em><\/span>
\u00a0\u00a0 \u00a0If Grp.GetQuality(MonAdresseRecopieSortiesTsx_MW60) = 192 Then<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0MonMot = Grp.GetValue(MonAdresseRecopieSortiesTsx_MW60)<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 6, False<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 7, False<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 8, False<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 9, False<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 10, False<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 11, False<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If CouleurAujourdHui = 1 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 9, True<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ElseIf CouleurAujourdHui = 2 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 10, True<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ElseIf CouleurAujourdHui = 3 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 11, True<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If CouleurDemain = 1 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 6, True<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ElseIf CouleurDemain = 2 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 7, True<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ElseIf CouleurDemain = 3 Then<\/em><\/span>
\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0EcrireBit MonMot, 8, True<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0End If<\/em><\/span>
\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0Grp.Write MonAdresseRecopieSortiesTsx_MW60, (MonMot)<\/em><\/span>
\u00a0\u00a0 \u00a0End If<\/em><\/span>
End Sub<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"

Tim_Timer Private Sub Tim_Timer()\u00a0\u00a0 \u00a0FondBas.Panels(1).Text = TcpServerStates(TcpServer(0).State)\u00a0\u00a0 \u00a0 \u00a0\u00a0 \u00a0Inc CompteurSecondes\u00a0\u00a0 \u00a0If CompteurSecondes >= 60 Then\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0CompteurSecondes = 0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0If EcouterLeSiteEdf Then RaffrEdfSite\u00a0\u00a0 \u00a0End If\u00a0\u00a0 \u00a0 \u00a0\u00a0 \u00a0If MonID.ComputerName <> \u00ab\u00a0MrdDomoGiada\u00a0\u00bb Then\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TempActuelle = \u00ab\u00a012.5\u00a0\u00bb: LblVal(0).Caption = TempActuelle\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ConsigneTemp = \u00ab\u00a011.0\u00a0\u00bb: LblVal(1).Caption = ConsigneTemp\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0ForcageCons = \u00ab\u00a099.9\u00a0\u00bb: LblVal(2).Caption = ForcageCons\u00a0\u00a0 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"0","ocean_second_sidebar":"0","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"0","ocean_custom_header_template":"0","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"0","ocean_menu_typo_font_family":"0","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"0","footnotes":""},"class_list":["post-1148","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1148","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=1148"}],"version-history":[{"count":4,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1148\/revisions"}],"predecessor-version":[{"id":1156,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/1148\/revisions\/1156"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=1148"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}