Enfin un exemple de transformation binaire -> decimal : qui fonctionne!!!

Commenter

Contenu du snippet

Pour la petite histoire, c'est la premiere fois que j'envois une sources visual basic sur internet mais je ne suis pas debutant: sa fait 3ans que je suis passionné par la prog et donc en visual j'ai fait un jeu de voiture 3d (pas mal mais pauvre graphiquement) et un fps(juste un debut qui est pas trop mal graphiquement): toute cette histoire pour dire que si quelqu'un veut une de ces sources ils faut qu'il me mette un commentaire a cette source avec son adresse et je lui enverais par email: voila! Bon ce prog la c'est juste une fonction qui permet de transformer du binaire en decimal car j'en avait mare de voir des sources qui premettent de transformer du binaire en decimal qui ne fonctionne pas! Voila la au moin c'est simple et sa marche!

Signé:
DIJOUX Cédric

Source / Exemple : 


Function convert(binaire$) As Long
div = 128
For x = 1 To 8
If Mid$(binaire$, x, 1) = "1" Then chif = chif + div
div = div / 2
Next
convert = chif
End Function

Conclusion :


Bon voila donc j'ai pas mi de commentaire(j'en vois pas l'utilité). Le fonctionnement:
mettre la function dans votre programme et pour appeller cette fonction il suffit de faire du style:
chiffre = convert("00001000")

ou chiffre est le chiffre correspondant au chiffre binaire et ou "00001000" est le chiffre bianaire: je peux pas faire plus simple!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (qbced)