Foxpro2.6

Hola! Te comento necesito tu ayuda no conozco a nadie en esta vida que sepa Foxpro (el 2.6 para wind) .
Tengo que rendir una materia de hace muchos años
Para que me apruebe tengo que presentar un programa como si fuera para una Escuela.. Para ingresar, Num de Alumno, Nombre, Apellido, Curso, dirección, si esta aprobado o algo más que se me ocurra y hacer una base de datos con el programa funcionando... No tengo ni idea! Solo tengo una hoda de la carpeta de 2001!
Tengo estos prrogramas ejemplos de alguna hojas no me andan ni a apalos es muy sencillo se ve la programación para alguien que sepa no como yo obvio.. Me podrías ayudar por favor sino no me dan el titulo de la secundaria... Gracias
Necesito algún programita cargas los datos te muestre los resultados finales o algo simple pero que ande.. Con estas funciones simples que dimos no más que if, do while, wait wind, read más de eso no dimos... Mila gracias ... Si pòpdes ayudar te lo voy agradecer siempre
Ejemplo 1
clear
stor space (25) to ape, nom, obcos
store 0 to ndc, tot, tipo, fem, masc, cuen, plazo, inver, cred, bco, si, no, crehipo, ning
store space (1) to sexo
@1,2 say "ingrese numero de cliente" get ndc
read
do while ndc <> 0
@2,2 say "ingrese el apellido" get ape
@3,2 say "ingrese el nombre" get nom
@4,2 say "ingrese el sexo" get sexo
@5,2 say "ingrese el tipo de operacion" get obcos
read
do case
case tipo=1
cuen= cuen + 1
case tipo= 2
plazo= plazo + 1
case tipo= 3
case = inver + 1
case tipo= 4
cred = cred + 1
case tipo= 5
crehipo = crehipo + 1
case tipo = 0
ning = ning + 1
endcase
if sexo = "f"
fem = fem + 1
else
masc = masc + 1
endif
if obcos = "si"
si = si + 1
else
no = no + 1
endif
store space (25) to ape, nom, obcos
store space (1) to sexo
@1,2 say "ingrese numero de cliente" get ndc
enddo
@3,2 say "clientes femeninos"
@3,20 say fem
@4,2 say "clientes masculinos"
@4,20 say masc
@5,2 say "operaciones otros bancos"
@5,20 say si
@6,2 say "operaciones este banco"
@6,20 say no
@7,2 say "total de clientes"
@7,20 say tot
@2,2 say "clientes operaciones cuenta correinte"
@2,20 say cuent
@8,2 say "clientes operaciones plazo fijo"
@8,20 say plazo
@9,2 say "clientes operaciones inversiones bancarias"
@9,20 say inver
@10,2 say "clientes operacion credito personal"
@10,20  say credi
@11,2 say "clientes operaciones credito hipotecario"
@11,20 say credi
@12,2 say "clientes ninguna operacion"
@12,20 say ning
clear
Do martin
Ejemplo 2:
clear
store space (25) to ape, nom
store 0 to nda, cur
@1,2 say "ingrese N Alumno" get nda
@2,2 say "ingrese el apellido" get ape
@3,2 say "ingrese el nombre" get nom
@4,2 say "ingrese el Curso" get cur
read
do case
case cur=8
@6,2 say "8vo A¤o EGB3"
case cur=9
@6,2 say "9vo A¤o EGB3"
case cur=1
@6,2 say "Primer A¤o Polimodal"
case cur=2
@6,2 say "Segundo A¤o Polimodal"
case cur=3
@6,2 say "Tercer A¤o Polimodal"
otherwise
@6,2 "Curso Equivocado"
Endcase
wait wind
clear
Ejemplo 3
clear
store 0 to nda, cur, oct, nov, pri, seg, ter, tot
store space (25) to ape, nom
@1,2 say "ingrese N Alumno" get nda
read
do while nda <>0
@2,2 say "ingrese el apellido" get ape
@3,2 say "ingrese el nombre" get nom
@4,2 say "ingrese el Curso" get cur
read
do case
case cur=8
oct = oct+1
case cur=9
nov = nov+1
case cur=1
pri = pri+1
case cur=2
seg = seg+1
case cur=3
ter = ter+1
endcase
read
enddo
tot=oct+nov+pri+seg+ter
@4,2 say "Octavo"
@4,25 say oct
@5,2 say "Noveno"
@5,25 say nov
@6,2 say "Primero"
@6,25 say pri
@7,2 say "Segundo"
@7,25 say seg
@8,2 say "Tercero"
@8,25 say ter
@9,2 say "Total"
@9,25 say tot
wait wind
clear

