Aidez moi pour projet vb6
Résolu
abdouzaa
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
abdouzaa Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
abdouzaa Messages postés 19 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Aidez moi pour projet vb6
- Vb6 - Télécharger - Divers Utilitaires
- Filigrane projet - Guide
- Gant projet - Télécharger - Gestion de projets
- Musique projet x ✓ - Forum Musique / Radio / Clip
- Différence entre pmo et chef de projet ✓ - Forum Programmation
14 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, peux-tu partager ce que tu as réalisé pendant ces trois mois?
dans quel contexte fais-tu ce travail?
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.
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
Bonjour,
comment faire la méthode
Je vais vous faire le code car je vois que vous faites des efforts pour rechercher une solution
il semble que ce soit un exo de programmation, quelles etudes faites vous ?
Surprenant que ce soit du VB6.0!
comment faire la méthode
Je vais vous faire le code car je vois que vous faites des efforts pour rechercher une solution
il semble que ce soit un exo de programmation, quelles etudes faites vous ?
Surprenant que ce soit du VB6.0!
Bonjour ,
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 :) :)
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 :) :)
Re,
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..
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
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 .
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
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/
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/