Visual Basic.NET - ESTUDIANTE

   
Vista:

ESTUDIANTE

Publicado por JUAN (1 intervención) el 17/09/2007 19:33:14
QUISIERA SABER DE UN CODIGO EN VISUAL BASIC. NET Q EM PERMITA HALLAR EL VALOR ASCII DE CARACTERES ASI MISMO COMO SU VALOR EN BINARIO
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:ESTUDIANTE

Publicado por Harold V. (411 intervenciones) el 17/09/2007 21:49:15
Hola:

Este codigo te obtiene, el Binario de Caracteres y numeros.......

Function GetCharBinary(ByVal Caracter As Char) As String
Dim valor As Integer = Asc(Caracter)
Dim s As String = ""
While valor > 0
If valor Mod 2 = 0 Then
s = s & "0"
valor = valor / 2
Else
s = s & "1"
valor = Math.Round(((valor / 2) - 0.1))
End If
End While
'con esta sentencia obtienes la cadena al reves
Return Microsoft.VisualBasic.StrReverse(s)

End Function

Function GetNumberBinary(ByVal Valor As Integer) As String
Dim s As String = ""
While valor > 0
If valor Mod 2 = 0 Then
s = s & "0"
valor = valor / 2
Else
s = s & "1"
valor = Math.Round(((valor / 2) - 0.1))
End If
End While
'con esta sentencia obtienes la cadena al reves
Return Microsoft.VisualBasic.StrReverse(s)

End Function


Private Sub cmdShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShow.Click
'Binario del caracter 5
MsgBox(GetCharBinary("5")) '110101 Binario
MsgBox(Asc("5")) '53 ----> Ascii

'Binario del numero 5
MsgBox(GetNumberBinary(5)) '101 Binario

End Sub
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