Visual Basic

1. Calculadora

Public Class FormCalculadora
    Dim primerNumero As Double
    Dim segundoNumero As Double
    Dim operacion As String = ""

    Private Sub ButtonNumero_Click(sender As Object, e As EventArgs) Handles ButtonNumero.Click
        Dim boton As Button = CType(sender, Button)
        TextBoxPantalla.Text &= boton.Text
    End Sub

    Private Sub ButtonOperacion_Click(sender As Object, e As EventArgs) Handles ButtonOperacion.Click
        Dim boton As Button = CType(sender, Button)
        primerNumero = CDbl(TextBoxPantalla.Text)
        operacion = boton.Text
        TextBoxPantalla.Text = ""
    End Sub

    Private Sub ButtonIgual_Click(sender As Object, e As EventArgs) Handles ButtonIgual.Click
        segundoNumero = CDbl(TextBoxPantalla.Text)
        Select Case operacion
            Case "+"
                TextBoxPantalla.Text = (primerNumero + segundoNumero).ToString()
            Case "-"
                TextBoxPantalla.Text = (primerNumero - segundoNumero).ToString()
            Case "*"
                TextBoxPantalla.Text = (primerNumero * segundoNumero).ToString()
            Case "/"
                If segundoNumero <> 0 Then
                    TextBoxPantalla.Text = (primerNumero / segundoNumero).ToString()
                Else
                    TextBoxPantalla.Text = "Error: División por cero"
                End If
        End Select
    End Sub

    Private Sub ButtonLimpiar_Click(sender As Object, e As EventArgs) Handles ButtonLimpiar.Click
        TextBoxPantalla.Text = ""
    End Sub
End Class

2. Manipulación de archivos:

Imports System.IO

Public Class FormManipulacionArchivos
    Private Sub ButtonLeerArchivo_Click(sender As Object, e As EventArgs) Handles ButtonLeerArchivo.Click
        Dim rutaArchivo As String = "archivo.csv"
        If File.Exists(rutaArchivo) Then
            Dim lineas As String() = File.ReadAllLines(rutaArchivo)
            For Each linea As String In lineas
                Dim datos As String() = linea.Split(",")
                ' Procesar datos según sea necesario '
                Console.WriteLine($"Campo 1: {datos(0)}, Campo 2: {datos(1)}")
            Next
        Else
            Console.WriteLine("El archivo no existe.")
        End If
    End Sub

    Private Sub ButtonEscribirArchivo_Click(sender As Object, e As EventArgs) Handles ButtonEscribirArchivo.Click
        Dim rutaArchivo As String = "archivo.csv"
        Dim datos As String = "Dato1,Dato2"
        File.WriteAllText(rutaArchivo, datos)
        Console.WriteLine("Archivo escrito exitosamente.")
    End Sub
End Class

3.Aplicación de gestión de inventario: (requiere conexión a una base de datos)

Imports System.Data.SqlClient

Public Class FormGestionInventario
    Private connectionString As String = "Data Source=NombreServidor;Initial Catalog=NombreBaseDatos;Integrated Security=True"
    Private Sub ButtonAgregarProducto_Click(sender As Object, e As EventArgs) Handles ButtonAgregarProducto.Click
        Using conexion As New SqlConnection(connectionString)
            Dim query As String = "INSERT INTO Productos (Nombre, Cantidad) VALUES (@Nombre, @Cantidad)"
            Using comando As New SqlCommand(query, conexion)
                comando.Parameters.AddWithValue("@Nombre", TextBoxNombreProducto.Text)
                comando.Parameters.AddWithValue("@Cantidad", Convert.ToInt32(TextBoxCantidadProducto.Text))
                conexion.Open()
                comando.ExecuteNonQuery()
            End Using
        End Using
    End Sub

    Private Sub ButtonActualizarProducto_Click(sender As Object, e As EventArgs) Handles ButtonActualizarProducto.Click
        Using conexion As New SqlConnection(connectionString)
            Dim query As String = "UPDATE Productos SET Cantidad = @Cantidad WHERE Nombre = @Nombre"
            Using comando As New SqlCommand(query, conexion)
                comando.Parameters.AddWithValue("@Cantidad", Convert.ToInt32(TextBoxNuevaCantidad.Text))
                comando.Parameters.AddWithValue("@Nombre", TextBoxNombreProducto.Text)
                conexion.Open()
                comando.ExecuteNonQuery()
            End Using
        End Using
    End Sub

    Private Sub ButtonEliminarProducto_Click(sender As Object, e As EventArgs) Handles ButtonEliminarProducto.Click
        Using conexion As New SqlConnection(connectionString)
            Dim query As String = "DELETE FROM Productos WHERE Nombre = @Nombre"
            Using comando As New SqlCommand(query, conexion)
                comando.Parameters.AddWithValue("@Nombre", TextBoxNombreProducto.Text)
                conexion.Open()
                comando.ExecuteNonQuery()
            End Using
        End Using
    End Sub
