Tri à bulles VB [Résolu/Fermé]

Question

Posez votre question Signaler

Tri à bulles VB [Résolu/Fermé]

Utilisateur anonyme - 15 avril 2017 à 13:53 - Dernière réponse : cptpingu

Messages postés: 3834
Date d'inscription: dimanche 12 décembre 2004
Statut: Modérateur
Dernière intervention: 10 juin 2019

- 21 avril 2017 à 14:28

VB.NET Posez votre question Signaler

Bonjour , j'airais besoin d'un petit coup de main sur un morceau de code car je débute :)


While Not EnOrdre
            EnOrdre = True
            For i = 0 To TailleTableau - 2
                If MonTableau(i) > MonTableau(i + 1) Then
                    Intermediaire = MonTableau(i)
                    MonTableau(i) = MonTableau(i + 1)
                    MonTableau(i + 1) = Intermediaire
                    EnOrdre = False
                End If
            Next
            TailleTableau = TailleTableau - 1
        End While

ce que je comprend c'est ce code

If MonTableau(i) > MonTableau(i + 1) then

comment la condition peut être correct si on ajoute 1 à l'index de l'emplacement ? MonTableau(i) sera toujours inférieur à MonTableau(i + 1)

si j'ai bien compris ?

merci d'avance ;)

Afficher la suite

A voir également:

8 réponses

Posez votre question

vb95 · Answer 1 · 2017-04-15T17:44:51+0200

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 Modifié le 15 avril 2017 à 17:59

0

Merci

Bonjour
Tu confonds l'indice d'un tableau et la valeur contenue dans un tableau

i dans ce cas est l'indice dans le tableau et non la valeur contenue dans le tableau
Un exemple : un tableau nommé MonTableau

12 --> premier élément : indice 0
3 --> deuxième élément : indice 1
5 --> etc .......
1

12 est la valeur MonTableau(0)
3 est la valeur Montableau(1)

ATTENTION en VB Net les indices commencent à 0

If MonTableau(i) > MonTableau(i + 1)

si i = 0 on a bien
12 dans MonTableau(i) est > à 3 dans MonTableau(i+1)

donc pour ces 2 éléments on fait une permutation : on échange les valeurs entre les 2 emplacements du tableau

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

Afficher les 6 commentaires

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 15 avril 2017 à 18:16

c'est l'emplacement suivant
Si i = 0
Montableau(0) est la valeur à l'emplacement 0 du tableau

MonTableau(i + 1) est la valeur à l'emplacement suivant soit l'emplacement 1

De plus les parenthèses montrent bien que c'est i qui est augmenté de 1 et non la valeur contenue dans le tableau

Et ici si Valeur = MonTableau(i+5) + 2 signifie
- on va à l'emplacement (i+5) du tableau ( si i = 8 on va au 13 comme emplacement)
- on prend la valeur que cet emplacement contient
- on ajoute 2 a la valeur contenue dans cet emplacement
- la nouvelle valeur reste à cet emplacement

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- 15 avril 2017 à 19:06

ok donc ça ajoute à l'emplacement ,

If MonTableau(i) > MonTableau(i + 1)

pourquoi on dois mettre le signe supérieur ?

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 15 avril 2017 à 21:12

Cela n'ajoute pas à l'emplacement : cela fait référence à l'emplacement i + 1
Tu as 2 boites : la boite 0 et la boite 1
Dans la boite 0 tu mets 5 billes
Dans la boite 1 tu mets 2 billes
Donc billes(0) est bien supérieur à billes(1)
donc si i = 0
billes(i) est supérieur à billes(i+1)

Pourquoi mettre le signe >
pour mettre ensuite les valeurs dans l'ordre numérique car il faut les inverser pour qu'elles sont dans l'ordre croissant
Dans l'exemple des 2 boites 2 doit être avant 5

Quand tu comprendras que i est l'index ( ou l'indice) dans le tableau et que MonTableau(i) est la valeur contenue dans la case i du tableau tu auras tout compris !
si tu n'arrives pas à comprendre cela je ne peux rien pour toi !

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- 16 avril 2017 à 15:50

ok mais pourquoi on dois mettre

MonTableau(i) > MonTableau(i + 1)

au début est pas à la fin ?

Signaler

Utilisateur anonyme > Utilisateur anonyme - 16 avril 2017 à 20:02

c'est bon j'ai compris ;)

Whismeril · Answer 2 · 2017-04-15T18:07:40+0200

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 15 avril 2017 à 18:07

0

Merci

Si i vaut 2, alors tableau(i) veut dire tableau à l'emplacement 2, du coup tableau(i+1) est tableau à l'emplacement 3.

Signaler

Utilisateur anonyme - 15 avril 2017 à 19:07

ok mais pourquoi ya le signe supérieur ? tableau(i) se sera jamais supérieur à tableau(i + 1) ?

Whismeril · Answer 3 · 2017-04-15T20:04:04+0200

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 15 avril 2017 à 20:04

0

Merci

