real time clock

Alle vragen m.b.t digitale schakelingen m.b.v. losse i.c's
en oplossingen m.b.v. PIC processoren.
Mat Janssen
Moderator
Moderator
Berichten: 11503
Lid geworden op: wo 10 dec 2003, 18:36
Locatie: nederweert. .. .. .. .. .. .. .. .. .

Bericht door Mat Janssen »

Koud hè, misschien komt het omdat je in Noorwegen woont ! :lol:
signature ruimte te huur ;-)
Verhuurd :!:
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

ja da zou kunnen, is het daar in het zuiden veel warmer??
Gebruikersavatar
Stynus
Site Admin
Site Admin
Berichten: 5910
Lid geworden op: vr 16 mei 2003, 20:45
Locatie: Overpelt (België)
Contacteer:

Bericht door Stynus »

489°C warmer :p.

Post je schema en je code eens, dan kunnen we zien wat je eventueel fout doet.
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

;Voorbeeld 2
DEVICE 16F628A ;We gebruiken een 16F628A type
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF
ALL_DIGITAL TRUE ;Alle ingangen digitaal

;Normale constanten
SYMBOL Convert = $44 ;DS1820 commando, de DS1820 moet de temperatuur gaan meten
SYMBOL Graad = 223 ;223 is de ASCII code voor het 'graad' karakter
SYMBOL RdScratchPad = $BE ;DS1820 commando, temperatuur van de DS1820 uitlezen
SYMBOL SkipROM = $CC ;DS1820 commando, geen gebruik maken van het unieke adres

;Poortnamen
SYMBOL DS1820 = PORTA.0 ;Sluit de DS1820 temperatuur sensor aan op deze poort

;Variabelen declareren
;BYTE
DIM Remain AS BYTE ;Zie datasheet DS1820
DIM Temperatuur AS BYTE ;Bevat de factor 2 van de temperatuur Celsius

CLEAR ;Wis RAM geheugen

DELAYMS 500 ;LCD stabilisatie


;Hoofdprogramma
;============================ Extra code voor direct juiste temperatuurweergave bij opstarten
CLS ;Wis LCD scherm
PRINT "Moment a.u.b." ;Even wachten, DS1820 moet eerst even de temperatuur meten
OWRITE DS1820, 1, [SkipROM, Convert] ;Zend 'Convert' opdracht (meet temperatuur)
REPEAT
OREAD DS1820, 4, [Remain] ;Blijf de DS1820 uitlezen...
UNTIL Remain <> 0 ;...totdat de DS1820 klaar is met meten
;============================

CLS ;Wis LCD scherm
WHILE 1 = 1
OWRITE DS1820, 1, [SkipROM, Convert] ;Zend 'Convert' opdracht (temperatuur meten)
OWRITE DS1820, 1, [SkipROM, RdScratchPad] ;Zend 'Read ScratchPad' opdracht
OREAD DS1820, 2, [Temperatuur] ;Lees temperatuur en plaats dit in de variabele

PRINT AT 1, 1, DEC Temperatuur / 2, ".", DEC1 (Temperatuur // 2) * 5, Graad, "C "
WEND
Bijlagen
schema_ds1820.gif
schema_ds1820.gif (16.96 KiB) 27228 keer bekeken
Gebruikersavatar
Stynus
Site Admin
Site Admin
Berichten: 5910
Lid geworden op: vr 16 mei 2003, 20:45
Locatie: Overpelt (België)
Contacteer:

Bericht door Stynus »

Heb je er toevallig geen DS18B20 erop zitten?
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

blush

DS18B20U+
Dig. Therm. 1-Wire +-0,5°C μSO8

gaat er nu veel veranderen ??
Gebruikersavatar
Stynus
Site Admin
Site Admin
Berichten: 5910
Lid geworden op: vr 16 mei 2003, 20:45
Locatie: Overpelt (België)
Contacteer:

Bericht door Stynus »

JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

dank je, ik zal er morgen mee aan de gang gaan
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

oke, het werkt nu beter ( goed )
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

nog een paar vragen, de one wire draad tot welke lengte werkt dat en hoe is het programma als ik er een tweede of derde DS18B20+ bij zet
JARI NETWORKS
Berichten: 1697
Lid geworden op: zo 23 apr 2006, 19:01
Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...

Bericht door JARI NETWORKS »

niemand ???
Gebruikersavatar
Stynus
Site Admin
Site Admin
Berichten: 5910
Lid geworden op: vr 16 mei 2003, 20:45
Locatie: Overpelt (België)
Contacteer:

Bericht door Stynus »

Dan moet je de adressen van de sensoren te weten komen. En dan kan je op adres gaan inlezen. Bij de collega's op circuitsonline staan een aantal forumberichten met code in die dit doet.
Hedalen
Berichten: 125
Lid geworden op: za 17 okt 2015, 19:49
Locatie: . .. .. .

Bericht door Hedalen »

stynus schreef:Direct aansturen kan niet. Je zal er een microcontroller tussen moeten zetten. (Tegenwoordig zijn er zelfs al microcontrollers met ingebouwde rtc)
kan ik de pinnen C3 en C4 van n 16f877a hiervoor gebruiken?
Plaats reactie