quick basic - Windows & Software
Marsh Posté le 09-03-2002 à 16:27:46
y'a le phorum programmation pour ça:  
 
DO 
CLS 
INPUT "Entrer un chiffre binaire 
de 8 bit";a$ 
stocke la chaîne de caractère dans a$ 
WHILE (LEN(a$)<>8) la fonction LEN retourne le nombre de caractère dans 
a$. Ainsi, on boucle tant que le contenu de a$ n'a pas 8 
caractère (on ne vérifie pas si ce sont des 0 ou des 1) 
INPUT "ce chiffre ne contient 
pas 8 bit: recommencer";a$ 
WEND 
FOR i=0 TO 7 
IF MID$(a$,8-i,1)="1" THEN MID renvoie 1 caractère à partir du (8-i)ième 
si ce caractère est un 1 met le chiffre 1 dans le tableau, 
sinon met y le chiffre 0. 
bit(i)=1 
ELSE 
bit(i)=0 
END IF 
PRINT "le bit numéro ";i;" est 
à ";bit(i);" et vaut 
";bit(i)*2^i;" en décimal" 
affichage pour vérification 
NEXT i 
a=bit(0)*1+bit(1)*2+bit(2)*4+bit( 
3)*8+bit(4)*16+bit5)*32+bit(6)*64 
+bit(7)*128 
calcule la valeur décimale. On aurrait pu utiliser une 
boucle et ainsi traiter n'importe quel nombre de bits. 
PRINT "le chiffre binaire ";a$;" 
vaut ";a;" en décimal." 
affichage du résultat 
PRINT "appuyer sur f pour arrêter 
ou sur une autre touche pour 
continuer";c$ 
LOOP UNTIL(c$="f" ) 
Marsh Posté le 09-03-2002 à 17:39:32
merci beaucoup 
  
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
   
 
Marsh Posté le 09-03-2002 à 14:50:55
A ceux qui savent programmer en quick basic ou Qbasic
Je voulais savoir une formule pour faire une operation qui permet de transformer un choffre en language binaire
---------------
J'aime le travail, il me fascine!! je pourai rester des heures à le regarder