boucle avec VB Fermé

Question

Bonjour, 
Avec VB6 comment je peux résoudre le problème suivant : trois listes A,B et C la liste A comprend des réels de 1 à 10 (incrémentation) et la liste B comrend les réels suivants (2,3,6,9) , comment renvoyer les éléments dans la liste C les éléments manuquants c-a-d (1,4,5,7,8 et 10)  Merci

Polux31 · Answer

Bonjour,

Tu veux l'algo ? c'est ça ?

nagnag · Answer

Bonjour, Polux
Oui je veux l'algo, Merci

Polux31 · Answer

salut,

Je ne suis pas là pour faire les exercices ... je suis là pour aider sur tel ou tel point d'algo ou code. Désolé

nagnag · Answer

Bonjour, 
Je sais, mais je peux te donner mon algo si tu veux ?

Polux31 · Answer

ok fais passer ...

nagnag · Answer

CODE :
'La liste A contient 1,2,3,4,5,6,7,8,9,10
'La liste B contient 1,3,5,7,9
'Je veux renvoyer les chiffres 2,4,6,8 dans la liste C,

'Début du code
Dim i, j As Integer
Dim trouver As String
i = 1
j = 0



Do While i < 10

    trouver = ""
    
    Do While j < 4 'puisque 5 éléments dans la liste
    
        If i = B.List(j) Then
            trouver = trouver & " " & j & ","
        End If
        
        j = j + 1

    Loop
    
    i = i + 1
    

If i = 10 Then c.AddItem trouver
Loop

nagnag · Answer

Voiçi le code .... au forum

nagnag · Answer

Oui ce que je cherche

nagnag · Answer

Non...
Je veux renvoyer les chiffres pairs dans la troisième liste, comment ça ?

ShaBoo · Answer

regarde ton code :

If i = B.List(j) Then
    trouver = trouver & " " & j & ","
End If

je le fais tourner

i = 1      B.List(0) = 1 => OK => tu concatenes => trouver = 0
i = 1      B.List(1) = 3 => pas OK
i = 1      B.List(2) = 5 => pas OK
i = 1      B.List(3) = 7 => pas OK
i = 1      B.List(4) = 9 => pas OK

i = 2      B.List(0) = 1 => pas OK
i = 2      B.List(1) = 3 => pas OK
i = 2      B.List(2) = 5 => pas OK
i = 2      B.List(3) = 7 => pas OK
i = 2      B.List(4) = 9 => pas OK

i = 3      B.List(0) = 1 => pas OK
i = 3      B.List(1) = 3 => OK => tu concatenes => trouver = 0,1
i = 3      B.List(2) = 5 => pas OK
i = 3      B.List(3) = 7 => pas OK
i = 3      B.List(4) = 9 => pas OK

...

et en plus je m'apperçois que tu n'auras pas les bon elements

Polux31 · Answer

si tu initialises 'trouver' dans ta bloucle, tu vides les éléments de : trouver = trouver & " " & j & "," . Il faut initialiser 'trouver' en dehors de la boucle.

Ensuite A et B sont de tableaux initialisés. Il faut les déclarer:

Dim tabA(10) As Integer
Dim tabB(5) As Integer

tabA(1) = 1
tabA(2) = 2

etc ...

idem pour tabB


Ensuite J reste initialisé à 4 donc tu ne testes qu'une seule fois dans ta boucle. Il faut donc l'initialiser en dehors de la seconde boucle.
Tu testes des entiers (Integer), donc les valeurs qui doivent être dans le tableau C doivent aussi être des entiers et non une chaîne de caractères (String).

Mais l'idée générale est bonne, creuses un peu plus, tu n'es pas loin du résultat. Aides toi de ce que dit Shaboo
Bon courage ...

;o)

Polux

nagnag · Answer

cad l'erreur ici
If i = B.List(j) Then
    trouver = trouver & " " & j & ","
End If

Polux31 · Answer

