HOLA!!!
Me parece que va a estar bueno, el reto consiste en crear 3 funciones:
(Usa Long por la rapidez y para soportar numeros grandes)
AndAlt(Byte1 As Long, Byte2 As Long) as Long
OrAlt(Byte1 As Long, Byte2 As Long) as Long
XorAlt(Byte1 As Long, Byte2 As Long) as Long
Creo que mucho no hay que explicar las funciones deben devolver lo mismo que los operadores binarios convencionales.
P.D: Me habia olvidado... NotAlt(Byte1 As Long)
P.D2: Creo que es obvio, no se pueden usar los operadores en las funciones.
P.D3:Para los que no saben como funcionan los operadores binarios:
Primero los valores se convierten a binario y luego se hace esto:
And: Solo si se comparte el mismo bit en ambos numeros.
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
-----------------
Result = 0 0 1 0 1 0 0 0
Or : Solo si uno tiene un bit "1".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
-----------------
Result = 1 0 1 1 1 0 1 1
Xor : Solo si uno tiene un bit "1" y el otro "0".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
-----------------
Result = 1 0 0 1 0 0 1 1
GRACIAS POR LEER!!!
.
interesante, regresando le hechare mano de obra.
Dulces Lunas!¡.
.
Aun tiene unos HORRORES al tratar con numeros negativos. xP.
La funcion Not es mas facil que nada al tratarse de numeros decimales xP.
Al rato las mejoro un poco ahora me tengo que ir llevo 2 horas de retraso. xS.
Option Explicit
Public Enum tBase
[ Base2 ] = 2
[ Base8 ] = 8
[ Base10 ] = 10 ' // Se obvia como entrada (La dejo solo para verificar cogruencia)
[ Base16 ] = 16
End Enum
Const conlnLong As Long = &H20 ' // Bites de un Long.
Public Function Dec2Bin(ByVal CurVal As Long) As String
Dim lng_lim As Long
Dim lng_index As Long
Dim byt_res As Byte
Dim boo_min As Boolean
If (CurVal < 0) Then
boo_min = True
CurVal = CurVal * -1 - 1
Dec2Bin = String$(conlnLong, "1")
Else
Dec2Bin = String$(conlnLong, "0")
End If
For lng_index = 0 To conlnLong - 1
byt_res = CurVal Mod 2
If (boo_min = True) Then
If (byt_res = 1) Then
byt_res = 0
Else
byt_res = 1
End If
Mid$(Dec2Bin, conlnLong - lng_index, 1) = byt_res
Else
Mid$(Dec2Bin, conlnLong - lng_index, 1) = byt_res
End If
CurVal = CurVal \ 2
If (CurVal = 0) Then Exit For
Next
End Function
' // Hex no afecta a bases inferiores por ello lo dejo.
Public Function Base2Dec(ByRef inval As String, ByRef InBase As tBase) As Long
Dim lng_lenStr&
Dim lng_Pointer&
Dim lng_Potencia&
Dim lng_limit&
lng_lenStr& = Len(inval)
If (lng_lenStr& >= conlnLong) Then
lng_lenStr& = conlnLong
lng_limit& = 2
Else
lng_limit& = InStr(1, inval, "-")
End If
lng_Potencia& = 0
For lng_Pointer& = lng_lenStr& To lng_limit& Step -1
Base2Dec = Base2Dec + CLng("&H" & Mid$(inval, lng_Pointer, 1)) * InBase ^ lng_Potencia&
lng_Potencia& = lng_Potencia& + 1
Next lng_Pointer&
If (Mid$(inval, 1, 1) = "1") Then Base2Dec = Base2Dec * -1
End Function
Public Function AndAlt(Byte1 As Long, Byte2 As Long) As Long
Dim str1 As String
Dim str2 As String
Dim str3 As String * conlnLong
Dim i As Byte
str1 = Dec2Bin(Byte1)
str2 = Dec2Bin(Byte2)
For i = 1 To conlnLong
If (Mid$(str1, i, 1) = "1") Then
If (Mid$(str1, i, 1) = Mid$(str2, i, 1)) Then
Mid$(str3, i, 1) = 1
Else
Mid$(str3, i, 1) = 0
End If
Else
Mid$(str3, i, 1) = 0
End If
Next i
AndAlt = Base2Dec(str3, [ Base2 ])
End Function
Public Function OrAlt(Byte1 As Long, Byte2 As Long) As Long
Dim str1 As String
Dim str2 As String
Dim str3 As String * conlnLong
Dim i As Byte
str1 = Dec2Bin(Byte1)
str2 = Dec2Bin(Byte2)
For i = 1 To conlnLong
If (Mid$(str1, i, 1) = "1") Then
Mid$(str3, i, 1) = 1
ElseIf (Mid$(str2, i, 1) = "1") Then
Mid$(str3, i, 1) = 1
Else
Mid$(str3, i, 1) = 0
End If
Next i
OrAlt = Base2Dec(str3, [ Base2 ])
End Function
Public Function XorAlt(Byte1 As Long, Byte2 As Long) As Long
Dim str1 As String
Dim str2 As String
Dim str3 As String * conlnLong
Dim i As Byte
str1 = Dec2Bin(Byte1)
str2 = Dec2Bin(Byte2)
For i = 1 To conlnLong
If (Mid$(str1, i, 1) = "1") Then
If (Mid$(str2, i, 1) = "0") Then
Mid$(str3, i, 1) = 1
Else
Mid$(str3, i, 1) = 0
End If
Else
If (Mid$(str2, i, 1) = "1") Then
Mid$(str3, i, 1) = 1
Else
Mid$(str3, i, 1) = 0
End If
End If
Next i
XorAlt = Base2Dec(str3, [ Base2 ])
End Function
Public Function NotAlt(Byte1 As Long) As Long
NotAlt = (Byte1 + 1) * -1
End Function
Ejemplo Basico:
Private Sub Form_Load()
MsgBox XorAlt(AndAlt(NotAlt(7451), OrAlt(10, 456)), 1) & vbNewLine & _
CStr((Not 7451) And (10 Or 456) Xor 1)
End Sub
claro esta que los operadores binarios son los mas rapidos y estos ni ninguno va asuperar la velocidad de los originales.
Temibles Lunas!¡.
HOLA!!!
Aca les dejo mi solucion:
Las funciones son independientes...
Al igual que Black tengo problemas con el And y Or Negativos :P.
Utilizo 3 Array de Flags(bool) Para guardar los numeros y el resultado en binario.
Soporte para tipos de datos Dec, Hex, Oct y Bin.
Private Function AndAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT As Long
Dim Tam As Long
Dim b1 As Long
Dim b2 As Long
b1 = Byte1
b2 = Byte2
Do
ReDim Preserve bit1(CT)
If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
bit1(CT) = CBool(b1 Mod 2)
b1 = Fix(b1 / 2)
CT = CT + 1
Loop
CT = 0
Do
If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
ReDim Preserve bit2(CT)
bit2(CT) = CBool(b2 Mod 2)
b2 = Fix(b2 / 2)
CT = CT + 1
Loop
If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
Tam = UBound(bit1)
ReDim bit3(Tam)
For X = 0 To Tam
If bit1(X) Then If bit2(X) Then bit3(X) = True
Next
For X = 0 To Tam
If bit3(X) Then AndAlt = AndAlt + 2 ^ (X)
Next
End Function
Private Function OrAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT As Long
Dim Tam As Long
Dim b1 As Long
Dim b2 As Long
b1 = Byte1
b2 = Byte2
Do
ReDim Preserve bit1(CT)
If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
bit1(CT) = CBool(b1 Mod 2)
b1 = Fix(b1 / 2)
CT = CT + 1
Loop
CT = 0
Do
If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
ReDim Preserve bit2(CT)
bit2(CT) = CBool(b2 Mod 2)
b2 = Fix(b2 / 2)
CT = CT + 1
Loop
If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
Tam = UBound(bit1)
ReDim bit3(Tam)
For X = 0 To Tam
If bit1(X) Then bit3(X) = True
If bit2(X) Then bit3(X) = True
Next
For X = 0 To Tam
If bit3(X) Then OrAlt = OrAlt + 2 ^ (X)
Next
End Function
Private Function XorAlt(Byte1 As Long, Byte2 As Long) As Long
Dim bit1() As Boolean
Dim bit2() As Boolean
Dim bit3() As Boolean
Dim CT As Long
Dim Tam As Long
Dim b1 As Long
Dim b2 As Long
b1 = Byte1
b2 = Byte2
Do
ReDim Preserve bit1(CT)
If b1 = 1 Then ReDim Preserve bit1(CT): bit1(CT) = True: Exit Do
If b1 = 0 Then ReDim Preserve bit1(CT): Exit Do
bit1(CT) = CBool(b1 Mod 2)
b1 = Fix(b1 / 2)
CT = CT + 1
Loop
CT = 0
Do
If b2 = 1 Then ReDim Preserve bit2(CT): bit2(CT) = True: Exit Do
If b2 = 0 Then ReDim Preserve bit2(CT): Exit Do
ReDim Preserve bit2(CT)
bit2(CT) = CBool(b2 Mod 2)
b2 = Fix(b2 / 2)
CT = CT + 1
Loop
If UBound(bit1) > UBound(bit2) Then ReDim Preserve bit2(UBound(bit1))
If UBound(bit1) < UBound(bit2) Then ReDim Preserve bit1(UBound(bit2))
Tam = UBound(bit1)
ReDim bit3(Tam)
For X = 0 To Tam
If bit1(X) Then If bit2(X) = False Then bit3(X) = True
If bit2(X) Then If bit1(X) = False Then bit3(X) = True
Next
For X = 0 To Tam
If bit3(X) Then XorAlt = XorAlt + 2 ^ (X)
Next
End Function
Private Function NotAlt(Byte1 As Long) As Long
NotAlt = -(Byte1 + 1)
End Function
GRACIAS POR LEER!!!