begin process at 2012 02 16 09:53:07
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Trucs & Astuces

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

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


 Information sur la source

Note :
7,67 / 10 - par 3 personnes
7,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Trucs & Astuces Classé sous :conversion, octet, kilo, mega, giga Niveau :Débutant Date de création :24/08/2001 Vu :28 664
Auteur : processus

Ecrire un message privé
Site perso
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)


 Sources du même auteur

Source avec Zip Source avec une capture MP3 INDEX: GESTIONNAIRE DE FICHIERS MP3
Source avec Zip Source avec une capture ENVOYER OUTLOOK EXPRESS OU OUTLOOK DANS LA SYSTRAY
Source avec Zip Source avec une capture #PROGRAMMATION LOG CLEANER (CONVERSION D'UN FICHIER .LOG MIR...
Source avec Zip Source avec une capture DEPUIS QUAND LE SYSTÈME EST T'IL CHARGÉ ?
Source avec Zip UN PETIT SLIDESHOW RAPIDE
Toutes les sources de processus

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna
Toutes les sources de la catégorie Trucs & Astuces

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
API :CONVERTIR DES OCTETS EN KO,MO,GO EN FONCTION DE LA VALE... par MasterHack
Source avec Zip Source avec une capture TRADUCTEUR VB6.VBP EN VB5.VBP par joro
CONVERTIR DES OCTETS EN KO,MO, ET GO par vbtom

Commentaires et avis

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.

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 données (octet ?) [ par C35 ] Bonjour, Je récupère des informations d'une imprimante (snmp). Les valeurs récupérées sont sous le forme d'octet (enfin je pense). Les valeurs à gauc Conversion d'un programme VB6 en Express 2008 [ par guilleto ] Bonjour à toutes et tous, Je pense que ma question va en surprendre plus d'un mais tant pis. Est-il possible d'adapter un programme en VB6 en 2008 d conversion d un access vers du .net [ par milimouse ] Bonjour dans le cadre de mes etudes j'ai du cree une application en access et il m'a etait demander de la transcodé en .net . Je recherche l'aide de Conversion code 16 bit en 32 bit? [ par Stryge69 ] Bonjour, J'ai le code source d'un programme qui a été fait avec VB3 16 bit, et je souhaite le faire fonctionner sous un enviroment Windows 64 bits... Modbus [ par valviet ] Bonjour, Je communique avec un automate via le protocole ModBus. j'envoie donc des trames et l'automate me répond, j'affiche la réponse de l'automate conversion miniscule/majuscule [ par caunney ] Salut! je suis un debutant en programmation sur VB .NET. je voudrai convertir en majuscule toutes les saisies faites en miniscules dans un formulaire. urgent vb6 vb6 conversion [ par sam3060 ] salut tt le monde je veux mettre un label.caption qui contient normalement un type text dans une base de donné sql server dans un champ numeric . leb Conversion de coordonnées Lambert Zone en WGS84 [ par Euskadia ] Je suis en train d'essayer de mettre au point un logiciel pour la préparation de randonnées et je n'arrive pas à trouver une application de conversion


Nos sponsors


Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Renewable Energy is Within ReachPhoto Beautiful woman in a bikini meditating on the beach
Photo Landscape of a Sunrise in Kauai Hawaii 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,622 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)