Oui 'trouver' est un string ... tu dois trier des integer ...

nagnag · Answer

aider moi car rien ne ca marche, merci

nagnag · Answer

i = 1
j = 0


Do While i < 10
    
        Do While j < 4             
        If i = B.List(j) Then
            Exit Do
        Else
            C.AddItem j
        End If
            j = j + 1
        
        Loop
    
    i = i + 1

Loop

NB: Je veux renvoyer 2,4,6,8 et 10 (sachant que la 1ere liste contient 1...10 et la 2ème 1,3,5,7,9

nagnag · Answer

i = 1 
j = 0 


Do While i < 10 

Do While j < 4 
If i = B.List(j) Then 
Exit Do 
Else 
C.AddItem j 
End If 
j = j + 1 

Loop 

i = i + 1 

Loop

ShaBoo · Answer

If i = B.List(j) Then 
   Exit Do 
Else 
   C.AddItem j 
End If 

Ok ...

On reprend.

je le fais tourner avec ton code

i = 1 B.List(0) = 1 => tu ne vas pas plus loin grace au Exit Do

i = 2 B.List(0) = 1 => tu ajoutes 0 à ta 3eme liste
i = 2 B.List(1) = 2 => tu ne vas pas plus loin grace au Exit Do

i = 3 B.List(0) = 1 => tu ajoutes 0 à ta 3eme liste
i = 3 B.List(1) = 2 => tu ajoutes 1 à ta 3eme liste
i = 3 B.List(1) = 3 => tu ne vas pas plus loin grace au Exit Do

etc, etc , ...

Vois tu d'ou viens le pb ?

nagnag · Answer

J'ai esssayé comme ça :
Dim trouve As String
trouve = ""
i = 1
j = 0

Do While i < 10
    
        Do While j < 4
            If i = B.List(j) Then
                    trouve = trouve & "" & i
                    '(LE PROBLEME EST LA ???????????)
            End If
            j = j + 1
        
        Loop
    
    i = i + 1
    If i = 10 Then C.AddItem trouve
    
Loop

Polux31 · Answer

Oui le problème est bien là ... mais également dans tes boucles ... lorsque que tu fais ta boucle do while j < 4, tu incrémentes j (j = j + 1), quand ta boucle est finie, tu fais : i = i + 1  mais j reste à 4, donc tu ne repasses plus dans la boucle ...

Polux31 · Answer

Peux tu me dire de quel type d'objet sont A, B et C ?

nagnag · Answer

Ce sont des ListBox

Polux31 · Answer

Bon ben voilà tu as la solution prémachée ... tu n'as plus qu'à copier/coller ... en espérant que tu comprennes le pourquoi du comment ..

;o)

Bon courage 

Polux

nagnag · Answer

Merci (POLUX31), mais je m'excuse car je suis débutant dans le domaine du programmation et merci pour votre encouragement, je vous dis comment ? mais vous m'avez dis que vous faites pas des exercices. Merci

Polux31 · Answer

Ce n'est pas rendre service que de faire les exercices à la place des autres, pour bien programmer il faut bien comprendre et la seule façon que je connaisse c'est de trouver soit même la solution ... surtout pour l'algo ... pour le code, c'est un peu différent, il est difficile de connaitre toutes les subtilités d'un langage. Mais ne te décourage pas, on est tous passé par là ... 

;o)

Polux

PS: il existe une solution à ton algo plus simple ... mais là aussi, il n'y a pas de bonnes ou mauvaises solutions, il n'y a que des solutions pertinentes : celles qui répondent au cahier des charges ...

Bonne continuation et bon courage

nagnag · Answer

prd, j'ai pas compris

nagnag · Answer

prd, j'ai pas compris

Polux31 · Answer

Désolé Shaboo si tu l'as mal pris, mais je ne disais pas ça pour toi ... je voulais simplement expliquer à nagnag que l'important c'était d'obtenir le résultat attendu, peu importe la manière dans un premier temps. Après effectivement on peut optimiser le code pour gagner en rapidité d'exécution.