End Class

4. Validación de datos:

Public Class FormValidacionDatos
    Private Sub ButtonValidarCorreo_Click(sender As Object, e As EventArgs) Handles ButtonValidarCorreo.Click
        Dim correo As String = TextBoxCorreo.Text
        If System.Text.RegularExpressions.Regex.IsMatch(correo, "^\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$") Then
            MessageBox.Show("Correo electrónico válido.")
        Else
            MessageBox.Show("Correo electrónico no válido.")
        End If
    End Sub

    Private Sub ButtonValidarTelefono_Click(sender As Object, e As EventArgs) Handles ButtonValidarTelefono.Click
        Dim telefono As String = TextBoxTelefono.Text
        If System.Text.RegularExpressions.Regex.IsMatch(telefono, "^\d{10}$") Then
            MessageBox.Show("Número de teléfono válido.")
        Else
            MessageBox.Show("Número de teléfono no válido.")
        End If
    End Sub
End Class


5. MANEJOS DE ARRAY
Manejo de arrays y colecciones:
Pregunta: "Escribe un código en Visual Basic para ordenar un array de números de manera ascendente."
Respuesta: Utilizaría la función Array.Sort() para ordenar el array en su lugar.

Dim numbers() As Integer = {4, 2, 7, 1, 9}
Array.Sort(numbers)

6. Trabajo con clases y objetos:
Pregunta: "Define una clase en Visual Basic para representar un libro con propiedades como título, autor y año de publicación."
Respuesta:

Public Class Libro
    Public Property Titulo As String
    Public Property Autor As String
    Public Property AnioPublicacion As Integer
End Class


3. Manejo de excepciones:
Pregunta: "Escribe un código en Visual Basic para abrir un archivo y manejar posibles excepciones como archivo no encontrado o permisos insuficientes."
Respuesta: Utilizaría un bloque Try...Catch para manejar las excepciones.

Try
    ' Intentar abrir el archivo '
    Dim sr As New System.IO.StreamReader("ruta_del_archivo.txt")
    ' Realizar operaciones con el archivo '
    sr.Close()
Catch ex As System.IO.FileNotFoundException
    ' Manejar excepción de archivo no encontrado '
    MessageBox.Show("El archivo no se encontró.")
Catch ex As System.IO.IOException
    ' Manejar excepciones de E/S (entrada/salida) '
    MessageBox.Show("Error al acceder al archivo.")
End Try

6. Uso de consultas SQL en Visual Basic:
Pregunta: "Escribe una consulta SQL en Visual Basic para recuperar todos los clientes de una tabla llamada Clientes."
Respuesta: Utilizaría un objeto SqlCommand para ejecutar la consulta SQL y un objeto SqlDataAdapter para llenar un DataSet con los resultados.
vb

Dim connectionString As String = "cadena_de_conexión"
Dim query As String = "SELECT * FROM Clientes"
Using conexion As New SqlConnection(connectionString)
    Using adaptador As New SqlDataAdapter(query, conexion)
        Dim dataSet As New DataSet()
        adaptador.Fill(dataSet, "Clientes")
        ' Utilizar el dataSet para trabajar con los datos recuperados '
    End Using
End Using

XML

1. Lectura de un archivo XML:
Pregunta: "¿Cómo leerías y procesarías datos de un archivo XML en Visual Basic?"
Respuesta: Utilizaría la clase XmlDocument para cargar y analizar el archivo XML, luego navegaría por sus nodos para acceder a la información requerida.

Dim doc As New XmlDocument()
doc.Load("ruta_del_archivo.xml")
Dim nodoRaiz As XmlNode = doc.DocumentElement

For Each nodo As XmlNode In nodoRaiz.ChildNodes
    If nodo.Name = "cliente" Then
        Dim nombre As String = nodo.SelectSingleNode("nombre").InnerText
        Dim edad As Integer = Convert.ToInt32(nodo.SelectSingleNode("edad").InnerText)
        ' Procesar datos del cliente aquí '
    End If
Next

2. Escritura de datos en un archivo XML:
Pregunta: "¿Cómo crearías y escribirías un archivo XML en Visual Basic?"
Respuesta: Utilizaría la clase XmlWriter para crear un nuevo documento XML y escribiría los datos necesarios en él.

Using escritor As XmlWriter = XmlWriter.Create("nuevo_archivo.xml")
    escritor.WriteStartDocument()
    escritor.WriteStartElement("personas")

    escritor.WriteStartElement("persona")
    escritor.WriteElementString("nombre", "Juan")
    escritor.WriteElementString("edad", "30")
    escritor.WriteEndElement()

    escritor.WriteStartElement("persona")
    escritor.WriteElementString("nombre", "María")
    escritor.WriteElementString("edad", "25")
    escritor.WriteEndElement()

    escritor.WriteEndElement()
    escritor.WriteEndDocument()
End Using

3. Consulta de datos XML utilizando LINQ to XML:

Dim doc As XDocument = XDocument.Load("ruta_del_archivo.xml")
Dim clientes As IEnumerable(Of XElement) = From cliente In doc.Descendants("cliente")
                                           Where cliente.Element("edad").Value > 18
                                           Select cliente

For Each cliente As XElement In clientes
    Dim nombre As String = cliente.Element("nombre").Value
    Dim edad As Integer = Convert.ToInt32(cliente.Element("edad").Value)
    ' Procesar datos del cliente aquí '
Next




CREACION DE INTERFACES


Public Class FormularioPrincipal
    Inherits System.Windows.Forms.Form

    Private WithEvents label1 As System.Windows.Forms.Label
    Private WithEvents textBoxNombre As System.Windows.Forms.TextBox
    Private WithEvents buttonSaludar As System.Windows.Forms.Button

    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub InitializeComponent()
        Me.label1 = New System.Windows.Forms.Label()
        Me.textBoxNombre = New System.Windows.Forms.TextBox()
        Me.buttonSaludar = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'label1
        '
        Me.label1.AutoSize = True
        Me.label1.Location = New System.Drawing.Point(50, 50)
        Me.label1.Name = "label1"
        Me.label1.Size = New System.Drawing.Size(58, 13)
        Me.label1.TabIndex = 0
        Me.label1.Text = "Introduce:"
        '
        'textBoxNombre
        '
        Me.textBoxNombre.Location = New System.Drawing.Point(120, 50)
        Me.textBoxNombre.Name = "textBoxNombre"
        Me.textBoxNombre.Size = New System.Drawing.Size(150, 20)
        Me.textBoxNombre.TabIndex = 1
        '
        'buttonSaludar
        '
        Me.buttonSaludar.Location = New System.Drawing.Point(120, 100)
        Me.buttonSaludar.Name = "buttonSaludar"
        Me.buttonSaludar.Size = New System.Drawing.Size(75, 23)
        Me.buttonSaludar.TabIndex = 2
        Me.buttonSaludar.Text = "Saludar"
        Me.buttonSaludar.UseVisualStyleBackColor = True
        '
        'FormularioPrincipal
        '
        Me.ClientSize = New System.Drawing.Size(300, 200)
        Me.Controls.Add(Me.buttonSaludar)
        Me.Controls.Add(Me.textBoxNombre)
        Me.Controls.Add(Me.label1)
        Me.Name = "FormularioPrincipal"
        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub

    Private Sub buttonSaludar_Click(sender As Object, e As EventArgs) Handles buttonSaludar.Click
        MessageBox.Show("¡Hola, " & textBoxNombre.Text & "!")
    End Sub
End Class