Shapes

Páginas: 5 (1041 palabras) Publicado: 24 de noviembre de 2011
Hola es algo sencillo pero creo a algunos a algunos les puede servir, y también podre seguir agregando mas
Programas que hice mientras estudiaba programación.

#include "graphics.h"
#include "conio.h"
#include "stdio.h"
void linea();
void circulo();
void rectangulo();
void barra();
void elip();
int x1,y1,x2,y2;
char t1;
main(){
char tecla1, tecla2;
int driver,modo;
driver=DETECT;
modo=0;
initgraph(&driver, &modo, "C:\tcc\BGI");
setcolor(12);
setfillstyle(1,2);
floodfill(5,40,12);
rectangle(1,1,639,479);
setcolor(15);
rectangle(2,35,638,450);
setfillstyle(1,3);
floodfill(5,40,15);
settextstyle(1,0,2);
outtextxy(6,6,"CTRL+L");
outtextxy(106,6,"CTRL+C");outtextxy(206,6,"CTRL+E");
outtextxy(306,6,"CTRL+R");
outtextxy(406,6,"CTRL+B");
outtextxy(510,6,"CTRL+F");
outtextxy(200,455,"PARA SALIR PRESIONE <<ESC>>");
do{ tecla1=getch();
if(tecla1==0){
tecla2=getch();
switch(tecla2){
case 12:linea();break;
case 3:circulo();break;
case 5:elip();break;
case 18:rectangulo();break;
case 2:barra();break;case 6:linea();break;
}}
else {
t1=getch();
switch(tecla1){
case 12:linea();break;
case 3:circulo();break;
case 5:elip();break;
case 18:rectangulo();break;
case 2:barra();break;
case 6:linea();break;
} }
}while(tecla1!=27);
closegraph();
}
void linea()
{x1=200;y1=319;x2=250;y2=319;
line(x1,y1,x2,y2);
do{
t1=getch();
switch(t1){
case '+':setcolor(3);
line(x1,y1,x2,y2);
x1=x1-5;x2=x2+5;
setcolor(13);line(x1,y1,x2,y2);
break;
case '-':setcolor(3);
line(x1,y1,x2,y2);
x1=x1+5;x2=x2-5;
setcolor(4);line(x1,y1,x2,y2);
break;
case 75:setcolor(3);
line(x1,y1,x2,y2);
x1=x1-5;x2=x2-5;setcolor(7);line(x1,y1,x2,y2);
break;
case 77: setcolor(3);
line(x1,y1,x2,y2);
x2=x2+5;x1=x1+5;
setcolor(5);line(x1,y1,x2,y2);
break;

case 72: setcolor(3);
line(x1,y1,x2,y2);
y1=y1-5;y2=y2-5;
setcolor(10);line(x1,y1,x2,y2);
break;
case 80: setcolor(3);
line(x1,y1,x2,y2);
y1=y1+5;y2=y2+5;
setcolor(10);line(x1,y1,x2,y2);break;
}
}while(t1!=27);
}
void circulo()
{ int r;
x1=320;y1=160;r=40;
setcolor(14);
circle(x1,y1,r);
do{
t1=getch();
switch(t1){
case '+':setcolor(3);
circle(x1,y1,r);
r=r+5;setcolor(5);
circle(x1,y1,r);
break;
case '-':setcolor(3);
circle(x1,y1,r);
r=r-5;
setcolor(13);circle(x1,y1,r);break;
case 75: setcolor(3);
circle(x1,y1,r);
x1=x1-5;
setcolor(9);circle(x1,y1,r);
break;
case 77:setcolor(3);
circle(x1,y1,r);
x1=x1+5;
setcolor(13);circle(x1,y1,r);
break;
case 72:setcolor(3);
circle(x1,y1,r);
y1=y1-5;
setcolor(9);circle(x1,y1,r);
break;
case 80:setcolor(3);
circle(x1,y1,r);
y1=y1+5;setcolor(10);circle(x1,y1,r);
break;
}
}while(t1!=27);
}
void rectangulo()
{
x1=150;y1=100;x2=200;y2=200;
setcolor(14);
rectangle(x1,y1,x2,y2);
do{
t1=getch();
switch(t1){
case'+':setcolor(3);
rectangle(x1,y1,x2,y2);
x1=x1-5;x2=x2+5;
setcolor(13);
rectangle(x1,y1,x2,y2);
break;case'-':setcolor(3);
rectangle(x1,y1,x2,y2);
x1=x1+5;x2=x2-5;
setcolor(5);
rectangle(x1,y1,x2,y2);
break;
case 75:setcolor(3);
rectangle(x1,y1,x2,y2);
x1=x1-5;x2=x2-5;
setcolor(6);
rectangle(x1,y1,x2,y2);
break;
case 77:setcolor(3);
rectangle(x1,y1,x2,y2);
x1=x1+5;x2=x2+5;
setcolor(7);...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • shapo
  • shapo
  • Shape garmin
  • Shape O Ball
  • Shapes
  • Shapo
  • Bob Train Shapes
  • como usar el milk shape 3d

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS