Manual para Implementar el Programa con Múltiples Formularios en Visual Basic
Este manual contiene seis formularios diferentes, cada uno con funciones básicas. Los nombres de
los controles (botones, cajas de texto, etc.) se mantienen predeterminados, como Button1,
TextBox1, etc., para facilitar la implementación.
Hecho por:Imahi Sanchez
Formulario 1: Calculadora Básica
Diseño del Formulario:
TextBox: TextBox1 (para mostrar el resultado).
Botones:
Números (0-9): Button1, Button2, ..., Button10.
Operaciones (+, -, *, /): Button11, Button12, Button13, Button14.
Igual: Button15.
Limpiar: Button16.
Código del Formulario:
vb
Copiar código
Public Class Form1
Dim valor1 As Double
Dim valor2 As Double
Dim operador As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link],
[Link], [Link], [Link], [Link], [Link], [Link],
[Link], [Link], [Link]
[Link] &= DirectCast(sender, Button).Text
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles [Link],
[Link], [Link], [Link]
valor1 = Val([Link])
operador = DirectCast(sender, Button).Text
[Link]()
End Sub
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles [Link]
valor2 = Val([Link])
Select Case operador
Case "+"
[Link] = (valor1 + valor2).ToString()
Case "-"
[Link] = (valor1 - valor2).ToString()
Case "*"
[Link] = (valor1 * valor2).ToString()
Case "/"
If valor2 <> 0 Then
[Link] = (valor1 / valor2).ToString()
Else
[Link] = "Error"
End If
End Select
End Sub
Private Sub Button16_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
End Sub
End Class
Formulario 2: Piedra, Papel o Tijera
Diseño del Formulario:
Botones:
Piedra: Button1.
Papel: Button2.
Tijera: Button3.
Label: Label1 (para mostrar el resultado).
Código del Formulario:
vb
Copiar código
Public Class Form2
Dim opciones As String() = {"Piedra", "Papel", "Tijera"}
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Juego("Piedra")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
Juego("Papel")
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
Juego("Tijera")
End Sub
Private Sub Juego(eleccionUsuario As String)
Dim eleccionMaquina As String = opciones(CInt(Rnd() * 3))
[Link] = "Máquina eligió: " & eleccionMaquina
If eleccionUsuario = eleccionMaquina Then
[Link] &= vbCrLf & "¡Es un empate!"
ElseIf (eleccionUsuario = "Piedra" And eleccionMaquina = "Tijera") Or
(eleccionUsuario = "Papel" And eleccionMaquina = "Piedra") Or
(eleccionUsuario = "Tijera" And eleccionMaquina = "Papel") Then
[Link] &= vbCrLf & "¡Ganaste!"
Else
[Link] &= vbCrLf & "¡Perdiste!"
End If
End Sub
End Class
Formulario 3: Contador de Palabras
Diseño del Formulario:
TextBox: TextBox1 (para ingresar texto).
Botón: Button1 (para contar palabras).
Label: Label1 (para mostrar el resultado).
Código del Formulario:
vb
Copiar código
Public Class Form3
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim texto As String = [Link]
Dim palabras As String() = [Link](New Char() {" "c, [Link], [Link]})
[Link] = "Número de palabras: " & [Link]()
End Sub
End Class
Formulario 4: Conversor de Temperatura
Diseño del Formulario:
TextBox: TextBox1 (para ingresar la temperatura).
ComboBox: ComboBox1 (para seleccionar la conversión: "Celsius a Fahrenheit" o "Fahrenheit a
Celsius").
Botón: Button1 (para realizar la conversión).
Label: Label1 (para mostrar el resultado).
Código del Formulario:
vb
Copiar código
Public Class Form4
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim temperatura As Double
If [Link]([Link], temperatura) Then
If [Link] = "Celsius a Fahrenheit" Then
[Link] = "Resultado: " & (temperatura * 9 / 5 + 32).ToString() & " °F"
ElseIf [Link] = "Fahrenheit a Celsius" Then
[Link] = "Resultado: " & ((temperatura - 32) * 5 / 9).ToString() & " °C"
Else
[Link] = "Seleccione una conversión válida."
End If
Else
[Link] = "Ingrese un valor numérico válido."
End If
End Sub
End Class
Formulario 5: Contador de Clicks
Diseño del Formulario:
Botón: Button1 (para contar clics).
Label: Label1 (para mostrar el número de clics).
Código del Formulario:
vb
Copiar código
Public Class Form5
Dim contador As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
contador += 1
[Link] = "Número de clics: " & [Link]()
End Sub
End Class
Formulario 6: Cronómetro Básico
Diseño del Formulario:
Label: Label1 (para mostrar el tiempo transcurrido).
Botones:
Iniciar: Button1.
Detener: Button2.
Reiniciar: Button3.
Timer: Timer1.
Configuración del Timer:
Propiedad Interval: 1000 (para que cuente en segundos).
Propiedad Enabled: False (para que no inicie automáticamente).
Código del Formulario:
vb
Copiar código
Public Class Form6
Dim tiempo As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles [Link]
tiempo += 1
[Link] = "Tiempo: " & tiempo & " segundos"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
[Link]()
tiempo = 0
[Link] = "Tiempo: 0 segundos"
End Sub
End Class
