TRANSCRIRE EN BINAIRE EN QUELQUE LIGNE

Signaler
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
-
cs_EBArtSoft
Messages postés
4531
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

cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
8
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

@+
NHenry
Messages postés
14620
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
19 janvier 2020
138
Bonjour,

Un snippet aurais suffit.
hvb
Messages postés
939
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1
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!)
Sirocooo
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
cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
8
wouah encore...