real time clock
-
- Moderator
- Berichten: 11503
- Lid geworden op: wo 10 dec 2003, 18:36
- Locatie: nederweert. .. .. .. .. .. .. .. .. .
-
- Berichten: 1697
- Lid geworden op: zo 23 apr 2006, 19:01
- Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...
- Stynus
- Site Admin
- Berichten: 5910
- Lid geworden op: vr 16 mei 2003, 20:45
- Locatie: Overpelt (België)
- Contacteer:
489°C warmer :p.
Post je schema en je code eens, dan kunnen we zien wat je eventueel fout doet.
Post je schema en je code eens, dan kunnen we zien wat je eventueel fout doet.
Met vriendelijke groet,
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--
-
- Berichten: 1697
- Lid geworden op: zo 23 apr 2006, 19:01
- Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...
;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
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 (16.96 KiB) 27720 keer bekeken
- Stynus
- Site Admin
- Berichten: 5910
- Lid geworden op: vr 16 mei 2003, 20:45
- Locatie: Overpelt (België)
- Contacteer:
Heb je er toevallig geen DS18B20 erop zitten?
Met vriendelijke groet,
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--
-
- Berichten: 1697
- Lid geworden op: zo 23 apr 2006, 19:01
- Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...
- Stynus
- Site Admin
- Berichten: 5910
- Lid geworden op: vr 16 mei 2003, 20:45
- Locatie: Overpelt (België)
- Contacteer:
Met vriendelijke groet,
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--
-
- Berichten: 1697
- Lid geworden op: zo 23 apr 2006, 19:01
- Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...
-
- Berichten: 1697
- Lid geworden op: zo 23 apr 2006, 19:01
- Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...
-
- Berichten: 1697
- Lid geworden op: zo 23 apr 2006, 19:01
- Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...
-
- Berichten: 1697
- Lid geworden op: zo 23 apr 2006, 19:01
- Locatie: Hedalen. .. Noorwegen .. .. .. .. .. .. ...
- Stynus
- Site Admin
- Berichten: 5910
- Lid geworden op: vr 16 mei 2003, 20:45
- Locatie: Overpelt (België)
- Contacteer:
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.
Met vriendelijke groet,
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--
Stynus
http://www.elektronicastynus.be
--> Elektronica bouwpakketten en componenten te koop. <--