Visual Basic 2010
Marion1232
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
Marion1232 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Marion1232 Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Visual Basic 2010
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
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
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
