Faire une page de chiffre binaire

Faire une page de chiffre binaire - PAO / Desktop Publishing - Graphisme

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 :o
moi j'aimerai bien une touche qui me fasse un CyberDemon en 3D  :D


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

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

une macro word

Code :
  1. Sub blah()
  2. For t = 1 To 1000
  3. i = Int(Rnd + 0.5)
  4. ActiveDocument.Content.InsertAfter (i)
  5. Next t
  6. 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 :o
moi j'aimerai bien une touche qui me fasse un CyberDemon en 3D  :D


 
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 :
  1. Sub blah()
  2. For t = 1 To 1000
  3. i = Int(Rnd + 0.5)
  4. ActiveDocument.Content.InsertAfter (i)
  5. Next t
  6. 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]


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

Marsh Posté le 27-07-2004 à 12:16:26    

avec un .tiff ca marche encore mieux :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed