Calculadora
Crear un formulario nuevo con los siguientes objetos (por defecto, al crear un nuevo proyecto, ya viene el Form1):
- Label (3)
- Button (5)
- TextBox (3)
*Distribución de los objetos.
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.
*Los comentarios en código se ponen con una '
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
Opcional: Se puede poner un sexto botón que ponga AC o Nuevo calculo con el siguiente código:
Private Sub[...]
Numero1.Text = "" 'El TextBox del número1 se queda en blanco.
Numero2.Text = "" 'El TextBox del número2 se queda en blanco.
Resultado.Text = "0" 'El TextBox del resultado se queda a "0".
End Sub
Para saber cómo generar un .exe con ese código, al final del tutorial se explica.
Conversor de unidades de temperatura
Antes de nada, como no todo el mundo sabe la unidad de temperatura del SI (Sistema internacional) que muchos creen que es el ºC, voy a explicar un poco:
La temperatura mínima en ºC, son -273ºC lo que equivale en K a 0 (En K no hay temperatura negativa).
Conversión:
- De ºC a K: x + 273 (x es el número de ºC)
- De K a ºC: x - 273 (x es el número de K)
Objetos:
- TextBox (2)
- RadioButto (2)
- GroupBox (1)
- Button (3)
- Label (3)
*Distribución de los objetos.
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
Herramientas:
- TextBox (1)
- Buttons (5)
- WebBrowser (1)
- MenuStrip (1)
*Distribución de los objetos.
*Pulsar para ampliar.
Propiedades:
Button1: Text "Atrás"
Button2: Text "Adelante"
Button3: Text "Actualizar"
Button4: Text "Cancelar"
Button5: Text "Ir"
MenuStrip1:
Menú Archivo (opcional) se puede poner Atrás, Adelante, Actualizar....
Menú Favoritos (opcional) se pueden poner 4 o 5 páginas (Google, SceneBeta, Wikipedia, Facebook)
Alguna que otra que quieras poner, si no pones ninguna, quita el menustrip ya que no es obligatorio.
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
Propiedades de los objetos para que la pantalla quede bien al maximizar (Anchor):
*Anchor de TextBox1
*Anchor de Button5
*Anchor de WebBrowser1
Para hacer que nos muestre la barra de carga:
Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
ProgressBar1.Visible = True
With ProgressBar1
.Minimum = 0
.Maximum = 50
.Step = 5
End With
For index As Integer = 0 To 50 Step 5
ProgressBar1.Value = index
System.Threading.Thread.Sleep(35)
Next
End Sub
Suma de los números
Código para la suma de n números:
Private Sub Form_Load()
DECLARACION DE VARIABLES
Dim INGRESADO As Integer
Dim NÚMERO As Integer
Dim CONTADOR As Integer
Dim SUMA As Integer
SUMA = 0
INGRESADOS = InputBox("CUANTAS VECES SE VA A
REPETIR:")
For CONTADOR = 1 To INGRESADOS
NÚMERO = InputBox("ESCRIBA UN NÚMERO:")
SUMA = SUMA + NUMERO
Next CONTADOR
PROMEDIO = SUMA / INGRESADOS
TOTAL = SUMA
LIEDOS = INGRESADOS
End Sub
Multiprograma
- Formulario (+3)
- Botones (+2)
- Otros objetos usados para los programas.
Se hacen de formulario tantos como opciones tenga el programa más 1, por ejemplo, si tiene 5 opciones, 6 formularios.
En el formulario principal, botones como programas y en cada uno de los otros, un programa diferente. El botón abrirá el otro formulario.
2 Tipos de multiprograma:
- El que abre un formulario y deja es principal y el otro abierto. (A)
- El que abre un formulario y cierra el principal, normalmente se incluye un botón para volver al principal. (B)
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:
*Doble clic a My Project para acceder a las propiedades del proyecto.
*Cambiar a: "Al cerrar el último formulario".
*Pulsar para ampliar.
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
