Quomon.esRespuesta
jul. 08, 2011 - 05:55
pichurrismoy2 : No entiendo cual es tu problema. Podrías explicarte un poco mas..
Saludos.
Saludos.
nombre a binario me sale en binario pero no se borra necesito lo que va en private sub
Dim C
Dim DD
Dim EE
Dim BinArray(7)
Dim temporal
Dim nuevacadena
Private Sub enviar_Click()
uno.Text = "moises"
tabla.Caption = "resultado"
For C = 1 To Len(tabla)
DD = Asc(Mid(tabla, C, 1))
BinArray(7) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(6) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(5) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(4) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(3) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(2) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(1) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(0) = CStr(DD Mod 2)
For EE = 0 To UBound(BinArray)
temporal = temporal & BinArray(EE)
Next
tabla = tabla & temporal
temporal = ""
Next
End Sub
Dim DD
Dim EE
Dim BinArray(7)
Dim temporal
Dim nuevacadena
Private Sub enviar_Click()
uno.Text = "moises"
tabla.Caption = "resultado"
For C = 1 To Len(tabla)
DD = Asc(Mid(tabla, C, 1))
BinArray(7) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(6) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(5) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(4) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(3) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(2) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(1) = CStr(DD Mod 2)
DD = DD \ 2
BinArray(0) = CStr(DD Mod 2)
For EE = 0 To UBound(BinArray)
temporal = temporal & BinArray(EE)
Next
tabla = tabla & temporal
temporal = ""
Next
End Sub
Status:
Open jun. 10, 2011 - 10:05
¿Tiene la misma pregunta? Siga esta pregunta
1respuesta
Comparta su propia experiencia y conocimientos
Buscamos asegurarnos de que cada pregunta sea respondida por las mejores personas con conocimientos y experiencia relevantes; las mejores respuestas incluyen múltiples perspectivas. ¿Tiene conocimientos o experiencia relevantes para contribuir con su respuesta a alguna de estas preguntas frecuentes?
Añadir Nuevo Comentario