1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155
|
Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
If Chart1HorizontalScroll = 0 Then
If Chart1.ChartAreas(0).AxisX.Maximum > Chart1.ChartAreas(0).AxisX.ScaleView.Size Then
Chart1.ChartAreas(0).AxisX.ScaleView.Scroll(Chart1.ChartAreas(0).AxisX.Maximum)
End If
End If
If G1 = 20 Then
ElseIf G1 = 21 Then
RichTextBox1.AppendText("MRM 1 => NOK : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
A1 = 28
ElseIf G1 = 22 Then
RichTextBox1.AppendText("MRM 1 => Deconnected : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
A1 = 27
End If
If H1 = 20 Then
ElseIf H1 = 21 Then
RichTextBox1.AppendText("MRM 2 => NOK : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
ElseIf H1 = 22 Then
RichTextBox1.AppendText("MRM 2 => Deconnected : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
End If
If I1 = 20 Then
ElseIf I1 = 21 Then
RichTextBox1.AppendText("MRM 3 => NOK : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
ElseIf I1 = 22 Then
RichTextBox1.AppendText("MRM 3 => Deconnected : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
End If
If J1 = 20 Then
ElseIf J1 = 21 Then
RichTextBox1.AppendText("MRM 4 => NOK : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
ElseIf J1 = 22 Then
RichTextBox1.AppendText("MRM 4 => Deconnected : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
End If
If K1 = 20 Then
ElseIf K1 = 21 Then
RichTextBox1.AppendText("MRM 5 => NOK : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
ElseIf K1 = 22 Then
RichTextBox1.AppendText("MRM 5 => Deconnected : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
End If
If L1 = 20 Then
ElseIf L1 = 21 Then
RichTextBox1.AppendText("MRM 6 => NOK : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
ElseIf L1 = 22 Then
RichTextBox1.AppendText("MRM 6 => Deconnected : " & DateTime.Now.ToString & vbCrLf)
RichTextBox1.ScrollToCaret()
End If
Dim DTNow1 As String = DateTime.Now.ToString
Dim DTNow1Split() As String = DTNow1.Split(" "c)
Chart1.Series("MRM1").Points.AddY(A1)
For Each Point As DataPoint In Chart1.Series("MRM1").Points
If Point.YValues(0) = 29 Then
Point.Color = Color.LimeGreen
ElseIf Point.YValues(0) = 28 Then
Point.Color = Color.Orange
ElseIf Point.YValues(0) = 27 Then
Point.Color = Color.Red
ElseIf Point.YValues(0) = 26 Then
Point.Color = Color.White
End If
Next
Chart1.Series("MRM2").Points.AddY(B1)
For Each Point As DataPoint In Chart1.Series("MRM2").Points
If Point.YValues(0) = 24 Then
Point.Color = Color.LimeGreen
ElseIf Point.YValues(0) = 23 Then
Point.Color = Color.Orange
ElseIf Point.YValues(0) = 22 Then
Point.Color = Color.Red
ElseIf Point.YValues(0) = 21 Then
Point.Color = Color.White
End If
Next
Chart1.Series("MRM3").Points.AddY(C1)
For Each Point As DataPoint In Chart1.Series("MRM3").Points
If Point.YValues(0) = 19 Then
Point.Color = Color.LimeGreen
ElseIf Point.YValues(0) = 18 Then
Point.Color = Color.Orange
ElseIf Point.YValues(0) = 17 Then
Point.Color = Color.Red
ElseIf Point.YValues(0) = 16 Then
Point.Color = Color.White
End If
Next
Chart1.Series("MRM4").Points.AddY(D1)
For Each Point As DataPoint In Chart1.Series("MRM4").Points
If Point.YValues(0) = 14 Then
Point.Color = Color.LimeGreen
ElseIf Point.YValues(0) = 13 Then
Point.Color = Color.Orange
ElseIf Point.YValues(0) = 12 Then
Point.Color = Color.Red
ElseIf Point.YValues(0) = 11 Then
Point.Color = Color.White
End If
Next
Chart1.Series("MRM5").Points.AddY(E1)
For Each Point As DataPoint In Chart1.Series("MRM5").Points
If Point.YValues(0) = 9 Then
Point.Color = Color.LimeGreen
ElseIf Point.YValues(0) = 8 Then
Point.Color = Color.Orange
ElseIf Point.YValues(0) = 7 Then
Point.Color = Color.Red
ElseIf Point.YValues(0) = 6 Then
Point.Color = Color.White
End If
Next
Chart1.Series("MRM6").Points.AddY(F1)
For Each Point As DataPoint In Chart1.Series("MRM6").Points
If Point.YValues(0) = 4 Then
Point.Color = Color.LimeGreen
ElseIf Point.YValues(0) = 3 Then
Point.Color = Color.Orange
ElseIf Point.YValues(0) = 2 Then
Point.Color = Color.Red
ElseIf Point.YValues(0) = 1 Then
Point.Color = Color.White
End If
Next
Chart1.Series("MRM1").Points(DTNow1Count).AxisLabel = DTNow1Split(0) & vbCrLf & DTNow1Split(1) & " "
DTNow1Count = DTNow1Count + 1
G1 = 0
H1 = 0
I1 = 0
J1 = 0
K1 = 0
L1 = 0
End Sub |
Partager