4 Respuestas

Respuesta
1
Estuve viendo tus ejemplos y te acomodé un poco el tercero. Te cuento que todos tienen alguna pequeña falla. Si te interesa programar en Fox, te recomiendo que lo estudies un poco, y cualquier ayuda que necesites, acá la vas a encontrar. Si lo que querés es únicamente aprobar, te paso el código arreglado, lo presentás y listo.
Clear
Store 0 to nda, cur, oct, nov, pri, seg, ter, tot, otr
store space (25) to ape, nom
@1,2 say "ingrese N Alumno" get nda
READ
Clear
do while nda <>0
    @2,2 say "ingrese el apellido" get ape
@3,2 say "ingrese el nombre" get nom
@4,2 say "ingrese el Curso" get cur
    READ
    do case
        case cur=8
            oct = oct+1
        case cur=9
            nov = nov+1
        case cur=1
            pri = pri+1
        case cur=2
            seg = seg+1
        case cur=3
            ter = ter+1
        OTHERWISE
            otr = otr + 1
    Endcase
    Store 0 to nda, cur
    Store space (25) to ape, nom
    @1,2 say "ingrese N Alumno" get nda
    READ
Enddo
Clear
tot=oct+nov+pri+seg+ter+otr
@4,2 say "Octavo"
@4,25 say oct
@5,2 say "Noveno"
@5,25 say nov
@6,2 say "Primero"
@6,25 say pri
@7,2 say "Segundo"
@7,25 say seg
@8,2 say "Tercero"
@8,25 say ter
@9,2 say "OTROS"
@9,25 say otr
@10,2 say "Total"
@10,25 say tot
Wait wind
Clear
Respuesta
1
Ahí acomodé los 3 ejemplos para que te funcionen, si quieres te puedo pasar programas más complejos, pero me parece que con estos deberían bastar para demostrar en un examen tus aptitudes sobre el manejo básico de FOX para DOS.
Fíjate que los do while usan la condición ndc <> 0 por lo que para finalizar la ejecución tendrías que cargar un 0 (cero) en donde te pide el número.
Ejemplo 1:
Clear
Stor space (25) to ape, nom, obcos
Store 0 to ndc, tot, tipo, fem, masc, cuen, plazo, inver, cred, bco, si, no, crehipo, ning
store space (1) to sexo
@1,2 say "ingrese numero de cliente" get ndc
read
do while ndc <> 0
@2,2 say "ingrese el apellido" get ape
@3,2 say "ingrese el nombre" get nom
@4,2 say "ingrese el sexo" get sexo
Read
do case
case tipo=1
 cuen= cuen + 1
case tipo= 2
 plazo= plazo + 1
case tipo= 3
 case = inver + 1
case tipo= 4
 cred = cred + 1
case tipo= 5
 crehipo = crehipo + 1
case tipo = 0
 ning = ning + 1
