Discussion :

[yaume91]

Bonjour,

Je n'arrive pas à comprendre pourquoi je peux faire ca (mavariable est un nombre sous forme de string)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Convert.ToString(Convert.ToUInt32(mavariable, 10),2)

mais lorsque je fais ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Convert.ToString(Convert.ToUInt64(mavariable, 10),2)

j'obtiens l'erreur suivante:

La résolution de surcharge a échoué, car aucun 'ToString' accessible ne peut être appelé avec ces arguments*: (BC30518)

pourtant cette fonction existe bien:

https://docs.microsoft.com/fr-fr/dot...ormatProvider_

Et je ne vois pas non plus comment contourner ce problème.

Merci pour votre aide.

[Delaney]

Bonjour,

As tu vraiment besoin du format Uint64? Est ce que le format Int64 peut faire l'affaire ?

en passant par un intermédiaire cela fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim resultat1 as Int64 = Convert.ToUInt64(nombre,10)
resultat2=Convert.ToString(resultat2,2)

PS : pour moi ton code me donne presque la même erreur :

La résolution de surcharge a échoué, car aucun 'ToString' accessible ne peut être appelé sans conversion restrictive

[Delaney]

Salut,

Comme contournement, j'ai réussi à faire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
      Dim ba As BitArray = New BitArray(64)
      Dim bam As String
      Dim nombre As String = "22"
      Dim resultat1 As String = ""
 
      ba = New BitArray(BitConverter.GetBytes(Convert.ToUInt64(nombre, 10)))
 
      For i = ba.Count - 1 To 0 Step -1
         If ba(i).ToString = "False" Then
            bam = "0"
         Else
            bam = "1"
         End If
 
         resultat1 = resultat1 + bam
      Next
 
      MsgBox(resultat1)

Pour les petits nombres, ça fait beaucoup de zéros devant

[yaume91]

Voilà ce que j'ai réussit à faire, je sais pas si c'est orthodoxe, mais ca à l'air de fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim mavariableHexString As String = String.Format("{0:X16}", Convert.ToUInt64(mavariable, 10))
Dim mavariableBinaireString = Convert.ToString(Convert.ToInt64(mavariableHexString, 16), 2).PadLeft(64, "0"c)