Dans la précédente discussion, je t'ai dit qu'un tableau est comparable à une colonne dans un tableur.

Dans cette capture, il y à 12 dans A1, qui en VB.Net s'écrit A(1), et 7 dans A(2), donc A(1) est bien supérieur à A(2).

Signaler

Utilisateur anonyme - 16 avril 2017 à 01:41

ah ok d'accord merci , maintenant faut que je comprenne le reste du code :)

Whismeril · Answer 4 · 2017-04-16T08:41:56+0200

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 16 avril 2017 à 08:41

0

Merci

Pour comprendre comment fonctionne un code, une bonne façon de faire est de le faire tourner en pas à pas, et de regarder à chaque ligne comment évoluent les variables.

Afficher les 32 commentaires

Signaler

Utilisateur anonyme > Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

- 17 avril 2017 à 20:17

bah que variable à la valeur false de départ et arriver à While Not variable qui devient True ensuite ya encore variable = true et dans la boucle For la variable devient false ,

et ya cette ligne

tailletableau = tailletableau - 1

elle sert à quoi car que je la garde ou que je la supprime ça change rien du moins en apparence ?

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 > Utilisateur anonyme - 17 avril 2017 à 21:17

On va

tailletableau = tailletableau - 1

plus tard c'est juste en apparence ça ne change pas grand chose.

Par contre ça

bah que variable à la valeur false de départ et arriver à While Not variable qui devient True ensuite ya encore variable = true et dans la boucle For la variable devient false ,

c'est faux, tu n'as pas suffisamment observé ce qui se passe.

Signaler

Utilisateur anonyme > Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

- 18 avril 2017 à 15:39

c'est bizarre car même avec le While Not variable , normalement le Not indique l'inverse et l'inverse de faux et vrai ? la Variable devient vrai que à la ligne variable = true mais je comprend toujours pas à quoi ça sert

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 18 avril 2017 à 17:03

Bonjour

Le code d'origine avec sa "traduction" en français

v(i) signifie valeur du tableau à l'indice i
v(i+1) signifie valeur du tableau à l'indice i+1


While Not EnOrdre ' Tant que ce n'est pas en ordre
   EnOrdre = True ' on suppose en ordre
   ' avec la boucle on vérifie si c'est vraiment en ordre
   For i = 0 To TailleTableau - 2 ' on parcours le tableau
       If MonTableau(i) > MonTableau(i + 1) Then ' si v(i) > v(i+1)
' on échange les valeurs v(i) et v(i+1)
            Intermediaire = MonTableau(i) ' v(i) dans une variable
            MonTableau(i) = MonTableau(i + 1) ' v(i) = v(i+1)
            MonTableau(i + 1) = Intermediaire ' v(i+1)  = v(i)
            EnOrdre = False ' donc ce n'était pas en ordre
        End If
    Next ' on retourne au For pour la boucle 
         ' car il y a encore peut-être d'autres échanges à faire
         ' entre 2 valeurs qui se suivent 
   TailleTableau = TailleTableau - 1
End While ' on retourne au While 
               ' et si ce n'est pas en ordre
               ' on repasse dans la boucle For
               ' pour refaire des échanges
               ' jusqu'à ce que les valeurs
               ' du tableau soient dans l'ordre

comprends que si il n'y a aucun échange dans la boucle For c'est que ton tableau à l'origine était déjà en ordre

un exemple
12 5 8 25 16
La première fois tu inverse 5 et 12 puis 25 et 16
Cela donne
5 12 8 16 25
La seconde fois tu inverses 12 et 8
Cela donne
5 8 12 16 25
on teste si le tableau est en ordre et si oui on ne fait pas d'inversion et de ce faite EnOrdre = True et on sort du While avec un tableau trié

Pourquoi dit-on que c'est un tri à bulles ? Parce que les plus petites valeurs remontent vers le début du tableau un peu comme les bulles dans le champagne

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- 18 avril 2017 à 17:47

je comprend le boolean enfaîte

Signaler

Utilisateur anonyme > Utilisateur anonyme - 18 avril 2017 à 19:56

comment ça on teste le tableau si il est en ordre ?

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 > Utilisateur anonyme - 18 avril 2017 à 20:06

Bonsoir

normalement le Not indique l'inverse et l'inverse de faux et vrai ? la Variable devient vrai que à la ligne variable = true

Voilà, c'est pour ça que j'ai dû insister lourdement pour que tu exécutes pas à pas et que tu observes attentivement ce qui se passe.
Y'a pas de secret, ça n'est que comme ça que l'on comprend un code ou que l'on débuggue.
Pas en pensant qu'il fait quelque chose, mais en regardant ce qu'il fait

Not EnOrdre

retourne bien l'inverse de EnOrdre et le fourni à la boucle While (c'est quelques chapitres avant les tableaux dans le cours d'openclassroom la boucle while), par contre en aucun cas ça n'affecte le résultat à EnOrdre, il n'y a pas écrit

EnOrdre = Not EnOrdre

