Funcion Decimal a Binario
Publicado por alemardi (1 intervención) el 18/09/2006 08:28:27
Dim numero As Integer
Dim cadenabinaria As String
numero = Val(Me.TextBox1.Text)
cadenabinaria = ""
While numero > 0
cadenabinaria = numero Mod 2 & cadenabinaria
numero = numero / 2
End While
Me.TextBox2.Text = cadenabinaria
Es a lo mas q he podido llegar, pero este programita no está del todo bien, le hace falta algo xq no está del todo bien, creo q tira un par de ceros de más... ¿quien me adyuda a resolverlo?
Dim cadenabinaria As String
numero = Val(Me.TextBox1.Text)
cadenabinaria = ""
While numero > 0
cadenabinaria = numero Mod 2 & cadenabinaria
numero = numero / 2
End While
Me.TextBox2.Text = cadenabinaria
Es a lo mas q he podido llegar, pero este programita no está del todo bien, le hace falta algo xq no está del todo bien, creo q tira un par de ceros de más... ¿quien me adyuda a resolverlo?
Valora esta pregunta
0