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<==

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 <==

VB 2010 Windows Form - Crear una calculadora simple

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

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