.
Donc la variable est passée à Vrai la ligne suivante.
Pourquoi, et bien comme le dit VB95, au début de l'itération on suppose que le tri est, OK et on va le vérifier.

Et quand à

dans la boucle For la variable devient false

et bien non, ça n'est pas dans le For, mais dans le IF, si le tableau est effectivement en ordre, jamais tu ne passes dans le IF, EnOrdre reste à True et la boucle While s'arrête.

Revenons maintenant à

tailletableau = tailletableau - 1
elle sert à quoi car que je la garde ou que je la supprime ça change rien du moins en apparence ?

Si je reprends presque le tableau de VB95
12 8 5 25 11

1ere itération du while
- tailleTableau vaut 5
- 1ere itération du For, I vaut 0
- 12 et 8 sont inversés
- 8 12 5 25 11
- 2eme itération du For, I vaut 1
- 12 et 5 sont inversés
- 8 5 12 25 11
- 3eme itération du For, I vaut 2
- 12 et 25 ne bougent pas
- 4 eme itération du For, I vaut 3 soit tailleTableau - 2 ce sera bien la dernière itération
- 25 et 11 sont inversés
- 8 5 12 11 25

Comme le dit VB95 les petites bulles remontent vers le début du tableau, mais surtout, les grosses bulles remontent vers la fin du tableau. 12 s'est arrêté de remonter quand il a butté sur plus gros. Et 25 fini à sa place.

2ere itération du while
- tailleTableau vaut maintenant 4
- 1ere itération du For, I vaut 0
- 8 et 5 sont inversés
- 5 8 12 11 25
- 2eme itération du For, I vaut 1
- 8 et 12 ne bougent pas
- 5 8 12 11 25
- 3eme itération du For, I vaut 2 soit tailleTableau - 2 ce sera bien la dernière itération
- 12 et 11 sont inversés
- 5 8 11 12 25

Si on faisait une itération de plus et bien on ferait un test inutile, en effet puisque que les grosses bulles remontent vers la fin du tableau, 12 et 25 sot forcément à leurs places.

Sur un tableau avec 5 valeurs ça ne change rien.
Si tu en as 1 million, cette toute petite ligne va te faire gagné énormément de temps d’exécution.

Bien sûr c'est déjà plus subtile, que le Not EnOrdre, mais en te servant correctement du mode pas à pas, tu aurais pu t'en apercevoir.
Regarde cette capture

A chaque fois que j'avance d'une ligne j'ai toutes les information d'un coup d'œil, en plus si une variable change de valeur, ça apparait en rouge. Donc difficile de rater un truc.

Signaler

Utilisateur anonyme > Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

- 18 avril 2017 à 22:53

ok je pense que j'ai compris , mais si j'inverse le boolean , je m'explique
par exemple si je fais


Dim a As Integer = True
Dim z(20), int As Integer

While Not a
            a = False

            For i = 0 To z.Length - 2

                If z(i) > z(i + 1) Then
                    int = z(i)
                    z(i) = z(i + 1)
                    z(i + 1) = int
                    a = True


                End If

            Next

ça ne fonctionne pas pourtant il y a le while Not a donc normalement le while devient false , et quand le tri seras bon il deviendra false ? ou l'ordinateur "sait" la notion de vrai et de faux ? es-que je peux mettre autre chose que true et false ? comme par exemple un peu plus au dans le cours le chiffre 1 qui est vrai pour le while dans ce cas es-que 0 est faux ?

après pour l'explication de

"tailletableau = tailletableau - 1 elle sert à quoi car que je la garde ou que je la supprime ça change rien du moins en apparence ?"

ton explication c'étais plus pour

For i = 0 To TailleTableau - 2

pour ça j'ai compris , mais pour

tailletableau = tailletableau - 1

j'ai pas compris

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 > Utilisateur anonyme - 19 avril 2017 à 08:07

ça ne fonctionne pas pourtant il y a le while Not a donc normalement le while devient false , et quand le tri seras bon il deviendra false ? ou l'ordinateur "sait" la notion de vrai et de faux ? es-que je peux mettre autre chose que true et false ? comme par exemple un peu plus au dans le cours le chiffre 1 qui est vrai pour le while dans ce cas es-que 0 est faux ?

Comme je te l'ai dit au message précédent, dans ton cours la boucle While c'est quelques chapitres avant les tableaux. Puisque tu en es aux tableaux cette boucle devrait être acquise, non? Si ça n'est pas le cas, t'es tu référé au cours avant de reposer cette question?

tailletableau = tailletableau - 1
j'ai pas compris

Alors je me répète
Si on faisait une itération de plus et bien on ferait un test inutile, en effet puisque que les grosses bulles remontent vers la fin du tableau, 12 et 25 sot forcément à leurs places.
Sur un tableau avec 5 valeurs ça ne change rien.
Si tu en as 1 million, cette toute petite ligne va te faire gagner énormément de temps d’exécution.

Signaler

Utilisateur anonyme > Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

- 19 avril 2017 à 14:17

c'est pas le While que je comprend pas c'est le Boolean si tu pouvais m'expliquer en chiffres ou en nombres peut-être que je comprendrai mieux que le True ou False :)

