Visual Basic - Juntar numero y pasar de binario a decimal

Life is soft - evento anual de software empresarial
 
Vista:

Juntar numero y pasar de binario a decimal

Publicado por Matias (1 intervención) el 27/07/2009 00:29:13
Buenas a toda la comunidad, tengo dos pequeñas dudas que espero puedan explicarme. La primera es que tengo que unir dos numeros, supongan 17 y 23, en una variable, pero no hacer 17+23, sino "juntar" esos dos y que me quede 1723 (por poner un ejemplo) y ese numero lo guarde en una variable.

La otra cuestion, es como hago para pasar, suponganse yo tengo en una variable el numero 00010010 (binario) y quiero guardarlo en otra variable pero en decimal (pasar ese numero a decimal) ?

Muchas Gracias, de enserio!

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Juntar numero y pasar de binario a decimal

Publicado por Antoni Masana (79 intervenciones) el 27/07/2009 13:27:22
A la primera pregunta la respuesta es usando el signo &

Text1.Text = 17 & 23

A la segunda pregunta aqui te dejo una rutina

Private Sub Boton_Click()
numbin = CStr(Text_Bin.Text)
nbits = Len(numbin)
Pos = nbits
For i = 1 To nbits
aux1 = Mid(numbin, Pos, 1): Pos = Pos - 1
If aux1 = "1" Then
numdec = numdec + 2 ^ (i - 1)
End If
Next
Text_Dec.Text = numdec
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Juntar numero y pasar de binario a decimal

Publicado por Matias (1 intervención) el 27/07/2009 20:41:18
Solucionado, millones de gracias !
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar