Responder
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