tailletableau = tailletableau - 1

j'ai pas compris

je te répondrai plus tard :)

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 19 avril 2017 à 15:18

bonjour Hixale

True = Vrai en français
False = Faux en français

Il n'y a aucun chiffre avec un Boolean : un Boolean est ou True ou False et rien d'autre .

Dim a As Integer = True
Dim z(20), int As Integer

La première ligne est incorrecte : il faut mettre

Dim a As Boolean = True
Dim z(20), int As Integer

De plus

While Not a

Cette ligne de code est correcte et on considère que a = True par défaut si rien n'est précisé : donc Not a est false par défaut
Donc cette ligne signifie " Tant que a n'est pas vrai"

De plus tu as écrit : ça ne fonctionne pas pourtant il y a le while Not a donc normalement le while devient false
Ce n'est pas le While qui devient false : c'est la variable a ( qui est de type boolean)
While signifie "Tant que" en français

Va sur ce site et regarde l'animation du tri à bulles : http://lwh.free.fr/pages/algo/tri/tri_bulle.html . Mets sur Normal, Aléatoire et fais le tri du tableau et suis les inversions dans l'animation ..
tu verras que les plus grosses valeurs se retrouvent en fin de tableau et tu comprendras le

tailletableau = tailletableau - 1

quand la plus grosse valeur du tableau est à la fin de tableau c'est inutile de la tester au tour suivant pour savoir si elle est bien placée . donc on diminue la taille du tableau de 1

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 > Utilisateur anonyme - 19 avril 2017 à 16:55

Ha c'est le booléen que tu ne comprends pas, alors il y a deux approches:

l'algèbre de bool c'est des maths. La première approche est de ne de te replonger dans tes cours de maths. Et si tu es trop jeune ou que tu n'as pas fait le "bon" cursus et bien, il doit y a avoir des cours sur internet.
le faire au feeling, ça nécessite de comprendre ce qui va autour pour en déduire comment ça fonctionne. Mais tu ne pourras jamais réduire un ou exclusif complexe, sans faire d'algèbre.

Donc pour comprendrez au feeling, il faut avoir compris les boucles.
Le while prend un booléen en paramètre, tout comme un if.
Et c'est deux booléens doivent être vrais pour exécuter la boucle.

IF 1 < 2 Then' s'il est vrai que 1 est inférieur à 2 alors la boucle est exécuté

While Not EnOrdre' si inverse de EnOrdre est vrai alors la boucle est exécutée

Même si le cours d'openclassroom n'est pas aussi bon qu'il faudrait pour toi, au moins il traite les sujets dans l'ordre. Et passer au suivant sans avoir bien compris n'est pas judicieux.

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 19 avril 2017 à 17:04

