5. CONCATENADOR

En este programa lo que hace es poner un numero en el cuadro de texto “Textbox”, después divide ese valor en 2 y lo muestra en ese mismo “Textbox”, luego el residuo de la división lo muestra en el “label”. Hay que decir que cada vez que haya colocado otro valor en el “Textbox” hay que resetiar el programa con el “Button2” que está allí.

A continuación se mostrara el código que se utilizó:

Public Class Form1

    Dim valor As Integer

    Dim res As Byte

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

        valor = TextBox1.Text

        res = valor Mod 2

        Label1.Text = res & Label1.Text

        valor = valor / 2

        TextBox1.Text = valor

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = 0

        valor = 0

        res = 0

        Label1.Text = ""

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = 0

        valor = 0

        res = 0

        Label1.Text = ""

    End Sub

End Class

La parte gráfica de este programa se ve así:

CONCATENADOR

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES: 

https://www.dropbox.com/s/6ndty7kj5k6rzrw/concatenador.zip