Hello friends
Well back in college some work and projects, here are public finally completed version until GONZAGA v1.1 which depues return to his first competition with a modest victory.
PHOTOS:
These are the photos in full construction, anything related to apologize for the images are not of good quality except the last, the problems esque did not have a camera, if someone out there can donate one, I'd be very grateful (jajaj) joke (the donation).

Chassis Meccano parts

Support engines


Top View


Power Stage

sensory stage

This last picture we see him with his brother the "shop" to discuss your birth depues which certainly did not think that something would be born in 2 weeks .. .. hahaha.
AGENDA 1
This program works with 3 sensors, their movements esque characteristics we are for closed tracks without angles straight.
This program works with 3 sensors, their movements esque characteristics we are for closed tracks without angles straight.
'*************************************
*************************** '* Name: *
Gonzago V1.1' * Author: nestor garcia alejandro ccencho
* '* Notice:
axgt8@hotmail.com * '*: Universidad Nacional San Luis Gonzaga de Ica, Peru *
' * Date: 26/04/2007 *
'* Version: 1.1 *
' * Notes: with 3 lines Follower
sensors * * * '*: *
'*************************************** *************************
*************************** '* Name: *
Gonzago V1.1' * Author: nestor garcia alejandro ccencho
* '* Notice:
axgt8@hotmail.com * '*: Universidad Nacional San Luis Gonzaga de Ica, Peru *
' * Date: 26/04/2007 *
'* Version: 1.1 *
' * Notes: with 3 lines Follower
sensors * * * '*: *
'*************************************** *************************
TRISA = $ FF;
configuration entries PORTA TRISB = $ 00;
configuration outputs PORTB PORTB = $ 00; with zeros assigned to PortB
N VAR BYTE SYMBOL SYMBOL NDSS = PORTA.3
SCEN = SYMBOL
PORTA.2 SIZQ = PORTA.1
configuration entries PORTA TRISB = $ 00;
configuration outputs PORTB PORTB = $ 00; with zeros assigned to PortB
N VAR BYTE SYMBOL SYMBOL NDSS = PORTA.3
SCEN = SYMBOL
PORTA.2 SIZQ = PORTA.1
HOME:
N = SIZQ * SCEN * 4 + 2 + NDSS;
convert to decimal
SELECT CASE 0 CASE N
PORTB =% 00110101 ; Left turn 360 º
ONE: CASE 1
N = SIZQ * SCEN * 4 + 2 + NDSS;
convert to decimal
SELECT CASE 0 CASE N
PORTB =% 00110101 ; Left turn 360 º
ONE: CASE 1
PORTB =% 00110000; right turn
goto GOTO HOME ONE TWO
: CASE 2
; advances
PORTB =% 00101101 goto DOS GOTO HOME
THREE: CASE 3
PORTB =% 00101000; right turn
goto GOTO START THREE FOUR
:
CASE 4
PORTB =% 00000101; left turn goto HOME
GOTO FOUR FIVE: CASE 5
PORTB =% 00101101; advances
goto GOTO FIVE HOME
SIX: CASE
6
PORTB =% 00000101;
Left turns HOME
goto GOTO SIX SEVEN
:
CASE 7 PORTB =% 00101101; advances
CASE ELSE END: HOME goto
GOTO END GOTO END SELECT
END HOME
PROGRAM 2
This program is one that was used in the Americas contest Robots 2007, which was to follow the path on a black background white poster boards.
'******************************************** ********************
'* Name: Gonzago
V1.1 *' * Author: nestor garcia alejandro ccencho
* '* Notice:
axgt8@hotmail.com *' *: Universidad Nacional San Luis Gonzaga de Ica, Peru *
'* Date:
26/04/2007 * '* Version: 1.1 *
' * Notes: Follower of lines with 5 sensors
* '*: white and black background line *
'************* ************************************************** *
TRISA = $ FF TRISB = $ 00 = $ 00 PORTB
M VAR BYTE N VAR BYTE
L1 = PORTA.0
SYMBOL SYMBOL SYMBOL SIZQ = PORTA.1
SCEN = PORTA.2
PORTA.3
SYMBOL SYMBOL NDSS = L2 = PORTA.4
HOME:
N = SIZQ * SCEN * 4 + 2 + NDSS
M = 2 * L1 + L2 M
SELECT CASE CASE 0
PORTB =% 00000101; Left
GOTO HOME
'* Name: Gonzago
V1.1 *' * Author: nestor garcia alejandro ccencho
* '* Notice:
axgt8@hotmail.com *' *: Universidad Nacional San Luis Gonzaga de Ica, Peru *
'* Date:
26/04/2007 * '* Version: 1.1 *
' * Notes: Follower of lines with 5 sensors
* '*: white and black background line *
'************* ************************************************** *
TRISA = $ FF TRISB = $ 00 = $ 00 PORTB
M VAR BYTE N VAR BYTE
L1 = PORTA.0
SYMBOL SYMBOL SYMBOL SIZQ = PORTA.1
SCEN = PORTA.2
PORTA.3
SYMBOL SYMBOL NDSS = L2 = PORTA.4
HOME:
N = SIZQ * SCEN * 4 + 2 + NDSS
M = 2 * L1 + L2 M
SELECT CASE CASE 0
PORTB =% 00000101; Left
GOTO HOME
Option1: CASE 1
PORTB.0 = 1
PORTB.2 PORTB.1 = 0 = 1 = 0
PORTB.3
PORTB.4 = 1
pwm
PORTB.5, 254.1
GOTO GOTO HOME
Option1 Option2
: CASE 2
PORTB.1 PORTB.0 = 0 = 1 = 1
PORTB.2
PORTB.3 = 1
PORTB 4 = 0
PORTB.5 pwm, 254.1
PORTB.1 PORTB.0 = 0 = 1
PORTB.3 PORTB.2 = 1 = 1 = 0
PORTB.4
PORTB.5 pwm, 254.1
GOTO GOTO HOME
OPTION2
OPTION3:
PORTB 4 = 0
PORTB.5 pwm, 254.1
PORTB.1 PORTB.0 = 0 = 1
PORTB.3 PORTB.2 = 1 = 1 = 0
PORTB.4
PORTB.5 pwm, 254.1
GOTO GOTO HOME
OPTION2
OPTION3:
CASE 3
GOTO GOTO MAIN HOME
GOTO OPTION3
FINAL CASE ELSE: HOME goto
GOTO FINAL END SELECT GOTO
MAIN HOME: SELECT CASE N
case 0 PORTB =% 00101101
ONE: CASE 1
PORTB
=% 00000101 goto GOTO ONE HOME
TWO: CASE 2
PORTB =% 00101101 goto
GOTO DOS
HOME THREE: CASE 3
PORTB =% 00000101 HOME goto
GOTO FOUR THREE: CASE 4
PORTB =% 00101000 goto GOTO HOME
FIVE FOUR: CASE 5
PORTB =% 00101101 goto GOTO HOME
SIX FIVE: CASE 6
PORTB =% 00101000 goto
HOME
GOTO SIX SEVEN: CASE 7
PORTB =% 00110101
END CASE ELSE: HOME goto
GOTO END GOTO END SELECT
END HOME
Well, I hope everyone is satisfied with this, is that many have been asking about the program, and as you see already, so Use it and escribenla any questions or comments on the blog.
TO THE OTHER, I hope to receive your comments, so I know if the subject interested them or not.