 |
www.elektronik.si
Forum o elektrotehniki in računalništvu
|
| Poglej prejšnjo temo :: Poglej naslednjo temo |
| Avtor |
Sporočilo |
krizan99
Neznanec
Pridružen-a: Sre 20 Jul 2011 12:04
Prispevkov: 5
Aktiv.: 0.03
|
 Objavljeno: Tor Okt 18, 2011 2:35 pm Naslov sporočila: merjenje razdalje |
 |
|
Pozdravljeni,
mene pa zanima kako bi naredil, da bi s senzorjem odčitaval razdaljo od 10 do 30 cm in potem to prikazal na segmentnem lcdju ali čem podobnem. Natančnost ni tako pomembna (+-1cm ali pa 2). Bolj je preprosto boljše je.
LP
|
|
| Nazaj na vrh |
|
 |
mucek
Član
 
Pridružen-a: Tor 01 Avg 2006 10:47
Prispevkov: 5531
Aktiv.: 24.04
Kraj: Domzale
|
| Objavljeno: Tor Okt 18, 2011 2:39 pm Naslov sporočila: |
|
|
UZ senzor.
Kontaktiraj člana "Vilko", on ima to že narejeno in ti bo zagotovo rade volje pomagal ...
LP, g
_________________
...lahko pa se tudi motim ... |
|
| Nazaj na vrh |
|
|
protoncek
Član
Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 42.74
Kraj: Mengeš
|
| Objavljeno: Tor Okt 18, 2011 2:48 pm Naslov sporočila: |
|
|
| Ravno se igram s tem senzorjem. Sicer kar solidno deluje, ampak mislim da bi tukaj za kolikor točen podatek moral meriti temperaturo in kompenzirati. Pri spremembi za 5-10 stopinj je že kar par cm razlike. Odvisno od tega kje boš zadevo imel - v sobi po moje ni potrebe, zunaj je pa že druga stvar...
|
|
| Nazaj na vrh |
|
|
krizan99
Neznanec
Pridružen-a: Sre 20 Jul 2011 12:04
Prispevkov: 5
Aktiv.: 0.03
|
| Objavljeno: Tor Okt 18, 2011 2:55 pm Naslov sporočila: |
|
|
| Uporabljalo bi se predvsem zunaj.
|
|
| Nazaj na vrh |
|
|
protoncek
Član
Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 42.74
Kraj: Mengeš
|
| Objavljeno: Tor Okt 18, 2011 3:06 pm Naslov sporočila: |
|
|
Potem bi ti priporočal zraven še DS1820 in ustrezen preračun razdalje. Po mojih izračunih je napaka pri spremembi temperature za 20 stopinj 12 cm, kar pa ni malo, posebej če boš meril samo 10 do 30 cm.
pa še kot stranski produkt imaš merjenje temperautre... 
|
|
| Nazaj na vrh |
|
|
krizan99
Neznanec
Pridružen-a: Sre 20 Jul 2011 12:04
Prispevkov: 5
Aktiv.: 0.03
|
| Objavljeno: Tor Okt 18, 2011 3:32 pm Naslov sporočila: |
|
|
Vse skupaj potem na nek ad pretvornik, mikrokontoroler in nato na led display. Lažje reč kot naredit 
|
|
| Nazaj na vrh |
|
|
Jaka57
Moderator
Pridružen-a: Ned 12 Dec 2004 21:47
Prispevkov: 5820
Aktiv.: 24.54
Kraj: Grosuplje
|
| Objavljeno: Tor Okt 18, 2011 3:35 pm Naslov sporočila: |
|
|
| protoncek je napisal/a: |
| ....... pri spremembi temperature za 20 stopinj 12 cm, kar pa ni malo....... |
Če je taka napaka na 1km je malo, na 1m je veliko  .
_________________
Lp, Jaka |
|
| Nazaj na vrh |
|
|
protoncek
Član
Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 42.74
Kraj: Mengeš
|
| Objavljeno: Tor Okt 18, 2011 3:44 pm Naslov sporočila: |
|
|
Ja, res. Samo krizan bi to na 10 do 30 cm...
Za vse skupaj rabiš samo en AVR (ali PIC). Ima že vse potrebno notri. Torej: en AVR, en DS1820, en UZ senzor, napajanje, program.
|
|
| Nazaj na vrh |
|
|
krizan99
Neznanec
Pridružen-a: Sre 20 Jul 2011 12:04
Prispevkov: 5
Aktiv.: 0.03
|
| Objavljeno: Tor Okt 18, 2011 3:48 pm Naslov sporočila: |
|
|
| Tu se pa stvar zalomi, moram se še v praksi naučit sprogramirat eno tako stvar.
|
|
| Nazaj na vrh |
|
|
mucek
Član
Pridružen-a: Tor 01 Avg 2006 10:47
Prispevkov: 5531
Aktiv.: 24.04
Kraj: Domzale
|
| Objavljeno: Tor Okt 18, 2011 4:48 pm Naslov sporočila: |
|
|
Ne bi smel imeti veliko problemov ...
Kot se spomnim, je Vilkov program zelo enostaven in pregleden ...
[edit] Sem vedel, da to moram imeti nekje pri roki ...
| Koda: |
Const Program = "SFR04"
$regfile = "m644pdef.dat"
$crystal = 11059200
$baud = 19200
$hwstack = 384
$swstack = 128
$framesize = 128
Dim Reg14 As Iram Byte At 14 Overlay 'register 14
Dim I As Byte 'splošne delovne spremenljivke
Dim J As Byte
Dim K As Byte
Dim L As Byte
Dim M As Byte
Dim W As Integer
Dim W2 As Integer
Dim Dniz As String * 32 ' delovni niz
Dim Dnizi(33) As Byte At Dniz Overlay ' redefiniran kot polje
' ------------ Povezave z okolico -------------------
' Terminal emulator
' =================
Open "coma.1:9600,8,n,1" For Output As #2
Print #2 , " "
Print #2 , Program ; " Reset."
Print #2 , " "
Wait 1
' LCD
' ===
' Lcd ne smem uporabljati, kadar imam odprto datoteko na SD kartici!
$lib "lcd-spi.lib"
Const Lcdport = Portb
Const Lcd_e = 2
'Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 64 , Noss = 1
'Config Spi = Soft , Din = Pinb.6 , Dout = Portb.5 , Clock = Portb.7 , Ss = None
Config Spi = Soft , Din = Pinb.6 , Dout = Portb.5 , Clock = Portb.7 , Ss = Portb.2
Lcdosv Alias Portb.0
Config Lcdosv = Output
Lcdtipka Alias Pina.7
Config Lcdtipka = Input
Set Porta.7 'pullup
' UZ merilnik nivoja
' ==================
Ping Alias Portd.4
Echopin Alias Pind.3
Config Portd.4 = Output
Config Pind.3 = Input
Portd.3 = 0 ' NE PULL UP
' Višina olja v cisterni v cm
Dim Olja As Byte
Portd.4 = 0
Portd.3 = 1
Mainloop:
Do
' Izmerimo nivo olja
Print #2 , "Meritev olja: ";
Config Pind.3 = Input
Pulseout Portd , 4 , 80 'Min. 10uS Impuls
Disable Interrupts
Pulsein W , Pind , 3 , 1
Enable Interrupts
'(
786 Mm Je Olja V Cisterni
156 Cm Je Od Dna Cisterne Do Zgornjega Roba Priključne Cevi
70 Cm Kaže Uzv Senzor , Ki Mora Biti Skoraj Na Spodnjem Robi Priključne Cevi
Korekcija Mora Biti 148 - 70(uzv -l) = 78 Cm - Rezultat Viina Olja
')
If Err = 0 Then
W = W * 10 ' preračunano
W = W / 58 ' v centimetre
Dim Iolja As Integer
Iolja = 147 - W
Else
Iolja = 255
End If
Print #2 , " Kur.olja " ; Iolja ; "cm Odd.: " ; W ; " cm"
Cls : Cursor Off
Lcd "Kurilnega olja"
Locate 2 , 1 : Lcd " " ; Iolja ; " cm "
Locate 3 , 1 : Lcd "Oddaljenost "
Locate 4 , 1 : Lcd " " ; W ; " cm "
Wait 1
Loop
End
|
Lp, g
| Opis: |
|
Download |
| Ime datoteke: |
srf04-tech.pdf |
| Velikost datoteke: |
130.07 KB |
| Downloadano: |
10 krat |
_________________
...lahko pa se tudi motim ...
Nazadnje urejal/a mucek Tor Okt 18, 2011 4:49 pm; skupaj popravljeno 1 krat |
|
| Nazaj na vrh |
|
|
protoncek
Član
Pridružen-a: Sre 31 Jan 2007 9:41
Prispevkov: 9573
Aktiv.: 42.74
Kraj: Mengeš
|
| Objavljeno: Tor Okt 18, 2011 4:48 pm Naslov sporočila: |
|
|
| In zdaj imaš idealno priložnost da se naučiš. Zadeva ni tako grozno komplicirana, tako da bi moralo iti...
|
|
| Nazaj na vrh |
|
|
krizan99
Neznanec
Pridružen-a: Sre 20 Jul 2011 12:04
Prispevkov: 5
Aktiv.: 0.03
|
| Objavljeno: Pet Okt 21, 2011 11:39 am Naslov sporočila: |
|
|
Najlepša hvala vsem.
LP
|
|
| 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: 501 dni
Powered by phpBB © 2001, 2005 phpBB Group
|
Pomoč
Išči
Seznam članov
Skupine
Statistika
Album
Filemanager
Registriraj se
Priponke
Koledar
Tvoj profil
Prijava
