Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1423 connectés 

  FORUM HardWare.fr
  Graphisme
  PAO / Desktop Publishing

  Faire une page de chiffre binaire

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Faire une page de chiffre binaire

n°507902
Hasgard
Fire,Water.Air &Earth
Posté le 26-07-2004 à 23:22:13  profilanswer
 

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

mood
Publicité
Posté le 26-07-2004 à 23:22:13  profilanswer
 

n°507906
Suri
Darksurious
Posté le 26-07-2004 à 23:33:59  profilanswer
 

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...
n°507916
herbesahne
Posté le 26-07-2004 à 23:40:13  profilanswer
 

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

n°507926
Hasgard
Fire,Water.Air &Earth
Posté le 26-07-2004 à 23:52:00  profilanswer
 

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...

n°507931
Hasgard
Fire,Water.Air &Earth
Posté le 26-07-2004 à 23:58:17  profilanswer
 

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
 

n°507937
herbesahne
Posté le 27-07-2004 à 00:08:04  profilanswer
 

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

n°507939
Hasgard
Fire,Water.Air &Earth
Posté le 27-07-2004 à 00:12:05  profilanswer
 

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

n°507945
herbesahne
Posté le 27-07-2004 à 00:23:28  profilanswer
 

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

n°507946
kaiser47
c'était mieux avant...
Posté le 27-07-2004 à 00:24:11  profilanswer
 

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.

n°507948
Hasgard
Fire,Water.Air &Earth
Posté le 27-07-2004 à 00:25:31  profilanswer
 

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
mood
Publicité
Posté le 27-07-2004 à 00:25:31  profilanswer
 

n°507961
herbesahne
Posté le 27-07-2004 à 02:02:35  profilanswer
 

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

n°507969
Hasgard
Fire,Water.Air &Earth
Posté le 27-07-2004 à 04:01:53  profilanswer
 

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

n°507972
Suri
Darksurious
Posté le 27-07-2004 à 07:43:47  profilanswer
 

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...
n°508094
Paradise-
Posté le 27-07-2004 à 12:16:26  profilanswer
 

avec un .tiff ca marche encore mieux :)


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Graphisme
  PAO / Desktop Publishing

  Faire une page de chiffre binaire

 

Sujets relatifs
Quelle intégration du son dans une page web ?Page chargée dans un cadre ?
Mettre une page HTML dans une animation Flash ?[wipBlender]Alfa 147 GTA fini meilleur rendu page 12
Comment aligner un tableau sur le bord gauche d'une page webNetobject fusion: comment faire une page web avec un mot de passe
[WIP 3Dmax] Buggy [ Rendu Final page 10 ]lien sur une autre page a une ligne precise
transparence d une pageindesign et pied de page
Plus de sujets relatifs à : Faire une page de chiffre binaire

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.058 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR