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
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 de Jorge Luis Vejerano Ortiz