Ejemplos de programas codificados en Visual Basic

Calculadora
Código:
Para escribir código de un botón u otro objecto, doble clic sobre el botón (o algún otro objeto).
Aparecerá algo así:
·      Private Sub [...] 'Esto lo pone el mismo programa. 'Aquí escribes el código de lo que va a hacer ese botón o objeto. End Sub 'Esto también lo pone el programa.
En el botón "Salir":
·      Private Sub [...] End 'El comando End, cierra todos los formularios y el programa. End Sub
Sobre el Botón "+":
·      Private Sub [...] Resultado.Text = (CDbl(Numero1.Text) + CDbl(Numero2.Text)) 'Resultado = Numero1 + Numero2 End Sub
Sobre el botón "-":
·      Private Sub [...] Resultado.Text = (CDbl(Numero1.Text) - CDbl(Numero2.Text)) 'Resultado = Numero1 - Numero2 End Sub
Sobre el botón "x":
·      Private Sub [...] Resultado.Text = (CDbl(Numero1.Text) * CDbl(Numero2.Text)) 'Resultado = Numero1 x Numero2 'El * indica multiplicar, aunque en el botón se haya puesto una x End Sub
Sobre el botón":":
·      Private Sub [...] Resultado.Text = (CDbl(Numero1.Text) / CDbl(Numero2.Text)) 'Resultado = Numero1 : Numero2 'Aunque en el botón pongamos :, para dividir se usa una / End Sub

Conversor de temperatura
Código:
Al botón "Calcular":
·      Private Sub [...] If RadioButton1.Checked Then 'Abre una condición R.Text = (CDbl(N.Text + 273)) 'Si está seleccionado el RadioButton1, suma 273 ElseIf RadioButton2.Checked Then R.Text = (CDbl(N.Text - 273)) 'Si está seleccionado el RadioButton2, resta 273 End If 'Cierra la condición End Sub
Al botón "Borrar":
·      Private Sub [...] N.Text = "" 'El cuadro de texto N (El del número) se borra R.Text = "0" 'El cuadro de texto R (El del resultado) se pone en 0 End Sub
Al botón "Salir":
·      Private Sub [...] End 'Se cierra completamente el programa End Sub
 

Navegador de internet

Código:

En el Button1:

·      Private Sub [...] WebBrowser1.GoBack() 'Al pulsar el botón, página atrás. End Sub

En el Button2:

·      Private Sub [...] WebBrowser1.GoForward() 'Al pulsar el botón, página adelante. End Sub

En el Button3:

·      Private Sub [...] WebBrowser1.Stop() 'Al pulsar el botón, deja de cargar la página. End Sub

En el Button4:

·      Private Sub [...] WebBrowser1.Refresh() 'Al pulsar el botón, se vuelve a cargar la página. End Sub

En el Button5:

·      Private Sub [...] WebBrowser1.Navigate(TextBox1.Text) 'Al pulsar el botón, se carga la página que pone en el TextBox1 End Sub.

Multiprograma

Código (A):

En los botones del Formulario principal:

·      Private Sub [...] Formx.Show() 'Donde Formx es el (Name) del formulario. Esto abre el otro formulario. End Sub

Código (B):

Antes de nada, hay que cambiar una cosa de las propiedades del proyecto:

Una vez cambiado eso, en el código del botón que cambia de formulario:

·      Private Sub [...] Formx.Show() 'Donde Formx es el (Name) del formulario. Esto abre el otro formulario. Me.Close() 'Esto cierra este formulario. Lo hace tan rápido que parece que un formulario se transforma en el otro. End Sub

Calcular área de un triángulo

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim b, h As Double
        Dim area As Double
        b = TextBox1.Text
        h = TextBox2.Text
        area = b * h / 2
        TextBox3.Text = Trim(area)
    End Sub
End Class