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" )
