abrimos el code del conversor y reemplazamos estas dos funciones
- Function EsPotenciaDos(ByVal N As Integer) As Boolean
- EsPotenciaDos = (N = 32) Or (N = 64) Or (N = 128) Or (N = 256) Or (N = 512) Or (N = 1024) Or (N = 2048) Or (N = 4096)
- End Function
- Private Function ObtenerDimension(ByVal mDimension As Integer)
- If mDimension <= 32 Then
- ObtenerDimension = 32
- ElseIf mDimension <= 64 Then
- ObtenerDimension = 64
- ElseIf mDimension <= 128 Then
- ObtenerDimension = 128
- ElseIf mDimension <= 256 Then
- ObtenerDimension = 256
- ElseIf mDimension <= 512 Then
- ObtenerDimension = 512
- ElseIf mDimension <= 1024 Then
- ObtenerDimension = 1024
- ElseIf mDimension <= 2048 Then
- ObtenerDimension = 2048
- ElseIf mDimension <= 4096 Then
- ObtenerDimension = 4096
- End If
- ObtenerDimension = ObtenerDimension + 4
- End Function
miniplus: mostrar el porcentaje redondeado
buscamos
- Label2.Caption = "Completado: " & i / numgraficos * 100 & "%"
- Label2.ForeColor = vbGreen
y lo reemplazamos por
- Label2.Caption = "Completado: " & Round(i / numgraficos * 100) & "%"
- Label2.ForeColor = vbGreen





686![Dragon Ancestral [4] Dragon Ancestral [4]](./images/ranks/Rango33.gif)



![Dragon Ancestral [2] Dragon Ancestral [2]](./images/ranks/Rango31.gif)


![Dragon Ancestral [1] Dragon Ancestral [1]](./images/ranks/Rango30.gif)

![Dragon Ancestral [5] Dragon Ancestral [5]](./images/ranks/Rango34.gif)



![Dragon Ancestral [3] Dragon Ancestral [3]](./images/ranks/Rango32.gif)
