Comment Plus de consistance plus de qualité et légèreté aux prog ra
1 réponse
oronanac
Bonjour
Comment donner plus de consistance à mon programme avec les nouvelles
fonctionnalité de Visual Basic 2005?
Merci à toutes aides dèjà apportées et attendues.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim players() As String = {"Bart", "Mark", "John", " ", "Charles",
"Hugues"}
Dim numStr As Integer
For StrgStr As Integer = 0 To players.Length - 1
If players(StrgStr).Equals(TextBox1.Text) Then
numStr = StrgStr
If numStr = 0 Then
GoTo 2
Else
GoTo 1
Exit For
End If
End If
Next
If IsNumeric(TextBox1.Text) Then
If (TextBox1.Text >= players.Length) Then
MsgBox("Le numéro n'a pas été enregistré")
ElseIf TextBox1.Text < players.Length And players(numStr) = ("
") Then
MsgBox("la place est vacante")
ElseIf (TextBox1.Text = 0) Then
2: MsgBox("Le " & "n°" & numStr & " est l'entraineur " &
players(numStr))
Else
1: MsgBox("Le " & "n°" & numStr & " est le joueur"" " &
players(numStr))
End If
End If
End Sub
--
La maîtrise de la lumière c''''est l''élévation dans la vie"
:http://www.boeing.com/companyoffices/gallery/screen/screen.htm.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
elocirga
Bonjour, Je propose
Les lignes de trop 'if numStr = 0 then 'Goto é 'else 'end if
Les lignes à modifier ou à ajouter Next If IsNumeric(TextBox1.Text) Then numStr = CInt(TextBox1.Text) If (TextBox1.Text >= players.Length) Then 2: MsgBox("Le nom ou le numéro n'est pas affecté") 'Ajouter la deuxième après Next -------- Else 1: MsgBox("Le " & "n°" & numStr & " est le joueur"" " & players(numStr)) End If Else : GoTo 2 End If End Sub
Merci à bientôt
"oronanac" a écrit :
Bonjour Comment donner plus de consistance à mon programme avec les nouvelles fonctionnalité de Visual Basic 2005? Merci à toutes aides dèjà apportées et attendues.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim players() As String = {"Bart", "Mark", "John", " ", "Charles", "Hugues"} Dim numStr As Integer For StrgStr As Integer = 0 To players.Length - 1 If players(StrgStr).Equals(TextBox1.Text) Then numStr = StrgStr If numStr = 0 Then GoTo 2 Else GoTo 1 Exit For End If End If Next If IsNumeric(TextBox1.Text) Then If (TextBox1.Text >= players.Length) Then MsgBox("Le numéro n'a pas été enregistré") ElseIf TextBox1.Text < players.Length And players(numStr) = (" ") Then MsgBox("la place est vacante") ElseIf (TextBox1.Text = 0) Then 2: MsgBox("Le " & "n°" & numStr & " est l'entraineur " & players(numStr)) Else 1: MsgBox("Le " & "n°" & numStr & " est le joueur"" " & players(numStr)) End If End If End Sub -- La maîtrise de la lumière c''''est l''élévation dans la vie" :http://www.boeing.com/companyoffices/gallery/screen/screen.htm.
Bonjour,
Je propose
Les lignes de trop
'if numStr = 0 then
'Goto é
'else
'end if
Les lignes à modifier ou à ajouter
Next
If IsNumeric(TextBox1.Text) Then
numStr = CInt(TextBox1.Text)
If (TextBox1.Text >= players.Length) Then
2: MsgBox("Le nom ou le numéro n'est pas affecté")
'Ajouter la deuxième après Next
--------
Else
1: MsgBox("Le " & "n°" & numStr & " est le joueur"" " &
players(numStr))
End If
Else : GoTo 2
End If
End Sub
Merci à bientôt
"oronanac" a écrit :
Bonjour
Comment donner plus de consistance à mon programme avec les nouvelles
fonctionnalité de Visual Basic 2005?
Merci à toutes aides dèjà apportées et attendues.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim players() As String = {"Bart", "Mark", "John", " ", "Charles",
"Hugues"}
Dim numStr As Integer
For StrgStr As Integer = 0 To players.Length - 1
If players(StrgStr).Equals(TextBox1.Text) Then
numStr = StrgStr
If numStr = 0 Then
GoTo 2
Else
GoTo 1
Exit For
End If
End If
Next
If IsNumeric(TextBox1.Text) Then
If (TextBox1.Text >= players.Length) Then
MsgBox("Le numéro n'a pas été enregistré")
ElseIf TextBox1.Text < players.Length And players(numStr) = ("
") Then
MsgBox("la place est vacante")
ElseIf (TextBox1.Text = 0) Then
2: MsgBox("Le " & "n°" & numStr & " est l'entraineur " &
players(numStr))
Else
1: MsgBox("Le " & "n°" & numStr & " est le joueur"" " &
players(numStr))
End If
End If
End Sub
--
La maîtrise de la lumière c''''est l''élévation dans la vie"
:http://www.boeing.com/companyoffices/gallery/screen/screen.htm.
Les lignes de trop 'if numStr = 0 then 'Goto é 'else 'end if
Les lignes à modifier ou à ajouter Next If IsNumeric(TextBox1.Text) Then numStr = CInt(TextBox1.Text) If (TextBox1.Text >= players.Length) Then 2: MsgBox("Le nom ou le numéro n'est pas affecté") 'Ajouter la deuxième après Next -------- Else 1: MsgBox("Le " & "n°" & numStr & " est le joueur"" " & players(numStr)) End If Else : GoTo 2 End If End Sub
Merci à bientôt
"oronanac" a écrit :
Bonjour Comment donner plus de consistance à mon programme avec les nouvelles fonctionnalité de Visual Basic 2005? Merci à toutes aides dèjà apportées et attendues.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim players() As String = {"Bart", "Mark", "John", " ", "Charles", "Hugues"} Dim numStr As Integer For StrgStr As Integer = 0 To players.Length - 1 If players(StrgStr).Equals(TextBox1.Text) Then numStr = StrgStr If numStr = 0 Then GoTo 2 Else GoTo 1 Exit For End If End If Next If IsNumeric(TextBox1.Text) Then If (TextBox1.Text >= players.Length) Then MsgBox("Le numéro n'a pas été enregistré") ElseIf TextBox1.Text < players.Length And players(numStr) = (" ") Then MsgBox("la place est vacante") ElseIf (TextBox1.Text = 0) Then 2: MsgBox("Le " & "n°" & numStr & " est l'entraineur " & players(numStr)) Else 1: MsgBox("Le " & "n°" & numStr & " est le joueur"" " & players(numStr)) End If End If End Sub -- La maîtrise de la lumière c''''est l''élévation dans la vie" :http://www.boeing.com/companyoffices/gallery/screen/screen.htm.
