jueves, 31 de diciembre de 2015

Guia de ejercicios con arreglos - PSeInt

sábado, 19 de diciembre de 2015

Ejercicio PSeInt: Calcular los N numeros primos

Proceso numeros_primos
    Definir i, k, g, j, termino como entero;

    Escribir "Ingrese el numero de termino";
    Leer termino;

    i<-0;
    k<-1;
    Repetir
        g<-0;
        //Este "para" es para calcular si el numero es primo o no
        Para j<-1 Hasta k Con Paso 1 Hacer
            Si k mod j = 0 Entonces
                g<-g+1;
            FinSi
        FinPara

        //Si g tiene valor 2 entonces si es primo
        Si g=2 Entonces
            i<-i+1;
            Escribir "Numero primo numero ",i, " = ",k;
        FinSi

        k<-k+1;

    Hasta Que i=termino
FinProceso

viernes, 18 de diciembre de 2015

Archivos Bootstrap - Curso FalconMasters

DESCARGAR

lunes, 7 de diciembre de 2015

Todo el mundo deberia saber programar

Curso de Bootstrap 3 - de FalconMaster

Crear un SlideShow con Bootstrap

Codigo:
_______________________

<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <title>Slideshow</title>
    <link rel="stylesheet" href="css/bootstrap.min.css">
    <meta name="viewport" content="width=device-width, user-scalable=no, initial-scale=1.0, maximum-scale=1.0, minimum-scale=1.0">
</head>
<body>
    <div class="container">
        <br>

        <div class="col-md-12">
            <div id="carousel-1" class="carousel slide" data-ride="carousel">
                
                <ol class="carousel-indicators">
                    <li data-target="#carousel-1" data-slide-to="0" class="active"></li>
                    <li data-target="#carousel-1" data-slide-to="1"></li>
                    <li data-target="#carousel-1" data-slide-to="2"></li>
                </ol>

                
                <div class="carousel-inner" role="listbox">
                    <div class="item active">
                        <img src="http://lorempixel.com/1200/400/" class="img-responsive" alt="">
                        <div class="carousel-caption hidden-xs hidden-sm">
                            <h3>Este es nuestro Slide #1</h3>
                            <p>Lorem ipsum dolor sit amet.</p>
                        </div>
                    </div>

                    <div class="item">
                        <img src="http://lorempixel.com/1200/400/city/2" class="img-responsive" alt="">
                        <div class="carousel-caption hidden-xs hidden-sm">
                            <h3>Este es nuestro Slide #2</h3>
                            <p>Lorem ipsum dolor sit amet.</p>
                        </div>
                    </div>

                    <div class="item">
                        <img src="http://lorempixel.com/1200/400/city/1" class="img-responsive" alt="">
                        <div class="carousel-caption hidden-xs hidden-sm">
                            <h3>Este es nuestro Slide #3</h3>
                            <p>Lorem ipsum dolor sit amet.</p>
                        </div>
                    </div>
                </div>

                
                <a href="#carousel-1" class="left carousel-control" role="button" data-slide="prev">
                    <span class="glyphicon glyphicon-chevron-left" aria-hidden="true"></span>
                    <span class="sr-only">Anterior</span>
                </a>

                <a href="#carousel-1" class="right carousel-control" role="button" data-slide="next">
                    <span class="glyphicon glyphicon-chevron-right" aria-hidden="true"></span>
                    <span class="sr-only">Siguiente</span>
                </a>

            </div>
        </div>
    </div>

    <script src="https://code.jquery.com/jquery-latest.js"></script>
    <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.2/js/bootstrap.min.js"></script>
</body>
</html>

______________________________

Descargar

lunes, 2 de noviembre de 2015

Ejemplos de analisis FODA

Ejemplos de Analisis FODA en empresas

Como hemos visto, el análisis foda es una herramienta analítica que sirve para examinar las Fortalezas, Oportunidades, Debilidades y Amenazas de una empresa, organización, país, proceso, política, etc...

Para representarlo mejor, hemos escogido algunas empresas al azar para presentar el Análisis FODA y que usted pueda aplicar esta técnica en su propio negocio o proyecto.

Ejemplo: Análisis FODA de Coca-Cola

Fuerzas de Coca-Cola

Mayor cuota de mercado en todo el mundo en el campo de las bebidas no alcohólicas
Campañas de marketing y publicidad enormes
Mayor cadena de distribución de bebidas
Clientela fidelizada
Poder para negociar los precios con los proveedores
Fuerte responsabilidad social de la empresa

Oportunidades de Coca-Cola

Crecimiento en el consumo de agua embotellada
Crecimiento de la demanda de alimentos y bebidas saludables
Crecimiento en el consumo de bebidas no alcohólicas en los mercados emergentes
Expansión a través de adquisiciones

Debilidades de Coca-Cola

