CONVERTISSEUR DÉCIMAL BINAIRE HEXADÉCIMAL OCTAL
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
17 juil. 2010 à 07:42
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 20 juil. 2010 à 12:21
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 20 juil. 2010 à 12:21
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/52045-convertisseur-decimal-binaire-hexadecimal-octal
https://codes-sources.commentcamarche.net/source/52045-convertisseur-decimal-binaire-hexadecimal-octal
20 juil. 2010 à 12:21
je ne sais plus pourquoi ! j'ai du mélanger les deux méthodes.
cela à du me géner de faire un And avec des integers :p
dsl ++
20 juil. 2010 à 12:12
20 juil. 2010 à 08:29
a quoi sert le masque ET sinon ?
20 juil. 2010 à 07:44
Celle avec le AND qui fait un "masque" puis divise par ce masque pour voir si on a 0 ou 1, n'est valable que pour le binaire et est peut être un peu moins clair à comprendre.
(Byte And C) \ C) mais c'est la même chose.
Exemple savoir si le bit 3 est true ou false dans la valeur 324
(324 And 2^3) \ 2^3)
(324 And 8) \ 8) => 01000100 And 00001000 = 0000000 donc 0
0/8 = 0
Donc le bit 3 est à false 324=(0100-(0)-100)
19 juil. 2010 à 21:07
Sérieusement j'espère qu'il arrivera à déchiffrer ce que j'ai écrit, mon écriture est quelque peu ... illisible. Mais bon, le principal c'est qu'il voie que j'ai procédé (comme dans le programme VB) par des divisions euclidiennes successives en utilisant la base comme diviseur et le reste de division comme chiffre trouvé. Evidemment faut lire les chiffres dans l'ordre inverse, vu qu'à la première division on trouve le LSB.
19 juil. 2010 à 21:02
perso j'ai laché l'affaire pour expliquer le AND que je fais....
US_30, toi et moi avons essayé, maintenant si il trouve son codage mieux, ben voila quoi...
/fin
19 juil. 2010 à 20:55
19 juil. 2010 à 19:38
J'ai préféré garder ma méthode, pour le snippet
de cette page et puis pour faire plus simple
qu'avec ta méthode que je n'ai d'ailleur pas encore comprise,
c'est moins optimisé c'est sûr mais c'est comme ça que j'aurai fait.
Le rapport avec la cryptographie est le décalage à gauche ou à droite
d'un code binaire que l'on peux voir avec mon programme que je
cherchais à faire... Et puis il y a la conversion en octal que
je trouvais intéressante. Donc des fonctions qui n'existent pas
dans vb(?) mais qui peuvent toujours servir, on ne sais jamais...
19 juil. 2010 à 19:15
<mode type="pas-sympa">
1) L'interface est affreuse.
2) Le code pourrait être au moins deux fois plus court et je te l'ai montré !
3) Quel rapport avec la cryptographie ?
</mode>
19 juil. 2010 à 19:02
19 juil. 2010 à 18:24
1-parcequ'en .NET c'est messagebox
2-parcequ'elle n'est pas là pour faire des fonctions ^^
pour t'en rendre compte place option strict = on en début de code et tu verra une zouli erreur !
note que ta méthode "barbare" va plus loin que la calculette qui bloque à ^90 ;)
19 juil. 2010 à 18:08
19 juil. 2010 à 16:17
qu'on pouvait calculer de très grands nombres
en texte, par exemple :
MsgBox("6399999999999999999999999999999999999999" * "616516132103210516103513510" * "56465465465465465465465465654654564654645")
renvoit :
2,22795970343528E+107
Est-ce que le résultat est correct ?
Après est-ce que c'est utilisable
pour faire des opérations comme si c'était des variables numériques ?
Sinon pour mon convetisseur il marche bien, s'agit de ne pas trop
forcer sur les nombres (limitation 32 bits (32 bits + 1 bit dans mon programme après il bug ;))) @+
18 juil. 2010 à 20:45
plus de 18446744073709551615 en binaire je ne sais même pas si c'est faisable ^^
cela correspond à 10 octets soit 80 x 1 est c'est la limite de la calculette
de windows !
ce qui correspond à Uint64
voir : http://msdn.microsoft.com/fr-fr/library/47zceaw7(VS.90).aspx
si tu veux pouvoir utiliser des grands nombres (double ou décimal) utilise un string en sortie de ta fonction de conversion ;) 1 ou 0 selon le résultat de la division, cela peut marcher non ?
mais l'inverse plantera je pense ^^
@++
18 juil. 2010 à 19:23
au nombre maximal (binaire) que j'ai pu trouver
en faisant des essais multiples avec mon programme
et la calculatrice windows... Sinon pour trouver
un code binaire a partir d'un décimal le code
de ghuysmans99 marche très bien, ormis
le nombre 18446744073709551615 qui n'est
pas supporté sur Visual Basic
et qui donne une erreur de dépassement de capacité.
En fait pour faire la conversion vers binaire,
je commence a compter le nombre de chiffres binaires
avec 2 ^ i , donc la longueur du résultat,
pour faire un For de cette longueur et en fait
je fait comme ma source présente sur cette page
pour soit rajouter un 1 ou un 0...
Donc en comparant la position du chiffre binaire
avec 2 ^ position_du_chiffre binaire,
et si je met un 1, j'incrémente une variable
pour refaire l'opération... Je ne sais pas
pourquoi ma fonction marche avec de petits nombres
et qu'a partir d'un certain, le code rendu
n'est plus du tout exact.
18 juil. 2010 à 19:03
@ Raffika : sympa la form, mais le code est encore un peu étrange à mon gout.
Pourquoi de si grand champs de saisi si le code ne peux pas traiter les grands nombres ?
Regarde et inspire toi de ce code :
http://www.vbfrance.com/codes/CALC-BOOL-CALCULETTE-BOOLEENNE_44557.aspx
@++
18 juil. 2010 à 14:48
Avec un petit peu de recherche, on trouve facilement des codes de conversion assez complet, entre autre :
http://support.microsoft.com/kb/463249/fr
et
http://support.microsoft.com/kb/109260/fr
... et raffika, tu as de la chance, ces codes ne sont pas en VB.NET... tu as de quoi t'amuser... De plus, il semble que sur Snippets, il n'y a rien en VB.NET sur ce sujet... Ce qui complètera ce manque....
Amicalement,
Us.
17 juil. 2010 à 19:31
correction :
sBool &= Cstr((Val_entrees And C) \ C)
17 juil. 2010 à 19:27
Ghuy utilise la multiplication, tout comme j'aurais pû utiliser la division par 2 puissance n et regarder le reste
Ici je fais un AND logique (normal automaticien ^^), mais cela revient au même. ++
PS : c'est un snippet ^^
bonne continuation
17 juil. 2010 à 17:17
Ghuysmans99 là... A part que c'est un For et pas While...
Bon je vais voir s'il y a plus simple de Mod pour décimal
vers binaire... @+
17 juil. 2010 à 16:40
17 juil. 2010 à 16:36
bon comme j'étais en train de reprogrammer
un peu tout ça je vais mettre à jour ma source.
Alors en fait je rajoute juste une fonction pour
passer d'un code binaire à une valeur décimale
donc avec un code binaire non limité (a part la
longeur de la variable (Long)...
Après, plus dur, faire l'inverse...
Merci pour vos commentaires
17 juil. 2010 à 16:29
17 juil. 2010 à 16:28
Private Function byteToSBool(byval byte as integer) as string
'conversion octet en bool
dim sBool as string = ""
'(8 bits sur un int)
For boucle As Integer = 0 To 7
Dim C As Integer = CInt(2 ^ boucle) 'calcul la puissance de 2 : 2^0,2^1,2^3,2^4
sBool &= CBool((Val_entrees And C) \ C)
next
return sBool
end function
@++ de tête alors ya peu une erreur de frappe :p
17 juil. 2010 à 15:00
En fait on multiplie le chiffre par la base exposant la position (à partir de la fin, c'est pour ça que je fais l-pos)
x Mod y = le reste de division euclidienne de X par Y
17 juil. 2010 à 12:04
qu'est ce que tu appelles converties en dur ?
Sinon, Ghuysmans99, je n'ai pas compris le code
que tu proposes surtout
Result += (Current * 2 ^ (l - pos))
et
Rest = Number Mod 2
...
17 juil. 2010 à 11:15
17 juil. 2010 à 07:42
sans compter que c'est inutilisable, fournis au moins des fonctions... La, les valeurs converties sont en dur, le resultat dans un MsgBox...