# data[].attributes.body
Mario Javier Minches Muñoz 1290-19-8997
Ericka Del rosario Gonzales 1290-19-3192
Kimberly Jemima Tomas Montes de Oca 1290-19-11531
Hector Rodrigo Vasquez Morales 1290-19-2634
Jerson Samuel Soto 1290-14-3986

# data[].attributes.body
(210) Barrera parking arduino - YouTube

*EFECTOS DE EJEMPLIFICACION*

# data[].attributes.attachment_link.authors[].name
I.E.S. San Juan Bautista de la Concepcion

# data[].attributes.body
El proyecto consiste en una barrera parking que básicamente controla la entrada y salida de los carros. Al momento de que llega un carro, automáticamente se subirá la barrera para que el carro pueda pasar para parquearse, luego la barrera se bajará y esto sucederá con cada carro que quiera entrar al parqueo actualmente, una rueda de chicago

# data[].attributes.body
09-05-2022 creación de código y diseño digital del circuito - Ericka
09-05-2022 creación de código y diseño digital del circuito -Rodrigo
09-05-2022 creación de código y diseño digital del circuito - Mario
14-05-2022 - compra de materiales necesarios para armado del proyecto -  Jerson
15-05-2022 - Armado de circuito físico -  Mario
18-05-2022 - armado de maqueta para el proyecto e integrado de la misma -  Kimberly

# data[].attributes.body
MOTOR SERVO SG90 DE 360 GRADOS - 1.8 KG-CM

3 leds de color: rojo y verde
3 resistencias de 1k
1 SENSOR INFRARROJO DE OBSTÁCULOS
1 potenciometro
1 cable de usb a db9 para pasar codigo.

# data[].attributes.body
symbol  En = 3         '''LCD Enable pin connected to PicAxe output-3
symbol  RS = 2        '''LCD Regsel pin connected to PicAxe output-2

symbol  char   = b1  '''Character to be sent to LCD
symbol  index = b2  '''Used as counter in For-Next loops

data 0,   ("   BIENVENIDO   ")       ''' LCD row 1 stored in EEPROM memory

''' *   Main Program ********

Main:
Setfreq m4

GoSub Init                      '''Initialize  LCD

For index = 0 to 15       '''Output data to 1st  row of LCD   (del 0 al 15 = 16 caracteres)
read index, char     '''Read character from EEPROM
GoSub wrchr          '''Send character to LCD
Next index

char  = 192                   '''Instruction: start of 2nd row of LCD
GoSub wrins                '''Send instruction to LCD
char  = " "
GoSub wrchr
char  = " "
GoSub wrchr
char  = "P"
GoSub wrchr
char  = "A"
GoSub wrchr
char  = "S"
GoSub wrchr
char  = "E"
GoSub wrchr
char  = " "
GoSub wrchr
char  = "L"
GoSub wrchr
char  = "A"
GoSub wrchr
char  = " "
GoSub wrchr
char  = "M"
GoSub wrchr
char  = "A"
GoSub wrchr
char  = "N"
GoSub wrchr
char  = "O"
GoSub wrchr
char  = " "
GoSub wrchr
char  = " "
GoSub wrchr

REM For b3 = 0 to 16
REM char = 20
REM GoSub wrins
REM Next

Repeat:
GoSub servomotor
GoTo Repeat
End

servomotor:

if pinC.6 = 1 then
servopos B.1,75
high B.0
low C.7
pause 7000
else
servopos B.1,150
low B.0
high C.7
end if

return

Init:

let pinsB = 0 ' Clear all output lines
let b3 = 0 ' Reset variable b3
let dirsB = 252    ' Set pins 2-7 as output lines (Stamp only).
pause 200 ' Wait 200 ms for LCD to reset.
let pinsB = 48    ' Set to 8-bit operation.
pulsout B.3,1 ' Send data by pulsing &#8216;enable&#8217;
pause 10 ' Wait 10 ms
pulsout B.3,1 ' Send data again
pulsout B.3,1 ' Send data again
let pinsB = 32    ' Set to 4-bit operation.
pulsout B.3,1 ' Send data.
pulsout B.3,1 ' Send data again.
let pinsB = 128    ' Set to two line operation
pulsout B.3,1 ' Send data.
let b1 = 14 ' Screen on, cursor on instruction
gosub wrins ' Write instruction to LCD
servo B.1,150 ; initialise servo
return

'''====================================================
''' *    Subrutine wrchr   *
wrchr: pins = char & 240             '''Place high nibble of char onto pins
high RS                             '''Make sure RS is high
pulsout En,1                     '''Send data to LCD

pins = char  * 16               '''Place  low nibble of char onto pins
high RS                             '''Make sure RS is high
pulsout En,1                     '''Send data to LCD

Return

'''====================================================
''' *     Subrutine wrins   *
wrins:  pins = char & 240             '''Place high nibble of char onto pins
pulsout En,1                     '''Send data to LCD

pins = char  * 16               '''Place  low nibble of char onto pins
pulsout En,1                     '''Send data to LCD

Return