TRANSCRIRE EN BINAIRE EN QUELQUE LIGNE

Signaler
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41962-transcrire-en-binaire-en-quelque-ligne

Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
tout a fait d'accord avec Sirocooo et hvb.
...et aussi avec NHenry. Que des bons conseil en somme c'est pas comme moi :p

@+
Messages postés
14757
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
14 janvier 2021
151
Bonjour,

Un snippet aurais suffit.
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
2
Le problème c'est que le code est vu et revu, et surtout il est jetté tel quel... :
_Des conversions implicite à tout va (pensez à activer option strict, cela evite de nombreuses erreurs et permet une meilleur comprehension du fonctionnement de son propre code)
_A défaut d'une classe, une fonction aurait le strict minimum, plutot qu'une simple procédure prenant ses paramêtre directement dans les textbox
_detail : ElseIf (Asc(e.KeyChar) > 47 And Asc(e.KeyChar) < 58) peut être dotnetisé de la sorte : ElseIf e.KeyChar.IsDigit(e.KeyChar) (attention aux copier/coller!)
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
Je pense qu'il y a plus simple pour convertir un nombre d'une base à une autre avec le framework "System.Convert.ToInt64"

Public Shared Function BaseXToY(ByVal Valeur As String, ByVal FromBase As Base, ByVal ToBase As Base) As String

Try
'Renvoi du nombre converti dans la base attendue
Return System.Convert.ToString(System.Convert.ToInt64(Valeur, FromBase), ToBase)

Catch ex As Exception
'Si erreur
Throw New Exception(ex.Message)

End Try

End Function
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
wouah encore...