Faire une page de chiffre binaire

Marsh Posté le 26-07-2004 à 23:22:13

hello,

voila j ai un soucis il faut que je mettre des chiffres 1 et 0 sur tout une page sur un fond noir et j aurai aimer savoir commen m y prendre pour faire ca assez vite car sinon il y a la methode de tout faire chiffre par chiffre mais demain je serai encore la :pt1cable:
j attend vous suggestions

merci d avance

Reply

Marsh Posté le 26-07-2004 à 23:22:13

Reply

Marsh Posté le 26-07-2004 à 23:33:59

attends... ya meme des touches SPECIALES pour faire des 0 et des 1, faut pas abuser qd meme
moi j'aimerai bien une touche qui me fasse un CyberDemon en 3D

---------------
Suri.morkitu.org : Balades au coeur de la ville...

Reply

Marsh Posté le 26-07-2004 à 23:40:13

une macro word

Code :

Sub blah()
For t = 1 To 1000
i = Int(Rnd + 0.5)
ActiveDocument.Content.InsertAfter (i)
Next t
End Sub

Reply

Marsh Posté le 26-07-2004 à 23:52:00

suri a écrit :

attends... ya meme des touches SPECIALES pour faire des 0 et des 1, faut pas abuser qd meme
moi j'aimerai bien une touche qui me fasse un CyberDemon en 3D

oui je sais qu il y a des touche special pour ca mais bon j ai un grand fichier a faire et je veux pas passer tout ma nuit a taper sur les touches...

Reply

Marsh Posté le 26-07-2004 à 23:58:17

herbesahne a écrit :

une macro word

Code :

Sub blah()
For t = 1 To 1000
i = Int(Rnd + 0.5)
ActiveDocument.Content.InsertAfter (i)
Next t
End Sub

merci bcp dis moi c est possible de pouvoir mettre des espaces en fesant le macro?ou bien pas je sais j en demande bcp la mais je me renseigne

Reply

Marsh Posté le 27-07-2004 à 00:08:04

Tu veux dire entre chaque chiffre ou séparé par bloc de 8 ?

Reply

Marsh Posté le 27-07-2004 à 00:12:05

herbesahne a écrit :

Tu veux dire entre chaque chiffre ou séparé par bloc de 8 ?

entre chaque chiffre mais disons de façon aleatoire si c est possible

Reply

Marsh Posté le 27-07-2004 à 00:23:28

modifie cette ligne alors
ActiveDocument.Content.InsertAfter (Str(i) + String(Rnd * 5, " " ))
(on peut changer le 5)

Reply

Marsh Posté le 27-07-2004 à 00:24:11

si tu peux faire avec autre chose que uniquement des 0 et 1 : tu ouvre n'importe quel petit exe dans ton bloc note et tu fais une capture d'ecran ou un copier coller du texte.

Reply

Marsh Posté le 27-07-2004 à 00:25:31

herbesahne a écrit :

modifie cette ligne alors
ActiveDocument.Content.InsertAfter (Str(i) + String(Rnd * 5, " " ))
(on peut changer le 5)

merci infiniment de ton aide tu me sauve la vie la :jap: et si je veux mettre un 6 car en gros faut que je passe de chiffre 0 1 au chiffre 6 et en fin de texte il y aie que des 6 il faut changer quelle ligne de commande sur le macro?

Message édité par Hasgard le 27-07-2004 à 00:27:25

Reply

Marsh Posté le 27-07-2004 à 00:25:31

Reply

Marsh Posté le 27-07-2004 à 02:02:35

j'ai refait un peu le code (ça reste bourrin qd même [:athlonxp2100+] )

Sub plop()
longueur = 1000 'nombre de chiffres
transition = longueur * 0.8
For t = 1 To longueur
i = Int(Rnd + 0.5 - (t > transition) * (5 * (t - transition) / (longueur - transition)))
If i > 1 And i < 4 Then i = Int(Rnd + 0.5)
If i > 3 And i < 7 Then i = 6
ActiveDocument.Content.InsertAfter (Str(i) + String(Rnd * 5, " " ))
Next t
'100 six à la fin
For t = 1 To 100
i = 6
ActiveDocument.Content.InsertAfter (Str(i) + String(Rnd * 5, " " ))
Next t
End Sub

Reply

Marsh Posté le 27-07-2004 à 04:01:53

herbesahne a écrit :

j'ai refait un peu le code (ça reste bourrin qd même [:athlonxp2100+] )

Sub plop()
longueur = 1000 'nombre de chiffres
transition = longueur * 0.8
For t = 1 To longueur
i = Int(Rnd + 0.5 - (t > transition) * (5 * (t - transition) / (longueur - transition)))
If i > 1 And i < 4 Then i = Int(Rnd + 0.5)
If i > 3 And i < 7 Then i = 6
ActiveDocument.Content.InsertAfter (Str(i) + String(Rnd * 5, " " ))
Next t
'100 six à la fin
For t = 1 To 100
i = 6
ActiveDocument.Content.InsertAfter (Str(i) + String(Rnd * 5, " " ))
Next t
End Sub

tu es un dieu man :sol:
tu va me prendre pour un fou encore mais il y a moyen de mettre des 1 et des 0 dans la ligne des 6 exemple: 0 0 1 6 0 1 6 6 6 11 0 6
je sais que je t embete avec tout ca mais merci de prendre un peu de ton temps pour aider une novice comme moi dans le macro

Reply

Marsh Posté le 27-07-2004 à 07:43:47

kaiser47 a écrit :

si tu peux faire avec autre chose que uniquement des 0 et 1 : tu ouvre n'importe quel petit exe dans ton bloc note et tu fais une capture d'ecran ou un copier coller du texte.

[:totozzz]