Concentración en la producción de bebidas carbonatadas
Portafolio de productos poco diversificado
Grandes deudas por adquisiciones
El fracaso de la introducción de nuevas marcas
Posesión de marcas que no aportan suficientes ingresos

Amenazas de Coca-Cola

Cambio en los hábitos de consumo
La escasez de agua
Dolar demasiado fuerte
Reglamentaciones para imprimir información que puede ser comprometedora en las etiquetas
Disminución de la utilidad bruta y neta
Competencia de las marcas de PepsiCo
Mercado de bebidas carbonatadas saturado

Principales competidores de Coca-Cola

PepsiCo
Dr Pepper Snapple Group
Nestlé
Cadbury Schweppes

Ejemplo: Análisis FODA de PSA (Peugeot Citroën)

Fortalezas del Grupo PSA Peugeot Citroën

Primer fabricante de automóviles en Francia y segundo en Europa
Dos marcas que gozan de una gran reputación y notoriedad
Posibilidad de sinergias en la producción, investigación y desarrollo con fabricantes como GM, BMW y Mitsubishi
Actividad financiera del grupo muy rentable
Introducción de vehículos eléctricos e híbridos

Oportunidades del Grupo PSA Peugeot Citroën

Asociaciones establecidas para reducir los costos de producción, investigación y desarrollo
Establecimiento de alianzas para entrar en nuevos mercados
Mercado del automóvil en crecimiento en países emergentes
Gusto vivo por los vehículos híbridos

Debilidades del Grupo PSA Peugeot Citroën

Grupo poco conocido fuera de Europa
El Grupo PSA está en sobreproducción
Gama de productos muy orientada en los vehículos de nivel de entrada

Amenazas del Grupo PSA Peugeot Citroën

Competencia cada vez más fuerte
Desaceleración del mercado del automóvil en los países desarrollados
Aumento de precios de las materias primas
Aumento en los costos de financiamiento

Principales competidores del Grupo PSA Peugeot Citroën

Volkswagen
Renault - Nissan
Toyota
Fiat
Ford

Estrategia Empresarial: Cómo hacer un análisis FODA (SWOT)

Ejemplo de Análisis FODA Para Una Empresa, Persona, Profesionales y Emprendedores

Libro: Ingeniería de Software - Ian Sommerville 7a edición

Link: http://zeus.inf.ucv.cl/~bcrawford/Modelado%20UML/Ingenieria%20del%20Software%207ma.%20Ed.%20-%20Ian%20Sommerville.pdf

viernes, 9 de octubre de 2015

VB.NET - Windows Form - Random sin repetir

Codigo:

Public Class Form1
    Dim rnd As New Random
    Dim numero As Integer
    Dim arreglo(14) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Limpiamos el listbox
        ListBox1.Items.Clear()
        'Vamos a generar 14 numeros aleatorios
        For i = 1 To 14
            'Generamos numero aleatorio, verificamos si ya fue generado previamente
            'De ser así volvemos a generarlo nuevamente, para esto usamos la funcion booleana Existe y le pasamos
            'como parámetro de entrada el número aleatorio generado. Por lo tanto no saldrá de este ciclo mientras
            'el número se encuentre repetido dentro del arreglo que definimos para estos efectos
            Do
                numero = rnd.Next(1, 33) 'Numero aleatorio comprendido entre 1 y 32
            Loop While (Existe(numero) = True)

            'Al llegar a este punto ya tenemos la certeza que el numero no esta repetido
            'por lo tanto lo almacenamos en el arreglo y tambien lo mostramos en el listbox
            arreglo(i) = numero
            ListBox1.Items.Add(numero)
        Next
    End Sub

    Function Existe(ByVal numero As Integer) As Boolean
        'Se recorre el arreglo para verificar si el numero generado existe o no
        For i = 0 To arreglo.Length - 1
            If numero = arreglo(i) Then
                Return True 'El numero existe
            End If
        Next
        Return False 'Retornará falso si no encuentra el numero dentro del arreglo
    End Function

End Class

_________________________________

==>DESCARGAR<==

sábado, 3 de octubre de 2015

VB.NET - Windows Form - Juego "Tic tac toe"

Hecho en Visual Studio 2010

Código:
___________________________________