Je vais faire une exception lol ... voilà comment je procède :

Dim i As Integer
Dim j As Integer

 For i = 0 To Me.A.ListCount - 2                           ' - 2 pour exclure le 10
    If Me.A.List(i) <> Me.B.List(j) Then
        Me.C.AddItem Me.A.List(i)
        j = j + 1
    End If
Next i

Shaboo, je ne dis pas que ma solution est plus pertinente, ni meilleure que la tienne, c'est une solution parmi d'autres. Ta proposition est bonne aussi puisqu'elle répond au besoin exprimé ... je regrette seulement que ça ne soit pas nagnag qui l'ai trouvé, c'est tout... et en lui disant qu'il existait une solution plus simple, je voulai l'inciter à chercher encore un peu. Mais c'est mon jour de bonté ... lol

;o)

Polux

Polux31 · Answer

pardon nagnag, qu'est-ce que tu n'as pas compris ?

nagnag · Answer

Pardon, c'est pour Shaboo

Polux31 · Answer

lol, eh oui pourquoi faire simple quand on peut faire compliqué ... 

;o)

nagnag · Answer

Polux31, je peux l'appliquer comme çà, cad ta reponse dans une base de donnée SQL SERVER

Polux31 · Answer

On entre dans un autre domaine là ... ce n'est plus un simple algo de tri de données ... pour l'instant on n'a juste rempli une listBox en effectuant un tri, je ne vois pas le rapport avec une base de données ???

Dis moi un peu plus clairement ce que tu comptes faire ... et si je peux t'aider je le ferai volontier

nagnag · Answer

On a une table dans une BD et cette table où il y a des chiffres de 1 à 10000 mais ou il y a des des chiffres manquants à l'interieur par exemple 500,615,381,5487,..... c-a-d renvoyer ces chiffres la.

Polux31 · Answer

tu peux effectivement faire une extraction dans une table et ensuite effectuer une recherche dans les éléments extraits. Mais ma méthode ne peut pas s'appliquer tel qu'elle est faite ... mais on peut s'en inspirer bien sûr ... As-tu une idée de la façon de faire ? Comment fais-tu pour lire le champ de ta table ?

nagnag · Answer

Comme suit justre essai
NB:
    - Qr c'est une requete quelconque "SELECT FROM...."
R = valeur minimum dans la table par exemple 1
S = valeur maximum 


For i = R To S  
    
    If Not Qr.EOF Then
    
    If i <> Qr.Fields(0) Then champ (N° des enregistrements)
        MsgBox i
        Qr.MovePrevious  'on fixe i
    End If
        
        Qr.MoveNext

    End If
    
Next i

Polux31 · Answer

ça ne marche pas ... 

Si ton premier enregistrement est effectivement différent de i, tu provoques une erreur avec l'instruction : Qr.MovePrevious ....

Plutot qu'une boucle for ...next, utilises de préférence une boucle while ... wend ... tu évites : If Not Qr.EOF then ... pas très bon ...

;o)

nagnag · Answer

t'a vu ma la réponse ?

nagnag · Answer

Je peux utiliser ça, 
i = R 

Do While i < s

    While Not Qr.EOF
        If i <> Qr.Fields(0) Then
            Msgbox i 
            Qr.MovePrevious
        End If
            Qr.MoveNext
        i = i + 1
    Wend
Loop

