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
| Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim GH(11, 1) As String
GH(0, 0) = h01moy
GH(1, 0) = h02moy
GH(2, 0) = h03moy
GH(3, 0) = h04moy
GH(4, 0) = h05moy
GH(5, 0) = h06moy
GH(6, 0) = h07moy
GH(7, 0) = h08moy
GH(8, 0) = h09moy
GH(9, 0) = h10moy
GH(10, 0) = h11moy
GH(11, 0) = h12moy
' verification de GH
For i As Integer = 0 To 11
If GH(i, 0) <= 30 Then GH(i, 1) = 1
If GH(i, 0) > 30 And GH(i, 0) <= 50 Then GH(i, 1) = 2
If GH(i, 0) > 50 And GH(i, 0) < 70 Then GH(i, 1) = 3
If GH(i, 0) >= 70 Then GH(i, 1) = 4
Next
GHjan.Text = GH(0, 1)
GHfeb.Text = GH(1, 1)
GHmar.Text = GH(2, 1)
GHapr.Text = GH(3, 1)
GHmay.Text = GH(4, 1)
GHjun.Text = GH(5, 1)
GHjul.Text = GH(6, 1)
GHaug.Text = GH(7, 1)
GHsep.Text = GH(8, 1)
GHoct.Text = GH(9, 1)
GHnov.Text = GH(10, 1)
GHdec.Text = GH(11, 1)
End Sub |
Partager