
20/10/2004, 19:19
|
| | Fecha de Ingreso: noviembre-2003
Mensajes: 127
Antigüedad: 21 años, 2 meses Puntos: 1 | |
alguien me lo puyede explicar?? Hola a todos, quiero pedirles ayuda,encontré en un tutorial de "Guille" esta rutina y no la entiendo bien y quisiera que me la expliquen, acá va:
Private Function Dec2Bin(sNumDec As String) As String
' Recibe una cadena que será un número decimal
' Devuelve ese número representado por ceros y unos
' el resultado será un binario de 8 bits
Dim i As Integer
Dim lngNum As Long ' Long, por si las moscas
Dim sTmp As String ' Cadena temporal
lngNum = Val(sNumDec)
sTmp = ""
For i = 0 To 7
If lngNum And 2 ^ i Then
sTmp = sTmp & "1"
Else
sTmp = sTmp & "0"
End If
Next
Dec2Bin = sTmp
End Function
Por ejemplo si se ingresa el numero 10 en un textbox, el valor de lngNum será siempre 10 y la iesima potencia de 2 será en cada iteracción 1,2,4,8,16,.....,255, entonces la sentencia será siempre verdadera y la cadena sTmp será "11111111", ¿cuando se cumple que la sentencia es falsa????.
Espero me ayuden, gracias.
David |