Notes sur l'épreuve de programmation évènementielle - correction, Notes de Physiques
Francine88
Francine8825 février 2014

Notes sur l'épreuve de programmation évènementielle - correction, Notes de Physiques

PDF (254 KB)
2 pages
1000+Numéro de visites
Description
Notes d’informatiques sur l'épreuve de programmation évènementielle - correction. Les principaux thèmes abordés sont les suivants: correction, La clarté de la rédaction sera prise en compte. Le barème peut être modifié ;...
20 points
Points de téléchargement necessaire pour télécharger
ce document
Télécharger le document
Aperçu2 pages / 2
Télécharger le document

Correction

Exercice 1:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

TextBoxPassword.PasswordChar = "*"

End Sub

Private Sub ButtonConnexion_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles ButtonConnexion.Click

If TextBoxLogin.Text = "user" And TextBoxPassword.Text = "isimed2013"

Then

LabelResultat.Text = "accès autorisé"

LabelResultat.ForeColor = Color.Blue

Else

LabelResultat.Text = "accès réfusé"

LabelResultat.ForeColor = Color.Red

End If

End Sub

Private Sub ButtonEffacer_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles ButtonEffacer.Click

LabelResultat.Text = ""

TextBoxLogin.Text = ""

TextBoxPassword.Text = ""

End Sub

Private Sub TextBoxLogin_KeyPress(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.KeyPressEventArgs) Handles TextBoxLogin.KeyPress

If IsNumeric(e.KeyChar) Then

e.Handled = True

Else

e.Handled = False

End If

End Sub

End Class

Exercice 2:

Public Class Form1

Private Sub ButtonParfait_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles ButtonParfait.Click

Dim i As Integer

Dim s As Integer

Dim N As Integer

N = Val(TextBoxN.Text)

s = 0

For i = 1 To N

If N Mod i = 0 Then

s += i

End If

Next

If s = 2 * N Then

LabelResultat.Text = "Ce nombre est parfait"

Else

LabelResultat.Text = "Ce nombre n'est pas parfait"

End If

End Sub

docsity.com

Private Sub ButtonNPremiersNombresParfaits_Click(ByVal sender As

System.Object, ByVal e As System.EventArgs) Handles

ButtonNPremiersNombresParfaits.Click

LabelResultat.Text = ""

Dim NbParfaitsTrouvés As Integer

NbParfaitsTrouvés = 0

Dim i, j As Integer

Dim s As Integer

Dim N As Integer

N = Val(TextBoxN.Text)

j = 0

i = 0

Do While NbParfaitsTrouvés < N

s = 0

For i = 1 To j

If j Mod i = 0 Then

s += i

End If

Next

If s = 2 * j Then

LabelResultat.Text += j.ToString() + ", "

NbParfaitsTrouvés += 1

End If

j += 1

Loop

End Sub

End Class

docsity.com

commentaires (0)

Aucun commentaire n'a été pas fait

Écrire ton premier commentaire

Télécharger le document