Ejemplos usando el Api de windows para Visual basic

170 - Mostrar espacio de una unidad en forma de gráfico

Ejemplo que utiliza el api GetDiskFreeSpaceEx y el control Microsoft MsChart para visualizar los datos de la unidad en forma gráfica

El formulario de ejemplo es como muestra la siguiente imagen, y visualiza el espacio total del disco, el espacio utilizado y el espacio libre.

vista del formulario de ejemplo para visualizar el espacio libre , el espacio utilizado de una unidad de forma gráfica

Controles

Colocar un control Microsoft Chart control 6 desde el menú componetes de vb

Un control DriveListBox para seleccionar la unidad de disco

Un control Combobox para poder cambiar el tipo de gráfico a utilizar

Agregar un módulo bas para agregar el código de la función que visualiza los datos en el MsChart

Nota: La función llamada " Mostrar_Grafico_Drive " tiene tres parámetros. El primero es la letra de la unidad a visualizar ( debe contener los dos puntos, por ejemplo c: ). El segundo es el control MsChart. Y el tercero es el estilo del gráfico

Código en el formulario

Option Explicit Private Sub Combo1_Click() ' CAmbia el tipo de gráfico al hacer seleccionar en el combo MSChart1.chartType = Combo1.ItemData(Combo1.ListIndex) End Sub Private Sub Drive1_Change() ' Muestra el gráfico en el MsChart 'Se le pasa la unidad, el control MsChart y el estilo del gráfico Call Mostrar_Grafico_Drive(Left(Drive1.Drive, 3), _ MSChart1, _ Combo1.ItemData(Combo1.ListIndex)) End Sub Private Sub Form_Load() Dim i As Integer ' Titulo del Gráfico MSChart1.TitleText = " Información de la unidad de disco " MSChart1.RowCount = 1 'dos columnas MSChart1.ColumnCount = 2 ' Para no seleccionar las partes de los gráficos con el mouse MSChart1.AllowSelections = False ' Muestra la leyenda MSChart1.ShowLegend = True ' Llena el combo con los estilos de los gráficos With Combo1 .AddItem "VtChChartType2dArea" .ItemData(0) = CInt(VtChChartType2dArea) .AddItem "VtChChartType2dBar" .ItemData(1) = CInt(VtChChartType2dBar) .AddItem "VtChChartType2dCombination" .ItemData(2) = CInt(VtChChartType2dCombination) .AddItem "VtChChartType2dLine" .ItemData(3) = CInt(VtChChartType2dLine) .AddItem "VtChChartType2dPie" .ItemData(4) = CInt(VtChChartType2dPie) .AddItem "VtChChartType2dStep" .ItemData(5) = CInt(VtChChartType2dStep) .AddItem "VtChChartType2dXY" .ItemData(6) = CInt(VtChChartType2dXY) .AddItem "VtChChartType3dArea" .ItemData(7) = CInt(VtChChartType3dArea) .AddItem "VtChChartType3dBar" .ItemData(8) = CInt(VtChChartType3dBar) .AddItem "VtChChartType3dCombination" .ItemData(9) = CInt(VtChChartType3dCombination) .AddItem "VtChChartType3dLine" .ItemData(10) = CInt(VtChChartType3dLine) .AddItem "VtChChartType3dStep" .ItemData(11) = CInt(VtChChartType3dStep) ' Selecciona el gráfico circular ( VtChChartType2dPie ) .ListIndex = 4 End With Call Mostrar_Grafico_Drive("c:\", MSChart1, VtChChartType2dPie) End Sub

Código en un módulo bas