Si tu inverse le boolean dans ton message 26 tu ne trieras pas le tableau
Des que tu rentres dans le For Next et que tu vas dans le If End If pour inverser 2 valeurs tu considères que le tableau est trié ( le

a = true

après l'inversion
donc lorsque tu retournes au While vu que a = True le programme sort du While End While et considère que le tri est fait

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- 19 avril 2017 à 21:19

Ha c'est le booléen que tu ne comprends pas, alors il y a deux approches:
l'algèbre de bool c'est des maths. La première approche est de ne de te replonger dans tes cours de maths. Et si tu es trop jeune ou que tu n'as pas fait le "bon" cursus et bien, il doit y a avoir des cours sur internet.
le faire au feeling, ça nécessite de comprendre ce qui va autour pour en déduire comment ça fonctionne. Mais tu ne pourras jamais réduire un ou exclusif complexe, sans faire d'algèbre.

c'est pas vraiment le boolean que je comprend pas , comment dire un booléennes c'est deux états genre chaud ou froid ça sera toujours "si c'est pas l'un c'est l'autre" ma question c'est pourquoi on à mis true et false 'vrai et faux' comment l'ordi sait que c'est vrai ou faux pourquoi je peux pas inverser le vrai et le faux car ça reviendrai au même si c'est pas l'un c'est l'autre ?

Signaler

Utilisateur anonyme > Utilisateur anonyme - 19 avril 2017 à 21:33

es-que tu vois sque jveux dire ?

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 > Utilisateur anonyme - 19 avril 2017 à 22:09

Non, c'est toi qui ne voies pas qu'un algorithme c'est une suite de choses logiques et quand on en change 2 sur 3 ça fout le bordel.

VB te l'a écrit en français
Tant que le tableau n'est pas rangé

On va faire le pari qu'il est rangé
- On teste s'il est effectivement rangé
- Si ça n'est pas le cas on signale que ça n'est pas rangé
- Si c'est le cas, on a gagné le pari et on ne touche à rien

Fin Tant que => Ca vaut dire fin du code compris dans la boucle, donc que ça remonte au Tant que pour vérifier la condition et exécuter une nouvelle fois la boucle si elle est vraie.

Et toi tu veux que
Tant que le tableau n'est pas rangé

On va faire le pari n'est pas rangé
- On teste comment il est
- S'il est rangé on signale que ça n'est pas rangé
- S'il n'est pas, on dit que si

Fin Tant que
Forcément ça ne marche pas.

Signaler

Utilisateur anonyme > Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

- Modifié le 20 avril 2017 à 00:08

non t'as pas compris ce que je voulais dire tant-pis , mais sinon j'ai compris le principe avec les Vrai et Faux ,



dim a as boolean = false

'tant que a n'est pas Vrai
while not a 
 
a = true

etc...

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - 20 avril 2017 à 01:40

Sans vouloir t'offenser c'est plutôt toi qui a du mal à comprendre ! Maintenant est-ce Vrai ou Faux ( True or False ) ?
Et as-tu vraiment compris ?

Signaler

Utilisateur anonyme > Utilisateur anonyme - Modifié le 20 avril 2017 à 02:01



Dim EnOrdre As String

While EnOrdre <> "a"


            EnOrdre = "a"

            For i = 0 To tailletableau - 2

                If tableau(i) > tableau(i + 1) Then
                    intermediaire = tableau(i)
                    tableau(i) = tableau(i + 1)
                    tableau(i + 1) = intermediaire
                    EnOrdre = "b"

                End If

            Next

pourtant ça fonctionne :) mais tu vas me dire , oui parce que EnOrdre contient "a" donc Vrai , sauf que moi je vois une valeur qui correspond ou pas et pas Vrai ou Faux , et Vrai et Faux je les vois aussi comme une valeur , c'est pour ça que je comprend pas pourquoi si on inverse Vrai et Faux ça ne fonctionne pas, mais si j'inverse le "a" en "b" ça fonctionnera pareil , mais sinon je peux comprendre les valeurs Vrai et Faux au sens littéraire , comme tu le disais plus haut (Tant que le tri à bulles n'est pas ranger dans l'ordre croissant c'est Faux si il est dans l'ordre Vrai) , après je peux comprendre aussi que deux valeurs peux être associer donc un boolean si c'est pas l'un c'est l'autre , mais ceux sont des valeurs aussi comme Jour-Nuit Chaud-Froid Vrai-Faux mais je comprend pas qu'on puisse pas inverser ces valeurs genre que ces conditions Vrai Faux

 
Dim EnOrdre As Boolean = True

While Not EnOrdre


            EnOrdre = False

            For i = 0 To tailletableau - 2

                If tableau(i) > tableau(i + 1) Then
                    intermediaire = tableau(i)
                    tableau(i) = tableau(i + 1)
                    tableau(i + 1) = intermediaire
                    EnOrdre = True

                End If

            Next

es-que tu vois un peu mieux sque jveux dire? , si NON pas grave je chercherai pas plus je m'en tiendrai juste au sens littéraire ;)

Vrai et Faux "tant que le tri à bulles n'est pas Vrai"

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 > Utilisateur anonyme - Modifié le 20 avril 2017 à 10:41

Ca marche très bien si tu inverses Vrai et Faux, mais il faut tout inverser, pas 2 sur 3, voir plus haut.

Dim PasEnOrdre As Boolean = True

While PasEnOrdre 'si tu inverses la valeur, il faut inverser le test aussi!!!!!


            PasEnOrdre = False

            For i = 0 To tailletableau - 2

                If tableau(i) > tableau(i + 1) Then
                    intermediaire = tableau(i)
                    tableau(i) = tableau(i + 1)
                    tableau(i + 1) = intermediaire
                    PasEnOrdre = True

                End If

            Next

Donc on en reviens au fait que pour comprendre les booléens au feeling, il faut comprendre le reste, et s'il ne te paraît pas évident qu'il faut inverser le test, alors le reste n'est pas compris.
Donc je t'incite à chercher un cours d'algèbre de bool.

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

- Modifié le 20 avril 2017 à 11:49

Je vais faire une dernière tentative

Soit un tableau de nombres ( peu importe sa taille )
Au début il n'est pas trié
1) Tant qu'il n'est pas trié

While not Endre

2) Et s'il était déjà trié ?

EnOrdre = True

3) Boucle de début tableau à fin tableau

Ligne du for

4)Si valeur actuelle > valeur suivante

test entre 2 valeurs

5)on inverse les 2 valeurs
6)Tableau n'est pas trié

EnOrdre = False

7)Fin du si ( test 2 valeurs)
8)Fin de la boucle For
9Taille du tableau diminué de 1
10)On retourne en 1 pour tester si il est trié ou pas

Pourquoi des variables booléennes . Prends une ampoule : ou elle est allumée ou elle est éteinte : il n'y a que 2 états
Si allumé = Vrai donc éteint = Faux
Ton tableau pour son ordre il est ou en ordre ( donc EnOrdre = True) ou en désordre ( donc EnOrdre = False) : il y a bien que 2 états

