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
|
Dim passage As Boolean = False
Session("tableaulundi") = "<table class=""edt"" style=""display:inline; border-collapse:collapse; border:1px solid black; vertical-align:top""><tr><td style=""border-collapse:collapse; border:1px solid black; font-size:11px"">Lundi<br /><span style=""font-size:12px""> </span></td></tr>"
Session("tableaumardi") = "<table class=""edt"" style=""display:inline; border-collapse:collapse; border:1px solid black; vertical-align:top""><tr><td style=""border-collapse:collapse; border:1px solid black; font-size:11px"">Mardi<br /><span style=""font-size:12px""> </span></td></tr>"
Session("tableaumercredi") = "<table class=""edt"" style=""display:inline; border-collapse:collapse; border:1px solid black; vertical-align:top""><tr><td style=""border-collapse:collapse; border:1px solid black; font-size:11px"">Mercredi<br /><span style=""font-size:12px""> </span></td></tr>"
Session("tableaujeudi") = "<table class=""edt"" style=""display:inline; border-collapse:collapse; border:1px solid black; vertical-align:top""><tr><td style=""border-collapse:collapse; border:1px solid black; font-size:11px"">Jeudi<br /><span style=""font-size:12px""> </span></td></tr>"
Session("tableauvendredi") = "<table class=""edt"" style=""display:inline; border-collapse:collapse; border:1px solid black; vertical-align:top""><tr><td style=""border-collapse:collapse; border:1px solid black; font-size:11px"">Vendredi<br /><span style=""font-size:12px""> </span></td></tr>"
Session("tableausamedi") = "<table class=""edt"" style=""display:inline; border-collapse:collapse; border:1px solid black; vertical-align:top""><tr><td style=""border-collapse:collapse; border:1px solid black; font-size:11px"">Samedi<br /><span style=""font-size:12px""> </span></td></tr>"
Session("tableaudimanche") = "<table class=""edt"" style=""display:inline; border-collapse:collapse; border:1px solid black; vertical-align:top""><tr><td style=""border-collapse:collapse; border:1px solid black; font-size:11px"">Dimanche<br /><span style=""font-size:12px""> </span></td></tr>"
Dim premierpassagelundi As Boolean = True
Dim premierpassagemardi As Boolean = True
Dim premierpassagemercredi As Boolean = True
Dim premierpassagejeudi As Boolean = True
Dim premierpassagevendredi As Boolean = True
Dim premierpassagesamedi As Boolean = True
Dim premierpassagedimanche As Boolean = True
While reader.Read
If Not passage Then
'***************************************************************************
'***************************************************************************
LabelApercu.Text = "<table style=""display:inline; border-collapse:collapse; text-align:right; vertical-align:top; width:10%"">" & _
"<tr><td style=""border-collapse:collapse; height:9px; padding-top:5px""><span style=""height:10px""> </span></td></tr>" & _
"<tr><td style=""display:block; border-collapse:collapse; font-size:10px; font-weight:bold; padding-top:5px"">8h30 __<br /><span style=""height:12px""> </span></td></tr>" & _
"<tr><td style=""display:block; border-collapse:collapse; font-size:10px; font-weight:bold; padding-top:5px"">8h40 __<br /><span style=""height:12px""> </span></td></tr>" & _
"<tr><td style=""display:block; border-collapse:collapse; font-size:10px; font-weight:bold; padding-top:5px"">8h50 __<br /><span style=""height:12px""> </span></td></tr>"
'Ce code me permet de générer le premier tableau, avec les horaires, de 8h30 à 18h50, par tranche de 10 minutes
Dim pad As Integer = 4
Dim alter As Boolean = False
Dim alter2 As Boolean = False
For i As Integer = 9 To 18
For j As Integer = 0 To 50 Step 10
If j = 0 Or j = 20 Or j = 40 Then
alter2 = False
ElseIf j = 10 Or j = 30 Or j = 50 Then
alter2 = True
End If
Dim m As String
If j = 0 Then
m = "00"
Else
m = j
End If
LabelApercu.Text += "<tr><td style=""display:block; border-collapse:collapse; font-size:10px; font-weight:bold; padding-top:" & pad & "px"">" & i & "h" & m & " __<br /><span style=""font-size:12px""> </span></td></tr>"
If alter Then
pad = pad - 2
If Not alter2 Then
alter = False
End If
Else
pad = pad + 2
alter = True
End If
Next
Next
LabelApercu.Text += "</table>"
'Fin du tableau des horaires
passage = True
End If
Dim unEdt As New EDT(reader.GetInt32(0))
unEdt.Find()
Dim uneMat As MAT = unEdt.GetMatiere
Dim unMut As New MUT
Dim Discipline As String = ""
Dim Couleur As String = "none"
Dim prof As String = ""
Dim salle As String = ""
If uneMat.GetIdMat = -1 Then
'cas de repas ou de récré
Discipline = unEdt.GetAutre
Couleur = "#FFFFFF"
Else
'cas d'une matière
Dim cnx2 As SqlConnection = New BdD().SeConnecter
Dim reader2 As SqlDataReader = New SqlCommand("SELECT Id FROM Matiere-Utilisateur WHERE Id=" & uneMat.GetIdMat, cnx2).ExecuteReader
While reader2.Read
unMut.SetIdMut(reader.GetInt32(0))
If unMut.Find() Then
Exit While
End If
End While
reader2.Close()
cnx2.Close()
cnx2.Dispose()
Discipline = uneMat.GetLibelle
Couleur = uneMat.GetColor
prof = unMut.GetProf.GetPrenom & " " & unMut.GetProf.GetNom
If Not unEdt.GetSalle = "" Then
salle = "Salle : " & unEdt.GetSalle
Else
salle = ""
End If
End If |
Problème de génération de tableaux
Répondre avec citation
Partager