 |
www.elektronik.si
Forum o elektrotehniki in računalništvu
|
| Poglej prejšnjo temo :: Poglej naslednjo temo |
| Ali te zanima izdelava brzinometra z alarmom prekoracene hitrosti? |
| DA |
|
57% |
[ 32 ] |
| NE |
|
32% |
[ 18 ] |
| Me ne zanima ... |
|
10% |
[ 6 ] |
|
| Skupaj glasov : 56 |
|
| Avtor |
Sporočilo |
smartgsm
Član
Pridružen-a: Sob 10 Apr 2004 11:54
Prispevkov: 364
Aktiv.: 1.53
|
 Objavljeno: Sre Apr 06, 2005 9:41 am Naslov sporočila: SPEED SENZOR |
 |
|
Zdravo
prilagam kodo za speed senzor.
Koda je za procesor ATMEL AVR 90S2343.
| Koda: |
program speed_senzor;
//pri programiranju ne sme biti vklopljeno stikalo na RESET.
//pina 2 se z zicko dotakneš in ta pin ne sme biti prikljopljen nikamor.
//v pony prog vklopi
//lock1
//lock2
//rcen
//VERZIJA 2A 070904
{ $NOSHADOW}
{ $S+ Stack check} {switch not used}
{ $R+ Range check} {switch not used}
{ $W+ Warnings} {Warnings off}
{ $LCDNOWAIT} {for debug reasons}
{ $LCDNOINIT} {user calls LCDsetup if desired}
Device = 90S2343, VCC = 5;
Import {SysTick};
From System Import;
Define
ProcClock = 1000000; {Hertz}
// SysTick= 10; {msec}
StackSize = $0010, iData;
FrameSize = $0010, iData;
Implementation
{$IDATA}
{--------------------------------------------------------------}
{ Type Declarations }
type
{--------------------------------------------------------------}
{ Const Declarations }
{$EEPROM}
Structconst
NEG : BOOLEAN = false; //NEGIRANJE IZHODA
STOJ : BOOLEAN = TRUE; //TRUE:= CE STOJI SE IZHOD VKLOPI--- IZKLOPI CE JE HITROST 0 SE SENZOR IZKLOPI T
CASEE : WORD = 249; //hitrost 30 km/h
{
NEG : BOOLEAN = FALSE; //NEGIRANJE IZHODA
CASEE : WORD = 89; //hitrost 30 km/h
STOJ : BOOLEAN = true; //CE JE HITROST 0 SE SENZOR IZKLOPI
}
{$IDATA}
{--------------------------------------------------------------}
{ Var Declarations }
VAR
{$IDATA}
CAS : WORD; //WORD
INP[@PINB, 3] : BIT; //vhod tacho
INP1 : BOOLEAN;
OUT[@PORTB, 4] : BIT; // izhod na rele
TIMST : BOOLEAN;
TIMHIA : BYTE;
TIMLOA : BYTE;
SW[@PINB, 0] : BIT; //vhod tipka za naszavitev
OFF[@PINB, 1] : BIT; //rocni izklop
ON[@PINB, 2] : BIT; //rocni vklop
CASSW : WORD;
CASPR : WORD;
CAST : BYTE;
CASF : BYTE;
BRR1, BRR2, BRR3, BRR4 : BOOLEAN; //CE JE TRUE JE BIL ZE PISK
ST : BOOLEAN; //CE SE PRITISNE TIPKA ON
SON : BOOLEAN; //KO PRITISNEMO OBE TIPKI NAENKRAT SE SPREMENU STANJE;
{$EEPROM}
{--------------------------------------------------------------}
{ functions }
PROCEDURE NEGT;
BEGIN
IF NEG THEN
OUT:= FALSE;
ELSE
OUT:= TRUE;
ENDIF;
END;
PROCEDURE NEGF;
BEGIN
IF NEG THEN
OUT:= TRUE;
ELSE
OUT:= FALSE;
ENDIF;
END;
procedure brr;
VAR
I : BYTE;
begin
FOR I:= 1 TO 20 DO
OUT:= NOT(OUT);
MDELAY(13);
OUT:= NOT(OUT);
MDELAY(12);
ENDFOR;
MDELAY(200);
end;
{
procedure vklop(a,b:word);
begin
PORTB:=255;
mdelay(a);
PORTB:=0;
mdelay(b);
end;
}
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}
begin
{
DDRB:=255;
//ZA POMOZNI OSCILATOR
DDRB:=255;
LOOP
PORTB:=255;
mdelay(250);
PORTB:=0;
mdelay(250);
ENDLOOP;
loop
vklop(250,250);
vklop(250,250);
vklop(250,750);
vklop(750,250);
vklop(750,250);
vklop(750,750);
vklop(250,250);
vklop(250,250);
vklop(250,1500);
endloop;
}
DDRB:= %00010000;
// CASEE:= 20000;
EnableInts;
CAS:= 0;
{
BRR1:= FALSE;
BRR2:= FALSE;
BRR3:= FALSE;
BRR4:= FALSE;
}
loop
INC(CAS);
IF ST THEN
MDELAY(1);
ENDIF;
IF CAS > 40000 THEN //40000
ST:= FALSE;
//20000=5 S 40000 = 10 S 60000= 15 ZAKASNITVE OB USTAVITVI
CAS:= 60000;
IF (TIMHIA = 2) OR (TIMLOA = 2) THEN
cas:= 0;
IF STOJ THEN
NEGT;
ELSE
NEGF;
ENDIF;
ELSE
IF STOJ THEN
NEGF;
ELSE
NEGT;
ENDIF;
ENDIF;
ENDIF;
if INP then
inc(TIMHIA);
IF TIMHIA > 10 THEN
TIMHIA:= 10;
ENDIF;
TIMLOA:= 0;
else
inc(TIMLOA);
IF TIMLOA > 10 THEN
TIMLOA:= 10;
ENDIF;
TIMHIA:= 0;
endif;
if (TIMHIA = 10) and (TIMST) then
TIMST:= false;
IF CAS > CASEE THEN
inc(CAST);
IF CAST > 5 THEN
CAST:= 0;
NEGT;
// BRR;
ENDIF;
CASF:= 0;
ELSE
inc(CASF);
IF CASF > 5 THEN
CASF:= 0;
NEGF;
ENDIF;
CAST:= 0;
ENDIF;
CASPR:= CAS;
CAS:= 0;
endif;
if (TIMLOA = 10) and not(TIMST) then
TIMST:= true;
endif;
//TRENUTNEGA PODATKA V EEPROM
IF SW THEN
INC(CASSW);
IF CASSW > 64000 THEN
CASSW:= 64000;
ENDIF;
IF (CASSW > 10000) AND BRR1 = FALSE THEN
BRR;
BRR1:= TRUE;
ENDIF;
IF (CASSW > 20000) AND BRR2 = FALSE THEN
BRR;
BRR;
BRR2:= TRUE;
ENDIF;
IF (CASSW > 30000) AND BRR3 = FALSE THEN
BRR;
BRR;
BRR;
BRR3:= TRUE;
ENDIF;
IF (CASSW > 40000) AND BRR4 = FALSE THEN
BRR;
BRR;
BRR;
BRR;
BRR4:= TRUE;
ENDIF;
ELSE
BRR1:= FALSE;
BRR2:= FALSE;
BRR3:= FALSE;
BRR4:= FALSE;
IF (CASSW < 20000) AND (CASSW > 10000) THEN
CASSW:= 0;
IF NEG THEN
NEG:= FALSE;
ELSE
NEG:= TRUE;
ENDIF;
ENDIF;
IF (CASSW < 30000) AND (CASSW > 20000) THEN
CASSW:= 0;
CASEE:= CASPR;
ENDIF;
IF (CASSW < 40000) AND (CASSW > 30000) THEN
CASSW:= 0;
IF STOJ THEN
STOJ:= FALSE;
ELSE
STOJ:= TRUE;
ENDIF;
ENDIF;
IF (CASSW > 40000) AND (CASSW < 65000) THEN
CASSW:= 0;
ENDIF;
ENDIF;
IF ON AND NOT(OFF) THEN
CAS:= 0;
ST:= TRUE;
NEGT;
ENDIF;
IF OFF AND NOT(ON) THEN
ST:=FALSE;
NEGF;
ENDIF;
IF OFF AND ON THEN
IF SON THEN
SON:= FALSE;
NEGF;
ST:= FALSE;
CAS:= 60000;
ELSE
SON:= TRUE;
NEGT;
ST:= TRUE;
CAS:= 0;
ENDIF;
WHILE (OFF AND ON) DO
MDELAY(300);
ENDWHILE;
ENDIF;
endloop;
end speed_senzor. |
Shema je pa cisto enostavna.
Na izhod releja vezeš upor in tranistor in potem rele.
1 tipko SW zvezes tako da je izhod zvezan na tipko. Drugi del pa na pol -.
2 tipki ON,OFF zvezeš preko delilnika (2 upora 1k) na +12 V
in to je vse.
lp
Greg |
|
| Nazaj na vrh |
|
 |
cici
Član
Pridružen-a: Ned 14 Dec 2003 7:42
Prispevkov: 766
Aktiv.: 3.23
Kraj: Trbovlje
|
| Objavljeno: Sob Jul 20, 2013 6:53 am Naslov sporočila: Re: Alarm za prekoraceno hitrost |
|
|
| sailor je napisal/a: |
Na netu ne najdem uporabne informacije za izdelavo
brzinomera z dodatno funkcijo alarma prekoracene hitrosti.
Ali je kdo pripravljen, da zdruzimo moci,
pa pridemo do taksne skatljice?
Kazni za prekoracitve hitrosti
so z novo zakonodajo postale
resnicno visoke ....
gl, DD
---------------------------------------------------------------------
| Citiram: |
Ali že ima kdo takšno škatljico?
|
|
|
|
| Nazaj na vrh |
|
|
besoft
Član
Pridružen-a: Ned 01 Apr 2012 10:22
Prispevkov: 585
Aktiv.: 3.63
Kraj: Žižki - Prekmurje
|
| Objavljeno: Sob Jul 20, 2013 7:44 am Naslov sporočila: |
|
|
Jaz opozorilnik že vgrajen v avto kot del potovalnega računalnika..je pa kar nadležen 
Sicer zanimiva ideja z GPS modulom, ki pa spet ni tako drag kot kazen za prekoračeno hitrost. Zapis podatkov na SD kartico.
Čeprav pa moj gargamel MIO ima tudi to opcijo, da opozarja na omejitve, ki ji lahko sam vnesem kot točke. |
|
| Nazaj na vrh |
|
|
cici
Član
Pridružen-a: Ned 14 Dec 2003 7:42
Prispevkov: 766
Aktiv.: 3.23
Kraj: Trbovlje
|
|
| Nazaj na vrh |
|
|
besoft
Član
Pridružen-a: Ned 01 Apr 2012 10:22
Prispevkov: 585
Aktiv.: 3.63
Kraj: Žižki - Prekmurje
|
| Objavljeno: Sob Jul 20, 2013 9:05 am Naslov sporočila: |
|
|
| Jaz tako moji navigaciji MIO 350 pravim..je bila kupljena na petrolu za cca 90 pred letom..ali dvema.. |
|
| Nazaj na vrh |
|
|
RGorazd
Član
Pridružen-a: Čet 20 Maj 2004 15:57
Prispevkov: 1715
Aktiv.: 7.23
Kraj: Ig
|
| Objavljeno: Sob Jul 20, 2013 1:33 pm Naslov sporočila: |
|
|
Tega je sposobna vsaka navigacija, ki teče na pametnem telefonu. Cena rabljenega telefona je lahko zelo zanemarljiva, večina navigacij pa deluje zelo solidno. Prednost so tudi POI, tako so omejitve hitrosti dinamične. V naseljih 50, na regionalkah 90 in na AC 130. Tako naprava ne teži vedno, ko pelješ ćez 50km/h. Druga stvar bi bila pa kamera na avtomobilu, ki bi snemala in prepoznavala omejitve in tako nastavljala omejitev, vendar je to skoraj nemogoče realizirati (znaki so različni, niso vedno dobro vidni, največjo težavo bi pa verjetno predstavljala tema).
LP G
_________________
.
._. _ _ ._. _.__. _|
[ (_](_)[ (_] /_(_]
._| |
|
| Nazaj na vrh |
|
|
s55m
Član
Pridružen-a: Sob 06 Jan 2007 17:07
Prispevkov: 2696
Aktiv.: 11.99
Kraj: Plovdiv-Bolgarija
|
| Objavljeno: Sob Jul 20, 2013 2:02 pm Naslov sporočila: |
|
|
V Garmin mapah meni to deluje. Če posodabljaš mape redno, tudi omejitve držijo
_________________
Physics sucks! It always works against "great" ideas! |
|
| Nazaj na vrh |
|
|
cici
Član
Pridružen-a: Ned 14 Dec 2003 7:42
Prispevkov: 766
Aktiv.: 3.23
Kraj: Trbovlje
|
| Objavljeno: Ned Jul 21, 2013 6:44 am Naslov sporočila: |
|
|
| Katero napravo imaš vgrajeno? Ali se primerno odziva v različnih situacijah? |
|
| Nazaj na vrh |
|
|
s55m
Član
Pridružen-a: Sob 06 Jan 2007 17:07
Prispevkov: 2696
Aktiv.: 11.99
Kraj: Plovdiv-Bolgarija
|
| Objavljeno: Ned Jul 21, 2013 9:55 am Naslov sporočila: |
|
|
Kako to misliš, a se primerno odziva v različnih situacijah? Situacija je vedno samo ena. Jaz v kovinski škatli vozim mimo različnih znakov.
Ko peljem mimo znaka 80, pokaže omejitev 80 in zvočno teži, če jaz in pločevina svojo maso premikava hitreje..
_________________
Physics sucks! It always works against "great" ideas! |
|
| Nazaj na vrh |
|
|
cici
Član
Pridružen-a: Ned 14 Dec 2003 7:42
Prispevkov: 766
Aktiv.: 3.23
Kraj: Trbovlje
|
| Objavljeno: Ned Jul 21, 2013 11:35 am Naslov sporočila: |
|
|
| Ali kaj tolerira odstopanje in koliko? Katero napravo imaš vgrajeno? |
|
| Nazaj na vrh |
|
|
s55m
Član
Pridružen-a: Sob 06 Jan 2007 17:07
Prispevkov: 2696
Aktiv.: 11.99
Kraj: Plovdiv-Bolgarija
|
| Objavljeno: Ned Jul 21, 2013 12:52 pm Naslov sporočila: |
|
|
Ne tolerira odstopanja. Nuvi 765T, če se ne motim...
_________________
Physics sucks! It always works against "great" ideas! |
|
| Nazaj na vrh |
|
|
cici
Član
Pridružen-a: Ned 14 Dec 2003 7:42
Prispevkov: 766
Aktiv.: 3.23
Kraj: Trbovlje
|
| Objavljeno: Ned Jul 21, 2013 4:12 pm Naslov sporočila: |
|
|
| Ali pozna kdo napravo, ki omogoča kaj tolerance pri opozorilih? |
|
| Nazaj na vrh |
|
|
.
Član
Pridružen-a: Čet 06 Maj 2010 20:12
Prispevkov: 1035
Aktiv.: 5.62
|
| Objavljeno: Ned Jul 21, 2013 4:17 pm Naslov sporočila: |
|
|
iGO 
V procentih nastaviš odstopanja in jo imaš lahko na vsakem android telefonu.
Mimogrede, kakšna je razlika pri zgornji anketi med odgovoroma?:
b) NE
c) Me ne zanima |
|
| Nazaj na vrh |
|
|
cici
Član
Pridružen-a: Ned 14 Dec 2003 7:42
Prispevkov: 766
Aktiv.: 3.23
Kraj: Trbovlje
|
| Objavljeno: Ned Jul 21, 2013 4:52 pm Naslov sporočila: |
|
|
| Ali kdo uporablja iGO napravo? |
|
| Nazaj na vrh |
|
|
RGorazd
Član
Pridružen-a: Čet 20 Maj 2004 15:57
Prispevkov: 1715
Aktiv.: 7.23
Kraj: Ig
|
| Objavljeno: Ned Jul 21, 2013 6:49 pm Naslov sporočila: |
|
|
Kaj pa te zanima?
Imam Igo, Navigon, Sygic in pa Navfree za androida. Najbolj sem zadovoljen s Sygic, vendar tudi zadnja verzija Navigona ni od muh.
Btw, Navfree je popolnoma zastonj aplikacija, karte dobiš na :
http://www.openstreetmap.org/
Nisem pa še testiral, kako delujejo omejitve.
Za Sygic Navigon in Igo vem da deluejo.
LP G
_________________
.
._. _ _ ._. _.__. _|
[ (_](_)[ (_] /_(_]
._| |
|
| Nazaj na vrh |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
Ne, ne moreš pripeti datotek v tem forumu
Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 500 dni
Powered by phpBB © 2001, 2005 phpBB Group
|
Pomoč
Išči
Seznam članov
Skupine
Statistika
Album
Filemanager
Registriraj se
Priponke
Koledar
Tvoj profil
Prijava
