SOS! Novato!

Idea_
12 de Abril del 2005
Hola!

Necesito operar con numeros binarios. Concretamente efectuar una multiplicación entre dos numeros binarios.

Gracias desde ahora! Un saludo!

Fightinghawk
12 de Abril del 2005
aca escribi este codigo .. en si lo q hace es pasar a enteros a los binarios q escribas .. y los multiplica .. y luego lo pasa a binario al resultado .. no tube tiempo de chekarlo . pero bueno .. lso errores q pueda tener los corriges ..

lleva 3 textbox y un comman button .. en los 2 primeros pones el numero binario .. y listo . suerte .. y espero estudies el codigo y lo comprendas ..

Option Explicit

Private Sub Command1_Click()
Dim Pos As Byte
Dim i As Integer
Dim x As Integer
Dim Val1 As Integer
Dim val2 As Integer
Dim Res As Integer

x = 1
Pos = Len(Me.Text1.Text) - 1
For i = Pos To 0 Step -1
If Mid(Me.Text1.Text, x, 1) = "1" Then
Val1 = Val1 + (2 ^ i)
End If
x = x + 1
Next

x = 1
Pos = Len(Me.Text2.Text) - 1
For i = Pos To 0 Step -1
If Mid(Me.Text2.Text, x, 1) = "1" Then
val2 = val2 + (2 ^ i)
End If
x = x + 1
Next

Res = Val1 * val2

While Res > 0
If Res Mod 2 = 1 Then
Me.Text3.Text = "1" & Me.Text3.Text
Else
Me.Text3.Text = "0" & Me.Text3.Text
End If
Res = (Res / 2) - ((Res Mod 2) / 2)
Wend

End Sub

Idea_
12 de Abril del 2005
Muchas gracias Fightinghawk esta misma tarde voy a probar y a estudiar el codigo a ver si aprendo algo. Ya te digo que tal me salió.

Saludos.