La var 9 2010 Tdi1 !! POO +événementielle

SALAM

La var 9 2010 Tdi !! POO +événementielle
Na9sa Une seul Question f événementielle
3) Créer un formulaire qui permet
Je vx Qlq Qui px le coriger stp

Voila Un lien sur media Fire

telecharger

pour telecharger cliquer sur SKIP THIS AD

Et Voila les Classe

Public Class C_Professeur

Private codeldentifiant As Integer
Private Nom As String
Private Prénom As String
Private Sexe As Char = ("M""F")
Private age As Integer
Private Affectation As String
Public Shared compteur As Integer = 0

Public Property IcodeIdentifiant() As Integer
Get
Return Me.codeldentifiant
End Get
Set(ByVal value As Integer)
Me.codeldentifiant = value
End Set
End Property
Property sNom() As String
Get
Return Me.Nom

End Get
Set(ByVal value As String)
Nom = value
End Set
End Property
Property sPrénom() As String
Get
Return Me.Prénom
End Get
Set(ByVal value As String)
Prénom = value
End Set
End Property
Property Csexe() As Char
Get
Return Me.Sexe
End Get
Set(ByVal value As Char)
Sexe = value

End Set
End Property
Property Iage() As Integer
Get
Return Me.age
End Get
Set(ByVal value As Integer)
'Exception
If age <= 20 And age >= 60 Then
Throw New Exception("Erreur Age")
Else
age = value
End If

End Set
End Property
Property sAffectation() As String
Get
Return Me.Affectation
End Get
Set(ByVal value As String)
Affectation = value
End Set
End Property

' Constructeur Par defaut
Public Sub New()
compteur = compteur + 1
codeldentifiant = compteur
End Sub
' Constructeur d'initialisation
Public Sub New(ByVal codeI As Integer, ByVal No As String, ByVal Pré As String, ByVal Se As Char, ByVal Ag As Integer, ByVal Affec As String)
Me.codeldentifiant = codeI
Me.Nom = No
Me.Prénom = Pré
Me.Sexe = Se
Me.age = Ag
Me.Affectation = Affec
End Sub
' Méthode afiicher
Public Overloads Sub Affiche_Information()
MsgBox("Le code d'idetifiant est :" & IcodeIdentifiant & "Le Nom Du Professeur est :" & sNom & " Sont Prénom est :" & sPrénom & " Sexe Est :" & Csexe & " Agé de:" & Iage & "Affectation :" & sAffectation)
End Sub

End Class


___________________________________________________________________________________________________


Public Class C_Elève
Private CodeElève As Integer
Private Nom As String
Private Prénom As String
Private Niveau As Integer
Public Shared Compteur As Integer = 0



Property iCodeEléve() As Integer
Get
Return Me.CodeElève
End Get
Set(ByVal value As Integer)
CodeElève = value
End Set
End Property
Property sNom() As String
Get
Return Me.Nom
End Get
Set(ByVal value As String)
Me.Nom = value
End Set
End Property
Property sPrénom() As String
Get
Return Me.Prénom
End Get
Set(ByVal value As String)
Me.Prénom = value

End Set
End Property
Property iNiveau() As Integer
Get
Return Me.Niveau
End Get
Set(ByVal value As Integer)
Me.Niveau = value
End Set
End Property

' Constructeur Par defaut
Public Sub New()
compteur = compteur + 1
CodeElève = Compteur
End Sub
'Constricteur d'initialisation
Public Sub New(ByVal codeEle As Integer, ByVal nE As String, ByVal pE As String, ByVal Niv As Integer)
Me.CodeElève = codeEle
Me.Nom = nE
Me.Prénom = pE
Me.Niveau = Niv
End Sub
End Class


_______________________________________________________________________________

<Serializable()> Public Class C_Parrain
'4) Codage de la class Parrain:


Inherits C_Professeur
Public Eleve As New ArrayList

Sub New()

End Sub
Public Sub New(ByVal codeI As Integer, ByVal No As String, ByVal Pré As String, ByVal Se As Char, ByVal Ag As Integer, ByVal Affec As String)
MyBase.New(codeI, No, Pré, Se, Ag, Affec)
End Sub
Public Overloads Sub Affiche_Information()
MsgBox("Le code d'idetifiant est :" & IcodeIdentifiant & "Le Nom Du Professeur est :" & sNom & " Sont Prénom est :" & sPrénom & " Sexe Est :" & Csexe & " Agé de:" & Iage & "Affectation :" & sAffectation)
End Sub
'5)
Public Sub ajoute_Eléve(ByVal P As C_Professeur)
Eleve.Add(P)
End Sub
'6)

Public Sub supprimer_Eléve(ByVal p As C_Professeur)
Eleve.Remove(p)
End Sub

End Class

_________________________________________________________________________


Évènementielle

