[VB-WindowsForm] Sacar Promedio de 3 Notas + Extras

Ver el tema anterior Ver el tema siguiente Ir abajo

[VB-WindowsForm] Sacar Promedio de 3 Notas + Extras

Mensaje por Koleshy el Dom Nov 24, 2013 11:17 am









[Tienes que estar registrado y conectado para ver este vínculo]
Password: koleshyengine

El Codigo (Source)

Código:
Public Class Form1

    '/////////////////////////////////////////////////////
    '///// Este es las acciones del Boton "Calcular" /////
    '////////////////////////////////////////////////////
    Private Sub BotonCalcular_Click(sender As Object, e As EventArgs) Handles BotonCalcular.Click
        'Creamos nuestras variables
        Dim n1, n2, n3, r As Integer
        'Almacenamos cada uno para un respectivo textbox y de esa manera
        'poder usarlos mas adelante de una manera mas sencilla
        'ejemplo "TextBoxn1.Text" con esto agarramos la informacion que tiene nuestro
        'textbox en ese momento.
        'para que es el "Val" antes del TextBox?
        'El Val nos permite sacar valor numerico de ese dato, el cual es el textbox
        n1 = Val(TextBoxn1.Text)
        n2 = Val(TextBoxn2.Text)
        n3 = Val(TextBoxn3.Text)
        'luego aqui ya con la variable "r" procedemos a hacer nuestra formula matematica
        'para calcular el promedio de las 3 notas ingresadas
        r = (n1 + n2 + n3) / 3
        'y bueno finalizando este paso, mandamos un msgbox, el cual nos mostrara
        'un texto "Su promedio es: r" / r = el valor que nos dara al hacer la formula
        MsgBox("Su promedio es: " & r)
    End Sub

    '/////////////////////////////////////////////////////
    '///// Este es las acciones del Boton "Resetear" /////
    '////////////////////////////////////////////////////
    Private Sub BotonResetear_Click(sender As Object, e As EventArgs) Handles BotonResetear.Click
        'Con esto por ejemplo agarramos el "TextBoxn1" y le damos "clear" lo cual es limpiar
        'entonces limpiamos los 3 textbox
        TextBoxn1.Clear()
        TextBoxn2.Clear()
        TextBoxn3.Clear()
        'finalizando con el boton resetear, mandamos la selecciona del mouse
        'al textboxn1
        '(este focus no es necesariamente obligatorio)
        'es para cuando presiones el boton, ejemplo: el mouse haga click
        'en el TextBoxn1, asi como para ya escribir ahi
        TextBoxn1.Focus()
    End Sub

    '////////////////////////////
    '///// "Aspectos Extra" /////
    '///////////////////////////
    '"SoloNumeros" un public que creamos para solo permitir el ingreso de numeros
    'en nuestros textbox especificos.
    Public Sub SoloNumeros(ByVal tecla As KeyPressEventArgs)
        If (Char.IsLetter(tecla.KeyChar)) Then
            tecla.Handled = True
        End If
    End Sub

    'Aqui ya en nuestros textbox estamos usando nuestro public creado arriba
    '"SoloNumeros(e)" que es "e"? es una variable la cual esta guardada como keypress
    'respectivamente en su especial evento
    'osea la cual cuando presionemos una tecla se crea la variable "e" del evento
    'y entonces jalamos nuestro public y lo usamos.
    'Esto es => SoloNumeros(ByVal tecla As KeyPressEventArgs)'
    'A esto => SoloNumeros(e)
    'claro ya jalandolo al uso en nuestra textbox, es como una funcion.
    Private Sub TextBoxn1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBoxn1.KeyPress
        SoloNumeros(e)
    End Sub

    Private Sub TextBoxn2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBoxn2.KeyPress
        SoloNumeros(e)
    End Sub

    Private Sub TextBoxn3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBoxn3.KeyPress
        SoloNumeros(e)
    End Sub

End Class
avatar
Koleshy
Pendejo
Pendejo

Mensajes : 37
Fecha de inscripción : 21/11/2013
Edad : 21
Localización : Lima, Perú

Ver perfil de usuario http://koleshyengine.foroactivo.mx

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.