Software para Margen de Ganancia y Margen Porcentual



Software Margen de Ganancia y Margen Porcentual

A continuación de esta maravillosa aplicación sencilla para calcular los márgenes de ganancias y márgenes de ganancias tipo porcentual más utilizadas por los comerciantes.

En Venezuela, el fenómeno de los precios que suben a pesar de la especulación de precios de bienes (mercancías) y servicios debido por la subida del dólar paralelo (una es “la reina” es el MkCambios y “su nené” es el DolarToday, son los que usan los especuladores que los transan los precios a diario), solo atacan a gobiernos que no es del agrado de la derecha (solo a las que les gustan a los bursátiles financieros con tendencia alcistas) y las psiquis del venezolano lo sufren debido por las presiones y sanciones de los EE.UU contra Venezuela (a su vez exigiendo que cambiarán la forma de gobernar a los políticos del alto calado de la oposición que lo querían gobernarlos de nuevo y tal como sucedió en la Argentina como el ex Presidente Mauricio Maccri, así como también sucedió y se debió la corrupción de entre los años 1961 y 1999, y no se hicieron la realidad tal motivo: probablemente se pasaron a la élite gobernante global como son las empresas farmacéuticas y varias más como Coca-Cola o Jhonson-Jhonson Company, por ejemplo).

Nos permita calcular para dar margen de Ganancia del precio de un bien o producto (mercancía) y servicios (ejm: luz, telefonía, internet, parabólicas o TV por Cable, etc.). Así veamos el código fuente del archivo Form1.vb de nuestro proyecto:

Public Class Form1
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim mar As Single
       Dim sell As Single
       Dim cost As Single
       Dim ajus As Single
       Dim dif As Single
       Dim cien As Double

    'Número 100
    cien = 100

    'Ingreso de Datos
    cost = Val(TextCOST.Text)
    sell = Val(TextSELL.Text)

    'Calculo del Margen de Ganancia
    mar = ((sell - cost) / sell) * cien

    'Calculo del Margen Porcentual
    ajus = ((sell - cost) / cost) * cien

    'Calculo diferencia
    dif = sell - cost

    'Salida de Datos
    'TextMAR.Text = mar
    'TextPOR.Text = ajus
    'TextDIF.Text = dif

    'Redondeo del porcentaje y añadir signo dólar o peso "$" y porcentaje "%" 
    TextMAR.Text = Math.Round(Convert.ToDouble(mar), 2) & " %"
    TextPOR.Text = Math.Round(Convert.ToDouble(ajus), 2) & " %"
    TextDIF.Text = Math.Round(Convert.ToDouble(dif), 2) & " $"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    'Limpiar en los ingresos de datos
    'Para no afectar con el Error "NaN", añadir con el apóstrofe (') para taparlos
    'TextCOST.Text = " 0.0 "
    'TextSELL.Text = " 0.0"

    'Limpiar Pantalla en los resultados
    TextMAR.Text = " 0.0 "
    TextPOR.Text = " 0.0 "
    TextDIF.Text = " 0.0 "
    TextCOST.Focus()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Application.Exit()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    AboutBox1.ShowDialog()
End Sub
End Class

En la imagen arriba identificada del software sencillo, aqui la características:

* Botón Calcular: Permite calcular, colocar primero cual es su precio viejo (o anterior) de una mercancía (o producto) y de un servicio básico (ejm: plan de datos de internet o ABA móvil de Movistar o Digitel por ejemplo) y la otra cual es precio actual de una mercancía (o producto) y de un servicio básico (ejm: plan de datos de internet o ABA móvil, etc), y pulse ese botón, una vez calculados aquí en la parte de “Resultados” allí es dar la resolución de los resultados de los cálculos realizados.

* Botón Acerca de…: Nos permite la versión de la aplicación, el autor de la misma y la descripción corta del app, el año en qué publicado el app.

* Botón Limpiar: Limpiar la pantalla con los cálculos ya realizadas anteriormente, podemos dar nuevos cálculos que desee ingresando los nuevos precios a establecer según el usuario.

* Botón Salir del App: Aquí sale el aplicativo.

Descarga el software sencillo (Versión Release): https://drive.google.com/file/d/1ABkDBHU-L0wYw9idDT1m83dVQnT7F9Sg/view?usp=sharing

Descarga el software sencillo (Versión DEBUG): https://drive.google.com/file/d/10xUf6o4fVO2ka_J7bBxz9rauDQcy–rw/view?usp=sharing

Descargue el código fuente (Necesitarás Visual Basic 2008 o posterior, y también sirve con el software libre MonoDevelop): https://drive.google.com/file/d/1bdtSJOFAz75xu1t_C0IsN_3lKUrqFeBw/view?usp=sharing

Descargue desde Github: https://github.com/cesarmarcanove/Fincalculator/releases

Ver Código Fuente desde Github: https://github.com/cesarmarcanove/Fincalculator/ (Ver en los apartados: Form2.vb y Form2.designer.vb)


Responder

Por favor, inicia sesión con uno de estos métodos para publicar tu comentario:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Salir /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Salir /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Salir /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Salir /  Cambiar )

Conectando a %s

Crea un blog o un sitio web gratuitos con WordPress.com.

Subir ↑

eladiofernandez

Luz sobre sombras. Café cultural.

panolympia

Una ventana a Grecia y a sus Dioses en Español

La Era de la Conciencia

Misterios-Enigmas-Espiritualidad-Superación Personal-Salud

Seguridad PCs

El primer paso hacia la seguridad informática es el conocimiento

UNIVERSO PARALELOS

Historias, personajes únicos, relatos ficticios y un extraño hombre que nos alcanza semanalmente sus raras teorías.

Ladyportia27's Weblog

Just another WordPress.com weblog

JOY TO THE WORLD

"We Are The Ones We Have Been Waiting For"

winlux

Tips, Noticias y mas sobre los eternos rivales de la informática

elcomunista.net

Prensa Roja Internacional

Victorhck in the free world

Blog personal sobre openSUSE, GNU/Linux y software libre

Vortex: Conscious and Courageous

"Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in."

licconsuegra

Buscador de Axiomas y Paradigmas

La Esquina Roja

Desde Venezuela, mi corazón con Cuba...

Humanidad Krística

Nueva Humanidad de 5a. Dimensión

Jaque a la descubierta

Just another WordPress.com weblog

Un Bioinformatiquillo

Anotaciones informáticas de un biólogo en ciernes

A %d blogueros les gusta esto: