codigo de decimal a octal.

Código convertir numero de decimal a octal

-Utilizaran  una caja de texto para ingresar el número decimal.

-una label para poner la respuesta

Hecho para visual FoxPro

Esto lo tendrán que poner en un botton:

Store 0 to m,n

re=space(30)

t=Val(thisform.t1.value)

do while t<8

                m=mod(t,8)

                n=t/8

                re=re+str(alltrim(m))

                t=n

                m=n

                if t<8

                               re=re+str(alltrim(m))

                endif

enddo

thisform.octal.value=str(re)

fin 

*si les gusto recuerden darlecompartelo y dale like...