AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 09 04:34:49
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERSION OCTET => KO, MO, GO ...


Information sur la source

Catégorie :Trucs & Astuces Classé sous : conversion, octet, kilo, mega, giga Niveau : Débutant Date de création : 24/08/2001 Vu : 20 521
Auteur : processus Site perso
Ecrire un message privé
Note :
7,67 / 10 - par 3 personnes
7,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Code très simple à priori mais comme je l'ai utilisé dans plusieurs de mes programme, simplement en recopiant la fonction, j'ai pensé qu'il pouvait servir à quelqu'un...
 

Source

  • Public Function ConvertOctets(Prm_L_Num As Long) As String
  • On Error GoTo ConvertOctets_Err
  • Dim L_Size As Long
  • L_Size = Prm_L_Num ' Mise en cache
  • If (L_Size / 1024 > 1) Then
  • L_Size = L_Size / 1024
  • If (L_Size / 1024 > 1) Then
  • L_Size = L_Size / 1024
  • If (L_Size / 1024 > 1) Then
  • L_Size = L_Size / 1024
  • If (L_Size / 1024 > 1) Then
  • L_Size = L_Size / 1024
  • Else
  • ConvertOctets = CStr(L_Size) & " Go"
  • End If
  • Else
  • ConvertOctets = CStr(L_Size) & " Mo"
  • End If
  • Else
  • ConvertOctets = CStr(L_Size) & " Ko"
  • End If
  • Else
  • ConvertOctets = CStr(L_Size) & " Oct"
  • End If
  • Exit Function
  • ConvertOctets_Err:
  • Call MsgBox("Erreur n° : " & Err.Number & vbCrLf & "Description : " & Err.Description, vbOkOnly + VbExclamation, App.Title)
  • End Function 
Public Function ConvertOctets(Prm_L_Num As Long) As String
    
    On Error GoTo ConvertOctets_Err

    Dim L_Size As Long
    
    L_Size = Prm_L_Num ' Mise en cache
    
    If (L_Size / 1024 > 1) Then
        L_Size = L_Size / 1024
        If (L_Size / 1024 > 1) Then
            L_Size = L_Size / 1024
            If (L_Size / 1024 > 1) Then
                L_Size = L_Size / 1024
                If (L_Size / 1024 > 1) Then
                    L_Size = L_Size / 1024
                Else
                    ConvertOctets = CStr(L_Size) & " Go"
                End If
            Else
                ConvertOctets = CStr(L_Size) & " Mo"
            End If
        Else
            ConvertOctets = CStr(L_Size) & " Ko"
        End If
    Else
        ConvertOctets = CStr(L_Size) & " Oct"
    End If

    Exit Function
    
ConvertOctets_Err:
    
    Call MsgBox("Erreur n° : " & Err.Number & vbCrLf & "Description : " & Err.Description, vbOkOnly + VbExclamation, App.Title)
    
End Function

Conclusion

Appel de la fonction : S_Buffer = ConvertOctets(5000)
 

Commentaires et avis

signaler à un administrateur
Commentaire de TomIlliev le 31/12/2002 21:58:21

Salut,
Il vaut mieux utiliser "Prm_L_Num As Currency" cela évite les dépacement de capcité.
Cette fonction est bien pratique, Bravo.

signaler à un administrateur
Commentaire de fifrelin70 le 01/10/2008 09:30:34 7/10

Salut, je propose cette fonction c'est la même chose en plus court:
Imports System.Math

Public Function func_RoundTaille(ByVal LaTaille As Long) as String
     Select Case LaTaille
          Case Is < 1024
               Return Round(LaTaille) & " Octets"
          Case Is < 1048576
               Return Round(LaTaille / 2^10, 3) & " Ko"
          Case Is < 1073741824
               Return Round(LaTaille / 2^20, 3) & " Mo"
          Case else
               Return Round(LaTaille / 2^30, 3) & " Go"
     End Select
End Function

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Conversion d'un octet hexadécimal en type long [ par Cyrille.fouchet ] Je voudrais savoir comment convertir un octect ayant une valeur hexadécimal en un type long.Merci d'avancecyrille Fouchet un megaoctet [ par armine2 ] jai besoin d'un fichier de un mega octet.est ce que quelqun pourrait menvoyer un fichier de un mega octet sur mon mail aarmine2@hotmail.com (peu impor Conversion de fichier excel [ par alphayr ] Bonjour, Nouveau sur ce forum et ne souhaitant pas r&#233;inventer la roue, je suis &#224; la recherche d'exemple de code source VB pour le d&#233;ve Pb de conversion [ par soyezd ] SOUS VISUAL BASICvoila j'ai un text1.text avec une string dedans style 14,25 comment convertir cette derniere en value numerique pour avoir 14.25 ?Mer [vb.net] Problème de conversion de types (String ==> Double) [ par steppenwolf ] Salut !J'ai un probl&#232;me dans mon programme avec une conversion de type. J'extrais des donn&#233;es d'un fichier texte, puis je les affecte &#224; Probleme de conversion ??? [ par neopsyko ] salut, comment je peux convertir une variable integer utilis&#233; en C# : MaVariable = 0x00004978pour etre utilis&#233; en basicmerci par avance pb de conversion de date en exportant d'access vers excel [ par peute51 ] &nbsp;Salut a tous, voila j'ai un probleme quand j'exporte mes donn&#233;es d'access vers excel le type de date change dans le fichier elle passe en v Pb de conversion de mon soft de VB6 en VB 2005 [ par zifnig ] VB 2005 me donne le message d'erreur suivant : "upgrade failed: the referenced components Richtextbox Richtextbox are missing design time licences." Probleme d'écriture dans un .txt [ par fricher ] Bonjour, j'ai un probl&#232;me pour &#233;crire la variable "Ligne" dans "Sauvegarde.txt", je ne sais pas o&#249; &#233;crire "Fichier.WriteLine Ligne Conversion d'une string [ par elmekki ] Bonjouron a textbox1 et textbox2 ,&nbsp;je veu que le text ecri en textbox1 est converti en textbox2 suivant&nbsp;une algorithme&nbsp;par exemple : si


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,390 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.