Post on 18-Feb-2018
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