Visual Basic 2010
Marion1232
Messages postés
20
Statut
Membre
-
Marion1232 Messages postés 20 Statut Membre -
Marion1232 Messages postés 20 Statut Membre -
Bonjour,
Je fais un projet sous Visual Basic, j'ai une base film a gérer (77 films)
Seulement aprés avoir associé tous les titres a ma base de films mes films se multiplie jusqu'a 6006 films. Je ne comprends pas l'erreur sur mon code
Public Sub CreerbaseTitre(ByVal titre As List(Of String)) ', ByVal rating As List(Of String), ByVal listplot As List(Of String))
Dim j As Integer
For j = 0 To titre.Count - 1
Dim t1() As String = Split(titre(j), ") ")
Dim t As New Film
t.Actors = New List(Of String)
t.Actresses = New List(Of String)
t.Genres = New List(Of String)
t.Titre = t1(0) + ")"
t.DateSortie = t1(1)
basefilm.Add(t)
Next
End Sub
Je fais un projet sous Visual Basic, j'ai une base film a gérer (77 films)
Seulement aprés avoir associé tous les titres a ma base de films mes films se multiplie jusqu'a 6006 films. Je ne comprends pas l'erreur sur mon code
Public Sub CreerbaseTitre(ByVal titre As List(Of String)) ', ByVal rating As List(Of String), ByVal listplot As List(Of String))
Dim j As Integer
For j = 0 To titre.Count - 1
Dim t1() As String = Split(titre(j), ") ")
Dim t As New Film
t.Actors = New List(Of String)
t.Actresses = New List(Of String)
t.Genres = New List(Of String)
t.Titre = t1(0) + ")"
t.DateSortie = t1(1)
basefilm.Add(t)
Next
End Sub
1 réponse
-
Non en fait c'est quand je veux rajouter mes acteurs à ma base de film que mes films se multiplie jusqu'a 6006
mon code est le suivant :
'Associe à chaque film ses acteurs (caractéristique de la stucture)
Public Sub CreerbaseActors(ByVal actors As List(Of String))
Dim i As Integer
Dim j As Integer
For i = 0 To basefilm.Count - 1
For j = 0 To actors.Count - 1
Dim t() As String = Split(actors(j), ControlChars.Tab)
If basefilm(i).Titre = t(1) Then
basefilm(i).Actors.Add(t(0) + " Rôle : " + t(2)) 't(0) correspond au nom et au prenom de l'acteur et t(2) a son role
End If
Next
Next
End Sub
