| |
Fortgeschrittene ProgrammierungFreier Speicherplatz formatiert | | | Autor: seb-soft | Datum: 07.02.16 14:39 |
| Hallo, schönen Sonntag allen.
Ich möchte in VB6 den freien Speicherplatz eines Laufwerks formatiert ausgeben. Je nach größe automatisch nach Bytes, KB, MB, GB, TB.
Der Wert ist bereits in der variablen nbytes vorhanden.
Vielen Dank
Gruss seb
Beitrag wurde zuletzt am 07.02.16 um 14:47:57 editiert. | |
Re: Freier Speicherplatz formatiert | | | Autor: Manfred X | Datum: 07.02.16 15:10 |
| Hallo!
Ich würde vermuten wollen, man dividiert die Byteanzahl in "nBytes"
(ganzzahlig) durch 1024 um einen geeigneten Wert in KB zu erhalten.
Sollen Bytezahlen, die unter 1024 liegen als 0 KB ausgegeben werden?
Oder soll eine irgendeine Aufrundung (z.B. ab 512 Bytes auf 1 KB) erfolgen?
In dem Fall muß noch eine Modulo-Division erfolgen und anhand des Ergebnisses
ggf. eine Aufrundung vorgenommen werden. | |
Re: Freier Speicherplatz formatiert | | | Autor: Zardoz | Datum: 07.02.16 16:27 |
| Hallo seb,
probier' mal dies:
Dim nBytes#, N#
nBytes = 3848290697216#
N = Int(Log(nBytes) / Log(1024))
MsgBox CStr(nBytes / 1024 ^ N) & " " & _
Choose(N + 1, "Byte", "kB", "MB", "GB", "TB", "PB", "EB", "ZB") Um die Nachkommastellen zu begrenzen, CStr durch Format$ oder
FormatNumber ersetzen:
http://www.vbarchiv.net/commands/cmd_formatnumber.html
Gruss,
Zardoz | |
Re: Freier Speicherplatz formatiert | | | Autor: seb-soft | Datum: 07.02.16 18:31 |
| Hallo, vielen Dank erstmal.
Sieht soweit sehr gut aus, jedoch bekomme ich hin und wieder einen "Überlauf-Fehler" in dieser Zeile:
MsgBox CStr(nBytes / 1024 ^ N) & " " & _
Choose(N + 1, "Byte", "kB", "MB", "GB", "TB", "PB", "EB", "ZB") N = 3
nbytes = 67620769792
komisch, daß der Fehler nicht immer auftritt. Und seltsam ist auch, daß ich das Programm mit F5 weiter laufen lassen kann. Dann läuft das Prog ganz normal weiter !
Gruss
Beitrag wurde zuletzt am 07.02.16 um 18:35:49 editiert. | |
Re: Freier Speicherplatz formatiert | | | Autor: Zardoz | Datum: 07.02.16 19:16 |
| Hallo seb,
ich kann den Fehler nicht nachvollziehen. Vielleicht hast
du ein anderes OS, eine andere CPU, eine andere VB-Version,
oder einen anderen Service-Pack oder du hast was am Code
geändert (z.B. den Variablentyp geändert).
Probier's mal mit dieser Änderung:
MsgBox CStr(nBytes / 1024# ^ N) ... Gruss,
Zardoz | |
Re: Freier Speicherplatz formatiert | | | Autor: seb-soft | Datum: 08.02.16 00:25 |
| Hallo, vielen Dank
Damit scheints zu funktionieren, habs jetzt ca 30 mal ohne Fehlermeldung getestet.
Gruss
seb | |
Re: Freier Speicherplatz formatiert | | | Autor: Manfred X | Datum: 08.02.16 08:51 |
| Du kannst es auch mal ganzzahlig probieren - Variant-Untertyp "Decimal".
Dim bytes As Variant
bytes = "12345678901234567890"
Dim kilo As Variant
kilo = DDIV(bytes, 1024)
Dim rest As Variant
rest = DMOD(bytes, 1024)
If rest >= 512 Then kilo = kilo + 1 Den Code der Operatoren DDIV und DMOD findest Du hier:
http://www.vbarchiv.net/tipps/details.php?id=1278 | |
Re: Freier Speicherplatz formatiert | | | Autor: seb-soft | Datum: 09.02.16 12:07 |
| Danke Dieter
Gruss Dieter | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|