Exercise vb tableau T(5) string
Bonjour,
Exercice : Ecrire un algorithme qui déclare et remplisse un tableau contenant les six voyelles de l’alphabet latin et qui affiche un message lorsque tu répete le caractère deux fois :
" la voyalle " & v & " existe déjà veuillz saisir une autre svp "
j'ai réalisé l'exercice correctement mais quand je répete sur la 3ème case le même caractère le programme m'affiche pas le message de répétition !
[/code]
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim T(5) As String
Dim v As String
Dim i, j As Integer
For i = 0 To 5
If i = 0 Then
v = InputBox("Donnez la 1er voyelle Svp ")
Else
v = InputBox("Donnez la " & i + 1 & "eme voyelle svp")
End If
If v = "a" Or v = "e" Or v = "i" Or v = "u" Or v = "y" Or v = "o" Or v = UCase("a") Or v = UCase("e") Or v = UCase("i") Or v = UCase("u") Or v = UCase("y") Or v = UCase("o") Then
For j = 0 To i
If v = T(j) Then
MsgBox("la voyalle " & v & " existe déjà veuillz saisir une autre svp")
GoTo 1
Else
T(i) = v
GoTo 2
End If
Next
Else
1: i = i - 1
End If
2: Next
For i = 0 To 5
MsgBox("la voyalle de la case T(" & i & ") est : " & T(i))
Next
End Sub
End Class
[code#]
Exercise vb tableau T(5) string
Bonjour,
Merci pour t'as réponse , pourquoi pas tu me déconseille de travailler avec la fonction "GOTO" est ce qu'il ya une autre fonction comme "Goto" qui permet de detecté le cacaractère double puis il affiche un message a chaque case, " caractètre existe déjà veuillez saisir un autre svp"
Merci
Exercise vb tableau T(5) string
Bonsoir , de ce que j'ai compris de ton explication que la fonction "GO TO" est difficile à utilisé, sais comme si tu déclare allez à l'enfer! " GOTO HELL"
Je connais peu en C# sur code blocks puis cette semestre nous avons passé au vb sais different que c# sais un autre language il faut pas comparer entre les deux , alors sais pour ça on utilise des boucle comme "if" or "else" sais débutant pas pro, donc le code ça marche mais au niveau de répétition de caractère sur la 3ème case il m'affiche pas un message de répétition. je pense qu'il faut ajouter une autre "GOTO".
Exercise vb tableau T(5) string
Non plus il faut pas ajouter plusieurs GOTO , j'ai trouvais la solution juste j'ai oublier de mettre for j = 0 to j ! et non i , puis la fonction if pour afficher le message de répétition. ensuite GOTO 1 seulement.
{ il faut être patient sur la programmation merci en tout les cas.}
end goto 8-)