visual

SUBMODULO III : Elaborar sistemas de información mediante un lenguaje de programación visual

Comandos de visual FoxPro 

Create: Crea una nueva tabla de Visual FoxPro.

Close data base: cierra una base de datos.

List: Muestra continuamente información de tabla o de entorno.

Cancel: Finaliza la ejecución del archivo de programa actual de Visual FoxPro.

Append: Agrega uno o más registros nuevos al final de una tabla.

Close All: cierra la base de datos activa y todas sus tablas.

Clear: Libera de la memoria el elemento o los elementos especificados.

Store: Almacena datos en una variable, en una matriz o en un elemento de matriz.

Use: Abre una tabla y sus archivos de índice asociados, o una vista SQL.

Index: Crea un archivo de índice para mostrar registros de tabla y tener acceso a los mismos en un orden lógico.

Sort: Ordena los registros de la tabla seleccionada actualmente y envía los registros ordenados a una tabla nueva.

Browse: Abre la ventana Examinar y muestra los registros de la tabla actual o seleccionada.

CREATE (Comando)

Crea una nueva tabla de Visual FoxPro.
Especifica el nombre de la tabla que desea crear.
Presenta el cuadro de diálogo Crear, que le pide el nombre para la tabla que se va a crear.

CLOSE (Comandos)

Cierra todas las bases de datos, tablas e índices abiertos en la sesión de datos actual y en todas las sesiones de datos inactivas y selecciona el área de trabajo 1. CLOSE ALL también cierra los archivos abiertos con las funciones de archivo de bajo nivel FCREATE ( ) y FOPEN ( ). CLOSE ALL no cierra un archivo abierto con SET PRINT.

CLOSE ALL también cierra lo siguiente: 

Diseñador de formularios
Administrador de proyectos
Diseñador de etiquetas
Diseñador de informes
Diseñador de consultas

CLOSE ALL no cierra lo siguiente: 

La ventana Comandos
La ventana Depuración
Ayuda
La ventana Seguimiento

CLOSE DATABASES [ALL]

Cierra la base de datos actual de la sesión de datos actual, así como sus tablas. Si no hay ninguna base de datos activa, se cierran todas las tablas libres, los índices y los archivos de formato abiertos en todas las áreas de trabajo y se selecciona el área de trabajo 1.

ALL

Especifica que, en la sesión de datos actual y en todas las sesiones de datos inactivas, se cierre lo siguiente:
· Todas las bases de datos abiertas y sus tablas.
· Todas las tablas libres abiertas.
· Todos los índices y archivos de formato de todas las áreas de trabajo.

LIST (Comandos) 

El alcance predeterminado de LIST es ALL (todos los registros).

LIST no le avisa después de llenar con información la ventana principal de Microsoft Visual FoxPro o una ventana definida por el usuario.

LIST no muestra los registros marcados para su eliminación cuando SET DELETED esté establecido en ON.

Modify structure: Muestra el Diseñador de tablas, que permite modificar la estructura de una tabla.

ejemplo: DISPLAY STRUCTURE [IN nWorkArea | cTableAlias]
   [TO PRINTER [PROMPT] | TO FILE FileName] [NOCONSOLE]

Modify command: Abre una ventana de edición de texto y le permite modificar o crear un archivo de programa.

ejemplo: MODIFY COMMAND [FileName | ?] [NOEDIT] [NOMENU] [NOWAIT]
   [RANGE nStartCharacter, nEndCharacter] [[WINDOW WindowName1]
   [IN [WINDOW] WindowName2 | IN SCREEN]] [AS nCodePage] [SAME]
   [SAVE]

Delete: Marca los registros que se van a eliminar.

ejemplo: DELETE [Scope] [FOR lExpression1] [WHILE lExpression2]
   [IN nWorkArea | cTableAlias] [NOOPTIMIZE]

Report form: Muestra o imprime un informe bajo el control de un archivo de definición de informe creado con MODIFY REPORT o CREATE REPORT.

zap: Elimina todos los registros de la tabla actual y deja sólo la estructura de la tabla

ejemplo: ZAP [IN nWorkArea | cTableAlias]

pack: Borra definitivamente todos los registros marcados para eliminar de la tabla actual y reduce el tamaño de un archivo memo asociado a la tabla.

ejemplo:PACK [MEMO] [DBF] [Tablename ] [IN nWorkarea | cTableAlias]

locate: Busca secuencialmente en la tabla el primer registro que coincida con la expresión lógica especificada.

ejemplo:LOCATE [FOR lExpression1] [Scope] [WHILE] [NOOPTIMIZE]
   [IN nWorkArea | cTableAlias]

go top:Sitúa el puntero de registro en el primer registro de la tabla.


go bottom: Sitúa el puntero de registro en el último registro de la tabla. 

1.- En este primer ejercicio vamos a escribir un programa que lea tres números y determine el numero mayor el numero central y el numero menor. Debemos asumir que los tres números son siempre distintos. 

Close ALL
Clear
?"PROGRAMADOR: jessica
?""
Input "INTRODUCA EL VALOR DE A" TO nA
Input "INTRODUSCA EL VALOR DE B" TO nB
Input "INTRODUSCA EL VALOR DE C" TO nC
IF  nA > nB Then
nMay = nA
nMen = nB
Else
nMay = nB
nMen = nA
Endif
IF nC > nMay Then
nCen = nMay
nMay = nC
Else
IF nC >  nMen   Then
nCen = nC
Else
nCen = nMen
nMen = nC
endif
Endif
? "MAYOR =" + STR(nMay)
? "CENTRAL =" + STR(nCen)
? "MENOR =" + STR(nMen)

Un restaurante ofrece un descuento del 10%para consumos mayores $30.00 y $50.00; un descuento del 20% para consumos mayores de $50.00; para todos los demás no se aplica ningún tipo de descuento. El ejercicio consiste en elaborar un programa  que permite determinar el importe a pagar por consumidor .

close all
clear
?"PROGRAMADOR: jessica"
?""
do while .T.
input "consumo:" to nconsumo
if type ("nconsumo") = "N"
exit
endif
enddo
do case
case nconsumo >=30 and nconsumo <=50
nimporte = nconsumo * 0.9
case nconsumo >50
nimporte = nconsumo * 0.8
otherwise
nimporte = nconsumo
endcase
? "importe a pagar :" + str(nimporte)

