Practica 12

FORMULARIOS WINDOWS

Objetivos:

• Desarrollar aplicaciones Windows Form
• Practicar el uso de propiedades, métodos y eventos
• Utilizar diferentes tipos de controles

3. Crear una aplicación Windows Form para realizar conversiones entre la base de numeración decimal hacia la siguientes bases: binario, octal y hexadecimal

Código VB.NET

Public Class Form3

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton1.Checked Then
            TextBox2.Text = converDecaBin(Val(TextBox1.Text))
        ElseIf RadioButton2.Checked Then
            TextBox2.Text = converDecaOct(Val(TextBox1.Text))
        ElseIf RadioButton3.Checked Then
            TextBox2.Text = converDecaHex(Val(TextBox1.Text))
        End If
    End Sub
    Function converDecaBin(num As Integer) As Integer
        Dim b, c As String
        Do Until num < 2
            b = b & CStr(num Mod 2)
            num = Int(num / 2)
        Loop
        b = b & num
        c = StrReverse(b)
        Return c
    End Function
    Function converDecaOct(num As Integer) As Integer
        Return Convert.ToString(num, 8)
    End Function
    Function converDecaHex(num As Integer) As String
        Return Convert.ToString(num, 16)
    End Function
End Class

Captura

4. Diseñar una aplicación Windows Form que simule el funcionamiento de un semáforo, controlando el cambio de luces de forma manual, es decir, colocando un solo botón de comando para que el semáforo vaya realizando el cambio de luces (Rojo, Amarillo, Verde).

Código VB.NET

Public Class Form4

    Dim luz As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        luz = luz + 1

        If luz = 1 Then

            Label1.BackColor = Color.Green

            Label2.BackColor = Color.Transparent

            Label3.BackColor = Color.Transparent

        ElseIf luz = 2 Then

            Label1.BackColor = Color.Transparent

            Label2.BackColor = Color.Yellow

            Label3.BackColor = Color.Transparent

        ElseIf luz = 3 Then

            Label1.BackColor = Color.Transparent

            Label2.BackColor = Color.Transparent

            Label3.BackColor = Color.Red

            luz = 0

        End If

    End Sub

End Class

Pantalla de Salida