Liste de nombres binaires

[Warkering]

Bonjour!

Juste un petit code intéressant que j'ai concocté pour le plaisir.
Il affiche dans le débogueur toute une liste de 0 à 255 en nombres binaires.

Code : Tout sélectionner

Count = 0
For B1 = 0 To 1
  For B2 = 0 To 1
    For B3 = 0 To 1
      For B4 = 0 To 1
        For B5 = 0 To 1
          For B6 = 0 To 1
            For B7 = 0 To 1
              For B8 = 0 To 1
                Debug Str(B1) + Str(B2) + Str(B3) + Str(B4) + Str(B5) + Str(B6) + Str(B7) + Str(B8) + "   (" + Str(Count) + ")"
                Count = Count + 1
              Next B8
            Next B7
          Next B6
        Next B5
      Next B4
    Next B3
  Next B2
Next B1

C'est cool, non?

[djes]

Ah, oui! J'aime bien ce genre de code, avec un code source dont le format joue sur le résultat

[Backup]

Code : Tout sélectionner

For i=0 To 255
  Debug "("+Str(i)+") = " + Bin(i)
Next i

[Warkering]

Connaissais pas Bin().

[Backup]

[djes]

Juste pour rigoler

Code : Tout sélectionner

Count = 0
For B1 = 0 To 1
  For B2 = 0 To B1
    For B3 = 0 To B2
      For B4 = 0 To B3
        For B5 = 0 To B4
          For B6 = 0 To B5
            For B7 = 0 To B6
              For B8 = 0 To B7
                Debug Str(B1) + Str(B2) + Str(B3) + Str(B4) + Str(B5) + Str(B6) + Str(B7) + Str(B8) + "   (" + Str(Count) + ")"
                Count = Count + 1
              Next B8
            Next B7
          Next B6
        Next B5
      Next B4
    Next B3
  Next B2
Next B1

[Warkering]

C'est beau à regarder ... mais c'est à peu près tout!

[G-Rom]

@warkering


En admettant que les fonctions que Dobro à évoqué n'existe pas , et que tu as du code "redondant"
n'hésite pas à abusé des macro !

ex :

Code : Tout sélectionner

Macro F(TAG) : For TAG = 0 To 1 : EndMacro
Macro N(TAG) : Next TAG         : EndMacro

Count.i=0

F(B1)
  F(B2)
    F(B3)
      F(B4)
        F(B5)
          F(B6)
            F(B7)
              F(B8)
                Debug Str(B1) + Str(B2) + Str(B3) + Str(B4) + Str(B5) + Str(B6) + Str(B7) + Str(B8) + "   (" + Str(Count) + ")"
                Count = Count + 1
              N(B8)
            N(B7)
          N(B6)
        N(B5)
      N(B4)
    N(B3)
  N(B2)
N(B1)

[Warkering]

Merci, seulement je le sais que c'était redondant, puisque j'ai voulu le rendre compréhensible pour les nouveaux venus, comme on me le répète si bien souvent.

[Ar-S]

Merci, seulement je le sais que c'était redondant, puisque j'ai voulu le rendre compréhensible pour les nouveaux venus, comme on me le répète si bien souvent.

Alors donnes aux nouveaux une bonne habitude,

Count = Count + 1 peut se simplifier en Count + 1 avec purebasic

[SPH]

@warkering


En admettant que les fonctions que Dobro à évoqué n'existe pas , et que tu as du code "redondant"
n'hésite pas à abusé des macro !

ex :

Code : Tout sélectionner

Macro F(TAG) : For TAG = 0 To 1 : EndMacro
Macro N(TAG) : Next TAG         : EndMacro

Count.i=0

F(B1)
  F(B2)
    F(B3)
      F(B4)
        F(B5)
          F(B6)
            F(B7)
              F(B8)
                Debug Str(B1) + Str(B2) + Str(B3) + Str(B4) + Str(B5) + Str(B6) + Str(B7) + Str(B8) + "   (" + Str(Count) + ")"
                Count = Count + 1
              N(B8)
            N(B7)
          N(B6)
        N(B5)
      N(B4)
    N(B3)
  N(B2)
N(B1)

Je n'ai jamais fais de macro de ma vie mais ca semble bien !

[Warkering]

Merci, seulement je le sais que c'était redondant, puisque j'ai voulu le rendre compréhensible pour les nouveaux venus, comme on me le répète si bien souvent.

Alors donnes aux nouveaux une bonne habitude,

Count = Count + 1 peut se simplifier en Count + 1 avec purebasic

Je ne le savais même pas!
J'essayais avec les "++" du C mais cela ne marchais pas donc je me suis dit que ça n'existait pas!
Un jour je serai sans reproche!

Et oui SPH, les macros sauvent des vies et surtout la tête!

[Ar-S]

J'ai aussi découvert ça avec PB

[venom]

Sympa le code tout bête mais sympa

pour les macros je ne me suis jamais pencher dessus non plus.





@++

[dayvid]

Ah oui sympa en effetc

Hé ce serais t-il pas mal un code qui convertie un nombre ou même une chaine en binnaire
sa éxiste déjà , a bon