j'ai fait ce petit programme car je ne dispose pas de lecteur DVD de salon, mais d'un PC équipé d'un lecteur DVD comme beaucoup de monde aujourd'hui. Puis j'en ai eu marre de me servir d'un notepad pour écrire les résultats des exercices.
Donc j'ai fait ce programme qui ce passe en deux étape, répondre aux question du DVD a l'aide de la télécommande (programme) et arriver a la question 40 (après avoir validé) une nouvelle fenêtre s'ouvre pour voir les résultats et éventuellement faire les corrections ...
A tout comment vous pouvez faire un "reset" pour recommencer !
Source / Exemple :
Public Class Form1
Public Sub ResetLeter()
L_A.ForeColor = Color.DarkGray
L_B.ForeColor = Color.DarkGray
L_C.ForeColor = Color.DarkGray
L_D.ForeColor = Color.DarkGray
End Sub
Private Sub B_Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
B_Valider.Click, _
B_A.Click, _
B_B.Click, _
B_C.Click, _
B_D.Click, _
B_Corriger.Click, _
B_Reset.Click
Select Case CType(sender, Button).Text
Case "A"
L_A.ForeColor = Color.Black
Case "B"
L_B.ForeColor = Color.Black
Case "C"
L_C.ForeColor = Color.Black
Case "D"
L_D.ForeColor = Color.Black
Case "Valider"
Dim Result As String = L_NQuestion.Text & " - "
If L_A.ForeColor = Color.Black Then Result += "A" & vbTab
If L_B.ForeColor = Color.Black Then Result += "B" & vbTab
If L_C.ForeColor = Color.Black Then Result += "C" & vbTab
If L_D.ForeColor = Color.Black Then Result += "D"
My.Forms.ResultatCorrection.TextBox1.Text += Result & vbCrLf
If L_NQuestion.Text <> "40" Then
L_NQuestion.Text = Format(CInt(L_NQuestion.Text + 1), "0#")
ResetLeter()
Else
B_Valider.Enabled = False
My.Forms.ResultatCorrection.Show()
End If
Case "Corriger"
ResetLeter()
Case "Reset"
ResetLeter()
L_NQuestion.Text = "01"
My.Forms.ResultatCorrection.TextBox1.Clear()
B_Valider.Enabled = True
End Select
End Sub
Private Sub B_A_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
B_A.MouseHover, _
B_B.MouseHover, _
B_C.MouseHover, _
B_D.MouseHover
CType(sender, Button).BackColor = Color.Blue
End Sub
Private Sub B_A_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
B_A.MouseLeave, _
B_B.MouseLeave, _
B_C.MouseLeave, _
B_D.MouseLeave
CType(sender, Button).BackColor = SystemColors.Control
End Sub
End Class
Conclusion :
j'ai pas commenté le code vonlontaiment car pas besion je pense, si vous souhaitez quand meme que j'ajoute des commentaires dite le moi !
PS. c'est mon tout premier code source vb .net :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.