Autor
Código:
Private Sub Binario()
DoEvents
Dim bucle5 As Byte, bucle4 As Byte, bucle3 As Byte
Dim bucle2 As Byte, bucle1 As Byte, resultado$, equivalente$
equivalente = -1
For bucle5 = 0 To 1
For bucle4 = 0 To 1
For bucle3 = 0 To 1
For bucle2 = 0 To 1
For bucle1 = 0 To 1
equivalente = equivalente + 1
resultado = bucle5 & bucle4 & bucle3 & _
bucle2 & bucle1 & " - " & equivalente
Next bucle1
Next bucle2
Next bucle3
Next bucle4
Next bucle5
End Sub
DoEvents
Dim bucle5 As Byte, bucle4 As Byte, bucle3 As Byte
Dim bucle2 As Byte, bucle1 As Byte, resultado$, equivalente$
equivalente = -1
For bucle5 = 0 To 1
For bucle4 = 0 To 1
For bucle3 = 0 To 1
For bucle2 = 0 To 1
For bucle1 = 0 To 1
equivalente = equivalente + 1
resultado = bucle5 & bucle4 & bucle3 & _
bucle2 & bucle1 & " - " & equivalente
Next bucle1
Next bucle2
Next bucle3
Next bucle4
Next bucle5
End Sub
Ahora estoy buscando la forma de hacer la función Bin() pero no lo he conseguido, me trae de cabeza el algoritmo.
Hilsener.
En línea
