Aidez moi pour projet vb6
Résolu
Bonjour ,
j'espère que vous allez bien , svp je suis bloqué dans un projet de vb6 depuis 3 mois j'ai mal cherché dans les forums mais aucun résultats , dans ce projet de simuler les résultats obtenus par 10 chansons lors d’un concours qui a lieu devant 5 membres du Jury. Il faudra saisir les notes attribuées par chaque membre du jury pour chaque chanson puis on détermine la chanson gagnante .Le clic sur le bouton « Résultats par ordre de mérite » permet d’afficher les résultats par ordre de mérite en indiquant respectivement le classement, le n° de chanson et le total des points qu’elle a obtenu lorsque tous les membres du jury ont voté.
Le clic sur le bouton « La chanson gagnante est » permet d’afficher dans List1 le numéro de la chanson gagnante
Svp qui peut m'aider pour le code de ces 2 commandes .
j'espère que vous allez bien , svp je suis bloqué dans un projet de vb6 depuis 3 mois j'ai mal cherché dans les forums mais aucun résultats , dans ce projet de simuler les résultats obtenus par 10 chansons lors d’un concours qui a lieu devant 5 membres du Jury. Il faudra saisir les notes attribuées par chaque membre du jury pour chaque chanson puis on détermine la chanson gagnante .Le clic sur le bouton « Résultats par ordre de mérite » permet d’afficher les résultats par ordre de mérite en indiquant respectivement le classement, le n° de chanson et le total des points qu’elle a obtenu lorsque tous les membres du jury ont voté.
Le clic sur le bouton « La chanson gagnante est » permet d’afficher dans List1 le numéro de la chanson gagnante
Svp qui peut m'aider pour le code de ces 2 commandes .
14 réponses
Résumé de la discussion
Plusieurs échanges portent sur un exercice VB6 simulant les notes de dix chansons par cinq jurés, avec deux commandes: afficher les résultats par ordre de mérite et déterminer la chanson gagnante. Des solutions évoquées privilégient la structuration des notes dans un tableau 2D, le calcul des totaux et l’affichage des classements, avec activation des combobox par des cases à cocher. Plusieurs idées ont été illustrées par échanges sur l’emploi d’un tableau de scores, l’utilisation de Combo.DataField et le stockage des résultats, ainsi que le partage de formulaires récupérés après erreur. Certaines réponses évoquent aussi la logique pour afficher dans List1 le numéro de la chanson gagnante après saisie complète des votes et la vérification que tous les jurés ont voté.
-
Contributeurbonjour, peux-tu partager ce que tu as réalisé pendant ces trois mois?
dans quel contexte fais-tu ce travail? -
Oui bien sur , c'est un projet de fin de semestre vous voulez les codes ? j'ai seulement fait les codes pour entrer les valeurs dans combobox , et faire des tests de checkbox si il est true la ligne des comobo pour le membre est Unlocked c'est un simple code maintenant je suis bloqué comment je peux calculer la somme des points qui est était affecter sur les chansons de 1 a 10 et l'afficher et indiquer celle qui a le plus des points pour etre gagnante.
-
-
@yg_beMerci daccord
-
@abdouzaaBonjour,
par chaque membre du jury pour chaque chanson
Ou sont les chansons?
Dans les listbox 5 et 3 points: pourquoi 7 et 5? -
@f894009Oui les numéros des chansons sont Dans les combobox j'ai fait la chanson 7 et 5 seulement par exemple la chanson 7 s'affecte 5point et la chanson 3 prend 3 point et chanson 1 prend 1 point.
-
-
-
Merci beaucoup ça fait trop plaisir votre aide voici le lien :https://www.cjoint.com/c/JFkrBEzIJVA
Oui j'ai fait une étape de l'affectation de chaque chanson du combobox par 5 point ou 3 point ou 1 point tout en utilisant la fonction Combo().DataField-
-
@f894009Suite:
Ai un msg sur choix dans combox!
-
-
Oui pour le message dans le combobox je l'ai fait pour que les membres n'entrent pas 3 chansons les memes est intoduite dans les instructions du projet , il faut entrer 3 chansons différentes si non un message d'erreur va s'afficher
-
Pour le projet veux pas s'afficher? je reprend et je colle le lien une nouvelle fois?
-
Oui le probleme pour le total des points j'ai pas une idée comment je peux le faire j'ai cherché partout , je suis bloqué dans cette etape .
-
Re
je suis bloqué dans cette etape
Dans les comboboxs vous avez le numero de la chanson et a chaque combobox correspond une valeur (5, 3, 1)
Une facon de faire:
Definir une variable tableau TPChanson(11), 11 pour 0 a 10 et 1 a 10 sera utilise pour etre synchro avec le numero de chanson
click sur bouton Command1
Raz tableau TPChanson
boucles sur les comboboxs
cas de la premiere combobox
Combo1(0).datafied="5" -> valeur a entrer dans le tableau , choix chanson="7" -> rang dans le tableau
Donc: TPChanson(clng(Combo1(0))=TPChanson(clng(Combo1(0))+clng(Combo1(0).datafield)
apres
Tri croissant du tableau TPChanson pour avoir le classement des chansons moins de point vers plus de point
affichage dans les label 8 et 9 num chanson et points en commencant par la fin du tableau
-
-
Merci Beaucoup ça fait trop plaisir ,votre aide je vais le tester maintenant la méthode .
-
Je vais definir deux compteurs i et j pour razer le tableau n'est ce pas ?
-
Comme ça dim TPChanson(0 to 10 , 1 to 10)
-
Svp je sais pas comment faire la méthode : j'ai fait ce code mais je sais pas esque c'est comme ça on doit faire
Dim TPChanson(11) As Integer
For i = 0 To 2
For j = 1 To 11
TPChanson(j) = Combo1(i).DataField
TPChanson(j) = Combo1(j).Text
TPChanson(CLng(Combo1(i))) = TPChanson(CLng(Combo1(j).Text) + CLng(Combo1(i).DataField))
Next
Next-
-
@f894009Bonjour ,
Merci beaucoup ça fait énormement plaisir j'ai tellement cherché en faite pour ma part je suis dans une école d'ingénieur je suis pas de filiére informatique mais je fais de la modélisation et finance , et meme on a étudié du programmation comme java c++ c et maintenant ce semestre avec Vb 6 :) :) -
@abdouzaaRe,
Fichier modifie pour mise en tableau point par chanson, Tri croissant du tableau, affichage du resultat
https://mon-partage.fr/f/Lz1LruRR/
Reste l'affichage de la chanson gagnante. Facile
Amusez vous..
-
-
Bonjour ,
Merci beaucoup pour votre aide et patience ça fait plaisir svp quand j'ai lancé le projet il faut que j'ajoute le tableau dans commande 1 ? car j'ai trouvé le tableau ajouter dans une feuille de module -
Re,
svp je reçois ce message quand je veux ouvrir le projet ou tu m'as ecris le code désolé du dérangement que j'ai fais a vous .
-
Re ,
Je crois la cause de cette erreur car il ya pas le fichier project il ya seulement les modules un des fichiers est introuvable-
Re,
J'ai fais une erreur en supprimant la form que j'avais modifie, je dois tout refaire, pas grave..
Suite:
Ai retrouve la form
https://mon-partage.fr/f/Uyf6wlMB/
-
-
Merci beaucoup , je suis tellement désolé pour ce derangement que j'avais fais pour vous merci beaucoup pour votre aide .
-
-
-
@f894009Merci beaucoup marche parfaitement bien , y a il un moyen de te remercier pour vos effort merciiiiiiii bcp
-
