Ejemplos de codificación de programas en visual basic

1: crear una caja de texto, una matriz diez botes de comandos para los numero, otra matriz de cuatro botones de comando para los operadores (+,-,/,*), un comando para nueva operación, un comando para el resultado (=) 

Ejemplo

Private Sub Igual_Click() 
Select Case signo 'la variable signo te dice si sumas(0) si restas(1)...... 
Case 0 
Text1.Text = suma(anterior, Val(Text1.Text)) 'llamada a la función suma 
Case 1 
Text1.Text = resta(anterior, Val(Text1.Text)) 

Case 2 
Text1.Text = multiplicar(anterior, Val(Text1.Text)) 
Case 3 
Text1.Text = Dividir(anterior, Val(Text1.Text)) 
End Select 
End Sub 

Private Sub Nueva_Click() 
Text1.Text = "" 
End Sub 

Private Sub Operador_Click(Index As Integer) 
signo = Index 'si index es 0 sumas, si es 1 restas...... 
anterior = Val(Text1.Text) 
Text1.Text = "" 

End Sub 

Private Sub Numero_Click(Index As Integer) 
Text1.Text = Text1.Text + Numero(Index).Caption 
End Sub 

Private Function suma(Numero As Integer, Operador As Integer) As Integer 
suma = Numero + Operador 
End Function 

Private Function resta(Numero As Integer, Operador As Integer) As Integer 
resta = Numero - Operador 
End Function 

Private Function multiplicar(Numero As Integer, Operador As Integer) As Integer 
multiplicar = Numero * Operador 
End Function 

Private Function Dividir(Numero As Integer, Operador As Integer) As Integer 
Dividir = Numero / Operador 
End Function 

Private Sub Salir_Click() 
Unload Me 
End Sub

Conversor de temperatura

Private Sub Command1_Click()
Text2.Text = 32 + 9 / 5 * (Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii <> 57 Then
KeyAscii = 0
End If
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.

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

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