6. OPERADOR LOGICO

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

Public Class Form1

    Dim dato1, dato, res As Integer

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

        dato = 0

        dato1 = 0

        TextBox1.Text = dato

        TextBox2.Text = dato1

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        dato = Val(TextBox1.Text)

        dato1 = Val(TextBox2.Text)

        res = dato And dato1

        Text1_Change()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        dato = Val(TextBox1.Text)

        dato1 = Val(TextBox2.Text)

        res = dato Or dato1

        Text1_Change()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        dato = Val(TextBox1.Text)

        dato1 = Val(TextBox2.Text)

        res = dato Xor dato1

        Text1_Change()

    End Sub

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

        dato = 0

        dato1 = 0

        TextBox1.Text = dato

        TextBox2.Text = dato1

        Label1.Text = "Resultado"

    End Sub

    Sub Text1_Change()

        Dim i As Long, x As Long, bin As String

        Const maxpower = 10   ' numero maximo de digitos binarios  soportados

        bin = ""  ' construye el numero binario como cadena

        x = Val(res) 'Convierte decimal a integer

        If x > 2 ^ maxpower Then

            MsgBox("Number must be no larger than " & Str$(2 ^ maxpower))

            Label1.Text = ""

            Exit Sub

        End If

        'aqui se realiza la conversion de decimal a binario

        'numeros negativos tienen "1" en el 32 mas significativo digito

        If x < 0 Then bin = bin + "1" Else bin = bin + "0"

        For i = maxpower To 0 Step -1

            If x And (2 ^ i) Then

                bin = bin + "1"

            Else

                bin = bin + "0"

            End If

        Next

        Label1.Text = bin  ' La respuesta del binario como cadena

    End Sub

End Class

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

OPERADOR LOGICO

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES: 

https://www.dropbox.com/s/531tnizac0aailq/operador_logico.zip