Conversion decimal/binaire et inverse

Soyez le premier à donner votre avis sur cette source.

Vue 4 603 fois - Téléchargée 2 354 fois

Télécharger le projet
Commenter

Description

C'est un prog qui convertit le binaire en decimal et inversement...
Rien d'extraordinaire mais il faut quand même comprendre...

LONER
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler Commenter la réponse de cs_shivan
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
 -
pour ne pas se prendre la tete avec tes msgbox ki disent k'il faut metre les bons chiffres essaie ca :

Private Sub txtdec_KeyPress(KeyAscii As Integer)
If (KeyAsciiAsc("9")) And KeyAscii<>8 Then KeyAscii=0
End Sub

Private Sub txtbin_KeyPress(KeyAscii As Integer)
If KeyAscii<>Asc("0") And KeyAscii<>Asc("1") And KeyAscii<>8 Then KeyAscii=0
End Sub
Signaler Commenter la réponse de celiphane
celiphane
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007
 -
NON NON NON Shivan, pourri comme méthode ta simplification !
Loner, essaye plutot ceci :

Private Sub txtdec_KeyPress(KeyAscii As Integer)
If instr("0123456789",chr(keyascii))=0 Then KeyAscii=0
End Sub

Private Sub txtbin_KeyPress(KeyAscii As Integer)
If instr("01",chr(keyascii))=0 Then KeyAscii=0
End Sub

Voila, tu peux aussi rajouter " & Chr(vbKeyBack) " après les chaines contenant les valeurs possibles pour activer la possibilité de corriger les saisies ;) !
@+
Signaler Commenter la réponse de cs_Loner
cs_Loner
Messages postés
2
Date d'inscription
dimanche 10 mars 2002
Statut
Membre
Dernière intervention
30 mars 2002
 -
Merci a celiphane
J'ai corrigé un bug qui faussait le résultat en binaire et j'ai rajouté les lignes proposées par celiphane...

merci de signaler ce qui va pas...
Signaler Commenter la réponse de cs_shivan
cs_shivan
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
 -
théoriquement ma solution est plus rapide car se sont juste des tests, pas une grosse fonction vb.
enfin pour un petit programme les 2 marchent.
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 (cs_Loner)