NUMBER CONVERTER : CONVERTISSEUR DE NOMBRE DE BASE EN BASE
OneHacker
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
-
13 août 2005 à 15:25
OneHacker Messages postés 1447 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 23 septembre 2007 - 16 juil. 2007 à 22:09
OneHacker Messages postés 1447 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 23 septembre 2007 - 16 juil. 2007 à 22:09
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/33225-number-converter-convertisseur-de-nombre-de-base-en-base
https://codes-sources.commentcamarche.net/source/33225-number-converter-convertisseur-de-nombre-de-base-en-base
16 juil. 2007 à 22:09
5 juil. 2007 à 11:59
15 DIV 7 (retranscri 15 \ 7 il me semble) renvoi 2 (c'est la division entière)
15 MOD 7 renvoi 1 (le reste de la division)
27 juin 2007 à 13:24
Sinon ma claculatrice avance donc bientot je combienerai ça avec ma calculatrice.
J'ai créer un topic sondage dessus mais personne n'y réponds :/
Et elle marche comment la fonction modulo car j'ia beau regarder sur des sites de maths ou Wkikpédia et aucune explication sans formules mathématiques HyperComplexe et incomphréensibles à mon niveau.
27 juin 2007 à 12:29
Pour d'autres bases, il te faudra utiliser le DIV et Modulo et faire toi même ton propre systèe ^^
Bonne prog
11 juin 2007 à 22:51
Je vais essayer de faire un calculatrice avancé et essayer de faire des fonctons déjà faites comme PGCD() en essyant d'accepter jusqu'à 3 ou 4 nombres. Sinon je vais essayer de faire un résolveur d'équations(je sais que ca existe sur certaine calculatrice casio).
Voilà donc je vais essayer de faire un moteur, et un module pour créer c'est script de maths et faire des MAJ automatique ou MAJ scripts automatiques. Voilà voilà.
Par contre est-ce que vous savez comment appeler un fichier source l'initialisation du programme ?
21 nov. 2006 à 16:54
20 nov. 2006 à 10:48
18 nov. 2006 à 10:26
Redman
22 févr. 2006 à 11:32
Redman
22 févr. 2006 à 07:59
C'est de ce type le shéma System.Convert.ToString(ValeurEntière, Base). C'est à dire que tu peux faire des conversions octales, binaires décimales, bref ce que tu veux.
Tu es allé voir la doc MSDN ?
20 févr. 2006 à 01:01
Convert.ToString([String], [Byte])
Redman
5 déc. 2005 à 10:49
Si tu bosses bien avec le framework .NET, la commande existe. Voici la doc sur MSDN : http://msdn.microsoft.com/library/FRE/cpguide/html/cpconcustomizingformatstrings.asp
et voici un exemple concret :
Dim tmpstr as string = System.Convert.ToString(EntierValeur, 2)
tmpstr = new System.String("0",32-tmpstr.length) & tmpstr ' 32 étant le nombre de bits représenté.
Bonne prog
2 déc. 2005 à 23:52
21 nov. 2005 à 09:08
Dim tmpstr as string = Convert.ToString(EntierValeur, 2)
tmpstr = new string("0",32-tmpstr.length) & tmpstr ' 32 étant le nombre de bits représenté
21 nov. 2005 à 09:05
Overloads Public Shared Function ToString(Long, Integer) As String
çà renvoi un Sring ...
20 nov. 2005 à 16:00
20 nov. 2005 à 11:26
De msdn:
Convertit la valeur d'un entier signé 64 bits en sa représentation String équivalente dans une base spécifiée.
Overloads Public Shared Function ToString(Long, Integer) As String
Convert.ToString(2005, 2) retourne bien "11111010101"
19 nov. 2005 à 23:35
et fouillant Covert, je n'ai trouvé aucune possibilité de convertir !
7 nov. 2005 à 11:41
Je suis peut-être hors-sujet mais ...
Convert.ToString(MonEntier, 2) c'est pas plus rapide ?
3 sept. 2005 à 11:53
1 sept. 2005 à 19:26
16 août 2005 à 13:12
Exemple sur la calculatrice tu tapes PGCD(5,8) ou même PGCD(4,2,8,6,7) et ça te donne le résultat par pour les conversions de base et pleins d'autres choses !
16 août 2005 à 11:18
++
(9/10)
15 août 2005 à 15:42
Bonne continuation !
15 août 2005 à 15:40
If faut qu'elle retourne un tableau de integer:
Private Function makeheaders(Optional ByVal nbheaders As Integer = 9) As Integer()
Attention de bien mettre les paranthèse après "as integer"
15 août 2005 à 15:35
L'erreur see situe dans les premières ligne
Private Function BinaryConvertion(ByVal nbaconvertir As Integer) As String
Dim headers() As Integer = ici l'erreur-> MakeHeaders(nbaconvertir)
Erreur affichée : Une valeur de type 'Integer' ne peut pas être convertie en 'Tableau 1-dimensionnel de Integer'
Voilà !
15 août 2005 à 15:24
15 août 2005 à 15:15
Private Function MakeHeaders(ByVal nbaconvertir As Integer) As Integer
..
End Function
donc ce n'est pas l'erreur que tu dis.
15 août 2005 à 12:47
dim headers() as integer = makeheaders()
15 août 2005 à 12:18
15 août 2005 à 11:54
15 août 2005 à 11:52
Il faut boucler de (headers.Length - 1) à 1 sinon ça rajoute un 1 à la fin de chaque mot.
15 août 2005 à 11:48
Elle ne retourne rien, donc c'est comme si elle ne servait à rien.
Private Function MakeHeaders(Optional ByVal NbHeaders As Integer = 9) As Integer()
...
Return Headers
End Function
Et dans ta fonction BinaryConvertion, l'erreur était que headers est toujours vide.
La fonction MakeHeaders servant à le remplir ne marchait pas donc évidemment ...
Dim headers() As Integer = makeheaders(10)
Voilà, tu peux corriger et remettre ta version
Bon Coding
15 août 2005 à 11:03
function ...
dim nb as integer = nbaconvertir
for i as integer = headers.length - 1 to 0 step -1
if nbaconvertir => headers(i) then
nbaconvertir= nbaconvertir - headers(i)
headers(i) = 1
else
headers(i) = 0
endif
next
dim result as string = ""
for i as integer = headers.length - 1 to 0 step -1
result += headers(i).tostring()
next
return result
end function
Mais apparement dès la première ligne le code est faut, c'est ça que je ne comprends pas !!
15 août 2005 à 00:22
Mais j'aurais quand même préféré ta fonction. C'est ton programme à la base. Donc même si il n'est pas aussi performant, il peut aider les débutants. Le miens est un peu plus complexe (C'est la meilleurs technique de conversion d'accord) mais corrige ta fonction et remet là.
De toutes façon mon code restera en commentaire.
Voilà.
Bon coding.
15 août 2005 à 00:06
14 août 2005 à 23:56
Bonne continuation, merci beaucoup.
14 août 2005 à 23:31
Voilà le code complet et commenté
J'espère qu'il pourra t'aider.
Option Compare Binary
Option Explicit On
Option Strict On
Module mdlConverter
Sub Main()
Dim n As String
Try
n = InputBox("Un nombre SVP", "Nombre à Convertir")
If n = "" Then End
MsgBox(DecToBin(CInt(n)))
Catch ex As Exception
Call Main()
End Try
End Sub
Private Function DecToBin(ByVal nd As Integer, Optional ByVal Digit As Integer = 0) As String '// nd est le nombre à convertire, digit la taille du mot binaire
Dim nb As String '// La ou sera le nombre sous forme binaire
Dim y As Integer = CInt(Int(Math.Log(nd) / Math.Log(2))) '// Taille du mot
If (Digit - 1) > y Then y = (Digit - 1) '// Si un taille est spécifier on met la taille spécifier à condition qu'elle soit plus grande
'// Ici on va faire une boucle: ... 512 256 128 64 16 8 4 2 1
'// Le max étant la taille du mot au carré (si nd 21, y 4(si Digit = 0) donc i = 16, on bouclera 16 8 4 2 1)
Dim i As Integer = CInt(2 ^ y)
Do While i > 0
'// Si i est compris dans nd
If nd >= i Then nd -= i : nb &= 1 Else nb &= 0 '// On ajoute un 1 et en enlève i à nd ; sinon on ajoute un 0
i = CInt(i / 2)
Loop
Return nb '// On retourne le nombre binaire sous forme de chaîne de caractères
End Function
End Module
14 août 2005 à 23:01
14 août 2005 à 20:33
Private Function DecToBin(ByVal nd As Integer, Optional ByVal Digit As Integer = 0)
Dim nb As String
Dim y As Integer = Int(Math.Log(nd) / Math.Log(2))
If (Digit - 1) > y Then y = (Digit - 1)
Dim i As Integer = 2 ^ y
Do While i > 0
If nd >= i Then nd -= i : nb &= 1 Else nb &= 0
i /= 2
Loop
Return nb
End Function
Voilà
PS: J'attente toujours que ta version marche
14 août 2005 à 02:10
14 août 2005 à 01:55
Maintenant, j'ai un msgbox qui s'affiche 2 fois
"La référence d'objet n'est pas définie à une instance d'un objet."
Bon coding
14 août 2005 à 01:35
14 août 2005 à 01:05
Une exception non gérée du type 'System.NullReferenceException' s'est produite dans microsoft.visualbasic.dll
Informations supplémentaires : Variable objet ou variable d'un bloc With non définie.
Je commenterais et noterais la source une fois que ça marchera :-)
Bonne Prog
13 août 2005 à 22:28
C'est moi même qui a donné le nom de headers au nombre : 1,2,4,8,16 ...
Quant au DLL on ne peut l'exploiter que si on connais le code de la DLL car si c'est compilé c'est n'est que du binaire.
quant au bytes, je ne sait comment les manipuler.
Donc au prochaine qui regarde cette source quand je parle de headers, il s'agit d'une colletion de nombre ! Ne pas confondre !
13 août 2005 à 18:28
Je saisis mal le but de ton prog, j'ai l'impression que tu amuses le processeur sans raison.
Si on ne peut pas manipuler les bits en vb.net, compile une dll en natif et appelle la, au moins tu auras le résultat en qlqs millièmes de seconde sans tableau ni rien d'autre.
13 août 2005 à 15:25