Controles Comunes (Diseño) en WinForms

Nuevo proyecto Windows Forms

Ejercicio: n factorial

Public Class frmFactorial

    Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
        Dim resultado As Integer

        If nudFactorial.Value = 1 Or nudFactorial.Value = 0 Then
            resultado = 1
        Else
            resultado = nudFactorial.Value
            For i As Integer = nudFactorial.Value To 1 Step -1
                If i <> 1 Then
                    resultado *= i - 1
                End If
            Next
        End If

        lblResultado.Text = "El factorial de " & nudFactorial.Value & " es " & resultado.ToString
    End Sub

    Private Sub frmFactorial_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblResultado.Text = ""
    End Sub
End Class

Ejercicio: Calcula la suma y la media de cuatro número enteros

Public Class frmSumaMedia

    Dim i As Integer
    Dim Suma As Integer
    Dim media As Single
    Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click

        With nudNumero
            Suma += .Value
            .Value = 0
            .Focus()
        End With
        If i < 4 Then
            i += 1
            lblNumero.Text = "Numero " & i
        Else
            media = Suma / 4

            lblResultado.Text = "El resultado de la suma es " & Suma _
                & " la media es " & media
        End If
    End Sub

    Private Sub frmSumaMedia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        i = 1
        lblNumero.Text = "Numero " & i
        Suma = 0
    End Sub
End Class

Ejercicio: Calculo de años

Aplicacion de Escritorio que le solicita al usuario su nombre y su fecha de nacimiento para indicarle la edad que tendrá en el año 2030:


