Public Class BilanDesInscriptions Private Sub BTinscription_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTinscription.Click Me.Hide() FrmInscription.Show() Me.Close() End Sub Private Sub BTbilanparnom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanparnom.Click Call lister() FrmInscription.Hide() Me.Hide() RecapitulatifInscription.Show() 'Call lister() Me.Close() End Sub Private Sub BTbilanparmatiere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanparmatiere.Click Me.Hide() RecapitulatifInscriptionMatiere.Show() RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Allemand" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Anglais" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Astronomie" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Biologie" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Chimie" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Droit" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Espagnol" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Français" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Géographie" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Géologie" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Histoire" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Mathématique" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Philosophie" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Physique" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Russe" RecapitulatifInscriptionMatiere.ComboBoxMatiere.Items.Add("Théologie" Me.Close() End Sub Private Sub BTbilanhoraire_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanhoraire.Click Me.Hide() Call RECAP_HORAIRE() RecapitulatifDesHoraires.Show() Me.Close() End Sub Private Sub BilanDesInscriptions_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Module Debut Structure matiere0 Dim un As String Dim deux As String Dim trois As String End Structure Structure matiereE Dim un As String Dim deux As String Dim trois As String Dim quatre As String Dim cinq As String End Structure Structure Etudiant Dim nom As String Dim sexe As String Dim academie As String Dim heureDemarrage As String 'Dim matiereEcrit() As String 'Dim matiereOral() As String End Structure Dim Tabetudiant(4) As Etudiant Dim matiereOral(4) As matiere0 Dim matiereEcrit(4) As matiereE Dim nbp As Integer Dim nom As String Sub Main() Application.Run(Debut1) End Sub Function RECH(ByVal Inom As String) As Boolean Dim i As Integer For i = 0 To nbp - 1 If (nbp = 0) Then Return False If (Tabetudiant(i).nom = Inom) Then Return (True) Next i Return False End Function Function RECH_INDICE_TABLEAU(ByVal Inom As String) As Long Dim a As Integer For a = 0 To nbp - 1 If (Tabetudiant(a).nom = Inom) Then Return (a) Next a End Function Function RECUP_NOM(ByVal Inom As Long) As String Return Tabetudiant(Inom).nom End Function Function RECUP_sexe(ByVal Inom As Long) As String Return Tabetudiant(Inom).sexe End Function Function RECUP_academie(ByVal Inom As Long) As String Return Tabetudiant(Inom).academie End Function Function RECUP_heure(ByVal Inom As Long) As String Return Tabetudiant(Inom).heureDemarrage End Function Sub RECH_MATIERE_ORAL(ByVal Inom As Long) RecapitulatifInscription.Oral1.Text = matiereOral(Inom).un RecapitulatifInscription.Oral2.Text = matiereOral(Inom).deux RecapitulatifInscription.Oral3.Text = matiereOral(Inom).trois End Sub Sub RECH_MATIERE_ECRIT(ByVal Inom As Long) RecapitulatifInscription.Ecrit1.Text = matiereEcrit(Inom).un RecapitulatifInscription.Ecrit2.Text = matiereEcrit(Inom).deux RecapitulatifInscription.Ecrit3.Text = matiereEcrit(Inom).trois RecapitulatifInscription.Ecrit4.Text = matiereEcrit(Inom).quatre RecapitulatifInscription.Ecrit5.Text = matiereEcrit(Inom).cinq End Sub ' Sub RECH2(ByVal Inom As String, ByRef z As Integer) 'Dim i As Integer ' z = i ' For i = 0 To nbp - 1 ' If (nbp = 0) Then ' MsgBox("NON INSCRIT" ' Exit Sub ' End If ' If (Tabetudiant(i).nom = Inom) Then ' Exit Sub ' End If ' z += 1 ' Next i ' End Sub Sub Ajout() If nbp > UBound(Tabetudiant) Then ReDim Preserve Tabetudiant(UBound(Tabetudiant) + 3) Tabetudiant(nbp).nom = FrmInscription.TextNom.Text If (FrmInscription.RadioHomme.Checked = True) Then Tabetudiant(nbp).sexe = "Homme" Else Tabetudiant(nbp).sexe = "Femme" End If Tabetudiant(nbp).heureDemarrage = FrmInscription.Ltext.Text Tabetudiant(nbp).academie = FrmInscription.Label4.Text() matiereOral(nbp).un = FrmChoixEpreuves.Oral1.Text matiereOral(nbp).deux = FrmChoixEpreuves.Oral2.Text matiereOral(nbp).trois = FrmChoixEpreuves.Oral3.Text matiereEcrit(nbp).un = FrmChoixEpreuves.Ecrit1.Text matiereEcrit(nbp).deux = FrmChoixEpreuves.Ecrit2.Text matiereEcrit(nbp).trois = FrmChoixEpreuves.Ecrit3.Text matiereEcrit(nbp).quatre = FrmChoixEpreuves.Ecrit4.Text matiereEcrit(nbp).cinq = FrmChoixEpreuves.Ecrit5.Text nbp += 1 End Sub Sub lister() Dim var As Long Dim NombrePers As Long NombrePers = nbp - 1 For var = 0 To NombrePers RecapitulatifInscription.ComboBoxNom.Items.Add(Tabetudiant(var).nom) Next var End Sub Sub AFFICHE_ETUDIANT_PAR_MATIERE_ORAL(ByVal Imatiere As String) Dim val As Long Dim nombrepers As Long nombrepers = nbp - 1 For val = 0 To nombrepers If matiereOral(val).un = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxOral.Items.Add(Tabetudiant(val).nom) If matiereOral(val).deux = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxOral.Items.Add(Tabetudiant(val).nom) If matiereOral(val).trois = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxOral.Items.Add(Tabetudiant(val).nom) Next val End Sub Sub AFFICHE_ETUDIANT_PAR_MATIERE_ECRIT(ByVal Imatiere As String) Dim val As Long Dim nombrepers As Long nombrepers = nbp - 1 For val = 0 To nombrepers If matiereEcrit(val).un = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom) If matiereEcrit(val).deux = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom) If matiereEcrit(val).trois = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom) If matiereEcrit(val).quatre = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom) If matiereEcrit(val).cinq = Imatiere Then RecapitulatifInscriptionMatiere.ListBoxEcrit.Items.Add(Tabetudiant(val).nom) Next val End Sub Sub RECAP_HORAIRE() Dim val As Long Dim nombrepers As Long nombrepers = nbp - 1 For val = 0 To nombrepers RecapitulatifDesHoraires.ListHoraire.Items.Add(Tabetudiant(val).heureDemarrage) RecapitulatifDesHoraires.ListNom.Items.Add(Tabetudiant(val).nom) Next val End Sub End Module Public Class Debut1 Private Sub BTEntrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTEntrer.Click Me.Hide() FrmInscription.Show() End Sub Private Sub Debut1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub End Class Public Class FrmChoixEpreuves Dim nbe As Integer 'nb choixEcrit Dim nbo As Integer 'nb choixEcrit Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim c As CheckBox For Each c In PanelEcrit.Controls c.Enabled = True c.Checked = False Next Me.Hide() FrmInscription.Close() FrmInscription.Show() End Sub Private Sub PanelEcrit_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelEcrit.Paint End Sub Private Sub FrmChoixEpreuves_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckBox1.Text = "Allemand" CheckBox2.Text = "Anglais" CheckBox3.Text = "Astonomie" CheckBox4.Text = "Biologie" CheckBox5.Text = "Chimie" CheckBox6.Text = "Droit" CheckBox7.Text = "Espagnol" CheckBox8.Text = "Francais" CheckBox9.Text = "Géographie" CheckBox10.Text = "Géologie" CheckBox11.Text = "Histoire" CheckBox12.Text = "Mathématique" CheckBox13.Text = "Philosophie" CheckBox14.Text = "Physique" CheckBox15.Text = "Russe" CheckBox16.Text = "Théologie" End Sub Private Sub RadioOral_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioOral.CheckedChanged CheckBox4.Enabled = False CheckBox6.Enabled = False CheckBox8.Enabled = False CheckBox9.Enabled = False CheckBox10.Enabled = False CheckBox12.Enabled = False CheckBox13.Enabled = False CheckBox14.Enabled = False Dim i As Integer Dim z As CheckBox For Each z In PanelEcrit.Controls If (z.Checked = True) Then z.Enabled = False i += 1 Next End Sub Private Sub RadioEcrit_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioEcrit.CheckedChanged Dim i As Integer Dim z As CheckBox For Each z In PanelEcrit.Controls If (z.Checked = True) Then z.Enabled = False End If i += 1 Next End Sub Private Sub NbChoix(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged, CheckBox7.CheckedChanged, CheckBox8.CheckedChanged, CheckBox9.CheckedChanged, CheckBox10.CheckedChanged, CheckBox11.CheckedChanged, CheckBox12.CheckedChanged, CheckBox13.CheckedChanged, CheckBox14.CheckedChanged, CheckBox15.CheckedChanged, CheckBox16.CheckedChanged If (RadioEcrit.Checked = True) Then If sender.checked Then nbe += 1 If Not (nbe > 5) Then LabelEcrit.Text = nbe ListBoxEcrit.Items.Add(sender.text) End If If nbe > 5 Then MsgBox("5 matières a l'écrit maximum" sender.checked = False End If Else ListBoxEcrit.Items.Remove(sender.text) nbe -= 1 LabelEcrit.Text = nbe End If End If If (RadioOral.Checked = True) Then If sender.checked Then nbo += 1 If Not (nbo > 3) Then LabelOral.Text = nbo ListBoxOral.Items.Add(sender.text) End If If nbo > 3 Then MsgBox("3 matières a l'oral maximum" sender.checked = False End If Else ListBoxOral.Items.Remove(sender.text) nbo -= 1 LabelOral.Text = nbo End If End If End Sub Private Sub BTenregistrementDuChoix_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTenregistrementDuChoix.Click If (nbe = 5 And nbo = 3) Then LabelN.Text = FrmInscription.TextNom.Text If (FrmInscription.RadioHomme.Checked = True) Then LS.Text = "Homme" Else LS.Text = "Femme" End If If (FrmInscription.RadioCreteil.Checked = True) Then LabelA.Text = FrmInscription.RadioCreteil.Text Else If (FrmInscription.RadioParis.Checked = True) Then LabelA.Text = FrmInscription.RadioParis.Text Else LabelA.Text = FrmInscription.RadioVersailles.Text End If End If LabelH.Text = FrmInscription.Ltext.Text Ecrit1.Text = ListBoxEcrit.Items.Item(0) Ecrit2.Text = ListBoxEcrit.Items.Item(1) Ecrit3.Text = ListBoxEcrit.Items.Item(2) Ecrit4.Text = ListBoxEcrit.Items.Item(3) Ecrit5.Text = ListBoxEcrit.Items.Item(4) Oral1.Text = ListBoxOral.Items.Item(0) Oral2.Text = ListBoxOral.Items.Item(1) Oral3.Text = ListBoxOral.Items.Item(2) PanelBilan.Visible = True Else MsgBox("INSCRIPTION INCORRECTE(veuillez selectionner 5 matières à l'écrit et 3 à l'oral)" End If Call Ajout() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTok.Click Me.Hide() FrmInscription.Close() FrmInscription.Show() Me.Close() End Sub Private Sub PanelBilan_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelBilan.Paint End Sub Private Sub LabelN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelN.Click End Sub Private Sub Ecrit1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit1.Click End Sub Private Sub Ecrit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit.Click End Sub Private Sub Ecrit2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit2.Click End Sub Private Sub ListBoxEcrit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBoxEcrit.SelectedIndexChanged End Sub End Class Public Class FrmInscription Private Sub BTarret_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTarret.Click End End Sub Private Sub Heure_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles Heure.Scroll End Sub Private Sub Heure_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Heure.ValueChanged Ltext.Text = Heure.Value Dim h As Integer Dim m As Integer h = Heure.Value \ 12 + 8 m = (Heure.Value Mod 12) * 5 Ltext.Text = h & " h " & Format(m, "00" End Sub Private Sub BTenregistrement_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTenregistrement.Click Dim trouve As Boolean trouve = RECH(TextNom.Text) If (TextNom.TextLength = 0) Then MsgBox("Entrer un nom!" Else If Not (trouve) Then Me.Hide() FrmChoixEpreuves.Show() 'Call Ajout() Else MsgBox("Déja inscrit!" End If End If End Sub Private Sub verifCharac(ByRef c As Char) Dim z As Char Dim s As String = "äâàéèëêïîöôüû '-ç" If (s.IndexOf(c) > -1) Then Exit Sub If (c = vbBack) Then Exit Sub z = UCase(c) If (z >= "A" And z <= "Z" Then Exit Sub c = Chr(0) End Sub Private Sub NomVerif(ByVal sender As Object, ByVal z As System.Windows.Forms.KeyPressEventArgs) Handles TextNom.KeyPress verifCharac(z.KeyChar) End Sub Private Sub TextNom_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextNom.TextChanged End Sub Private Sub Ltext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ltext.Click End Sub Private Sub FrmInscription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' RecapitulatifInscription.ListPers.Text = Me.Label4.Text End Sub Private Sub BTbilanIinscription_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTbilanIinscription.Click Me.Hide() BilanDesInscriptions.Show() Me.Close() End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Sexes(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioFemme.CheckedChanged, RadioHomme.CheckedChanged ' Dim HommeOuFemme As String ' HommeOuFemme = sender.Tag Me.Label2.Text = sender.Tag End Sub Private Sub academies(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioVersailles.CheckedChanged, RadioParis.CheckedChanged, RadioCreteil.CheckedChanged 'Me.Label4.Text = sender.Tag If RadioVersailles.Checked = True Then Me.Label4.Text = "Versailles" ElseIf RadioParis.Checked = True Then Me.Label4.Text = "Paris" Else RadioCreteil.Checked = True Me.Label4.Text = "Creteil" End If End Sub Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click End Sub Private Sub PanelSexe_Enter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelSexe.Enter End Sub Private Sub PanelSexe_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PanelSexe.Paint End Sub End Class Public Class RecapitulatifDesHoraires Private Sub BTretour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTretour.Click Me.Hide() BilanDesInscriptions.Show() Me.Close() End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListHoraire.SelectedIndexChanged End Sub Private Sub RecapitulatifDesHoraires_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub ListNom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListNom.SelectedIndexChanged End Sub End Class Public Class RecapitulatifInscription Private Sub RecapitulatifInscription_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub ComboBoxNom_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxNom.SelectedIndexChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() BilanDesInscriptions.Show() Me.Close() End Sub Private Sub LS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LS.Click End Sub Private Sub ButtonLister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLister.Click Dim indice As Long Dim trouve As Boolean trouve = RECH(ComboBoxNom.Text) If Not (trouve) Then 'Me.Hide() 'FrmChoixEpreuves.Show() 'Call Ajout() MsgBox("NON INSCRIT!" Else 'MsgBox("INSCRIT!" indice = RECH_INDICE_TABLEAU(ComboBoxNom.Text) Me.LabelN.Text = RECUP_NOM(indice) Me.LS.Text = RECUP_sexe(indice) Me.LabelA.Text = RECUP_academie(indice) Me.LabelH.Text = RECUP_heure(indice) Call RECH_MATIERE_ORAL(indice) Call RECH_MATIERE_ECRIT(indice) End If End Sub Private Sub LabelH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelH.Click End Sub Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click End Sub Private Sub LabelN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelN.Click End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub LabelA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelA.Click End Sub Private Sub Ecrit1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit1.Click End Sub Private Sub Ecrit2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit2.Click End Sub Private Sub Ecrit3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit3.Click End Sub Private Sub Ecrit4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit4.Click End Sub Private Sub Ecrit5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ecrit5.Click End Sub Private Sub Oral1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Oral1.Click End Sub Private Sub Oral2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Oral2.Click End Sub Private Sub Oral3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Oral3.Click End Sub End Class Public Class RecapitulatifInscriptionMatiere Private Sub BTretour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTretour.Click Me.Hide() BilanDesInscriptions.Show() Me.Close() End Sub Private Sub ComboBoxMatiere_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxMatiere.SelectedIndexChanged End Sub Private Sub RecapitulatifInscriptionMatiere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub LabelMatiere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LabelMatiere.Click End Sub Private Sub ListeEtudiant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeEtudiant.Click Call AFFICHE_ETUDIANT_PAR_MATIERE_ORAL(ComboBoxMatiere.Text) Call AFFICHE_ETUDIANT_PAR_MATIERE_ECRIT(ComboBoxMatiere.Text) End Sub Private Sub clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear.Click Me.ListBoxEcrit.Items.Clear() Me.ListBoxOral.Items.Clear() End Sub End Class