DGETI

SEP

SElT

CENTRO NACIONAL DE ACTUALIZACIÓN DOCENTE EN MECATRÓNICA

CNAD'- Cenidet PROYECTO

CORTADOR DE UNICEL (CORTACEL) Prototipo Mecatrónico Que Presentan: Para obtener el reconocimiento de especialista en Ingeniería Mecatrónica.

AREA DE MAQUINAS:

ÁREA DE CONTROL.

Ing. José Cruz Pereira Vidales. Ing. Ignacio Sifuentes Torres.

Ing. Alberto Montañez Espinosa. Ing. Victor Manuel Reyes Perez.

ASESORES: Máquinas : Ing. Miguel Ángel Urquidez Garcia. : Ing. Jorge Alejandro Butrón Guillén. Control

Julio de 2000

01-0529

:,i:

S E P

,$&

S E I T DGETl

c..* .”-

CENTRO NACIONAL DE AC~I-U.4LIZ.ACIONDOCENTE

Asunto: .Autorización de Impresión del InformeITicnico

C.C.

ING. ALBERTO MONTAN= ESPINOSA ING. VkTOR MANUEL REYES PÉREZ ING. JOSÉ CRUZ PEREIRA VIDALES ING. IGNACIO SIFUENTES TORRES Integrantes del Equipo 4 P R E S E N T E

I

I

Una vez que ha sido revisado el informe técnico del pro)ecto mecatrónico titulado “CORTADOR DE UNICEL (CORTACEL)” por los asesores. ) encontrándolo dentro de la normatividad establecida, autorizan la impresión definitiva de dicho informe. Para los fines que a los integrantes convengan se extiende la presente a los 6 días del mes de julio del dos mil. I

i A T E N T A M E N T E

I

i

ASESORES

Contraparte del área de máquinas

Ing. Alejdbdro Butrón Guillén Contraparte del área de control

INDICE INTRODUCCION...,.........,....,....,..,.,........... .__. ..._...... ............... ... ......

Pág. i

_........._frmna dc conirolicontinuaci6n)

1:qiiipo No. 4

8'. íiciicrxión

67

Cortador de Unicel

CORTA POL~GONO

CORTA ESTRELLA

+,

A

+, i-tl

',

D=-360/N

B=D+C

LINEA

eA=360

X=LONG'Cos(B'n/180) Y=LONG'Sen(B'n/l80)

DIBUJAR LINEA

A=A+360/N

REGRESAR

A=N'2 I:

I

3REGRESAR

4.8 I1iagr;iiiia dr llujo del prograiiia de conlrol(con1inuación)

Equipo No. 4

X". Generacihn

68

Cortador de Unicel

4.1.2 Programa de control del sistema. La codificación del diagrama de flujo del programa de control se muestra en las páginas subsiguientes, cabe señalar que dicho código está realizado usando las técnicas de la programación modular y como ya se ha mencionado, esta codificado en el Lenguaje Turbo C++ versión 3.00.

//Programa: Proyecto Cortador de Unicel //Programa: crulr.cpp //Autor: Ing. Victor Manuel Reyes Pérez //Equipo: No. 4 //Fecha: 26 de J u n i o de 2000 #include #include #include "ucrulr. cpp" void void void void void

demo ( ) , cara ( 1 ; creditos ( ) ,punt (int,int),punt2 (int,int) ; leemen(char men[36]) ; leecad(char men[36] i ,corta(char -men[36]) ; home ( ) , ira (int,in:) ,empieza (int x , int y) ;

'I

void main ( 1

I char *men; i n i g r f o ; //inicializar Gráficos pantalla(); //paritalla de inicio dos (4,4,635,475) ; //fondo pantalla unoílo, 10,629,80!; //pantalla desplegado de caracter men="Centro Nacionzl de Actualización Docente"; settextstyle(4,0,4); setcolor (14); outtextxy(ctrx('i0,629,men),5,men); men="?royecto: CORTADOR DE UNICEL (CORTACEL) settextstyle ( 7 , O, 1) ; setcolor ( 1j ; outtextxy(ctrx(l0,629,men),50,men); cara(); //rutina principal del menú setviewport (O,O , 639,479,O) ; creditosii; //pantdl13 de créditos salida(); //efecto de salida fingrf 0 ; //finalizar modo gráfico 'I;

1

Equipo No. 4

8". Geiicrxión

69

Cortador de Unicel

char tecla; int ctec,x, y,a m ; char rnen[361; int rat,fin; raton=FAL~E; //define no ratón instalado ,-aton -,-st(); //detecta si hay ratón conectado dx=Cx; dy=Cy; dos (100,390,539,420); diboton (50,435,170,465,"Mensaje",O ) ;//opciones principales diboton(200,435,320,465,"Cortar",O); diboton (350,435,470,465,"Demo",O ) ; dibot on ( 5O O, 435,62O, 4 65,"Terminar" ,O ) ; setviewport (210,100,429,379,l); dos (4,4,215,275); setviewport(0,0,639,479,0); x=155; y=450; aum=150; if(raton) //si existe ratón

I raton-pos (x,y); //posiciona ratón prende-c r s r o ; //activa puntero del ratón ielse punt(x,y); //puntero simulado ctec=l; fin'=FALCS ; .do //ciclo de trabajo con el programa

I rat= FALC E ; if(raton & & !rat) 1 raton-lee(); if( (pxr-x)>2) (rat=TRUE:tecia=77;tono(600,10);.) else if ! (pxr-xi:=sia um , ;

Equipo No.4

8'. Generación

70

Cortador de Unicel

ctec++; if (x>605)[ x=605; CteC=4; break; case 75: //tecla flecha izquierda x=x-aum; ctec--; if(x