Problemas con Do While En Fox Pro

Intento hacer un formulario que me Simplifique Fracciones, pero me da error en Do While...
nNumerador = Thisformset.FrmIngreso.TxtNumerador.Value
nDenominador = Thisformset.FrmIngreso.TxtDenominador.Value
If nNumerador < nDenominador
    nC = nNumerador
Else
    nc = nDenominador
Endif
Do While (    nNumerador % nC ! = 0 )Or (nDenominador % nC ! = 0 )
    nC = nC - 1
EndDo
nNumerador = nNumerador / nC
nDenominador = nDenominador / nC
Thisformset.FrmIngreso.Hide
Thisformset.FrmSalida.Show
Thisformset.Refresh

1 Respuesta

Respuesta
Por ahora sólo veamos por qué el error.
Primer intento por descubrir lo que sucede. Inicializa los textbox con un valor numérico 0 en el init del formulario.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas