Vítejte na Elektro Bastlírn?
Nuke - Elektro Bastlirna
  Vytvořit účet Hlavní · Fórum · DDump · Profil · Zprávy · Hledat na fóru · Příspěvky na provoz EB

Vlákno na téma KORONAVIRUS - nutná registrace


Nuke - Elektro Bastlirna: Diskuzní fórum

 FAQFAQ   HledatHledat   Uživatelské skupinyUživatelské skupiny   ProfilProfil   Soukromé zprávySoukromé zprávy   PřihlášeníPřihlášení 

DS1820 - dlouhé vedení

 
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů
Zobrazit předchozí téma :: Zobrazit následující téma  
Autor Zpráva
epes



Založen: Aug 05, 2008
Příspěvky: 116
Bydliště: Praha 5

PříspěvekZaslal: so prosinec 27 2014, 16:30    Předmět: DS1820 - dlouhé vedení Citovat

Zapojení: ATTINY2313 + DS1820 4k7 upl.odpor, 3 vodičové připojení.
Při délce vedení cca 4m funguje odečítání teploty správně. Při délce vedení cca 10m dochází zvl. při záporné teplotě k chybě až 50%. Potřeboval bych poradit jeli chyba v délce vedení, či spíše v SW.
Zde je použitá rutina

void mereni()
{ asm WDR
Ow_Reset(&PORTd, 2); // Onewire reset signal
Ow_Write(&PORTd, 2, 0xCC); // Issue command SKIP_ROM
Ow_Write(&PORTd, 2, 0x44); // Issue command CONVERT_T
delay_us(200);
Ow_Reset(&PORTd, 2);
Ow_Write(&PORTd, 2, 0xCC); // Issue command SKIP_ROM
Ow_Write(&PORTd, 2, 0xBE); // Issue command READ_SCRATCHPAD
delay_ms(100);
TI=Ow_Read(&PORTd, 2);
delay_ms(100);
TI=(Ow_Read(&PORTd, 2) << Cool + TI; //mereni vnitrni teploty
delay_ms(100);
if (TI & 0x8000) // check if temperature is negative
{tin[0] = '-'; TI = ~TI + 1;} else tin[0]='+';
TI=TI>>4;
tin[1] = (TI/10)%10 + 48; // Extract tens digit
tin[2] = TI%10 + 48; // Extract ones digit
asm WDR
Ow_Reset(&PORTd, 3); // Onewire reset signal
Ow_Write(&PORTd, 3, 0xCC); // Issue command SKIP_ROM
Ow_Write(&PORTd, 3, 0x44); // Issue command CONVERT_T
delay_us(200);
Ow_Reset(&PORTd, 3);
Ow_Write(&PORTd, 3, 0xCC); // Issue command SKIP_ROM
Ow_Write(&PORTd, 3, 0xBE); // Issue command READ_SCRATCHPAD
delay_ms(100);
TO= Ow_Read(&PORTd, 3);
delay_ms(100);
TO = (Ow_Read(&PORTd, 3) << Cool + TO; //mereni venkovni teploty
delay_ms(100);
if (TO & 0x8000) //TOUTje TOPOM ve znacich
{tout[0] = '-'; TO = ~TO + 1; } else tout[0]='+';
TO=TO>>4;
tout[1] = (TO/10)%10 + 48; // Extract tens digit
tout[2] = TO%10 + 48; // Extract ones digit
acit=0;
asm WDR
return;
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
ross4435897



Založen: Nov 10, 2009
Příspěvky: 426
Bydliště: Brno

PříspěvekZaslal: so prosinec 27 2014, 16:40    Předmět: Citovat

// onewire
OneWireReset();
OneWireOutByte(0xcc);
OneWireOutByte(0x44);

PORTB |= _BV(DS_BIT);
DDRB |= _BV(DS_BIT);
_delay_ms(1000);
DDRB &= ~_BV(DS_BIT);
PORTB &= ~_BV(DS_BIT);

OneWireReset();
OneWireOutByte(0xcc);
OneWireOutByte(0xbe);

DSdata[0] = OneWireInByte();
DSdata[1] = OneWireInByte();

int16_t TReading = (int)(DSdata[1] << Cool + DSdata[0];

SignBit = TReading & 0x8000;
if (SignBit) TReading = (TReading ^ 0xffff) + 1;

// vypocet teploty
TReading = (((6 * TReading) + TReading / 4)); // 2345 = 23.45 stupnu Celsia


... melo by tam byt minimalne 750ms



ATTINY13_termostat.c.txt
 Komentář:

Stáhnout
 Soubor:  ATTINY13_termostat.c.txt
 Velikost:  5.68 kB
 Staženo:  121 krát

Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
jasin



Založen: Feb 22, 2005
Příspěvky: 1440
Bydliště: Kunratice u Prahy

PříspěvekZaslal: so prosinec 27 2014, 17:05    Předmět: Citovat

Při té délce to asi chce stíněný kabel.
_________________
Svět vypadá dobře jen při pohledu přes koňské uši.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
ST78



Založen: Nov 16, 2009
Příspěvky: 113

PříspěvekZaslal: so prosinec 27 2014, 17:59    Předmět: Citovat

Doporučil bych začínat třeba zde:
http://www.ebastlirna.cz/modules.php?name=Forums&file=viewtopic&t=34037&start=0&postdays=0&postorder=asc&highlight=ds18b20
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
nekmil



Založen: Mar 06, 2005
Příspěvky: 787
Bydliště: Havířov

PříspěvekZaslal: ne leden 04 2015, 10:09    Předmět: Citovat

A co tak zkusit místo dlouhého kabelu, "krátkou anténu" ? Very Happy
Zrovna jsem zkoušel ATmega + DS18B20 + RFM12B. A ono to i funguje. Ale se "závorkově" orientovaným jazykem skutečně neporadím. Very Happy

_________________
http://tesinsko.cz/webcams/rondel
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
epes



Založen: Aug 05, 2008
Příspěvky: 116
Bydliště: Praha 5

PříspěvekZaslal: po leden 05 2015, 10:05    Předmět: Citovat

Pánové,
děkuji všem za rady a tipy.
I v tomto případě platilo staré programátorské pravidlo: při odstranění jedné chyby se do programu zanesou nejméně tři další!! Při úpravě programu a při změně DS18B20 za DS18S20 jsem zapoměl změnit posun o 4bity na posun poze 1 bitu. Chyba se při kladnývh teplotách neprojevuje, ale při záporných je to katastrofa.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu Odeslat e-mail
dracekvo



Založen: Feb 10, 2009
Příspěvky: 510

PříspěvekZaslal: út červenec 07 2015, 7:09    Předmět: Citovat

Zdravím,

mám dotaz. Mám PIC a u něj čidlo DS18B20 parazitně napájené a nějak mi přestalo fungovat. Tak jsem laboroval a povedlo se mi to znovu zprovoznit až po snížení pullup odporu 4k7 pomocí paraelně připojenému 10k tj výsledný odpor cca 3k2.
Setkal jste se s tím někdo?
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
termit256



Založen: Dec 06, 2007
Příspěvky: 10335

PříspěvekZaslal: út červenec 07 2015, 7:31    Předmět: Citovat

Ja tam dal dal tusim 1k, trochu to pomohlo, ale vyrazne se chybovost snizila az namotanim par zavitu privodnihu dratu na feritovy krouzek.
Mam vedeni cca 30m nestinenym kabelem vedenym vedle silovych (jina moznost nebyla) a uz neni problem. Obcas se jeste chybka vyskytne, ale ta se odfiltruje kontrolou CRC.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
dracekvo



Založen: Feb 10, 2009
Příspěvky: 510

PříspěvekZaslal: út červenec 07 2015, 7:51    Předmět: Citovat

ferit si dal na přívodní drát napájení, nebo na ten drát co vedek od čidel?

Mě se nechtělo laborovat s kontrolou crc, tak sem udělal, že dám konvert a pak vyčtu z čidla hodnotu 3x zasebou a porovnám jestli jsou stejné. Pokud ne, tak začítám znovu a pracuju s hodnotou z minilého měření.
Dříve mi občas na lcd problikla nesmyslná hodnota, ale od téhle úpravy už nikdy.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
termit256



Založen: Dec 06, 2007
Příspěvky: 10335

PříspěvekZaslal: út červenec 07 2015, 8:52    Předmět: Citovat

Ferit jsem dal na datove vedeni, dival jsem se na to osciloskopem, bylo tam naindukovano hodne vf bordelu.
Mi se s tim crc taky nechtelo drbat, ale ty cidla jsou dost proflakle a tak nebyl problem najit na internetu kod kde to jiz nekdo napsal. Proste jsem jen rychle zkopcil kus kodu, fungovalo to a tak jsem to dal nekoumal. Bylo to tusim pro nejakou x51, jestli ti to bude k necemu, muzu ti ho najit.
Návrat nahoru
Zobrazit informace o autorovi Odeslat soukromou zprávu
Zobrazit příspěvky z předchozích:   
Přidat nové téma   Zaslat odpověď       Obsah fóra Diskuzní fórum Elektro Bastlírny -> Programování PIC, ATMEL, EEPROM a dalších obvodů Časy uváděny v GMT + 1 hodina
Strana 1 z 1

 
Přejdi na:  
Nemůžete odesílat nové téma do tohoto fóra.
Nemůžete odpovídat na témata v tomto fóru.
Nemůžete upravovat své příspěvky v tomto fóru.
Nemůžete mazat své příspěvky v tomto fóru.
Nemůžete hlasovat v tomto fóru.
Nemůžete připojovat soubory k příspěvkům
Můžete stahovat a prohlížet přiložené soubory

Powered by phpBB © 2001, 2005 phpBB Group
Forums ©
Nuke - Elektro Bastlirna

Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.


PHP-Nuke Copyright © 2005 by Francisco Burzi. This is free software, and you may redistribute it under the GPL. PHP-Nuke comes with absolutely no warranty, for details, see the license.
Čas potřebný ke zpracování stránky 0.14 sekund