quick basic

quick basic - Windows & Software

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
Reply

Marsh Posté le 09-03-2002 à 14:50:55   

Reply

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

Reply

Marsh Posté le 09-03-2002 à 17:39:32    

merci beaucoup
 :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:  :sol:


---------------
J'aime le travail, il me fascine!! je pourai rester des heures à le regarder
Reply

Sujets relatifs:

Leave a Replay

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