Visual Basic.NET - Binario a decimal

   
Vista:
Imágen de perfil de Misael

Binario a decimal

Publicado por Misael (21 intervenciones) el 07/06/2016 23:47:24
como puedo realizar este programa, el usuario ingresa un numero binario y cuando le de clic en un botón me lo convierta a decimal y lo muestre en un label
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

Binario a decimal

Publicado por omar pcc.nett.2018@hotmail.com (151 intervenciones) el 08/06/2016 00:19:51
1
2
3
4
5
6
7
8
binario = Trim(Text1.Text) '// Toma el numero binario de un textbox
binario = StrReverse(binario)
largo = Len(binario)
For I = 1 To largo
X = 2 ^ (I - 1)
suma = suma + (Int(Mid$(binario, I, 1)) * X)
Next I
Text2.Text = suma '// Muestra el numero decimal en un textbox
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar