cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010
-
22 mai 2006 à 11:06
linasteph
Messages postés153Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention22 juillet 2009
-
23 mai 2006 à 12:57
bonjour je dois gere une file d'attente en vb6 le pb c'est que je dois utiliser un fifo et je ne sais pas comment cela fonctionne merci de bien vouloire m'expliquer
cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010 22 mai 2006 à 13:41
c comme a la poste une file d'attente de personne. tu vois a la poste les gens prennent leur ticket et pour chaque guichet un numeros est inscrit sur la pareil (la télé) e t ben la c la mm chose a part que la ya le nom de la personne qui s'affiche a l'écran
linasteph
Messages postés153Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention22 juillet 20091 23 mai 2006 à 07:24
tu pourrais travailler avec une collection d'objets: tu ajoutes une
nouvelle personne à la fin de la collection et lorsque tu traites une
personne (la première de la collection) tu la supprimes.
Ou bien si ce n'est pas des files d'attente trop importante avec un fichier texte: tu ajoutes des personnes en mode Append .
Ensuite lorsque tu traites un personne tu lui mets un flag pour la prochaine fois traiter le premier qui n'en a pas.
cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010 23 mai 2006 à 09:33
maintenant le méthode fonctionne voici le code
Private Sub Command1_Click()
Dim pile As classelifo
Dim i As Integer
Set pile = New classelifo
' dans le cas d'une File
For i = 0 To 10
pile.Empile (i)
Next i
For i = 0 To 10
MsgBox pile.Defile
Next i
End Sub
le pb c'est que au lieu que le msagge box m'indique 1,2,3...,10 je veux entrer les valeur moi mm pour cela j'ai utiliser un textbox. mais la je sais pas comment faire
cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010 23 mai 2006 à 10:06
dc merci j'ai utiliser votre code cela fonctionne pour le premier mot entrer ex tit
mon pb c que si je veut rentrer toto,mimi ect cela ne fonctionne pas
Option Explicit
Dim pile As classelifo
Private Sub Command1_Click()
Set pile = New classelifo
' dans le cas d'une File
pile.Empile (Text1.Text)
Label1 = pile.Defile
End Sub
l'uitilisation du label me permet de mettre les infos qui st a l'interrieu et de verifier si cela fonctionne. apres je méttrait ts ds un fichier
linasteph
Messages postés153Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention22 juillet 20091 23 mai 2006 à 10:16
Alors il ne faut pas mettre Set pile = New classelifo dans le
command1_click mais par exemple dans le sub main de l'application car
si tu l'exécutes à chaque fois tu perds tout ce que tu as déjà mis dans
ta liste.
Essaie pour l'exmeple de le mettre dans ton form_load.
cs_Miss1
Messages postés221Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention22 décembre 2010 23 mai 2006 à 10:22
le pb c que pour faire mon test ou doit je indique mettre les labels car j'ai essayerde faire Label1 pile.Defile et Label2 pile.Defile et le pb c qui me mais 2 ds chaque label au lieu de mettre 1 et 2 (label est pour moi un moyen de teste si sa fonctionne)