3.- El ejercicio consiste en escribir un programa que lea "n" enteros y calcule la suma total, la media aritmética, el máximo y el mínimo de los datos. 

Close all 

Clear 

?"PROGRAMADOR: jessica"

?""

input "ingrese cantidad de numeros" to nN 

declare avector (nN) 

for nI = 1 to nN 

input "numero [" + str(nI) +"]?" to avector (nI)

next 

nmax = avector [1]

nmin = avector [1]

nsuma =0 

for nI = 1 to nN 

nsuma = nsuma + avector [nI]

if avector [nI] > nmax then 

nmax = avector(nI)

endif

if avector [nI] > nmin then 

nmin = avector(nI)

endif  

next 

nmedia = nsuma /nN 

?"suma = " + str(nsuma) 

?"media = " + str(nmedia,10,2)

?"maximo = " + str(nmax) 

?"minimo = " + str(nmin)

4.- A continuación vamos a escribir una función que reciba como argumento de entrada una cadena de caracteres y la devuelva en forma inversa, Por ejemplo si ingresa la cadena CORAZÓN deberá retornar NOZAROC.   

close all 

clear 

?"PROGRAMADOR: “Jessica “

?""

accept "ingrese una cadena?" to ccadena 

? "cadena invertida =" + cadinv(ccadena)

function cadinv 

parameters ccadena 

nN = len (alltrim(ccadena)) 

declare ctemporal (nN)

for nI = 1 to nN 

ctemporal (nI) = substr(ccadena,nI,1)

next 

cinvertida =""

for nJ= nN TO 1 STEP -1

cinvertida = cinvertida + ctemporal(nJ)

next J 

return cinvertida 

TC

#include<stdio.h>
#include<conio.h>
main()
{
void dibujamarco();
void ponmensaje();
void ponventana();
char nom[25],puesto[25],cla[6],empleado[25];
int i,hrs;
float pagohr,com,tp,td,isr,imss,ant,sn;
clrscr(); ponventana(1,1,79,23,2); window(2,2,78,22);
textcolor(2); ponmensaje(2,"cetis 146 de rioblanco ver.",6); textcolor(7);
gotoxy(10,5); printf("dar el nombre de 5 empleados");
for (i=1;i<=3;i++)
{
 clrscr();
 textcolor(3); ponmensaje(2,"cetis 146 rio blanco ver.",61);textcolor(7);
 gotoxy(10,5); printf("optener el salario de 5 empleados");
 gotoxy(10,7); printf("empleado:");
      scanf("%f",&empleado);
 gotoxy(10,10); printf("clave:");
scanf("%s",&cla);
 gotoxy(10,11); printf("puesto:");
scanf("%s",&puesto);
 gotoxy(10,12); printf("horas laboradas:");
scanf("%d",&hrs);
 gotoxy(10,13); printf("pago por hora:");
scanf("%s",&pagohr);
 gotoxy(10,14); printf("comicion:");
scanf("%f",&com);
 tp=hrs*pagohr+com;
 gotoxy(10,15); printf("%s tiene persecsiones de:%f",empleado,tp);
 isr=tp*.04;
 imss=tp*.06;
 gotoxy(10,16); printf("dar antisipo del trabajador:");
scanf("%f",&ant);
 td=isr+imss+ant;
 sn=tp-td;
 gotoxy(10,17); printf("tiene deducsiones de %f",td,"y su sueldo neto es de %f",sn);
 getch();
 }
 }
void ponmensaje(int renglon, char mensaje[], int largo)
{
gotoxy((largo-strlen(mensaje))/2+1,renglon);
cprintf(mensaje);
}
void ponventana(char xs, char ys,char xi,char yi,char selector)
{
void dibujamarco();
dibujamarco(xs,ys,xi,yi,selector);
window(xs+1,ys+1,xi-1,yi-1);
clrscr();
}

void dibujamarco(char xs,char ys,char xi,char yi,char selector)
{
int i;
char k1,k2,k3,k4,k5,k6;
switch(selector)
{
case 1:
      { k1=218;k2=191;k3=192;
k4=217;k5=196;k6=179;
break;
       }
case 2:
       { k1=201;k2=187;k3=200;
k4=188;k5=205;k6=186;
break;
       }
}
gotoxy(xs,ys);
putch(k1);
for(i=xs+1;i<xi;i++)
putch(k5);
putch(k2);
for(i=ys+1;i<yi;i++)
{
gotoxy(xs,i);
putch(k6);
gotoxy(xi,i);
putch(k6);
}
gotoxy(xs,yi);
putch(k3);
for(i=xs+1;i<xi;i++)
putch(k5);
putch(k4);
}









#include<stdio.h>
#include<conio.h>
main()
{
char cla[6],puesto[15],empleado[25];
int hrs;
float pagohr,com,tp,td,isr,imss,ant,sn;
clrscr();
gotoxy(5,5);printf("dar la clave del trabajador:");
scanf("%s",&cla);
gotoxy(5,7);printf("empleado:");
scanf("%s",&empleado);
gotoxy(5,9);printf("puesto:");
scanf("%s",&puesto);
gotoxy(5,11);printf("horas laboradas:");
scanf("%d",&hrs);
gotoxy(5,13);printf("pago por hora:");
scanf("%f",&pagohr);
gotoxy(5,15);printf("comision:");
scanf("%f",&com);
tp=hrs*pagohr+com;
gotoxy(5,17);printf("%s tiene percepciones de:%f",empleado,tp);
isr=tp*.04;
imss=tp*.06;
gotoxy(5,19);printf("dar el anticipo del trabajador:");
scanf("%f",&ant);
td=isr+imss+ant;
sn=tp-td;
gotoxy(5,21);printf("tiene deducciones de %f",td,"y su sueldo neto es de %f",sn);
getch();
}





#include <stdio.h>
#include <conio.h>
main()
{
float num1,num2,num3;
void dibujamarco();
void ponmensaje();
void ponventana();
clrscr();
ponventana(1,1,79,23,2);
window(2,2,79,23);
gotoxy(12,35);printf("dar un numero:");
scanf("%f",&num1);
gotoxy(12,40);printf("dar un numero");
scanf("%f",&num2);
num3=(num1+num2);
gotoxy(12,45);printf("la suma de %4.2f + %4.2f es  %4.2f",num1,num2,num3);
getch();
}