endcase
if sexo = "f"
fem = fem + 1
else
masc = masc + 1
endif
if obcos = "si"
si = si + 1
else
no = no + 1
Endif
Store space (25) to ape, nom, obcos
Store space (1) to sexo
@1,2 say "ingrese numero de cliente" get ndc
enddo
@3,2 say "clientes femeninos"
@3,20 say fem
@4,2 say "clientes masculinos"
@4,20 say masc
@7,2 say "total de clientes"
@7,20 say tot
Ejemplo2:
Clear
Store space (25) to ape, nom
Store 0 to nda, cur
@1,2 say "ingrese N Alumno" get nda
@2,2 say "ingrese el apellido" get ape
@3,2 say "ingrese el nombre" get nom
@4,2 say "ingrese el Curso" get cur
Read
do case
case cur=8
@6,2 say "8vo A¤o EGB3"
case cur=9
@6,2 say "9vo A¤o EGB3"
case cur=1
@6,2 say "Primer A¤o Polimodal"
case cur=2
@6,2 say "Segundo A¤o Polimodal"
case cur=3
@6,2 say "Tercer A¤o Polimodal"
Otherwise
@6,2 "Curso Equivocado"
Endcase
Wait wind
Clear
Ejemplo3:
Clear
Store 0 to nda, cur, oct, nov, pri, seg, ter, tot
store space (25) to ape, nom
@1,2 say "ingrese N Alumno" get nda
Read
do while nda <>0
@1,2 say "ingrese N Alumno" get nda
@2,2 say "ingrese el apellido" get ape
@3,2 say "ingrese el nombre" get nom
@4,2 say "ingrese el Curso" get cur
Read
do case
case cur=8
oct = oct+1
case cur=9
nov = nov+1
case cur=1
pri = pri+1
case cur=2
seg = seg+1
case cur=3
ter = ter+1
endcase
read
enddo
tot=oct+nov+pri+seg+ter
@4,2 say "Octavo"
@4,25 say oct
@5,2 say "Noveno"
@5,25 say nov
@6,2 say "Primero"
@6,25 say pri
@7,2 say "Segundo"
@7,25 say seg
@8,2 say "Tercero"
@8,25 say ter
@9,2 say "Total"
@9,25 say tot
Wait wind
Clear
Salu2 y exitos!
Respuesta
1
Yo te puedo ayudar, según vas desarrollando el programa vete preguntándome cualquier tipo de duda.
Muchas Gracias por contestar!.. Te comento ya tengo el programa funcionando... lo que ahora no se como hacer es una base de datos o tablas no se como hacerla para este mismo programa... si puedes ayudar te lo voy agradecer... siempre usando el FoxPro 2.6...
Te paso el programa lo que falta ahora es hacer la base de datos...
clear
store space (20) to ape, nom
store 0 to nda, tot, cur, fem, masc, pri, seg, ter, oct, nov, ning
store space (2) to sexo
clear
@1,2 say "ingrese Numero de Alumno" get nda
read
clear
do while nda <> 0
@2,2 say "Apellido" get ape
@3,2 say "Nombre" get nom
@4,2 say "Sexo" get sexo
@5,2 say "Curso" get cur
read
do case
case cur=1
                pri= pri + 1
case cur= 2
                seg= seg + 1
case cur= 3
                ter = ter + 1
case cur= 8
                oct = oct + 1
case cur= 9
                nov = nov + 1
otherwise
                ning = ning + 1
endcase
if sexo = "f"
                fem = fem + 1
else
                masc = masc + 1
endif
clear
store space (20) to ape, nom
store space (3) to sexo
@1,2 say "ingrese numero de Alumno" get nda
read
enddo
tot=oct+nov+pri+seg+ter+ning
clear
@3,2 say "Alumnas femeninas"
@3,20 say fem
@4,2 say "Alumnos masculinos"
@4,20 say masc
@5,2 say "total de Alumnos"
@5,20 say tot
@6,2 say "Octavo Año"
@6,20  say oct
@7,2 say "Noveno Año"
@7,20 say nov
@8,2 say "Primer Año"
@8,20 say pri
@9,2 say "Segundo Año"
@9,20 say seg
@10,2 say "Tercer Año"
@10,20 say ter
@11,2 say "Otros"
@11,20 say ning
wait wind
clear
No programo con FoxPro 2.6... sino del FoxPro 6 en adelante pero aun así, la base de datos es muy sencilla crearla:
Le das a nuevo proyecto, y ahí tienes una pestaña de datos para crear base datos y vistas, una pestaña de docs para crear formularios e informes y una pestaña de códigos donde creas los programas (como el que as creado tu).
En el siguiente link tienes toda la información de como crear tablas, crear proyectos, primeros pasos en programación, declaración de variables, etc.
http://www.programatium.com/vfox/manual/index.htm
Cualquier duda no dudes en consultarnos.
Respuesta
-1
Amigo como te indique en el email no es lago para hacer en un moneto, es largo y como te dije ya deje de programar linealmente

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas