Afgelopen vrijdag (26 maart) heb ik op school als afsluiting van het ProfielWerkStuk (PWS), een presentatie moeten houden.
De presentatie is goed verlopen, en hiermee is het werkstuk af.
Als project heb ik samen met een klasgenoot er voor gekozen een Robot te bouwen, en een deel theorie te maken.
(Het moest sowieso een elektronica onderwerp zijn, uiteraard.)
Als vakken hebben wij Natuurkunde (elektronica) en Maatschappij (maatschappelijke invloeden) gekozen.
Genoeg gepraat, wat hebben we nu gemaakt:
Frame van 50*40*15 (totale hoogte 33 cm)
2 * Accu 12V 12 Ah
2 * 250W MY1016 elektrische step motor
1 PIC 16f877
Infrarood GP2D12
Servo Conrad (voor de sensor)
Accubeveiliging PCB (ontwerp Tweakers)
2 * koelblok met 3 stuk Intersil 76143P (30V 75A)
Ledjes LCD ed
Snelheid: +/- 15 km/h
De motoren lopen nu op de ene 12v accu, de logica op de andere.
Eigen gewicht: 23 kg
Max gewicht: Zeker niet meer dan 90kg
(Ik kon er met mijn 80kg nog goed op zitten en rijden)
Nu werkt het ding goed, en staat het volgende picbasic script er in:
Picbasic script, rijden adv potmeter
Verder filmpjes:
http://www.youtube.com/watch?v=8wrcomIy55U
http://www.youtube.com/watch?v=A_YmEs1FxfQ
Dit tweede filmpjes was meer voor de presentatie. (De bloopers)
Verder hebben we hem afgelopen week nog wel mooier gemaakt,
behalve de elektronica, die is nog wel wat rommelig.
Maar hier gaat het niet om, mijn vraag:
Ik kan dmv mijn script 2 (10K) potmeters inlezen, en adv deze waardes de robot besturen.
Nu wil ik dit graag draadloos doen, (dus 2* een byte (0-255) of 2* een voltage (0 - 5V)
Zodat ik met een afstandsbediening de robot kan besturen.
Ik heb al een voorbeeld script klik wat ik tegen ben gekomen geprobeerd,
maar deze geeft geen betrouwbaar signaal (over een afstand van 2m)
Heb al zo'n zend/ontvang combinatie van Samenkopen liggen,
maar ik kan hier zelf geen code voor schrijven.
Zou iemand mij kunnen helpen om een script te schrijven ?
Gebruikte code:
Device 16F648A ;Gebruik een 16F648A type
Config WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF, HS_OSC ;INTRC_OSC_NOCLKOUT verwijderd
ALL_DIGITAL TRUE ;Alle ingangen digitaal
XTAL 20 ;Kristal van 20MHz
Dim teller As Byte
TRISA = 1
While 1 = 1
teller = 0
PORTA.3 = 0
If PORTA.0 = 1 Then
teller = 1
PORTA.3 = 1
End If
PORTA.1 = 1
DelayMS 50
SerOut PORTA.1,17197, ["Abc", teller]
Wend
End