mais, il y a un petit problème pour la première occurrence (exp : s'il n'y a pas de 1 il ne renvoie pas le premier enregistrement manquant.

Polux31 · Answer

Je te redonne la réponse que je t'ai fait sur l'autre post

Salut nagnag, 

Tu déclares i = R mais que vaut R ? idem pour s ? 

Pourquoi ne pas faire qu'une boucle ? tu n'as pas besoin de faire do while .... loop 

Ensuite dans ton if il y a toujours le Qr.MovePrevious ... 

Je suppose que i = 1 pour lire la première occurence du recordset. Si la première occurence est 2, tu ajoutes bien i à l'objet Istaud, mais MovePrevious va générer un message d'erreur, puisque tu es sur la première occurence, tu ne peux pas faire "précédente occurence". 
C'est donc un cas particulier qu'il faut traiter de façon indépendante. Même si tu sais que ce n'est pas le cas dans ta table, mais il faut anticiper les éventuels changement pouvant intervenir dans la table (Update, Delete...) qui peuvent changer les données. 

Voilà mes remarques ... mais l'idée est excellente. 

Bravo et bon courage 

;o) 

Polux 

PS: Merci de me tenir au courant de l'avancement de ton travail ...

nagnag · Answer

J'utilise I=R pour ne pas avoir un comptage toujours à partir de 1.
R = est le premier enregistrement, et S le dernier enregistrement.
Mon travail sur requête SQL paramétré chaque année et les classes correspondantes, donc si je prends :

Qr= "SELECT N° FROM Etudiants WHERE classe = ?Parametre? AND Annee = ?Parametre?" 
Supposons que j'ai (n) classes EG1,EG2,.....EGn et j'ai  (n) années scolaires AS1,AS2.....ASn
les numeros d'inscriptions de EG1 de 1 à 100 et EG2 de 101 à 199 .... et ainsi de suite nécéssairement, il faut utiliser I=R pour que la boucle débute à partir du premier enregistrement et pas de 1, si on a EG1 la boucle va compter à partir de 1 et si on a EG2 la boucle va compter à partir de 101 ...... mais la boucle précédente  (c-a-d que je te donnes aujourd'hui) présente une erreur de comptage et pas d'exécution, il n'y a pas de 1 ou 101 ou 201... c-a-d la boucle débute son comptage qu'après le premier enregistrement, et par conséquent il ne retourne pas ce dernier, t'a une idée concernant ce cas, merci de me répondre, j'espère que ta compris l'idée générale de travail.

nagnag · Answer

Je peux utiliser ça alors :

    While Not Qr.EOF
        If i <> Qr.Fields(0) Then
            lstaud.AddItem i
            Qr.MovePrevious
        End If
            Qr.MoveNext
        i = i + 1
    Wend
NB: concernant MovePrevious pour que i suit immédiatement les enregistrements, sinon il va ajouter les enregistrements existants dés la première différence entre i et le champ correspondant, car pour le reste toujours i ne suit pas les Enrg, NON ?

Polux31 · Answer

bonne question ??? le tout est de savoir si le champs de table est trié dans l'ordre croissant ???

nagnag · Answer

POLUX31, pardon j'ai pas compris

Polux31 · Answer

dsl, j'avais ton post précédent ...

nagnag · Answer

Voilà comment passe :

Soit n: le numéro d'enreg

i=202         n=202 (puisque i=R) => rien ne se passe
i=203         n=203 = > rien ne se passe
i=204        n= 205, 204 est inexistant =>(ajouter 204 à la liste) ==>MovePrevious la boucle revient à 205 (le numero d'enregistrement donc 205 = 205 => rien ne se passe, sinon, il va aller à l'Enreg suivant 206 différent de 205 il va l'ajouter à la liste des chiffres manquants pourtant le 206 est existant.                           

Mais mon problème est que la boucle ne lit pas 201 qui est manuquant, j'espère que tu ma compris.

Polux31 · Answer

J'ai compris le blème ...

Je vais créer le conteste sur une base et je tiens au courant ...

Polux31 · Answer

voilà ce que j'ai trouvé comme soluce ... c'est pas top mais ça fonctionne i = Qr.Fields(0) If i > 1 And i < 100 Then i = 1 If i > 101 And i < 200 Then i = 101 If i > 201 And i < 300 Then i = 201 etc ... While Not rst.EOF If i <> Qr.Fields(0) Then lstaud.AddItem i Qr.MovePrevious End If Qr.MoveNext i = i + 1 Wend

nagnag · Answer

POLUX31,
J'essaye autrement et je reviens

nagnag · Answer

POLUX31, 
J'essaye autrement et je reviens car si on a 1000000 d'enregistrements comment on va tester ça ?

Polux31 · Answer

dans ce cas il faut faire une fonction qui te retourne i selon le cas de figure ...

Je viens de la faire et ça marche ...

;o)

