Discussion :

[Shennong]

Bonjour tout le monde !

Alors mon problème va être simple à poser. J'ai ce code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Dim fileNames = My.Computer.FileSystem.GetFiles("C:\ProgramData\EmuWare\Temp\Extract\", FileIO.SearchOption.SearchTopLevelOnly, "*.*")
Dim info As System.IO.FileInfo
 
For Each file As String In fileNames
 
                    info = My.Computer.FileSystem.GetFileInfo(file)
 
                    'On prépare les données pour chaque colonne du datagrid
                    Dim str(3) As String
                    Dim itm As ListViewItem
                    str(0) = resultat
                    str(1) = ext
 
                    Dim CalculatedSize As Decimal
                    Dim TheSize As Long = Long.Parse(info.Length)
                    Dim typefichier As String = "B"
 
                    If TheSize < 1024 Then
                        CalculatedSize = TheSize
 
                    ElseIf TheSize > 1024 AndAlso TheSize < (1024 ^ 2) Then 'KB
                        CalculatedSize = Math.Round((TheSize / 1024), 2)
                        typefichier = "Kb"
 
                    ElseIf TheSize > (1024 ^ 2) AndAlso TheSize < (1024 ^ 3) Then 'MB
                        CalculatedSize = Math.Round((TheSize / (1024 ^ 2)), 2)
                        typefichier = "Mb"
 
                    ElseIf TheSize > (1024 ^ 3) AndAlso TheSize < (1024 ^ 4) Then 'GB
                        CalculatedSize = Math.Round((TheSize / (1024 ^ 3)), 2)
                        typefichier = "Gb"
 
                    ElseIf TheSize > (1024 ^ 4) Then 'TB
                        CalculatedSize = Math.Round((TheSize / (1024 ^ 4)), 2)
                        typefichier = "Tb"
 
                    End If
 
str(2) = CalculatedSize.ToString() + " " + typefichier

Et je ne comprends pas pourquoi je ne vois pas dans mon datagrid le résultat sous la forme par exemple : "4.88 Mb", mais à chaque fois "4 Mb", pour le str(2).

Est-ce que quelqu'un pourrait m'aider à me dépatouiller de ça svp car je rame sévère là :'(

Merci d'avance.

Cordialement-

--
Shennong

[clementmarcotte]

Bonjour,

C'est probablement parce qu'il te manque une addition après ta division entière:

Mais, tu peux aussi jeter un œil ici

[Shennong]

Merci pour ta réponse Clementmarcotte, mais je ne comprends pas. Pourquoi me manquerait-il une addition ?

Pourtant dans le code je mets bien que je veux deux décimales, j'ai beau relire mon bout de code, cela devrait pourtant fonctionner ... je suis perdu là :'(

Cordialement-

--
Shennong

[baloub]

salut,

lu sur le site microsoft :
" Précision. Decimal n'est pas un type de données à virgule flottante.La structure Decimal contient une valeur entière binaire, avec un bit de signe et un facteur d'échelle d'entier qui spécifie quelle partie de la valeur est une fraction décimale.C'est pourquoi les nombres Decimal ont une représentation plus précise dans la mémoire que les types à virgule flottante (Single et Double)."

Tu devrais essayer avec un type à virgule flottante.

[clementmarcotte]

Bonjour,

Merci pour ta réponse Clementmarcotte, mais je ne comprends pas. Pourquoi me manquerait-il une addition ?

--
Shennong

Mille excuses, j'ai dit une horreur, parce que j'avais en tête une formule que j'appliquais avec Excel 1997, parce que, VBA a supporté Round uniquement à partir d'Office 2000

[Shennong]

Aaah ! pas bête baloub. Pourtant j'ai regardé la doc sur les types de "nombres", et le type "Decimal" s'apparentait pourtant à un nombre à virgule. Peut-être que je devrais essayer en "Double" alors. J'ai une question bête aussi : qu'est-ce qu'ils entendent exactement par "virgule flottante" ???

Pas de soucis clementmarcotte Je vais continuer de chercher une solution à mon problème, j'espère y arriver car ça me stop complètement depuis plus d'une semaine ce truc, j'en ai marre :'(

Je reviens vers vous si j'ai du nouveau !

Cordialement-

--
Shennong

[chadoum]

Hello,
Je ne code pas en vb mais je pense qu'il faudrait faire un cast de ton Math.Round en decimal quand tu affectes ton résultat à CalculatedSize.
En c#, ça donnerait ça :

Code :

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

1
2
 
CalculatedSize = (decimal)Math.Round((TheSize / (Math.Pow(1024, 2))),2);