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

por **Koleshy** Dom Nov 24, 2013 11:17 am

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

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

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

[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