Question 1

Public Class Frm_Professeur
Dim Pro_arrylist As New ArrayList

Private Sub cmd_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_ajouter.Click
Dim P1 As New C_Professeur(Val(txtcode.Text), txtnom.Text, txtprénom.Text, ComboBox1.Text, NumericUpDown1.Value, txtaffectation.Text)
Pro_arrylist.Add(P1)
vidé()
End Sub

Private Sub cmd_consulter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_consulter.Click
For Each P1 As C_Professeur In Pro_arrylist
If P1.IcodeIdentifiant = Val(txtcode.Text) Then
txtnom.Text = P1.sNom
txtprénom.Text = P1.sPrénom
ComboBox1.Text = P1.Csexe
NumericUpDown1.Value = P1.Iage
txtaffectation.Text = P1.sAffectation
Else
MsgBox("Profsseur Introuvable !!")
End If
Next
End Sub

Private Sub cmd_Modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Modifier.Click
For i As Integer = 0 To Pro_arrylist.Count - 1
If Pro_arrylist(i).IcodeIdentifiant = Val(txtcode.Text) Then
Pro_arrylist(i).snom = (txtnom.Text)
Pro_arrylist(i).sprénom = (txtprénom.Text)
Pro_arrylist(i).Csexe = ComboBox1.Text
Pro_arrylist(i).iage = NumericUpDown1.Value
Pro_arrylist(i).affectation = txtaffectation.Text
MsgBox("Professeur Modifier")
Else
MsgBox("Profsseur Introuvable !!")
End If
Next
End Sub

Private Sub cmd_Supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Supprimer.Click
For i As Integer = 0 To Pro_arrylist.Count - 1
If Pro_arrylist(i).IcodeIdentifiant = Val(txtcode.Text) Then
Pro_arrylist.RemoveAt(i)
MsgBox("Professeur Spprimer")
Else
MsgBox("Profsseur Introuvable !!")
End If
Next

End Sub
Sub vidé()
txtcode.Clear()
txtnom.Clear()
txtprénom.Clear()
ComboBox1.Text = ""
NumericUpDown1.Value = 0
txtaffectation.Clear()
txtcode.Select()

End Sub

End Class





Question 2

Public Class Frm_Eléve
Dim el_arry As New ArrayList
' Ajouter
Private Sub cmd_ajouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_ajouter.Click
Dim E1 As New C_Elève(Val(txtcode.Text), txt_nom.Text, txt_prénom.Text, Val(txt_niveau.Text))
el_arry.Add(E1)
MsgBox("Eléve Ajouter")
vider()
End Sub
' Methode Pour vider Les Champ
Sub vider()
txtcode.Clear()
txt_nom.Clear()
txt_prénom.Clear()
txt_niveau.Clear()
txtcode.Select()

End Sub

Private Sub cmd_consulter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_consulter.Click
For Each E1 As C_Elève In el_arry
If E1.iCodeEléve = Val(txtcode.Text) Then
txt_nom.Text = E1.sNom
txt_prénom.Text = E1.sPrénom
txt_niveau.Text = Val(txtcode.Text)
Else
MsgBox("Eléve Introuvable")
vider()
End If
Next
End Sub

Private Sub cmd_Modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Modifier.Click
For i As Integer = 0 To el_arry.Count - 1
If el_arry(i).iCodeEléve = Val(txtcode.Text) Then
el_arry(i).snom = txt_nom.Text
el_arry(i).sprénom = txt_prénom.Text
el_arry(i).Iniveau = Val(txt_niveau.Text)
MsgBox("Eléve Modifier")
Else

MsgBox("Eléve Introuvable")
vider()

End If
Next
End Sub

Private Sub cmd_Supprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Supprimer.Click
For i As Integer = 0 To el_arry.Count - 1
If el_arry(i).iCodeEléve = Val(txtcode.Text) Then
el_arry.RemoveAt(i)
MsgBox("Eléve Supprimer")
Else
MsgBox("Eléve Introuvable")
vider()
End If
Next

End Sub
End Class



Question 4

Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
Imports System.IO


Public Class Frm_Parrain

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim st As Stream = File.Open("D:\Enregister_Eléve.txt", FileMode.Create, FileAccess.Write, FileShare.Write)
Dim bf As New BinaryFormatter
Dim P As New C_Parrain
bf.Serialize(st, P)
st.Close()

End Sub
End Class

Question 6
Public Class Protection

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "ADMIN" And TextBox2.Text = "NIMDA" Then
MsgBox("Bienvenu ADMIN encor Une autre FOis")
TextBox1.Clear()
TextBox2.Clear()
Frm_Professeur.Show()
Me.Close()
Else
MsgBox("Nom d'utisatreur Ou mots Passe Incorrect")
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Select()

End If
End Sub

End Class