3.3.4 Code source de l'application
Imports Microsoft.VisualBasic.PowerPacks
PublicClassForm2
Dim compteur AsInteger = 0
Dim Tracer AsInteger = 0
Dim Tach1, Tach2, Tach3, Tach4, Tach5, Tach6, Tach7, Tach8,
Tach9, Tach10 AsNewTache'Taches qui seront creer par l 'utilisateur
Dim bool1, bool2, bool3, bool4, bool5, bool6, bool7, bool8, bool9
AsBoolean'Variables bool qui permettront gerer l inscription des taches dans le
formulaire,aussi utiliser pour l'insertion de la tache10
Dim tot(10), max, ta AsDouble'Utiliser pour le calcul des dates
au plus tot
Dim Table(10) AsInteger
Dim indice AsInteger = 0
PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) HandlesMyBase.Load
If Utiliser = FalseThen
TextBox3.Hide()
TextBox4.Hide()
Label6.Text = compteur 'Compte le nombre des taches
deja saisie par l utilisateur
Initialisation()
Else
Predefinie()
EndIf
Tach10.T_Name = "Fin"
EndSub
Sub Initialisation()
max = 0
Niv1 = 0
Niv2 = 0
Niv3 = 0
Niv4 = 0
Niv5 = 0
Niv6 = 0
Niv7 = 0
Niv8 = 0
bool1 = False
bool2 = False
bool3 = False
bool4 = False
bool5 = False
bool6 = False
bool7 = False
bool8 = False
bool9 = False
Button4.Enabled = False
End sub
PrivateSub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) HandlesMyBase.Load
If Utiliser = FalseThen
TextBox3.Hide()
TextBox4.Hide()
Label6.Text = compteur 'Compte le nombre des taches
deja saisie par l utilisateur
Initialisation()
Else
Predefinie()
EndIf
Tach10.T_Name = "Fin"
EndSub
End sub
Sub Introduction()
If TextBox5.Text = NothingThen
TextBox5.Text = 0
EndIf
If TextBox3.Text = ""Or TextBox3.Text = " "Then
TextBox3.Text = Nothing
EndIf
If TextBox4.Text = ""Or TextBox4.Text = " "Then
TextBox4.Text = Nothing
EndIf
If TextBox6.Text = ""Or TextBox6.Text = " "Then
TextBox6.Text = "Tache"
EndIf
End sub
EndClass
| 
