Aplicaciones con Do CaSe Visualfox

Necesito ejemplos de unos programas con do case pero no se que hacer y me cuesta un poco porque es en formulario de visual fox con ese porque que io sepa es solo para hacer Menús.

1 Respuesta

Respuesta
2
¿Estás seguro que es con "DO CASE"? El "DO CASE" es una instrucción para realizar cierta acción dependiendo del resultado de una expresión, es un condicinal y es una instrucción básica en cualquier lenguaje de programación. No está ligada a menús ni formularios de Visual FoxPro, es parte del lenguaje.
Como te mencionaba, el "DO CASE" hará que el programa ejecute cierto código según el valor que tenga el dato a evaluar. Te mando un ejemplo que puedes utilizar en un formulario.
Pensando en un formulario que tiene un cuadro de texto (txtNumeroLetra) y un botón (btnValor). Se escribirá un número con letra (del 0 al 9) en el cuadro de texto y al dar clic en el botón, se mostrará un mensaje que diga el valor numérico tecleado.
** Evento clic del botón "btnValor"
** Se convierte el texto a minúsculas, se quitan los espacios en blanco y se guarda en una variable
cNumero = LOWER(ALLTRIM(ThisForm.txtNumeroLetra.Value))
** Se evalúa el texto tecleado con la instrucción "DO CASE"
DO CASE
CASE cNumero == "cero" && Si el texto es "cero", cValor será "0"
cValor = "0"
CASE cNumero == "uno" && Si el texto es "uno", cValor será "1"
cValor = "1"
CASE cNumero == "dos"
cValor = "2"
CASE cNumero == "tres"
cValor = "3"
CASE cNumero == "cuatro"
cValor = "4"
CASE cNumero == "cinco"
cValor = "5"
CASE cNumero == "seis"
cValor = "6"
CASE cNumero == "siete"
cValor = "7"
CASE cNumero == "ocho"
cValor = "8"
CASE cNumero == "nueve"
cValor = "9"
OTHERWISE && Si el texto no fue ninguno de los casos anteriores, se ejecutará la siguiente línea
cValor = "El texto no se reconoció como un número válido del 0 al 9"
ENDCASE
** Se muestra el mensaje
MESSAGEBOX("Resultado: " + cValor)
Gracias por esa respuesta me ayudaste a entender mejor pero aun no c que otra cosa hacer aparte de ese programa, lo que necesitaría seria resolver algún problema usando "Do Case"
Pero igual Muchas Gracias.
Mm un problema, pues puede ser ese mismo del ejemplo, o si no, algo muy común podría ser mostrar el mes de cierta fecha con letra. Por ejemplo, un formulario con un botón que al darle clic muestre la fecha actual.
** Código del botón
dHoy = DATE() && Fecha de hoy
nDia = DAY(dHoy) && Día del mes
nMes = MONTH(dHoy) && Número del mes (1 a 2)
nAnio = YEAR(dHoy) && Año actual
** Se obtiene el mes con letra usando un "DO CASE"
DO CASE
CASE nMes == 1
cMes = "Enero"
CASE nMes == 2
cMes = "Febrero"
... && Aquí los meses faltantes
CASE nMes == 12
cMes = "Diciembre"
ENDCASE
** Se muestra el mensaje
MESSAGEBOX("Hoy es el día " + STR(nDia, 2) + " del mes de " + cMes + " del año de " + STR(nAnio, 4))
No probé el código pero se supone debe funcionar sin problemas, en caso de no ser así, avísame.
CASE nMes == 1
cMes = "Enero"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Problema para substraer datos de fecha

Tengo un problema para substraer datos de una fecha. La cual esta es ingresada en un formulario automáticamente o también si el usuario quisiera ingresarlo manualmente también, hay un textbox para digitar el día (28) y un combo box para seleccionar...
1 respuesta

Validar Rut en un textbox

Necesito validar en un textbox los Rut(cedula de identidad chilena) que se van ingresando con la siguiente estructura xxxxxxxxX (X = al digito verificador) tengo el siguiente código pero no se como aplicarlo PARAMETERS rut, digver STORE 0 TO suma...
1 respuesta

Intentos fallidos espere para volver a ingresar

La verdad soy nuevo programando en VFP Bueno tengo un formulario de inicio de sesión con dos cuadros de textos y dos botones de comando (aceptar y cancelar), quisiera saber como hago para que cuando tenga 3 intentos fallidos bien sea en Usuario y/o...
1 respuesta

Convertir Números a Letras (Visual FoxPro)

Quisiera saber la manera de convertir los datos numéricos que tengo en un textbox (text1), en letras en otro textbox (text2), es decir, que al escribir un numero (por ejemplo:125) en un textbox, me aparezca en otro textbox que esta abajo [del...
1 respuesta

Tablas en modo Buffering y Variables

Una Pregunta y una Ayuda Primero: Si por ejemplo yo abro un sistema que trabaja en forma multiusuario en el cual están trabajando dos o más usuarios, y este sistema por ejemplo tiene un modulo llamado CARGOS que tiene un texbox donde se escribe la...
1 respuesta

Mandar impresión de ticket

Tengo una caja de punto de venta, que agrega aúna lista los productos que voy vendiendo pero no se como nmandar la impresión ala mini printer. Ya ven que para mandar un reporte ponemos" report form ruta..." El ticket que yo tengo esta en ".txt" y se...
1 respuesta

Ayuda por favor con teclas de función.

Que tala a todos los colaboradores de esta grandiosa, recién me he registrado y es por que tengo un problema con un punto de venta que estoy realizando como proyecto final de una material. Mi problema es el siguiente: Tengo una ventana de Ventas en...
1 respuesta

Page frames y setfocus visual foxpro

Espero que te encuentre bien, la pregunta es: tengo un page frame con 9 pages Todo funciona Pero al usar el comando setfocus para pasar de una page del 2 al 3 y ubicarme dentro de un edit... No establece ese foco (al edit del page 2) sino que sale...
1 respuesta

¿Existe alguna rutina o código para convertir números a texto?

Alguien sabe de una rutina o código para convertir números a texto
1 respuesta

Limpiar textbox

Los expertos soy nuevo en esto de la programación en fox pro y mi duda es la siguiente: hay alguna instrucción para limpiar el contenido de los textbox en un formulario, es decir que al hacer clic en un botón de comando borre el contenido de todos...
1 respuesta