L'exemple 37 avec une String fonctionne : c'est normal
Mais quel est le plus parlant pour toi : Tester si EnOrdre = "a" ou tester si EnOrdre = True ( Vrai)
Tester si Ampoule = "a" ou Ampoule = True ?
Tester si PorteFermée = "a" ou PorteFermée = True ?

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- Modifié le 20 avril 2017 à 17:31

ok ok bref jvais pas vous faire plus de temps je vais mettre un code et vous me direz si il est bon ou pas si oui je mettrais en résolu



Dim EnOrdre As Boolean = False

While Not EnOrdre 'Tant que EnOrdre ne sera pas Vrai While sera Vrai , si EnOrdre sera Vrai alors le While sera Faux et le tri sera bon 


            EnOrdre = True

            For i = 0 To tailletableau - 2

                If tableau(i) > tableau(i + 1) Then
                    intermediaire = tableau(i)
                    tableau(i) = tableau(i + 1)
                    tableau(i + 1) = intermediaire
                    EnOrdre = False

                End If

            Next

dites moi si c'est correct :) ?
jvais juste t'entais une dernière explication de mon point de vue

Bon un booléenne peut être Vrai ou Faux Mais en réalité il s'agit de 1 ou 0 et en informatique le 1 c'est du courant et 0 pas de courant bref , Donc en Booléenne on à associer le Vrai avec le 1 et le Faux avec le 0 , Une fois arriver au While si il est Vrai donc 1 il rentre dans la boucle parce que il y a un courant électrique mais si il est 0 le programme vas ignorer cette boucle car il n'y à pas eu d'impulsion électrique comme si ce code n’exister pas , donc 1 = Vrai 0 = Faux , et on pourrai très mettre directement 1 ou 0 à la place de Vrai ou Faux comme ceci :


Dim EnOrdre As Boolean = 0

While Not EnOrdre ' Tant que EnOrdre n'est pas 1 ce qui est Vrai donc While 1 donc un courant  (Vrai)


            EnOrdre = 1

            For i = 0 To tailletableau - 2

                If tableau(i) > tableau(i + 1) Then
                    intermediaire = tableau(i)
                    tableau(i) = tableau(i + 1)
                    tableau(i + 1) = intermediaire
                    EnOrdre = 0

                End If

            Next

Donc un Booléenne c'est juste quelque chose qu'on à associer le 1 en Vrai et le 0 en Faux. exemple: Lumière allumée (Vrai donc 1) Pourquoi ? car 1 c'est du courant

donc ma question de tout a l'heure est: pourquoi on ne pourrai pas inverser le Vrai et Faux , que 1 soit Faux (donc courant) et que 0 soif Vrai (pas de courant) , encore mieux 0 à du courant(qu'on pourrai associer au Vrai) et que 1 n'a pas de courant(qu'on pourrai associer au Faux) , peut être que ça dois vous faire ça dans vos tete <supprimé par la modération> LOL

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 20 avril 2017 à 15:26

ton code est presque bon

POUR UNE VARIABLE DE TYPE BOOLEAN LES 2 SEULES VALEURS POSSIBLES SONT TRUE et FALSE et c'est TOUT

Avec mon analogie avec les ampoules ou les portes dans mon message précédent où as-tu vu des 1 et des 0 ? j'ai juste évoqué des états par VRAI ou FAUX .


Dim EnOrdre As Boolean = True ' pas de 1 ou 0 c'est CLAIR ou pas ?
While Not EnOrdre ' Tant que EnOrdre n'est pas True et 
                              'While n'est pas une variable : c'est un mot clé 

            EnOrdre = True ' pas de 0 ou de 1 c'est CLAIR ou pas ?

            For i = 0 To tailletableau - 1 ' un tableau de 10 chiffres va de 0 à 9 pour les indices donc de 0 à tailletableau - 1

                If tableau(i) > tableau(i + 1) Then
                    intermediaire = tableau(i)
                    tableau(i) = tableau(i + 1)
                    tableau(i + 1) = intermediaire
                    EnOrdre = False ' pas de 0 ou 1 c'est CLAIR ou pas
                End If
            Next
            TailleTableau = TailleTableau - 1 ' on diminue la taille du tableau ( voir note)
        End While

Note : si le tableau va de 0 à 9 ( soit 10 nombres) à la sortie du For Next le plus grand nombre est à la fin du tableau ( en position 9 )
On diminue la taille du tableau de 1 ce qui fait que le tableau va des positions 0 à 8 et on va fait le tri des valeurs aux positions 0 à 8 ( inutile de tester le nombre en position 9 car au For Next précédent on l'a mis en fin de tableau vu que c'est le plus grand des 10 nombres .)

Maintenant si tu ne comprends pas ceci un conseil : arrête la programmation

Par contre ton commentaire en vidéo Youtube est déplacé et démontre un manque de respect envers ceux qui s'acharnent à t'aider

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- 20 avril 2017 à 16:01

fait des recherche sur internet tu verra que Vrai et 1 et Faux est 0 même certains langage utilise bien des booléenne 1 ou 0 et non Vrai et faux , et au chapitre de la boucle While quand il à dit " 1 est toujours Vrai " ça prouve bien se que je veux dire.

ta fais une faute à ton code jcrois c'est pas - 1 mais - 2 non ?

 For i = 0 To tailletableau - 1 ' un tableau de 10 chiffres va de 0 à 9 pour les indices donc de 0 à tailletableau - 1

"Par contre ton commentaire en vidéo Youtube est déplacé et démontre un manque de respect envers ceux qui s'acharnent à t'aider"

désolé j'avais mis ça juste pour le fun

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 20 avril 2017 à 16:33

Bonjour
VB 6 utilisait 1 et 0 c'est vrai ou quelque chose comme cela !
Mais tu es en VB NET et il n'y a plus de 1 ou de 0 : c'est TRUE ou FALSE

Exact c'est - 2 qu'il faut écrire vu que l'on teste une valeur avec la valeur à l'indice suivant : erreur de ma part

Signaler

Whismeril

Messages postés: 13619
Date d'inscription: mardi 11 mars 2003
Statut: Contributeur
Dernière intervention: 18 août 2019

295 > Utilisateur anonyme - Modifié le 20 avril 2017 à 17:08

en informatique le 1 c'est du courant et 0 pas de courant

Non, le 1 c'est une tension positive, le 0 c'est une tension négative, pas de tension c'est une panne.

Ensuite la valeur entière 1 ça n'est pas juste un 1 électrique, c'est un octet pour un int8, 2 octets pour 1 int16 et 4 octects pour un int32, composé chacun de 8 bits.

Enfin, si en C++, on peut caster un int en bool, ça n'est pas le cas en VB.Net. Caster, ça veut dire forcer la conversion, donc il y a conversion, donc 1 n'est pas Vrai, mais C++ sait faire la relation

vb95 · Answer 5 · 2017-04-20T16:33:05+0200

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 Modifié le 20 avril 2017 à 16:34

0

Merci

Image prise dans le cours que tu as au chapitre des variables
Boolean = tu vois un 1 et un 0 . c'est Vrai ou Faux ( True ou False)

0 et 1 sont des valeurs Integer ( ou Double aussi )

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

Afficher les 8 commentaires

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - 20 avril 2017 à 19:06

Pourquoi While 1 ?
Parce que le « 1 » est toujours vrai, cela signifie donc : « Tourne, mon grand, ne t'arrête pas ! ».

il faut comprendre

While 1 = True

Comme quoi ce cours est très mal fait

Un simple Do Loop suffisait pour l'exemple

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- 20 avril 2017 à 19:10

ok et pour


Dim x As Integer = 0 
If x = 10 Then 
End If 
… c'est comme si j'écrivais ceci : 

Dim x As Integer = 0 
Dim b As Boolean = false 
b = (x = 10) 
If b Then 
End If

Signaler

Utilisateur anonyme > Utilisateur anonyme - 20 avril 2017 à 20:25

pourtant quand je tape 1 ça fonctionne quand même sans mettre de booléenne

While 1

            Console.WriteLine("gogo")


        End While

Signaler

Utilisateur anonyme > Utilisateur anonyme - 20 avril 2017 à 20:30

 Dim a As Boolean = True


        While Not a

            Console.Write("gogo")


        End While

fonctionne pas

 Dim a As Boolean = False


        While Not a

            Console.Write("gogo")


        End While

ça fonctionne

pourtant l'un ou l'autre le while est Vrai

Signaler

Utilisateur anonyme > Utilisateur anonyme - 20 avril 2017 à 20:39

http://plasserre.developpez.com/cours/vb-net/?page=langage-vb1#LV-B-3-e

Le terme booléen vient de "l'algèbre de Boole", cet algèbre ne travaille que sur les valeurs 1 ou 0 (True ou False)

c'est pas moi qui le dis...

Signaler

vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

65 > Utilisateur anonyme - Modifié le 20 avril 2017 à 21:43

