7/23/2019 TAREA5_LLADO

http://slidepdf.com/reader/full/tarea5llado 1/4

NEIFY ALEJANDRA LLADO ESQUIVEL

ING. ELECTROMECÁNICA 9º SEMESTRE

 TAREA 5 SISTEMAS PROGRAMABLES DE CONTROL

INSTRUCCIÓN:

'****************************************************************'DISEÑE UN PROGRAMA PARA CONTROLAR UN VEHICULO DE 2 RUEDAS QUE 'VAYA ADELANTE, ATRÁS, IZQUIERDA Y DERECHA EL CONTROL SERÀ POR'BLUTOOTH Y FUNCIONARÁ DE LA SIGGUIENTE MANERA:'' DATO RECIBIDO * ACCI!N ' *******************************' A * ADELANTE ' B * ATRÁS ' C * IZQUIERDA ' D * DERECHA

'****************************************************************

' TABLA DE VERDAD ' *******************************' A * "#"# ' B * #"#" ' C * "##" ' D * #""#

'****************************************************************Device 16F877A 

XTAL 4

TRISC= %11111111

TRISB= %00000000PORTC=0

PORTB=0

Dim DATO As Byte

DATO=0

  SerOut PORTC.6, 84, ["READY",10,13 ]

  DelayMS 1000

  SerOut PORTC.6, 84, ["READY" ]

  DelayMS 1000

 

INICIO:

  PORTB=0

  SerIn PORTC.7, 84, [DATO ]

  If DATO = "A" Then ADELANTE  If DATO = "B" Then ATRAS

  If DATO = "C" Then IZ!IERDA

  If DATO = "D" Then DERECA

  !T! INICIO

 

ADELANTE:

  PORTB=%00001010

  DelayMS 1000

  !T! INICIO

7/23/2019 TAREA5_LLADO

http://slidepdf.com/reader/full/tarea5llado 2/4

 

ATRAS:

  PORTB=%00000101

  DelayMS 1000

  !T! INICIO

 

IZ!IERDA:

  PORTB=%00001001

  DelayMS 1000

  !T! INICIO

 

DERECA:

  PORTB=%00000110

  DelayMS 1000

  !T! INICIO

 

"n# 

PROGRAMA EN PROTEUS:

7/23/2019 TAREA5_LLADO

http://slidepdf.com/reader/full/tarea5llado 3/4

RUBRICA DE CALIFICACIÓN:

EXCELENTE

BUENO DEFICIENTE

AUSENTE N/A

PRESENTAORDEN EN

SUCIRCUITOSANALIA ELPROBLEMAANTES DEPROPORNE

R UNASOLUCION

REALIA LA TABLA DE

VERDADAPLICA LA TECNICAVISTA EN

CLASECONTIENE

7/23/2019 TAREA5_LLADO

http://slidepdf.com/reader/full/tarea5llado 4/4

ERRORESQUE

FUERONCORREGIDO

SREALIA

LASSIMULACIONES DEL

CIRCUITO

 TOTAL