Page 1 sur 1
Liste de nombres binaires
Publié : lun. 21/mars/2011 14:32
par 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?
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 14:41
par djes
Ah, oui! J'aime bien ce genre de code, avec un code source dont le format joue sur le résultat
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 14:41
par Backup
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 14:43
par Warkering
Connaissais pas Bin().
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 14:43
par Backup
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 14:43
par 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
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 14:48
par Warkering
C'est beau à regarder ... mais c'est à peu près tout!
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 16:16
par 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)
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 16:25
par 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.
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 17:49
par Ar-S
Warkering a écrit :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
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 17:59
par SPH
G-Rom a écrit :@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 !
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 18:20
par Warkering
Ar-S a écrit :Warkering a écrit :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!
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 19:10
par Ar-S
J'ai aussi découvert ça avec PB
Re: Liste de nombres binaires
Publié : lun. 21/mars/2011 19:44
par venom
Sympa le code tout bête mais sympa
pour les macros je ne me suis jamais pencher dessus non plus.
@++
Re: Liste de nombres binaires
Publié : sam. 26/mars/2011 14:22
par 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