Public Class Form1
    Dim i As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If i Mod 2 = 0 Then
            Button1.Text = "0"
        Else
            Button1.Text = "X"
        End If

        If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button1.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button1.Text = Button4.Text And Button1.Text = Button7.Text And Button4.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button1.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button1.Text = Button5.Text And Button1.Text = Button9.Text And Button5.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button1.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button1.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If i Mod 2 = 0 Then
            Button2.Text = "0"
        Else
            Button2.Text = "X"
        End If

        If Button2.Text = Button1.Text And Button2.Text = Button3.Text And Button1.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button2.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button2.Text = Button5.Text And Button2.Text = Button8.Text And Button5.Text = Button8.Text Then
            MsgBox("El ganador es: " & Button2.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button2.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If i Mod 2 = 0 Then
            Button3.Text = "0"
        Else
            Button3.Text = "X"
        End If

        If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button3.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button3.Text = Button5.Text And Button3.Text = Button7.Text And Button5.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button3.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button3.Text = Button6.Text And Button3.Text = Button9.Text And Button6.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button3.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button3.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If i Mod 2 = 0 Then
            Button4.Text = "0"
        Else
            Button4.Text = "X"
        End If

        If Button4.Text = Button1.Text And Button4.Text = Button7.Text And Button1.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button4.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button4.Text = Button5.Text And Button4.Text = Button6.Text And Button5.Text = Button6.Text Then
            MsgBox("El ganador es: " & Button4.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button4.Enabled = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If i Mod 2 = 0 Then
            Button5.Text = "0"
        Else
            Button5.Text = "X"
        End If

        If Button5.Text = Button2.Text And Button5.Text = Button8.Text And Button2.Text = Button8.Text Then
            MsgBox("El ganador es: " & Button5.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button5.Text = Button4.Text And Button5.Text = Button6.Text And Button4.Text = Button6.Text Then
            MsgBox("El ganador es: " & Button5.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button5.Text = Button1.Text And Button5.Text = Button9.Text And Button1.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button5.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button5.Text = Button3.Text And Button5.Text = Button7.Text And Button3.Text = Button7.Text Then
            MsgBox("El ganador es: " & Button5.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button5.Enabled = False
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If i Mod 2 = 0 Then
            Button6.Text = "0"
        Else
            Button6.Text = "X"
        End If

        If Button6.Text = Button3.Text And Button6.Text = Button9.Text And Button3.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button6.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button6.Text = Button5.Text And Button6.Text = Button4.Text And Button4.Text = Button5.Text Then
            MsgBox("El ganador es: " & Button6.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button6.Enabled = False
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If i Mod 2 = 0 Then
            Button7.Text = "0"
        Else
            Button7.Text = "X"
        End If

        If Button7.Text = Button1.Text And Button7.Text = Button4.Text And Button4.Text = Button1.Text Then
            MsgBox("El ganador es: " & Button7.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button7.Text = Button5.Text And Button7.Text = Button3.Text And Button5.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button7.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button7.Text = Button8.Text And Button7.Text = Button9.Text And Button8.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button7.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button7.Enabled = False
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If i Mod 2 = 0 Then
            Button8.Text = "0"
        Else
            Button8.Text = "X"
        End If

        If Button8.Text = Button2.Text And Button8.Text = Button5.Text And Button2.Text = Button5.Text Then
            MsgBox("El ganador es: " & Button8.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button8.Text = Button7.Text And Button8.Text = Button9.Text And Button7.Text = Button9.Text Then
            MsgBox("El ganador es: " & Button8.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button8.Enabled = False
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If i Mod 2 = 0 Then
            Button9.Text = "0"
        Else
            Button9.Text = "X"
        End If

        If Button9.Text = Button8.Text And Button9.Text = Button7.Text And Button7.Text = Button8.Text Then
            MsgBox("El ganador es: " & Button9.Text)
            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button9.Text = Button5.Text And Button9.Text = Button1.Text And Button5.Text = Button1.Text Then
            MsgBox("El ganador es: " & Button9.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        If Button9.Text = Button6.Text And Button9.Text = Button3.Text And Button6.Text = Button3.Text Then
            MsgBox("El ganador es: " & Button9.Text)

            Button1.Enabled = False
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Enabled = False
            Button5.Enabled = False
            Button6.Enabled = False
            Button7.Enabled = False
            Button8.Enabled = False
            Button9.Enabled = False
        End If

        i = i + 1
        Button9.Enabled = False
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Application.Restart()
    End Sub
End Class

_________________________________________

==>DESCARGAR<==

domingo, 27 de septiembre de 2015

VB.Net 2010 - Windows Form - Arreglo de ventas

Solución

Imagen:

Código:

Public Class Form1
    'El arreglo "matriz" es para almacenar los meses
    Dim matriz(12) As String
    'El arreglo "ventas" es para almacenar las ventas
    Dim ventas(12) As Double
    Dim a As Double = 0
    Dim i As Double = 0
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Cargar matriz
        matriz(0) = "Enero"
        matriz(1) = "Febrero"
        matriz(2) = "Marzo"
        matriz(3) = "Abril"
        matriz(4) = "Mayo"
        matriz(5) = "Junio"
        matriz(6) = "Julio"
        matriz(7) = "Agosto"
        matriz(8) = "Septiembre"
        matriz(9) = "Octubre"
        matriz(10) = "Noviembre"
        matriz(11) = "Diciembre"

        TextBox1.Text = matriz(a)
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            If a <> 12 Then
                ventas(i) = TextBox2.Text
                TextBox2.Clear()
                a += 1
                i += 1
                If a = 12 Then
                    TextBox1.Clear()
                    TextBox2.Clear()
                    TextBox1.Enabled = False
                    TextBox2.Enabled = False
                End If
                TextBox1.Text = matriz(a)
            End If
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim j As Double

        For j = 0 To 11
            ListBox1.Items.Add(ventas(j))
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim max, j As Double
        Dim mes As String

        max = ventas(0)
        For j = 1 To 11
            If ventas(j) > max Then
                max = ventas(j)
                mes = matriz(j)
            End If
        Next

        TextBox3.Clear()
        TextBox3.Text = mes
    End Sub

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

        max = ventas(0)
        For j = 1 To 11
            If ventas(j) > max Then
                max = ventas(j)
            End If
        Next

        TextBox3.Clear()
        TextBox3.Text = "$ " & max
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim suma, j As Double
        suma = 0

        For j = 0 To 11
            suma = suma + ventas(j)
        Next

        TextBox3.Clear()
        TextBox3.Text = "$ " & suma
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim prom, suma, j As Double
        suma = 0

        For j = 0 To 11
            suma = suma + ventas(j)
        Next

        prom = suma / i

        TextBox3.Clear()
        TextBox3.Text = "$ " & prom
    End Sub
End Class

==>DESCARGAR<==

lunes, 21 de septiembre de 2015

VB.NET Windows Form - Ejercicio con List Box

Realizar un programa que haga:
o Que vaya insertando los elementos que escribimos en la caja de
texto bajo el label “Añadir:” dentro de un Listbox, cada vez que
se presione el botón Añadir.

o Cuando insertemos un elemento debe limpiar el cuadro de texto.

o Cuando seleccionemos un elemento del Listbox debe aparecer
en el cuadro de texto bajo el label "Seleccionado ahora".

o Poner tres botones, uno para Eliminar el elemento seleccionado,
uno para Eliminar todos y otro para Terminar el programa.

o Asociar iconos a los botones, que sean contextuales a la acción
que realizan.

o La ventana debe llevar por título “Aplicación con Listbox” y
debe tener un icono asociado.

Imagen:

Código:

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        'Esto hace que el elemento del ListBox aparezca en el TextBox2
        TextBox2.Text = ListBox1.SelectedItem
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Esto hace que los elementos de TextBox1 vayan al ListBox
        ListBox1.Items.Add(TextBox1.Text)
        TextBox1.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Esto borra el elemento seleccionado
        ListBox1.Items.Remove(ListBox1.SelectedItem)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Esto borra todos los elementos del ListBox
        ListBox1.Items.Clear()
    End Sub

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

==> DESCARGAR <==

lunes, 14 de septiembre de 2015

VB 2010 Windows Form - Crear una calculadora simple

viernes, 4 de septiembre de 2015

Ejercicio VB.NET: Calcular descuento

Dado un monto calcular el descuento considerando que por encima de 20000 el descuento es el 10% y por debajo de 20000 el descuento es el 2%.

Solución:

Module Module1

Sub Main()
Dim monto, descuento As Double

Console.WriteLine("Ingrese el monto")
monto = Console.ReadLine

If monto > 20000 Then
descuento = monto * 90 / 100
Console.WriteLine("El monto con un 10% de descuento es de: $" & descuento)
Else
descuento = monto * 98 / 100
Console.WriteLine("El monto con un 2% de descuento es de: $" & descuento)
End If

Console.ReadKey()
End Sub

End Module

Ejercicio VB.NET: Crear la factura de una compra calculando el IVA y un descuento

Escribir el programa que permita emitir la factura correspondiente a una compra de un artículo determinado, del que se adquieren una o varias unidades, el ingreso termina cuando se digita como precio del articulo un valor cero. El IVA es del 19% y si el precio bruto (precio venta más IVA) es mayor de $18000 se debe realizar un descuento del 5%.

Solución:

Module Module1

    Sub Main()
        Dim precio, suma, bruto, descuento As Double

        suma = 0
        Console.WriteLine("Para detenet el ciclo ingrese un 0")
        Do
            Console.WriteLine("Ingrese el precio del producto")
            precio = Console.ReadLine
            suma = suma + precio
        Loop While precio <> 0

        bruto = suma * 119 / 100

        If bruto <= 18000 Then
            Console.WriteLine("El valor de la compra es de: $" & bruto)
        Else
            descuento = bruto * 95 / 100
            Console.WriteLine("El valor de la compra es de: $" & descuento)
        End If

        Console.ReadKey()
    End Sub

End Module

Ejercicio VB.NET: Calcular horas trabajadas y horas extras

A un trabajador le pagan según sus horas trabajadas y la tarifa está a un valor por hora. Si la cantidad de horas trabajadas es mayor a 50 horas, la tarifa por hora se incrementa en un 25% para las horas extras. Calcular el salario del trabajador dadas las horas trabajadas y la tarifa.

Solución:

Module Module1

    Sub Main()
        Dim vhora, vhora2, vhora3, hora, horas1, horas2 As Double

        Console.WriteLine("Ingrese las horas trabajadas")
        horas1 = Console.ReadLine
        Console.WriteLine("Ingrese el valor de una hora de trabajo")
        vhora = Console.ReadLine

        If horas1 <= 50 Then
            Console.WriteLine("El sueldo es de: $" & horas1 * vhora)
        Else
            horas2 = horas1 - 50
            hora = 50 * vhora
            vhora2 = vhora * 125 / 100
            vhora3 = horas2 * vhora2

            Console.WriteLine("El sueldo es de: $" & hora + vhora3)
        End If

        Console.ReadKey()
    End Sub

End Module

miércoles, 2 de septiembre de 2015

Calcular diferencia de edad con VisualBasic.NET usando funciones

Module Module1

    Sub Main()
        Dim anio, mes, dia As Integer
        Console.WriteLine("Ingrese el dia de nacimiento")
        dia = Console.ReadLine
        Console.WriteLine("Ingrese el mes de nacimiento")
        mes = Console.ReadLine
        Console.WriteLine("Ingrese el año de nacimiento")
        anio = Console.ReadLine

        'Determinar si es mayor de edad
        If anios(dia, mes, anio, DateInterval.Year) >= 18 Then
            Console.WriteLine("Mayor de edad")
        Else
            Console.WriteLine("Menor de edad")
        End If

        Console.WriteLine("Los dias trnacurridos son " & _
                          anios(dia, mes, anio, _
                                DateInterval.Day))

        Console.ReadKey()
    End Sub

    Function anios(ByVal dia As Integer, ByVal mes As Integer, ByVal anio As Integer, ByVal intervalo As DateInterval) As Integer
        Dim fechanac As Date
        Dim anios2 As Integer

        fechanac = DateSerial(anio, mes, dia)
        anios2 = DateDiff(intervalo, fechanac, Now)

        Return anios2

    End Function
End Module

Sucesión fibonacci en PSeInt

Proceso SUCESION_FIBONACCI
N<-0;
X<-1;
Escribir "INGRESE UN NUMERO";
Leer NUMERO;
PARA I<-0 HASTA NUMERO CON PASO 1 Hacer
Escribir N;
A<-X+N
N<-X
X<-A
FinPara
FinProceso

domingo, 23 de agosto de 2015

Metodos en VisualBasic.NET

Crear metodos que realicen de dos numeros, la suma, la resta, la multiplicación, la division, y el resto.

Algoritmo:

Module Module1

    Sub Main()
        Console.WriteLine("Ingrese el primer valor")
        Dim num1 As String = Console.ReadLine()

        Console.WriteLine("Ingrese el segundo valor")
        Dim num2 As String = Console.ReadLine()

        Console.Write("El resultado de la suma es:")
        Sumar(num1, num2)

        Console.Write("El resultado de la resta es:")
        Restar(num1, num2)

        Console.Write("El resultado de la multiplicacion es:")
        Multiplicar(num1, num2)

        Console.Write("El resultado de la division es:")
        Dividir(num1, num2)

        Console.Write("El resto de la division es:")
        Resto(num1, num2)
        Console.ReadLine()
    End Sub

    Private Sub Sumar(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) + Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Restar(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) - Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Multiplicar(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) * Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Dividir(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) / Int(num2)
        Console.WriteLine(res)
    End Sub

    Private Sub Resto(ByVal num1 As String, ByVal num2 As String)
        Dim res As Integer = Int(num1) Mod Int(num2)
        Console.WriteLine(res)
    End Sub
End Module

sábado, 25 de julio de 2015

Ejercicio C#: Dados tres numeros, calcular cual es el mayor

Realizar Algoritmo que lea tres números distintos y nos diga cuál de ellos es el mayor

Algoritmo:

public static void Main (string[] args)
{
double a, b, c;
Console.WriteLine ("Ingrese el primer numero");
a = double.Parse (Console.ReadLine());

Console.WriteLine ("Ingrese el segundo numero");
b = double.Parse (Console.ReadLine());

Console.WriteLine ("Ingrese el tercer numero");
c = double.Parse (Console.ReadLine());

if (a > b && a > c)
Console.WriteLine ("El numero mayor es: " + a);
else
{
if (b > a && b > c)
Console.WriteLine ("El numero mayor es: " + b);
else
Console.WriteLine ("El numero mayor es: " + c);
}

Console.ReadKey ();
}

Ejercicio C#: Calcular el porcentaje de niños y niñas de un curso

Un colegio desea saber qué porcentaje de niños y qué porcentaje de niñas hay en el curso
actual. Diseñar un algoritmo para este propósito (recuerda que para calcular el porcentaje
puedes hacer una regla de 3).

Algoritmo:

public static void Main (string[] args)
{
int ninos, ninas, total;
double pninos, pninas;

Console.WriteLine ("Ingrese la cantidad de niños");
ninos = int.Parse (Console.ReadLine());

Console.WriteLine ("Ingrese la cantidad de niñas");
ninas = int.Parse (Console.ReadLine());

total = ninos + ninas;

pninos = ninos * 100 / total;
pninas = ninas * 100 / total;

Console.WriteLine ("La cantidad total de alumnos es de: "+total);
Console.WriteLine ("El porcentaje de niños es de: "+pninos);
Console.WriteLine ("El porcentaje de niños es de: "+pninas);

Console.ReadKey ();
}

Ejercicio PSeInt (ESPECIAL) - Ferretería

Una ferretería necesita poder llevar el control del stock de un grupo de productos
que tiene a la venta, entre otras funcionalidades. El catalogo es fijo y se
conforma con los siguientes productos :

-------------------------------------------------------------
|CODIGO |   DESCRIPCION       |   PRECIO VENTA | STOCK   |
--------+-----------------------+-----------------+----------
|A01    | BOLSA CLAVOS 4 PULG.    |   3500          |   40    |
|A02    | TAPAGOTERAS SIKA    |   6500          |   60    |
|A03    | GUANTES DE CUERO    |   3000          |   35    |
|A04    | BOTELLA DILUYENTE     |   1200          |   70    |
|A05    | AMPOLLETA 60 W.       |   2400          |   80    |
|A06    | ESMERIL ANGULAR       | 18000          |   25    |
|A07    | TALADRO PERCUTOR    | 25000          |   45    |
|A08    | ALICATE               |   3800          |   55    |
|A09    | MARTILLO              |   5600          |   36    |
|A10    | ESMALTE AL AGUA BLANCO|   8500          |   90    |
+-------+-----------------------+-----------------+---------+

Por lo cual le solicita a usted que le construya un programa en PSEINT con
los siguientes requerimientos:

- Un menu con las siguientes opciones:

MENU PRINCIPAL
--------------------
1. Ingresar Venta
2. Actualizar Stock
3. Informe de Stock
4. Informe de Ventas
5. Consulta Precio
6. Consulta Stock
7. Producto mas vendido
8. Salir

- La opcion "Ingresar Venta" deberá permitir ingresar el código de producto y la cantidad
vendida. El sistema deberá calcular el monto de la venta y acumularlo para cada producto
vendido. El ingreso de productos vendidos finaliza cuando se digita codigo de producto
A00, y de ahi debe volver al menu principal. Si un producto no existe debe mostrar un
mensaje y volver a pedir un nuevo producto.

- La opcion "Actualizar Stock" deberá permitir aumentar el stock disponible de un producto
determinado si la cantidad ingresada es mayor a cero, o disminuirlo si la cantidad es
negativa. Se debe ingresar el codigo del producto y la cantidad de stock a actualizar.
El ingreso de stock de productos finaliza cuando se digita codigo de producto A00, y
de ahi debe volver al menu principal. Si un producto no existe debe mostrar un
mensaje y volver a pedir un nuevo producto.

- La opcion "Informe de Stock" debe mostrar el stock actualizado en el siguiente formato:

|CODIGO |   DESCRIPCION       | STOCK   |
XXXX       YYYYYYYY               999
XXXX       YYYYYYYY               999
XXXX       YYYYYYYY               999
XXXX       YYYYYYYY               999

- La opcion "Informe de Ventas" debe mostrar el monto vendido para cada producto en el
siguiente formato:

|CODIGO |   DESCRIPCION       | MONTO VENDIDO $ |
XXXX       YYYYYYYY               999999
XXXX       YYYYYYYY               999999
XXXX       YYYYYYYY               999999
XXXX       YYYYYYYY               999999

- La opcion "Consulta Precio" deberá permitir ingresar el código de producto. El sistema deberá
mostrar el nombre del producto y su precio. El ingreso de productos consultados finaliza cuando
se digita codigo de producto A00, y de ahi debe volver al menu principal. Si un producto no existe
debe mostrar un mensaje y volver a pedir un nuevo producto.

- La opcion "Consulta Stock" deberá permitir ingresar el código de producto. El sistema deberá
mostrar el nombre del producto y su stock disponible. El ingreso de productos consultados finaliza cuando
se digita codigo de producto A00, y de ahi debe volver al menu principal. Si un producto no existe
debe mostrar un mensaje y volver a pedir un nuevo producto.

- La opción "Producto mas vendido" deberá mostrar el código, descripcion y monto vendido, de aquel producto
cuyo Monto Vendido sea el mayor de la lista de productos del catalogo.

- La opcion "Salir" debe permitir salir del programa.-

======================================================================

Algoritmo:

Proceso Ferreteria
    Dimension A[10,2], B[10,2], C[100], D[100], E[100], F[100], G[100];
    //Los vectores A y B son para almacenar los nombres y valores de los productos
    //Los vectores C D E son para almacenar la informacion del informe de ventas
    //Los vectores F G son para los productos mas vendidos

    Definir cont, menu, cantcompra, tcompra, aux, cant, cantmax Como Entero;
    Definir i Como Real
    Definir codigo, artmax Como Caracter;

    A[1,1]<-"A01"; A[1,2]<-"BOLSA CLAVOS 4 PULG.";     B[1,1]<-3500; B[1,2]<-40;
    A[2,1]<-"A02"; A[2,2]<-"TAPAGOTERAS";              B[2,1]<-6500; B[2,2]<-60;
    A[3,1]<-"A03"; A[3,2]<-"GUANTES DE CUERO";         B[3,1]<-3000; B[3,2]<-35;
    A[4,1]<-"A04"; A[4,2]<-"BOTELLA DILUYENTE";        B[4,1]<-1200; B[4,2]<-70;
    A[5,1]<-"A05"; A[5,2]<-"AMPOLLETA 60 W";           B[5,1]<-2400; B[5,2]<-80;
    A[6,1]<-"A06"; A[6,2]<-"ESMERIL ANGULAR";          B[6,1]<-18000; B[6,2]<-25;
    A[7,1]<-"A07"; A[7,2]<-"TALADRO PERCUTOR";         B[7,1]<-25000; B[7,2]<-45;
    A[8,1]<-"A08"; A[8,2]<-"ALICATE";                  B[8,1]<-3800; B[8,2]<-55;
    A[9,1]<-"A09"; A[9,2]<-"MARTILLO";                 B[9,1]<-5600; B[9,2]<-36;
    A[10,1]<-"A10"; A[10,2]<-"ESMALTE AL AGUA BLANCO"; B[10,1]<-8500; B[10,2]<-90;


    //La variable cont es para el informe de ventas
    cont<-1
    Repetir
        Limpiar Pantalla
        //Mostrar Matriz en pantalla
        Escribir "| CODIGO | DESCRICION | PRECIO VENTA $ | STOCK |";
        Para i<-1 Hasta 10 Con Paso 1 Hacer
            Escribir A[i,1]," ",A[i,2]," $",B[i,1]," ",B[i,2];
        Fin Para

        Escribir " ";
        Escribir "MENU Principal";
        Escribir "1 Ingresar venta";
        Escribir "2 Actualizar Stock";
        Escribir "3 Informe de Stock";
        Escribir "4 Informe de ventas";
        Escribir "5 Consulta precio";
        Escribir "6 Consulta Stock";
        Escribir "7 Producto mas vendido";
        Escribir "8 Salir";

        Repetir //Este repetir es para que solo se ingresen numeros de 1 al 8
            Leer menu;
            si menu<>1 y menu<>2 y menu<>3 y menu<>4 y menu<>5 y menu<>6 y menu<>7 y menu<>8 entonces
                Escribir "ERROR. Debe ingresar un numero del 1 al 8";
            FinSi
        hasta que menu=1 o menu=2 o menu=3 o menu=4 o menu=5 o menu=6 o menu=7 o menu=8

        Segun menu Hacer
            1:
                //Ingresar Venta
                Escribir " ";

                Repetir
                    Escribir "Ingrese el codigo del articulo. Para detener ingrese A00";
                    Repetir //Este Repetir y Si Entonces, es para que solo se ingresen los codigos mostrados en pantalla
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "ERROR. Debe ingresar un codigo valido";
                        FinSi
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"

                    Si codigo<>"A00" Entonces
                        Escribir "Ingrese cuantos productos quiere comprar";
                        Leer cantcompra;
                    FinSi

                    //Revisar el producto en la matriz
                    Para i<-1 Hasta 10 Con Paso 1 Hacer //Filas
                        Si A[i,1]=codigo Entonces
                            Si cantcompra>B[i,2] Entonces //Este si, es para que no se compren mas productos de los que se tienen
                                Escribir "No tenemos tal cantidad de productos";
                                Escribir "Ingrese una cantidad menor o igual a ", B[i,2];
                                i<-10;
                                j<-2; //Estas variables son para salir inmediatamente del ciclo
                            Sino
                                B[i,2]<-B[i,2]-cantcompra;
                                F[cont]<-cantcompra;//En los vectores F G se guardan los totales comprados y sus nombres para despues calcular el mas vendido
                                G[cont]<-A[i,2];
                                tcompra<-B[i,1]*cantcompra;
                                Escribir "Ha comprado ",cantcompra," unidades de ",A[i,2];
                                C[cont]<-codigo;//Las variable C D E son para almacenar los valores para el informe de ventas
                                D[cont]<-A[i,2];
                                E[cont]<-tcompra;
                                aux<-cont;
                                cont<-cont+1;
                            Fin Si
                        Fin Si
                    Fin Para
                Hasta Que codigo="A00"

            2:
                //Actualizar Stock
                Escribir " ";

                Repetir
                    Escribir "Ingrese el codigo del articulo. Para detener ingrese A00";
                    Repetir//Este Repetir y Si Entonces, es para que solo se ingresen los codigos mostrados en pantalla
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "ERROR. Debe ingresar un codigo valido";
                        FinSi
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"

                    Si codigo<>"A00" Entonces
                        Escribir "Ingrese cuantos productos quiere agregar";
                        Leer cant;
                    Fin Si
                    Para i<-1 Hasta 10 Con Paso 1 Hacer //Filas
                        Si A[i,1]=codigo Entonces
                            B[i,2]<-B[i,2]+cant;
                            Escribir "Ha ingresado ", cant," unidades de ", A[i,2];
                        Fin Si
                    Fin Para
                Hasta Que codigo="A00"
            3:
                //Informe de Stock
                Escribir " ";
                Escribir "Informe de Stock";
                Escribir "| CODIGO | DESCRICION | STOCK |";

                Para i<-1 Hasta 10 Con Paso 1 Hacer
                    Escribir A[i,1]," ",A[i,2]," ",B[i,2];
                Fin Para
                Escribir " ";
                Escribir "Para volver al menu presione cualquier tecla";
                Esperar Tecla
            4:
                //Informe de ventas
                Escribir " ";
                Escribir "Informe de ventas";
                Escribir "| CODIGO | DESCRIPCION | MONTO VENDIDO $ |";
                Para i<-1 Hasta aux Con Paso 1 Hacer
                    Escribir C[i]," ",D[i]," $",E[i];
                Fin Para

                Escribir " ";
                Escribir "Para volver al menu presione cualquier tecla";
                Esperar Tecla
            5:
                //Consulta Precio
                Escribir " ";
                Escribir "Consulta Precio";
                Escribir "Para salir ingrese el codigo A00";
                Repetir
                    Escribir "Ingrese el codigo de un producto";

                    Repetir
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "El codigo no es valido, ingreselo nuevamente";
                        Fin Si
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"

                    Para i<-1 Hasta 10 Con Paso 1 Hacer
                        Para j<-1 Hasta 2 Con Paso 1 Hacer
                            Si codigo=A[i,j] Entonces
                                Escribir "El precio del producto ", A[i,2]," es de: $", B[i,1];
                            Fin Si
                        Fin Para
                    Fin Para
                Hasta Que codigo="A00";

            6:
                //Consulta de Stock
                Escribir " ";
                Escribir "Consulta de Stock";
                Escribir "Para salir ingrese el codigo A00";
                Repetir
                    Escribir "Ingrese el codigo del producto";
                    Repetir
                        Leer codigo;
                        Si codigo<>"A00" y codigo<>"A01" y codigo<>"A02" y codigo<>"A03" y codigo<>"A04" y codigo<>"A05" y codigo<>"A06" y codigo<>"A07" y codigo<>"A08" y codigo<>"A09" y codigo<>"A10" Entonces
                            Escribir "El codigo no es valido, ingreselo nuevamente";
                        Fin Si
                    Hasta Que codigo="A00" o codigo="A01" o codigo="A02" o codigo="A03" o codigo="A04" o codigo="A05" o codigo="A06" o codigo="A07" o codigo="A08" o codigo="A09" o codigo="A10"

                    Para i<-1 Hasta 10 Con Paso 1 Hacer
                        Para j<-1 Hasta 2 Con Paso 1 Hacer
                            Si codigo=A[i,j] Entonces
                                Escribir "La cantidad de productos de ", A[i,2]," es de: ", B[i,2];
                            Fin Si
                        Fin Para
                    Fin Para

                Hasta Que codigo="A00"


            7:
                //Producto mas vendido
                cantmax<-F[1];
                artmax<-G[1];
                Escribir "Producto mas vendido";
                Para i<-2 Hasta aux Con Paso 1 Hacer
                    Si F[i]>=F[i-1] Entonces
                        cantmax<-F[i]; //Esta variable es para almacenar la cantidad mas vendida
                        artmax<-G[i]; //Esta variale es para almacenar el producto mas vendido
                    Fin Si
                Fin Para

                Escribir "El producto mas vendido es: ", artmax," con un total de ", cantmax, " unidades";

                Escribir " ";
                Escribir "Para volver al menu presione cualquier tecla";
                Esperar Tecla

            De Otro Modo:
                Escribir "HA SALIDO DEL SISTEMA";
            Fin Segun

    Hasta Que menu=8
FinProceso