Portafolio Informático

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