Public Class frmCalculoAnos

    Private Sub btnCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalcular.Click
        Dim Mensaje As String
        Dim anios As Integer

        anios = 2030 - nudAnio.Value


        Mensaje = txtNombre.Text & " tendrá " & anios & " en el año 2030"

        MessageBox.Show(Mensaje, "Calculo de Años en el 2030", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class

Calculadora

Public Class Form1

    Dim op1 As Double
    Dim op2 As Double
    Dim operacion As String 'operacion solicitada
    Dim resultado As Double

    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        txtOperacion.Text += "1"
    End Sub

    Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click
        txtOperacion.Text += "2"
    End Sub
    Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click
        txtOperacion.Text += "3"
    End Sub

    Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn4.Click
        txtOperacion.Text += "4"
    End Sub
    Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn5.Click
        txtOperacion.Text += "5"
    End Sub

    Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn6.Click
        txtOperacion.Text += "6"
    End Sub
    Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn7.Click
        txtOperacion.Text += "7"
    End Sub

    Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn8.Click
        txtOperacion.Text += "8"
    End Sub
    Private Sub btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn9.Click
        txtOperacion.Text += "9"
    End Sub

    Private Sub btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn0.Click
        txtOperacion.Text += "0"
    End Sub

    Private Sub btnSumar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSumar.Click
        op1 = Convert.ToDouble(txtOperacion.Text)
        txtOperacion.Text = ""
        operacion = "+"
    End Sub

    Private Sub btnRestar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRestar.Click
        op1 = Convert.ToDouble(txtOperacion.Text)
        txtOperacion.Text = ""
        operacion = "-"
    End Sub

    Private Sub btnMultiplicar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMultiplicar.Click
        op1 = Convert.ToDouble(txtOperacion.Text)
        txtOperacion.Text = ""
        operacion = "*"
    End Sub

    Private Sub btnDividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDividir.Click
        op1 = Convert.ToDouble(txtOperacion.Text)
        txtOperacion.Text = ""
        operacion = "/"
    End Sub

    Private Sub btnIgual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIgual.Click
        op2 = Convert.ToDouble(txtOperacion.Text)
        txtOperacion.Text = ""

        Select Case operacion
            Case "+"
                resultado = op1 + op2
            Case "-"
                resultado = op1 - op2
            Case "*"
                resultado = op1 * op2
            Case "/"
                resultado = op1 / op2
        End Select

        txtResultado.Text = resultado.ToString


    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtOperacion.Text = ""
    End Sub
End Class

Palabras claves en Visual Basic.Net

AddHandler	AddressOf	Alias	Y
AndAlso	As	Boolean	ByRef
Byte	ByVal	Call	Case
Catch	CBool	CByte	CChar
CDate	CDbl	CDec	Char
CInt	Class (Restricción)	Class (Instrucción)	CLng
CObj	Const	Continue	CSByte
CShort	CSng	CStr	CType
CUInt	CULng	CUShort	Fecha
Decimal	Declare	Default	Delegate
Dim	DirectCast	Do	Double
Each	Else	ElseIf	End (Instrucción)
End <palabra clave>	EndIf	Enum	Erase
Error	Evento	Exit	False
Finally	For (en For…Next)	For Each…Next	Friend
Función	Get	GetType	GetXMLNamespace
Global	GoSub	GoTo	Handles
If	If()	Implements	Implements (Instrucción)
Imports (espacio de nombres y tipo .NET)	Imports (espacio de nombres XML)	In	In (Modificador genérico)
Inherits	Integer	Interface	Is
IsNot	Let	Lib	Like
Long	Loop	Me	Mod
Módulo	Module (Instrucción)	MustInherit	MustOverride
MyBase	MyClass	Espacio de nombres	Narrowing
New (Restricción)	New (Operador)	Next	Next (en Resume)
Not	Nothing	NotInheritable	NotOverridable
Objeto	Of	On	Operador
Opción	Opcional	Or	OrElse
Out (Modificador genérico)	Overloads	Overridable	Overrides
ParamArray	Partial	Private	Propiedad
Protected	Public	RaiseEvent	ReadOnly
ReDim	REM	RemoveHandler	Resume
Return	SByte	Seleccionar	Set
Shadows	Shared	Short	Single
Static	Paso	Stop	String
Structure (Restricción)	Structure (Instrucción)	Sub	SyncLock
Then	Throw	Para	True
Consulte	TryCast	TypeOf…Is	UInteger
ULong	UShort	Using	Variant
Wend	When	While	Widening
With	WithEvents	WriteOnly	Xor
#Const	#Else	#ElseIf	#End
#If	=	&	&=
*	*=	/	/=
\	\=	^	^=
+	+=	-	-=
>> (Operador, Visual Basic)	>>= (Operador, Visual Basic)	<<	<<=

Tipos de datos en Visual Basic.Net

Tipo de Visual Basic	Estructura de tipo Common Language Runtime	Asignación de almacenamiento nominal	Intervalo de valores
Boolean	Boolean	En función de la plataforma de implementación	True o False
Byte	Byte	1 byte	0 a 255 (sin signo)
Char (carácter individual)	Char	2 bytes	0 a 65535 (sin signo)
Date	DateTime	8 bytes	0:00:00 (medianoche) del 1 de enero de 0001 a 11:59:59 p.m. del 31 de diciembre de 9999.
Decimal	Decimal	16 bytes	0 a +/-79.228.162.514.264.337.593.543.950.335 (+/-7,9... E+28) † sin separador decimal; 0 a +/-7,9228162514264337593543950335 con 28 posiciones a la derecha del decimal; el número distinto de cero más pequeño es +/-0,0000000000000000000000000001 (+/-1E-28) †
Double (punto flotante de precisión doble)	Double	8 bytes	-1,79769313486231570E+308 a -4,94065645841246544E-324 † para los valores negativos; 4,94065645841246544E-324 a 1,79769313486231570E+308 † para los valores positivos
Integer	Int32	4 bytes	-2.147.483.648 a 2.147.483.647 (con signo)
Long (entero largo)	Int64	8 bytes	-9.223.372.036.854.775.808 a 9.223.372.036.854.775.807 (9,2...E+18 †) (con signo)
Object	Object (clase)	4 bytes en plataforma de 32 bits 8 bytes en plataforma de 64 bits	Cualquier tipo puede almacenarse en una variable de tipo Object
SByte	SByte	1 byte	-128 a 127 (con signo)
Short (entero corto)	Int16	2 bytes	-32.768 a 32.767 (con signo)
Single (punto flotante de precisión simple)	Single	4 bytes	-3,4028235E+38 a -1,401298E-45 † para los valores negativos; 1,401298E-45 a 3,4028235E+38 † para los valores positivos
String (longitud variable)	String (clase)	En función de la plataforma de implementación	0 a 2.000 millones de caracteres Unicode aprox.
UInteger	UInt32	4 bytes	0 a 4.294.967.295 (sin signo)
ULong	UInt64	8 bytes	0 a 18.446.744.073.709.551.615 (1,8...E+19 †) (sin signo)
User-Defined (estructura)	(hereda de ValueType)	En función de la plataforma de implementación	Cada miembro de la estructura tiene un intervalo de valores determinado por su tipo de datos y es independiente de los intervalos de valores correspondientes a los demás miembros.
UShort	UInt16	2 bytes	0 a 65.535 (sin signo)