C'est l'algèbre de Boole qui travaille sur les valeurs 1 et 0 ( voir https://fr.wikipedia.org/wiki/George_Boole). et Monsieur Boole vivait il y a 150 ans à peu près . L'informatique n'existait pas
Il a conçu cette algèbre avec des circuits électriques rudimentaires avec interrupteurs et ampoule
Dans un circuit avec 2 interrupteurs en série il faut que les 2 interrupteurs sont fermés( 1) pour que l'ampoule s'allume (1) : donc 1 et 1 = 1 . Si un interrupteur est ouvert( donc 0) ou les 2 ( donc 0 et 0) l'ampoule est éteinte (donc 0) donc 0 et 0 = 0 et 0 et 1 = 0
Dans un circuit avec 2 interrupteurs en parallèle il faut qu' un seul ou les 2 interrupteurs sont fermés pour que l'ampoule s'allume : donc 1 ou 1 = 1 et 1 ou 0 = 1 et 0 ou 0 = 0

Quand on veut ramener sa science on doit savoir de quoi on parle !

Vb net ne connait que TRUE et FALSE pour une valeur booléenne
Ce sera ma dernière intervention

Signaler

Utilisateur anonyme > vb95

Messages postés: 1911
Date d'inscription: samedi 11 janvier 2014
Statut: Contributeur
Dernière intervention: 16 août 2019

- 20 avril 2017 à 22:04


Dim a As Boolean = True

 While Not a = False ' tant que a n'est pas Faux

            a = False


            Console.WriteLine("go")

            a = True

        End While


Dim a As Boolean = False

While Not a = True ' tant que a n'est pas Vrai

            a = True


            Console.WriteLine("go")

            a = False

        End While


Dim a As Boolean = False

  While Not a 

            a = True


            Console.WriteLine("go")

            a = False

        End While


Dim a As Boolean = True

        While Not a ' pourquoi ça ne fonctionne pas ?


            Console.WriteLine("go")



        End While


Dim a As Boolean = False

        While Not a ' et la ça fonctionne ...


            Console.WriteLine("go")



        End While

Whismeril · Answer 6 · 2017-04-20T17:57:15+0200

A l'instar de VB95, je trouve ta vidéo déplacée.

Lorsque je suis passé au C#, je codais depuis plusieurs années en VB6.
L'organisme formateur en contrat avec mon employeur ne proposait pas de stage de "reconversion", j'ai donc suivi un stage pour débutant en programmation, avec le langage C#.
5 jours 35H.
Les types de bases (y compris le booléen et le tableau) et les boucles (for, while, do), ça a été vu dans la première demi-journée.
Sachant qu'il y a aussi eu un tour de table, un rapide historique de la programmation, une présentation du framework et de visual studio.

Certes le temps du forum, n'est pas celui de la vraie vie, mais deux fils étalés sur presque 3 semaines totalisant 85 messages c'est largement plus que l'équivalent d'une demi journée.

Et ces notions sont simplissimes en regard à ce qu'est VB.Net, si tu bloques là, qu'en sera t il devant une base de données, l'héritage, le polymorphisme, un réseau de neurones?

Je pense qu'il est temps de te poser sérieusement la question, si la programmation c'est fait pour toi.

Ça fait plusieurs jours que je pensais écrire ces lignes, mais je l'ai auraient envoyés en MP pour qu'en plus tu ne te sentes pas humilié de les voir étalés au grand jour.

Déjà, que plusieurs fois, j'ai eu le sentiment que tu ne prends pas en compte ce qu'on te dis et que tu ne fais aucun effort pour chercher et comprendre par toi-même, et qu'en plus, c'est fun de se foutre ouvertement de ceux qui passe un temps fou à essayé de t'aider, non seulement je n’hésite plus, je les poste ici et ce sera mon dernier message en ton encontre.

Quand j'étais petit, la mer Morte n'était que malade.
George Burns

Ça fait plusieurs jours que je pensais écrire ces lignes, mais je l'ai auraient envoyés en MP pour qu'en plus tu ne te sentes pas humilié de les voir étalés au grand jour.

lol je te connais pas , tu me connais pas et internet aujourd'hui t'es la et demain t'es plus la donc jmen bah les reins , si toi tu comprends comment une machine sait faire la différence entre Vrai et Faux t'en mieux pour toi , moi je cherche le pourquoi du comment , merci pour tout le temps passer à me répondre , bye

BunoCS · Answer 7 · 2017-04-21T10:08:45+0200

Bien le bonjour!

Wow...z'avez été bavards. Pédagogues pour les uns, curieux pour les autres, c'est cool!
Mais, au final, Hixale, as-tu la réponse à ta question d'origine? Si oui, on ferme ici et je t'invite à poster d'autres sujets concernant tes autres questions.
Pour tout ce qui touche à l'algorithmie, on peut se retrouver ici
Pour les questions VB.Net, tu es au bon endroit et tu as des interlocuteurs "talentueux".

Inutile de s'énerver pour un rien. Tu as des questions, et c'est légitime de les poser. Par contre, "rembarrer" ceux qui prennent le temps de t'expliquer, c'est pas sympa. Ce n'est pas à Whis ou à VB que tu va apprendre l'algorithmie et l'algèbre booléen. Ce sont des notions qu'ils connaissent par coeur ;)

cptpingu · Answer 8 · 2017-04-21T14:28:46+0200

Bonjour.

Il est clair qu'on a affaire un quelqu'un de très borné, et je trouve que Whis et VB95 ont été particulièrement patients (bien plus que je ne saurais l'être :p).

Comme on dit: "On ne fait pas boire un âne qui n'a pas soif". Le pinaillage qu'il fait sur un détail masque sûrement l'inconfort de ne pas maîtriser ce domaine. C'est d'autant plus flagrant qu'il s'énerve et se braque quand vous essayez de l'aider. Il n'est pas dans l'esprit "d'apprendre", mais de montrer qu'il "sait" (et comme ce n'est pas le cas...).

Je pense qu'on peut au moins considérer le sujet comme clos (à défaut que celui-ci ait résolu la question ou non). Je me permet donc de fermer celui-ci.

Tri à bulles VB [Résolu/Fermé]

Votre réponse