1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| 'Si les losanges ne sont pas complémentés Alors
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
If variable_losange(j, 1) = "oui" Then
'Si la fonction retourne "0" Alors
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
If (Recherche_TOR(variable_losange(j, 0), Groupe_Actif) = 0) Then
Graph.DrawString(variable_losange(j, 0), Police_Logigrammes, Brushes.Red, Texte_Losange, Format) 'variable_losange(j, 0) correspond au texte à écrire qui est ici le nom d'une variable
'Si la fonction retourne "1" Alors
ElseIf (Recherche_TOR(variable_losange(j, 0), Groupe_Actif) = 1) Then
Graph.DrawString(variable_losange(j, 0), Police_Logigrammes, Brushes.Green, Texte_Losange, Format)
End If
'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
PictureBox_Logigrammes.Image = Bitmap_Logigrammes
PictureBox_Logigrammes.Invalidate() |
Partager