nagnag · Answer

POLUX31, voilà je trouve ce qui suit :
Dim x
Private Function Trouver(i as integer,x as integer) as integer
    If i > x And i < x + 99 Then i = x
End Function

je sais pas ?, normalement ça marche, quel ton avis ?

Polux31 · Answer

Quelle est la valuer de X ?
Je ne comprends pas ....

nagnag · Answer

variable à partir de 1, qu'on l'ajoute au cours de l'exécution

nagnag · Answer

t'a d'autres solutions POLUX31 ?

Polux31 · Answer

pourquoi passer deux paramètres ? et  j'aimerai voir à quel moment tu appelles ta fonction ... ?

Polux31 · Answer

Ah oui, j'oubliai le principal ... ta fonction ne retourne rien ... ;o)

nagnag · Answer

car x c'est variable qu'on peut le connaître qu'au cours de l'exect x=1 ou 101 ou 201 ......, non ?

Polux31 · Answer

oui ok, mais i alors ???

nagnag · Answer

comment faire ? alors POLUX tu peut m'aider stp

nagnag · Answer

J'ai perdu ma concentration.

Polux31 · Answer

je vais encore faire une exception pour toi ... décidemment tu es gaté ... ma proposition est assez simpliste et il existe surement un moyen plus conventionnel. Mais je suis en manque d'inspiration ... :o) Public Function SearchTable() Dim i As Integer i = ReturnI(Qr.Fields(0)) While Not Qr.EOF If i <> Qr.Fields(0) Then lstaud.AddItem i Qr.MovePrevious End If Qr.MoveNext i = i + 1 Wend End Function Public Function ReturnI(ByVal ind As Integer) As Integer Dim strI As String Dim lg As Long Dim c As String strI = CStr(ind) lg = Len(strI) If Right(strI, 1) <> "1" Then ReturnI = CInt(Left(strI, lg - 1) & 1) Esle ReturnI = ind End If End Function

nagnag · Answer

tu veux pas m'aider ?

nagnag · Answer

non je suis pas gaté, mais je trouve pas la concentration, mais toi très gentil et très généreux, merci et je m'excuse pour le dérangement. 
NAGNAG

Polux31 · Answer

Merci, c'est avec plaisir que je l'ai fait.

Bon courage à toi

;o)

Polux

Polux31 · Answer

n'oublie pas de mettre résolu si tu n'as plus de blème ... merci  ;o)

NagNag · Answer

Bonjour POLUX31,
Comment tu vas bien ? je suis entrain de terminer le programme concernant ma base de donnée, après avoir terminé les numéros manuquants, envie de les remplir à partir d'un form contenant un listbox qui génére ces numéros.

Polux31 · Answer

Bonjour, je vais merci ...

Tu veux dire que tu veux récuperer les numéros manquants dans un listBox et ensuite faire des insert dans la table de ta base de données ? Si c'est le cas, pourquoi ne pas le faire en même temps que ton tri ? il suffit de faire la fonction qui va bien pour ça...

NagNag · Answer

C'est pas le cas, car il faut bien saisir formulaire vièrge en recuperant ces numeros(n°,classe,annee scolaire,adresse n° de tel..., un par un.

Polux31 · Answer

ok, j'ai compris la manip ... tu bloques sur koi ?

NagNag · Answer

Merci, pour le momoment cava tu restes avec moi, on ne sais jamais.

Polux31 · Answer

ok, pas de blème

;o)

Boucle avec VB

71 réponses

Discussions similaires