Option Explicit 'Constantes Const Kb As Double = 1024 Const Mb As Double = 1024 * Kb Const Gb As Double = 1024 * Mb Const Tb As Double = 1024 * Gb ' Declaración del API GetDiskFreeSpaceEx para _ obtener la información del espacio de uan unidad Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" ( _ ByVal lpRootPathName As String, _ lpFreeBytesAvailableToCaller As LARGE_INTEGER, _ lpTotalNumberOfBytes As LARGE_INTEGER, _ lpTotalNumberOfFreeBytes As LARGE_INTEGER) As Long 'UDT que requiere el APi GetDiskFreeSpaceEx Private Type LARGE_INTEGER lowpart As Long highpart As Long End Type 'Estructura de la función de ajuste _ que retorna la función con los datos de la unidad Type T_Info Capacidad As String Libre As String Usado As String End Type ' Convierte los datos devueltos por el Api .. al valor en bytes de la unidad Private Function Entero_a_Double(l As Long, h As Long) As Double Dim ret As Double ret = h If h < 0 Then ret = ret + 2 ^ 32 ret = ret * 2 ^ 32 ret = ret + l If l < 0 Then ret = ret + 2 ^ 32 Entero_a_Double = ret End Function 'Función que formatea los datos a _ bytes, Kilobytes, megabytes y gigabytes '******************************************************* Private Function Size(ByVal n_bytes As Double) As String If n_bytes < Kb Then Size = Format$(n_bytes) & " bytes" ElseIf n_bytes < Mb Then Size = Format$(n_bytes / Kb, "0.00") & " KB" ElseIf n_bytes < Gb Then Size = Format$(n_bytes / Mb, "0.00") & " MB" Else Size = Format$(n_bytes / Gb, "0.00") & " GB" End If End Function ' Función que retorna el espacio libre, usado y el _ espacio total de un disco - unidad Function Mostrar_Grafico_Drive(Drive As String, _ MsChart As MsChart, _ Estilo As VtChChartType) As T_Info On Error GoTo errSub Dim Avalables As LARGE_INTEGER, Total As LARGE_INTEGER Dim Libres As LARGE_INTEGER, dTotal As Double, dLibre As Double Dim ret As Long 'Llamada al api para retornar los valores ret = GetDiskFreeSpaceEx(Drive, Avalables, Total, Libres) 'Conversión a bytes del espacio total y el espacio libre dTotal = Entero_a_Double(Total.lowpart, Total.highpart) dLibre = Entero_a_Double(Libres.lowpart, Libres.highpart) ' retorna a la función los valores convertidos a String Mostrar_Grafico_Drive.Capacidad = Size(dTotal) Mostrar_Grafico_Drive.Libre = Size(dLibre) Mostrar_Grafico_Drive.Usado = Size(dTotal - dLibre) ' Leyenda o título del MsChart ( muestra la capacidad de la unidad ) MsChart.RowLabel = "Capacidad de la unidad: " & _ Drive & " " & Mostrar_Grafico_Drive.Capacidad 'Columna 1 ( para el espacio libre ) MsChart.Column = 1 MsChart.Data = dLibre MsChart.ColumnLabel = " Espacio libre : " & Mostrar_Grafico_Drive.Libre 'Columna 2 ( para el espacio utilizado ) MsChart.Column = 2 MsChart.Data = dTotal - dLibre MsChart.ColumnLabel = " Espacio usado : " & Mostrar_Grafico_Drive.Usado ' ASigna el estilo del gráfico MsChart.chartType = Estilo Exit Function 'Error errSub: MsgBox Err.Description, vbCritical End Function

Visualizar espacio de unidad dibujando con los métodos gráficos

Ejemplo similar al anterior, pero en ves de usar el control Mschart de vb, utiliza el método Circle para dibujar el gráfico estadístico que muestra el espacio utilizado del drive y el espacio libre.

La función que dibuja el círculo requiere los siguientes parámetros:

Dibujar_Circulo "valor Maximo", "valor", "El radio", "Color de fondo", "Color del circulo", "color del valor", "Objeto donde dibujar la gráfica - form o PictureBox"

Descargar código fuente

Formulario de ejemplo

Mostrar el porcentaje para cada porción de un gráfico circular

Ejemplo de la MSDN, que muestra como poder establecer el valor en porcentaje para cada parte del gráfico, como se ve en esta captura :

Descargar ejemplos

Recursos vb 6.0 - Enlaces relacionados

Recursos visual basic.net

Buscar en Recursos vb