Promediar cada 2 filas en Datagridview

-
Un saludo programadores, en este post les presento este tema que algunos casos, requerimos que un promedio de un columna salga en particular de dos filas consiguientes. naturalmente obtener el promedio  de una columna n  o de un  grupo de filas es sencillo, pero un poco mas difícil es, en este caso de una serie de valores en una columna dada, obtengamos promedio  de cada 2 valores.


Gráficamente de esta manera,

Creo que quedo mas que entendido, entonces presento el código completo:

Public Class Form1
    Dim cantidad As Integer
    Dim valor As Double
    Dim subtotal As Double
    Private Sub Btnsumar_Click(sender As Object, e As EventArgs) Handles Btnsumar.Click
        Try
            cantidad = Val(InputBox("Ingresar cantidad Nº"))
            valor = Val(InputBox("Ingresar valor"))
            subtotal = cantidad * valor
            '   promediar_porfila()
            rellenargrid()
            desplazar_seleccion(grid1)
        Catch ex As KeyNotFoundException
            MessageBox.Show("Error de concurrencia:" & vbCrLf & ex.Message)
        End Try
    End Sub
    Public Sub desplazar_seleccion(grid As DataGridView)
        Dim jx As Integer = grid.Rows.Count - 1
        grid.Rows(jx).Selected = True
        grid.CurrentCell = grid.Rows(jx).Cells(0)
    End Sub
    Public Function promediar_porfila()
        Dim suma2 As Double
        Dim p As Integer = grid1.CurrentRow.Index
        Dim t As Integer = grid1.Rows.Count 't + 1
        Dim promedio_fila As Double
        Try
            If t = 0 Then
                MsgBox("no hay filas para calcular")
            Else
                If grid1.Rows.Count Mod 2 = 0 Then  'realiza el proceso cada filas pares
                    For m = p To t - 1
                        suma2 = suma2 + CDbl(grid1.Item(3, m).Value)
                        grid1.Item(4, grid1.CurrentRow.Index + 1).Style.BackColor = Color.LightCyan
                    Next
                Else
                End If
                promedio_fila = suma2 / 2   ' hace el promedio
                suma2 = 0     ' resetea a cero la suma en memoria,para tomar nueva partida
            End If
            Return promedio_fila
        Catch ex As DivideByZeroException
            MsgBox("error")
        End Try
    End Function
    Sub rellenargrid()
        Try
            Dim r As Integer
            grid1.Rows.Add(1)
            r = grid1.Rows.Count - 1
            grid1.Item(0, r).Value = r + 1
            grid1.Item(1, r).Value = Format(cantidad, "0.00")
            grid1.Item(2, r).Value = Format(valor, "0.00")
            grid1.Item(3, r).Value = Format(subtotal, "0.00")
            grid1.Item(4, r).Value = Format(promediar_porfila, "0.00")
        Catch ex As Exception
        End Try
    End Sub
End Class


 Mi captura

El ejemplo es un típico calculo de interfaz de punto de venta donde  colocas la cantidad, el valor unitario del producto y te calcula el subtotal y sobre este cada dos filas el promedio, la cual se colorea en cian 


No vemos en otra publicación!


Comentarios

Publicar un comentario

Entradas populares de este blog

Imprimir directamente ReportViewer a impresora predeterminada

-
Imagen
                                                                                                                    MODIFICADO 07-10-2015 Un tema muy importante y picante en algunos blogs y foros es éste que les expongo, sin embargo adaptarlo no es facil, el hecho de verlo como reporte no es suficiente en aspectos donde ya se conoce y se quiere omitir dicho paso, siendo así me encamine el hacer un ejemplo que satisfaga estas necesidades como la de imprimir directamente a la impresora predeterminada de nuestra casa o trabajo.                                                               Con un ejemplo ya publicado en este post: http://jossm03.blogspot.com/2015/08/exportar-reporviewer-pdf-de.html   hice unas mejoras y tomando como base los codigos expuestos en el foro msn:  https://social.msdn.microsoft.com/Forums/es-ES/ede6c72e-444a-485d-b44e-28921929d631/impresion-de-reportes-rdlc-con-y-sin-vista-previa-en-winform?forum=vcses Con ajustes y adaptaciones les presento la  clas
Leer más

DevComponents DotnetBar 12.5.0.2

-
Imagen
Devcomponents DotNetBar es una suite de controles muy útiles para mejorar la apariencia y estilo mejorado de nuestras aplicaciones. Actualmente la versión bordea la v12.5, y tiene una  excelente afinidad con Microsoft Visual Studio 2005, 2008, 2010, 2012, 2013, 2015 Comunity 2013 y 2015  La Suite de DotNetBar para Windows Forms es la caja de herramientas de más de 86   componentes asombrosos para crear la interfaz de usuario profesional con facilidad utilizando Visual Studio 2005 hasta el 2015. Desde hace más de 10 años DotNetBar está ayudando a los desarrolladores   a crear elegantes aplicaciones profesionales de Windows Forms ( WinForms),  interfaces de usuario con una facilidad incomparable . Desde la version 10.4 aparece el ribbon tipo Metro,  pasando por version 11.3, 11.7, 11.8, 12, 12.1, 12,4  y ahora en la versión 12.5  incluye el ribbon tipo Office 2016, Office Mobile style 2014 y Office 2013 y otros controles adicionales  integrados en este 201
Leer más

Metodo Iterativo Gauss-Seidel en Visual Basic

-
Imagen
Un cordial saludo programadores y matemáticos a fin. En esta entrega hacemos mención a la resolución de ecuaciones simultaneas por métodos iterativos y es así que el método de Gauss-Seidel se acopla muy bien como una mejora al método de Jacobi, sin embargo la condicion fundamental  que su diagonal principal debe ser mayor a las demas. Por todo lo expresado aqui presento un poco de teoria tomado de   http://www.jldelafuenteoconnor.es/Clase_itera_2016.pdf  en el cual se expresan algunos métodos más pero para este tema analizaremos solamente el mencionado. La implementación en visual Basic 2015 Module Module1 Dim A(500, 500) As Single Dim B(500, 500) As Single Dim X(500, 500) As Single Dim n, iter As Integer Dim cError, Tol, sum As Double Sub Main() Console.BackgroundColor = ConsoleColor.White Console.Clear() Console.ForegroundColor = ConsoleColor.Black Console.Title = "METODO ITERATIVO GAUSS-SEIDEL"
Leer más