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
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 de maxisis
1
Respuesta
1
Respuesta de softigal
1
Respuesta de ingesoft
-1