void ponmensaje(int renglon,char mensaje[],int largo)
{
gotoxy((largo-strlen(mensaje))/2+1,renglon);
cprintf(mensaje);
}
void ponventana(char xs,char ys,char xi,char yi,char selector)
{
void dibujamarco();
dibujamarco(xs,ys,xi,yi,selector);
window(xs+1,ys+1,xi-1,yi-1);
clrscr();
}
void dibujamarco(char xs,char ys,char xi,char yi,char selector)
{
int i;
char k1,k2,k3,k4,k5,k6;
switch(selector)
{
case 1:
{
k1=218;k2=191;k3=192;
k4=217;k5=196;k6=179;
break;
}
case 2:
{
k1=201;k2=187;k3=200;
k4=188;k5=205;k6=186;
break;
}
}
gotoxy(xs,ys);
putch(k1);
for(i=xs+1;i<xi;i++)
putch(k5);
putch(k2);
for(i=ys+1;i<yi;i++)
{
gotoxy(xs,i);
putch(k6);
gotoxy(xi,i);
putch(k6);
}
gotoxy(xs,yi);
putch(k3);
for(i=xs+1;i<xi;i++)
putch(k5);
putch(k4);
}




#include<stdio.h>

#include<conio.h>
main()
{
char nom[25];float c1,c2,c3,prom;
printf("dar un nombre:");
scanf("%s",&nom);
printf("dar una calificasion:");
scanf("%f",&c1);
printf("dar una segunda calificasion:");
scanf("%f",&c2);
printf("dar una tercer calificasion:");
scanf("%f",&c3);
prom=(c1+c2+c3)/3;
printf("el alumno %s tiene un promedio un promedio de %f",nom,prom);
getch();
}
#include<stdio.h>
#include<conio.h>
main()
{char num [25];
float c1,c2,c3,prom;
clrscr();
gotoxy(5,5);printf("dar un nombre:");
scanf("%s,&nom);
gotoxy(2,5)printf("dar tres calificasiones")
scanf("%f%f%f",&c1,&c2,&c3);
prom=(c1+c2+c3)/3;
if(prom>=6)
{
gotoxy(5,7);primf("%s esta aprobado",nom);
getch();
}
else
{
gotoxy(8,9);prinf("%s esta reprobado",nom);
getch();
}




#include<stdio.h>
#include<conio.h>
main()
{
int num1,num2,mul;
clrscr();
printf("dar un numero:");
scanf("%d",&num1);
printf("dar otro numero:");
scanf("%d",&num2);
mul=num1*num2;
printf("la mul de %d por %d es %d",num1,num2,mul);
getch ();
}




#include<stdio.h>
#include<conio.h>
mein()
{
primtf("dar un mumero");
scanf("%d",&num1);
for(x=1:x=>10;x++);
}




#include(stdio.h)
#include(conio.h)
main()
{
printf("dar un numero:")
printf("dar segundo numero:")
prinft("dar tercer numero:")
}




#include <stdio.h>
#include <conio.h>
main()
{
clrscr();
printf("\tHola que tal\n\n");
printf("\tComo estas\n\n");
printf("\t vien grasias\n\n");
gotoxy(30,12);printf("Jessica Huerta Gonzalez ");

getch ();
}







#include<stdio.h>
#include<conio.h>
main()
{
float num1,num2,num2,prom;
printf("dar un numero:");
scanf("%f" &num1);
printf("dar segundo numero:");
scanf("%f" &num2);
prinft("dar tercer numero:");
scanf("%f" &num3);
}




#include<stdio.h>
#include<conio.h>

main()
{
  void dibujamarco();
  void ponmensaje();
  void ponventana();
  char nom[25];
  float c1, c2, c3, prom;
  int i,apr, rep;
  clrscr(); ponventana(1,1,79,23,2); window(2,2,78,22);
  textcolor(2); ponmensaje(2,"cetis 146 de rioblanco ver.",61); textcolor(7);
  apr=0; rep=0;
  gotoxy(10,5); printf("obtener el promedio de 3 alumnos");
  for (i=1;i<=3;i++)
    {
      clrscr();
      textcolor(3); ponmensaje(2,"cetis 146 de rioblanco ver.",61); textcolor(7);
      gotoxy(10,5); printf("obtener el promedio de 3 alumnos");
      gotoxy(10,7); printf("alumno: %d",i);
      gotoxy(10,10); printf
    ("nombre del alumno:"); scanf("%s",&nom);
      gotoxy(10,11); printf("calificacion del primer parcial:"); scanf("%f",&c1);
      gotoxy(10,12); printf("calificacion del segundo parcial:"); scanf("%f",&c2);
      gotoxy(10,13); printf("calificacion del tercer parcial:"); scanf("%f",&c3);
      prom=(c1+c2+c3)/3;
      if (prom>=6)
{
 gotoxy(10,15); printf("%s esta aprobado con %4.2f",nom,prom);
 apr++;
}
      else
{
textcolor(4);
gotoxy(10,15); printf("%s esra reprobado con %4.2f",nom,prom);
textcolor(7);
getch();
}
     gotoxy(10,19); printf("el total d3e aprobados fue de %d",apr);
     gotoxy(10,20); printf("el total de reprobados fuy %d",rep); getch();
     gotoxy(20,21); printf("programador=> Jessica Huerta Gonzalez. cetis 146.");
     getch();
   }
}



void ponmensaje (int renglon, char mensaje[], int largo)
{ gotoxy((largo-strlen(mensaje))/2+1,renglon);
cprintf(mensaje);
}

void ponventana(char xs,char ys,char xi,char yi,char selector)
{
void dibujamarco();
dibujamarco(xs,ys,xi,yi,selector);
window(xs+1,ys+1,xi-1,yi-1);
clrscr();
}


void dibujamarco(char xs,char ys,char xi,char yi,char selector)
{
int i;
char k1,k2,k3,k4,k5,k6;
switch(selector)
{
case 1:{k1=218; k2=191; k3=192;
k4=217; k5=196; k6=179; break;}
case 2:{k1=201; k2=187; k3=200;
k4=188; k5=205; k6=186; break;}
}
gotoxy(xs,ys); putch(k1);
for(i=xs+1;i<xi;i++) putch(k5);
putch(k2);
for(i=ys+1;i<yi;i++)
  {gotoxy(xs,i); putch(k6); gotoxy(xi,i); putch(k6);
  }
gotoxy(xs,yi); putch(k3);
for(i=xs+1;i<xi;i++) putch(k5);
putch(k4);
}




#include<stdio.h>
#include<conio.h>
main()
{
float num1,num2,num2,prom;
clrscr()
printf("Jessica Huerta ")
printf("dar un numero:");
scanf("%f" &num1);
printf("dar segundo numero:");
scanf("%f" &num2);
prinft("dar tercer numero:");
scanf("%f" &num3);
prom=(num1*num2*num3;
if(prom<1000)/5;
{prinft("dibide entre 5",prom);
getch();
}
else{prinft("multiplica entre 5",prom);
getch();
}
}



#include<stdio.h>
#include<conio.h>
main()
{
 char nom[20];
 float c1,c2,c3,prom;
 int x;
 for(x=1;x<=5;x++)
 {
  printf("dar 3 calificaciones");scanf("%f%f%f",&c1,&c2,&c3);
  prom=(c1+c2+c3)/3;
  if(prom>=6)
   {
    printf("%s esta aprobado con %f",nom,prom);

   }
  else
   {
    printf("%s esta reprobado %f",nom,prom);
}
}





#include<stdio.h>
#include<conio.h>
#include<math.h>
main()
{
float num,raiz,cuadrado,cubo,seno,coseno,tangente;
clrscr();
printf("dar un numero:"); scanf("%f",&num);
raiz=sqrt(num);
cuadrado=pow(num,2);
cubo=pow(num,3);
seno=sin(num);
coseno=cos(num);
gotoxy(10,8); tangente=tan(num);
gotoxy(10,11); printf("la raiz cuadrada de %4.2f es %4.2f",num,raiz);
gotoxy(10,14); printf("el cuadrado de %4.2f es %4.2f",num,cuadrado);
gotoxy(10,17); printf("el cubo de %4.2f es %4.2f",num,cubo);
gotoxy(10,20); printf("el seno de %4.2f es %4.2f",num,seno);
gotoxy(10,23); printf("el coseno de %4.2f es %4.2f",num,coseno);
gotoxy(10,26); printf("la tangente de %4.2f es %4.2f",num,tangente);
getch();
}





#include<stdio.h>
#include<conio.h>
main()
{
char cve[5];
char des[25];
float pcosto,ut,puenta;
clrscr();
printf("dar una clave:");
scanf("%s",&cve);
printf("dar la descripcion de articulo:");
scanf("%s",&des);
printf("dar el presio de costo:");
scanf("%f",&pcosto);
printf("dar la utilidad");
scanf("%f",&ut);
puenta=(pcosto*ut)+pcosto;
printf("el precio de la venta es %f",pcosto);
delay(5000);
}






#include<stdio.h>
#include<conio.h>
#include<math.h>
main ()
{
float x,tang,cuadrado,num;
int opc=0;

while[];(opc!=3)
printf("menu");
printf("1.-tangente");
printf("2.-elebado al cuadrado");
printf("dar una opcion");
scanf("%d",&opc);
switch(opc)
{
case 1:{
       printf("dar un numero:");
       scanf("%f",&x);
       tang=tan(x);
       printf("la tangente es %f",tang);
       getch();
       break;
       }
case 2:{
printf("dar un numero:");
scanf("%f",&num);
cuadrado=pow(num,2);
printf("el cuadrado es %f",cuadrado);
getch();
break;
}
otherwise:{
  printf("error");
  getch();
  break;
  }
     }
}




#include <stdio.h>
#include <conio.h>
#include <math.h>
main()
{
  int opc;
 float num,tangente,coseno,seno;
  opc=0;
  while(opc!=4)
  {
  clrscr();
  gotoxy(5,6); printf("MENU DE OPCIONES");
  gotoxy(5,7); printf("1.Tangente de un nuemero");
  gotoxy(5,8); printf("2.Coseno de un numero");
  gotoxy(5,9); printf("3.Seno de un numero");
  gotoxy(5,10); printf("4.Salida");
  gotoxy(5,12);printf("Que opcion desea?");
  scanf("%d",&opc);


  switch(opc)
  {
    case 1:
  {
  gotoxy(40,6); printf("tangente de un numero");
  gotoxy(40,7); printf("introducir el numero:");
  scanf("%f",&num);
  tangente=tan(num);
  gotoxy(40,10); printf("La tangente de %f es de %f",num,tangente);
  break;
  }
  case 2:
  {
  gotoxy(40,8); printf("coseno de un numero");
  gotoxy(40,9); printf("introducir el numero:");
  scanf("%f",&num);
  coseno=cos(num);
  gotoxy(40,11); printf("El coseno de %f es de %f",num,coseno);
  break;
    }
  case 3:
  {
  gotoxy(40,12); printf("seno de un numero");
  gotoxy(40,13); printf("introducir el numero:");
  scanf("%f",&num);
  seno=sin(num);
  gotoxy(40,14); printf("el seno de %f es de %f",num,seno);
  break;
    }
    otherwise:
    { printf("Salida");
    }
    }
  getch();


}

}







#include <stdio.h>
#include <conio.h>
main()
{
char cve[5];
char desc[25];
float p_cost,utilidad,pventa;
int x;
for (x=1; x<=3; x++)
{
clrscr();
gotoxy (10,8);printf("dar clave del articulo:");
scanf("%s",&cve);
gotoxy (10,10);printf("dar descripcion:");
scanf("%s",&desc);
gotoxy(10,11); printf("dar presio de costo:");
scanf("%f",&p_cost);
gotoxy (10,14); printf("dar cuanto deceas ganar?:");
scanf("%f",&utilidad);
pventa=(p_cost*utilidad)+p_cost;
gotoxy (10,11); printf("el precio de venta es %f",pventa);
getch();
}
}





#include <stdio.h>
#include <conio.h>
main()
{ void dibujamarco();
  void ponmensaje();
  void ponventana();

char cve[6];
char empleado[25];
char puesto[10];
float pagoxhr,com,ant,tp,td,sn,hrs,isr,imss;
int i,x;
for(x=1;x<=3;x++)
{ clrscr();
gotoxy(5,3);printf("empleado No.:%d",x);
gotoxy(5,5);printf("dar la clave del trabajador:");
scanf("%s",&cve);
gotoxy(5,7);printf("dar el nombre del trabajador:");
scanf("%s",&empleado);
gotoxy(5,9);printf("dar puesto:");
scanf("%s",&puesto);
gotoxy(5,11);printf("dar las horas laboradas:");
scanf("%d",&hrs);
gotoxy(5,13);printf("dar pago por hora:");
scanf("%f",&pagoxhr);
gotoxy(5,15);printf("dar la comision:");
scanf("%f",&com);
tp=hrs*pagoxhr+com;
gotoxy(5,17);printf("%s tiene percepcion de:%f",empleado,tp);
isr=tp*.04;
imss=tp*.06;
}
gotoxy(5,17);printf("dar el anticipo del trabajador:");
scanf("%f",&ant);
td=isr+imss+ant;
sn=tp-td;
gotoxy(5,21);printf("tiene deducciones de %f",td,"y su sueldo neto es de %f",sn);
getch();
}

 void ponmensaje(int renglon, char mensaje[], int largo)
 { gotoxy((largo-strlen(mensaje))/2+1,renglon);
 cprintf (mensaje);  }

 void ponventana(char xs, char ys, char xi, char yi, char selector)
 { void dibujamarco();
 dibujamarco(xs,ys,xi,yi,selector);
 window(xs+1,ys+1,xi-1,yi-1);
 clrscr();    }

 void dibujamarco (char xs, char ys, char xi, char yi,char selector)
{ int i;
 char k1, k2, k3, k4, k5, k6;
 switch(selector)
 {
 case1:{ k1=218; k2=191; k3=192;
k4=217; k5=196; k6=179; break; }
 case2:{ k1=201; k2=187; k3=200;
k4=188; k5=205; k6=186; break; }

  }
  gotoxy(xs,ys); putch(k1);
  for(i=xs+1;i<xi;i++) putch(k5);
  putch(k2);
  for(i=ys+1;i<yi;i++) {gotoxy(xs,i); putch(k6); gotoxy(xi,i); putch(k6); }
  gotoxy(xs,yi); putch(k3);
  for(i=xs+1;i<xi;i++) putch(k5);
  putch(k4);
  }



#include<stdio.h>
#include<conio.h>
main()
{int num1,num2,suma;
printf("dar un numero:");
scanf("%d",&num1);
printf("Dar otro numero:");
scanf("%2d",&num2);
suma=num1+num2;
printf("la suma de %d mas %d es %d",num1,num2,suma);
getch();
}



#include<stdio.h>
#include<conio.h>
main()
{
char nom[25];
char cla[25];
float ,pue,pph,com,isr,ims,ant,hl;
clrscr();
printf("dar una clave:");
scanf("%s",&cla");
printf("nombre de empleado:");
scanf("%f",&nom");
printf("puesto:");
scanf("%f",&pue");
printf("pago por hora:");
scanf("%s",&pph");
prinft("comision:");
scanf("%s",&com");
prinft("impusto sobre rrenta:");
scanf("%s",&isr");
prinft("imss:");
scanf("%s",&ims");
prinft("anticipo:");
scanf("%s",&ant");
prinft("horas laboradas:");
scanf("%s",&hl");
pre=(pph*40-isr-ims);
prinft("el sueldo neto es %f",pre); #include<stdio.h>
#include<conio.h>
main ()
{
 void dibujamarco();
 void ponmensaje();
 void ponventana();
 clrscr();
 ponventana(1,1,79,23,2);
 window(2,2,79,23);
 ponmensaje(2,"Jessica Huerta ",61);
 getch();
}
 void ponmensaje(int renglon,char mensaje[],int largo)
{ gotoxy((largo-strlen(mensaje))/2+1,renglon);
  cpritf(mensaje);
}
void ponventana(char xs,char ys,char xi,char yi,char selector)
{
 int i;
 char k1,k2,k3,k4,k5,k6;
 switch(selectro)
  {
  case 1:
  {k1=Ú;k2=¿;k3=À;
  k4=Ù;k5=Ä;k6=³;
  break;
  }
  case 2:
  {k1=É;k2=;k3=È;
  k4=¼;k5=Í;k6=³;
  break;
  }
}
gotoxy(xs,ys);
putch(k1);
for(i=xs+1;i<xi;i++)
 putch(k5);
putch(k2);
for(i=ys+1,i<yi;i++
 {
  gotoxy(xs,i);
  putch(k5);
  gotoxy(xi,1);
  putch(k6);
 }
 gotoxy(xs,yi);
 putch(k3);
 for(i=xs+1;i<xi;i++);
  putch(k5);
 putch(k4);
}

tarea Lenguaje Visual

Visual Fox Pro

En este manual mostraremos lo básico pero también puedes consultar algún libro de Visual FoxPro pues todo será para tu desarrollo, en las bibliotecas o en las librerías. FoxPro es un lenguaje de mucha rapidez, esto lo convierte en un lenguaje de los más rápidos en el mercado, FoxPro es también uno de los lenguajes de programación que contiene mucha potencia en el manejo de las bases de datos.

Conceptos Básicos

Base de datos es un conjunto de datos almacenados en campos y registros, es decir que la base de datos esta conformada por estos dos elementos. Así, por ejemplo:

Base de datos (Campos)

-------------------------------------------------------------------------------

(Nombre de las variables) Nombre Edad Sueldo

-------------------------------------------------------------------------------

(Registros) José Mendoza 19 2,568.52 Omar Mendoza 20 3,759.45

------------------------------------------------------------------------------

Los campos son los que están en vertical y los registros llamados también datos, son los que están en horizontal.

Componentes de Interfaz

Algunas herramientas más utilizadas son:

Ventana Examinar: una vista, tipo hoja de cálculo, de una tabla.

Ventana Código: para desplegar código asociado a varios eventos en los formularios y controles. Cuando un evento se dispara el código se ejecuta.

Ventana Depuración: permite examinar variables de memoria o valores campos y establecer puntos de interrupción. La ejecución del programa se detiene cuando una variable de memoria o una expresión con un punto de interrupción cambian de valor.

Comando Opciones (Menú de Herramientas): permite controlar la configuración de docenas de características en el entorno FoxPro, incluidos todos los comandos SET, así como planillas y bibliotecas de clases.

Ventana Propiedades: permite establecer propiedades en una buena cantidad de generadores, incluidos los generadores de formularios, informes etiquetas y de las bases de datos, también proporciona acceso a propiedades, métodos y código de eventos.

Administrador de Proyectos: un diseño completamente novedoso de FoxPro para Windows, este administrador de proyectos administra todos los componentes de un proyecto en cinco grupos: Bases de datos (con extensión .DBC), tablas libres (con extensión .DBF), vistas locales y remotas, conexiones, etc.

Generador de consultas: una recodificación completa del RQBE (Consulta Relacional Ejemplificada), esta herramienta maneja todos los aspectos de construir una consulta.

Barras de herramientas FoxPro: proporciona a los generadores aplicaciones más de una docena de barras de herramientas para colocar toda la herramienta para varias tareas justo al alcance de sus dedos. Además, puedes diseñar tus propias barras de herramientas en conjunción con formularios, para proporcionar a los usuarios el mismo tipo de acceso instantáneo a las herramientas.

Generadores

Los generadores son entornos de trabajo en los que se construyen componentes de una aplicación de FoxPro.

En la siguiente lista te mostrare algunos generadores:

Generador de clases Para construir objetos reutilizables.

Generador de Bases de Datos Para organizar los datos en tablas y documentar las relaciones entre tablas.

Generador de formularios Para diseñar las pantallas de la aplicación.

Generador de consulta Para construir conjuntos de datos utilizados en reportes y en pantallas de sólo lectura.

Generador de informes Para construir informes para la pantalla o la impresora.

Generador de menús Construye el sistema de menús que ejecuta una aplicación.

Generador de tablas Administra el formato de las tablas utilizadas en la aplicación.

Generador de cuadrículas Permite aprender cómo las configuraciones de la propiedad de cuadrícula del objeto controlan la operación de la cuadrícula.

Asistentes

Son conjunto de cuadro de diálogos que te ayudan paso a paso a crear una determinada aplicación, por ejemplo un formulario, etc.

Asistente para formularios: Construye "Pantallas instantáneas" con la estructura de las tablas basándose en clases prediseñadas, incluidos efectos especiales en las pantallas y botones de navegación ínter construidos.

Asistente para documentación: Documenta la aplicación.

Asistente para informes: Diseña informes, sencillos o complejos, utilizando un poco más que la estructura de las tablas.

Asistente para tablas: Útil para hacer tablas sencillas

Barras de Herramientas

El propósito de que hayan estas barras es para hacerte un poco más fácil el trabajo, es decir que el uso que le dará a la ventana de comandos será un poquito reducido.

Paleta de colores creo que te imaginas que es la barra de los colores en función RGB. Bueno RGB significa (Rojo, Verde y Azul)

Generador de bases de datos en esta barra se manejan el entorno de datos, iconos para: crear, agregar, y quitar una tabla así, como también modificar, vista remota o local, examinar una tabla o editar procedimientos almacenados en el contenedor de la base de datos.

Generador de formularios esta barra te permite el paso rápido de uno a otro entre varios elementos usados en el diseño de pantallas: el entorno de los datos, la ventana propiedades, la ventana código la barra Controles de formularios, la paleta de colores, la barra de herramientas. Distribución, entre otros.

Presentación Preliminar para que una vez diseñado un informe puedas apreciarlo como te quedará y si no te gusta pues lo podrás modificar.

Estándar Este lo verás cuando inicies FoxPro, proporciona acceso al generador de formularios y al Generador de informes, a bases de datos de impresión consultan tablas, conexiones, vistas, etiquetas, programas, clases, archivos de texto y menús.

Administrador de Proyectos

Estos proyectos están integrados por el Administrador de proyectos, quien mantiene la pista de los componentes de la aplicación. Conforme se agregan componentes a un proyecto, (Estas son las carpetas o nombre de los menús del Administrador) FoxPro los colecta bajo alguno de los siguientes encabezados:

Datos: las bases de datos (y todos los elementos que pueden describir), incluidas las tablas, vistas locales y remotas, conexiones y procedimientos almacenados, así como tablas libres y consultas.

Documentos: formularios, etiquetas e informes.

Bibliotecas de clases: repositorios de objetos usados en la aplicación.

Código: los archivos con extensión .PRG que contienen código que no está asociado con un formulario, así como bibliotecas API y archivos llamados por la aplicación.

Otros: menús, archivos de texto y otros, incluyendo mapas de bits.

La barra de herramientas

En FoxPro hay muchos botones, estos botones pertenecen a la barra de herramientas de VFP. También existen otras barras de herramientas. Se hace clic en el menú Ver, aparece una sola opción de barras de herramientas. Sólo haz clic en la barra que quieres activar y aparecerá al igual que la estándar. Algunas de estas barras ya las vimos anteriormente, ¿recuerdas?.

Estructura de un .BDF

Los datos en FoxPro se almacenan en forma de tablas, estas tablas son las bases de datos pues la extensión de estas bases de datos es .DBF aunque también hay otras que se verá más adelante. Los DBF comienzan con una breve descripción de los datos que están en la tabla.

Escritorio de Visual FoxPro

Para ingresar a Visual FoxPro tienes que presionar el botón de inicio / todos los programas / Microsoft Visual Studio 6.0 /Microsoft Visual FoxPro 6.0 (versión windows XP).

inicio / programas / Microsoft Visual Studio 6.0 /Microsoft Visual FoxPro 6.0 (versión windows estándar).

Aparecerá en tu pantalla la siguiente ventana:

Escritorio de Visual FoxPro

Configuración de Visual FoxPro 6.0

Cuando se carga FoxPro, lee un archivo llamado CONFIG.FPW en el directorio VFP. CONFIG.FPW es un archivo de texto ASCII y contiene instrucciones que se leen al momento de iniciar y se convierten en valores predeterminados de la sesión de FoxPro.

He aquí algunos de los elementos que se fijan en la configuración del sistema:

SAFETY = OFF && no avisa antes de sobrescribir archivos

TALK= OFF && no despliega el progreso

ECHO= OFF && inicialmente desactiva el rastreo

DEBUG= ON && habilita el rastreo y la depuración

RESOURCE=FOXUSER && elige un archivo de recursos

RESOURCE=OFF && no se use hasta que se solicite

COMMAND= DO PROG && corre PROG al inicio

Comandos de configuración (SET)

 Create

CREATE {DATABASE | SCHEMA} [IF NOT EXISTS] db_name

    [create_specification [, create_specification] ...]

create_specification:

    [DEFAULT] CHARACTER SET charset_name

  | [DEFAULT] COLLATE collation_name

CREATE DATABASE crea una base de datos con el nombre dado. Para usarCREATE DATABASE, necesita el permiso CREATE en la base de datos. 

CLOSE ALL

Cierra TODAS las Bases de Datos, tablas e índices abiertos en la Sesión de Datos reales y en TODAS las Sesiones de Datos inactivas y Selecciona el área de Trabajo 1. CLOSE ALL also cierra los Archivos abiertos con las Funciones de archivo de Bajo Nivel FCREATE () y fopen (). CLOSE ALL no cierra sin archivo abierto con SET PRINT.

CLOSE ALL also cierra lo siguiente:

• : Diseñador de Formularios
• Administrador de Proyectos
• : Diseñador de ETIQUETAS
• : Diseñador de Informes
• : Diseñador de Consultas

CLOSE ALL no cierra lo siguiente:

• La ventana Comandos
• La ventana Depuración
• Ayuda
• La ventana Seguimiento

CLOSE DATABASE

CLOSE DATABASES [TODO]

Cierra La Base de Datos actual de la Sesión de Datos actual, ASI COMO SUS tablas. Si No Hay Ninguna de base de Datos activa, sí Cierran TODAS las tablas Libres, los índices y los Archivos de Formato abiertos en TODAS las áreas de Trabajo y sí Selecciona el área de Trabajo 1.

TODO

Específica Que, en la Sesión de Datos reales y en TODAS las Sesiones de Datos inactivas, sí Cierre lo siguiente:

·         TODAS las bases de Datos abiertas y Sus tablas.

·         TODAS LAS TABLAS abiertas Libres.

·         Todos los Índices y Archivos de Formato de TODAS las áreas de Trabajo.

Se Selecciona el área de Trabajo 1.

QUIT Comando

 SALIR

---

Utilice siempre QUIT para terminar la sesión de Visual FoxPro.Si apaga el ordenador sin emitir SALIR, archivos abiertos pueden resultar dañados y la pérdida de datos y los archivos temporales de trabajo que normalmente se eliminan pueden dejarse en el disco.


 USE

Utilice el comando

Abre una tabla y sus archivos de índice asociados o abre una vista SQL.

Utilice [[DatabaseName] TableName |! SQLViewName |?]

   [IN nWorkArea | cTableAlias] [ONLINE] [ADMIN] [NUEVO]

   [NOREQUERY [nDataSessionNumber]] [NODATA] 

   [INDICE IndexFileList |? [ORDEN [nIndexNumber | IDXFileName

   | [TAG] TagName [DE CDXFileName] [ascendente | descendente]]]]

   [ALIAS cTableAlias] [EXCLUSIVO] [COMPARTIDO] [NOUPDATE] 

   [CONNSTRING cConnectionString | nStatementHandle]

APPEND (Comando)

AGREGA Uno o Más Nuevos Registros al final, De Una tabla.

APPEND [BLANCO] [IN nWorkArea | cTableAlias] [NOMENU]

GO | GOTO Comando

Este tema aún no ha recibido ninguna valoración - Valorar este tema

Mueve el puntero de registro al número de registro especificado. Hay varias versiones de la sintaxis.

GO [RECORD] nRecordNumber [IN nWorkArea | cTableAlias ​​EN]

GO TOP | FIN [IN nWorkArea | cTableAlias ​​EN]

GOTO [RECORD] nRecordNumber [IN nWorkArea | cTableAlias ​​EN]

GOTO TOP | FIN [IN nWorkArea | cTableAlias ​​EN]

EDIT

Ficha Editor

La ficha Editor del cuadro de diálogo Opciones proporciona la funcionalidad de la ficha Colorear la sintaxis, así como opciones adicionales relacionadas con el Editor de Visual FoxPro.

Ficha IDE

La IDE permite especificar los valores de configuración de varios tipos de editores utilizados por Visual FoxPro, incluyendo programas, métodos, procedimientos almacenados, archivos de texto y memos. Estos valores son los valores predeterminados utilizados por un documento nuevo de un tipo en concreto. Al crear un documento, sus valores de configuración específicos se guardan el archivo de recursos Foxuser, de modo que pueden restaurarse cuando se abre el documento de nuevo.

Una casilla de verificación Pasar por alto proporciona la capacidad de omitir globalmente los valores de configuración de un documento en concreto almacenados en el archivo de recursos Foxuser.

Si utiliza editores de Visual FoxPro en sus aplicaciones distribuidas, puede controlar su funcionalidad limitando el acceso a las funciones de IntelliSense y deshabilitando la disponibilidad de hipervínculos.

BROWSE Comando

Abre la ventana Examinar y muestra registros de la tabla actual o seleccionado.

[BROWSE FIELDS FieldList] [font cFontName [, nFontSize [, nFontCharSet]]] 

   [STYLE cFontStyle] [PARA lExpression1 [REST]] [FORMATO] 

   [FREEZE FieldName] [CLAVE eExpression1 [, eExpression2]] [LAST | NOINIT]

   [NNumberOfFields LOCK] [LPARTITION] [NOMBRE ObjectName] [NOAPPEND]

   [NOCAPTIONS] [NODELETE] [NOEDIT | NOMODIFY] [NOLGRID] [NORGRID] 

   [NOLINK] [NOMENU] [NOOPTIMIZE] [NOREFRESH] [NORMAL] [NOWAIT] 

   [PARTICIÓN nColumnNumber [LEDIT] [REDIT]]

   [PREFERENCIA PreferenceName] [SAVE] [timeout nSeconds] 

   [TÍTULO cTitleText] [VÁLIDO [: F] lExpression2 [ERROR cMessageText]]

   [CUANDO lExpression3] [ANCHO nFieldWidth] [VENTANA WindowName1]

   [IN [WINDOW] WindowName2 | EN PANTALLA] [ESQUEMA DE COLOR nSchemeNumber]

LIST

Muestra la tabla o el entorno de la información sin interrumpir la principal de Visual FoxPro o la ventana definida por el usuario. Hay varias versiones de la sintaxis.

LISTA [CAMPOS FieldList] [Alcance] [PARA lExpression1]

   [MIENTRAS lExpression2] [OFF] [NOCONSOLE] [NOOPTIMIZE]

   [TO PRINTER [PROMPT] | TO FILE FileName [ADITIVO]]

Archivos de lista [ON Drive] [COMO FileSkeleton] 

   [TO PRINTER [PROMPT] | TO FILE FileName [ADITIVO]]

MEMORIA LISTA [LIKE FileSkeleton] [NOCONSOLE]

   [TO PRINTER [PROMPT] | TO FILE FileName [ADITIVO]]

ESTADO LISTA [NOCONSOLE] 

   [TO PRINTER [PROMPT] | TO FILE FileName [ADITIVO]]

Estructura de lista [IN nWorkArea | cTableAlias] [NOCONSOLE]

   [TO PRINTER [PROMPT] | TO FILE FileName [ADITIVO]]

 

DISPLAY (Comando)

Muestra Información about de la tabla activa en la ventana principal de Visual FoxPro o en la ventana DEFINIDA porción el usuario.

DISPLAY [[Campos] FieldList] [Alcance] [PARA lExpression1] 

   [MIENTRAS lExpression2] [OFF] [NOCONSOLE] [NOOPTIMIZE] 

   [TO PRINTER [PROMPT] | TO FILE FileName]

MODIFY ESTRUCTURE

Muestra el : Diseñador de tablas , Que permite Modificar la Estructura De Una tabla.

MODIFICAR LA ESTRUCTURA

Observaciones

En VERSIONES Anteriores de FoxPro, modificar la estructura abría el Cuadro de Diálogo Estructura de la tabla.

Si No Hay Ninguna tabla abierta en el área de Trabajo Seleccionada ACTUALMENTE, SE Muestra el Cuadro de Diálogo Abrir, Que permite elegir la tabla Que se DESEA Modificar.

Los Cambios Que Florerias efectuar en la Estructura De Una tabla INCLUYEN agregar y ELIMINAR campos, Modificar el nombre, el tamano y el Tipo de Datos de los campos, agregar, ELIMINAR o Modificar ETIQUETAS de Índice, especifícalo y el Soporte de Valores nulos en los campos.

Also Florerias Modificar la Estructura De Una tabla utilizando la Interfaz. Para Obtener Más información, VeaModificar la Estructura de la tabla .

PRECAUCION    Al change campos de la ONU pisos de Datos a Otro, el Contenido del campo no Siempre sí transferirá limpiamente. Por EJEMPLO, Si Quiere convertir sin campo de pisos Fecha de pisos numérico, el Contenido del campo No Se transferirá.

Visual FoxPro HACE automaticamente Una Copia de Seguridad de la tabla de apuestas iniciales reales Que USTED Cambie la Estructura de la tabla. De Cuando sí Han terminado las modificaciones, los Datos de la Copia de Seguridad de la tabla sí anexan a la Estructura de Registro Recién modificada. Si la tabla Tiene sin campo memo, also sí crea sin archivo de Seguridad de campos memo. La tabla de Seguridad Tiene la extensión. Bak y el archivo de Seguridad de los campos memo Tiene la extensión. Tbk.

Si Acepta los Cambios de Estructura e interrumpe el Proceso de Copia de Datos, el archivo nuevo no contendrá Todos Los Registros de la tabla inicial.

Recuerde Que Visual FoxPro crea Una Copia. Bak del archivo de tabla original, y Una Copia. Tbk del archivo de campos memo original, si la tabla Tiene algun campo memo. Si Tiene algun Problema con modificar la estructura, Florerias Borrar el o los Archivos Nuevos y change Nombre del archivo. Bak y del archivo. Tbk, si es Que heno algúno, POR SUS extensiones Originales (. Y dbf. Ftp).

De Cuando modifique la Estructura De Una tabla Que Tenga ONU campo memo, el tamano de bloque del archivo memo sí ajustará según rubro la configuracion actual del tamano de bloque. Florerias especifícalo el tamano de bloque del archivo memo con SET BLOCKSIZE.

MODIFY COMMAND

Abre una ventana de edición para que pueda modificar o crear un archivo de programa.

MODIFY COMMAND [nombreDeArchivo |?] [NOEDIT] [NOMENU] [NOWAIT]

   [RANGE nStartCharacter, nEndCharacter] [[VENTANA WindowName1]

   [IN [WINDOW] WindowName2 | EN PANTALLA]] [AS nCodePage] [SAME]

   [SAVE]

DELETE

Marca los registros para su eliminación.

BORRAR [Alcance] [PARA lExpression1] [MIENTRAS lExpression2]

   [IN nWorkArea | cTableAlias] [NOOPTIMIZE]

REPORT FORM

Muestra o imprime un informe que especifique una definición de informe (. Frx) de archivos, por ejemplo, crean con el INFORME CREATE o modificar el dictamen de comandos.

El informe FORM comando puede interpretar archivos de etiquetas de Visual FoxPro (formato lbx), así como archivos de informe. También puede utilizar REPORT FORM para ejecutar archivos de informes basados ​​en personajes creados en FoxPro para MS-DOS.

FORMULARIO DE MEMORIA nombreDeArchivo1 |? [MEDIO AMBIENTE] [Alcance]

   [PARA lExpression1] [MIENTRAS lExpression2] [NOOPTIMIZE]

   [RANGE nStartPage [, nEndPage]]

   [CAPÍTULO cHeadingText] [Resumen] [NORESET] [PLAIN]

   [NOCONSOLE | OFF] [PDSETUP] 

   [NAME ObjectName] 

   [OReportListener OBJETO | iExpression TYPE]

   [A OutputDestination [nodialog]] 

   [PREVIEW [PreviewDestination] [NOWAIT] [VENTANA WindowName]]

PACK

Borra Definitivamente Todos Los Registros Marcados párrafo ELIMINAR de la tabla actual y reduzca el tamano de la ONU archivo memo Asociado a la tabla.

PAQUETE [MEMO] [DBF] [TableName] [IN nWorkArea | cTableAlias]

ZAP
 Elimina Todos Los Registros de la tabla actual y deja solo la Estructura de la tabla.