SHT75 am PIC 16F877A

Servus und Hallo,

ich habe ein Problem mit meinem SHT75 Temperatur und Feuchte-Sensor. Und zwar bekomme ich diesen an meinem PIC 16F877A nicht zum laufen.
Hier erstmal mein Code

Code:

---

        list                p=16f877a        ; list directive to define processor
        #include        <p16f877a.inc>        ; processor specific variable definitions
       
;        __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _RC_OSC & _WRT_OFF & _LVP_ON & _CPD_OFF

EXTERN        LCD_AN
;***********************Variablendefinition***************************

D_SENSOR_DATA UDATA        0x040                        ;start of general purpose registers

                        COUNTER_SEN                res        1        ; Counter in Init
       
                        TEMP_DATA                res                1        ; TEMP_DATA
                        TEMP_ACK                RES                1        ; TEMP_ACK
                        TEMP_TEST                res                1        ; TEMP_TEST

                        ADDR_COMM                res                1        ; Address and Command
       
                        HIGH_BYTE                res                1  ; Oberste 8 bit
                        LOW_BYTE                res                1        ; untere 8 bit

                        GLOBAL HIGH_BYTE, LOW_BYTE
                       
EXTERN                DELAY_30ms



#define        SENSOR_DATA                        PORTA,        1
#define        SENSOR_SCK                        PORTB,        2
       
#define        SENSOR_DATA_DIR                TRISA,        1
#define        SENSOR_SCK_DIR                TRISB,        2

       
PROG1                Code                                                ; START
;ORG                        0x000
goto                START_SHT
;
;org                        0x0005                                                ; Interrupt
;retfie

START_SHT
GLOBAL        START_SHT
;***********************Init****************************************
movlw                0x005
movwf                HIGH_BYTE
movwf                LOW_BYTE
movwf                ADDR_COMM

movlw                b'00000101'                                ; Messe Feuchte
movwf                ADDR_COMM

bsf                        STATUS, RP0                                ; Bank1
bcf                        SENSOR_SCK_DIR                        ; Output
bcf                        SENSOR_DATA_DIR                        ; Output
bcf                        STATUS,        RP0                                ; Bank0
;***********************Transmission*Start****************************
bsf                        SENSOR_DATA
bsf                        SENSOR_SCK
bcf                        SENSOR_DATA
bcf                        SENSOR_SCK

bsf                        SENSOR_SCK
bsf                        SENSOR_DATA

movlw                d'8'
movwf                COUNTER_SEN

;***********************Feuchte messen****************************
SEND_BIT_TO_SENSOR

bcf                        SENSOR_SCK
btfss                ADDR_COMM,7
goto                SEND_NULL
bsf                        SENSOR_DATA
goto                SEND_BIT

SEND_NULL
bcf                        SENSOR_DATA

SEND_BIT
bsf                        SENSOR_SCK

rlf                        ADDR_COMM,f                                ; rotate
decfsz                COUNTER_SEN,F
goto                SEND_BIT_TO_SENSOR

bcf                        SENSOR_SCK

bsf                        STATUS, RP0
bsf                        SENSOR_DATA_DIR                        ; Input
bcf                        STATUS, RP0

bsf                        SENSOR_SCK

btfss                SENSOR_DATA                                ; Acknowledge bekommen?

goto                ACK_GET_FROM_SENSOR
goto                ACK_LOST
;***********************Get Acknowledge****************************
ACK_GET_FROM_SENSOR                                        ; Ack bekommen
;movlw                b'00001111'
;movwf                PORTB
bcf                        SENSOR_SCK

movlw                d'30'
movwf                COUNTER_SEN

call        DELAY_30ms
;***********************Daten empfangen****************************
WAIT_FOR_SENSORDATA
btfss                SENSOR_DATA
goto                READ_DATA
decfsz                COUNTER_SEN,f
goto                WAIT_FOR_SENSORDATA
goto                ACK_LOST                                ; wenn keine Daten dann ende
;***********************Lese*Daten*********************************
READ_DATA

call        GET_BYTE
movf        ADDR_COMM,w
movwf        HIGH_BYTE                                        ; oberes Byte
call        SEND_ACK_TO_SENSOR

call        GET_BYTE
movf        ADDR_COMM,w
movwf        LOW_BYTE                                        ; unteres Byte
call        SEND_ACK_TO_SENSOR

call        GET_BYTE

goto  geschafft
;***********************Get*Byte***********************************
GET_BYTE

clrf        ADDR_COMM
movlw        d'8'
movwf        COUNTER_SEN

GET_BYTE_LOOP
bsf                SENSOR_SCK
btfss        SENSOR_DATA
goto        GET_ZERO_BIT
bsf                ADDR_COMM,0
goto        GOT_BIT

GET_ZERO_BIT
bcf                ADDR_COMM,0

GOT_BIT
bcf                SENSOR_SCK
decfsz        COUNTER_SEN,f
goto        GET_NEXT_BIT
goto        DONE

GET_NEXT_BIT
rlf                ADDR_COMM,f                                ; rotate
goto        GET_BYTE_LOOP

DONE
return
;***********************Sende*Acknowledge****************************
SEND_ACK_TO_SENSOR

bsf                STATUS,RP0
bcf                SENSOR_DATA
bcf                STATUS, RP0

bcf                SENSOR_DATA
bsf                SENSOR_SCK
bcf                SENSOR_SCK

bsf                STATUS, RP0
bsf                SENSOR_DATA
bcf                STATUS, RP0

return
;***********************Kein* Acknowledge****************************
ACK_LOST
movlw                b'11110000'
movwf                HIGH_BYTE
movlw                b'00001111'
movwf                LOW_BYTE

geschafft
bsf                        PORTB,2
;movwf                PORTB

;***********************Ende****************************************
ABM
goto        LCD_AN
;return
;goto                ABM

end

---

Gibt es jemanden, der mit dem Sensor Erfahrung hat und ebenfalls wie ich in Assembler programmiert?
Jemand ne Idee, was ich falsch mache oder wo der Fehler ist. Vielleicht in der Initialisierung….

Danke

Gruß

Keiner nen Tipp?

Wie schnell läuft denn dein PIC, Taktfrquenz ???
Der Sensor ist nicht unbegrenzt schnell mit seiner Schnittstelle
Siehe Datenblatt.

Hast Du den Adu auch ausgeschaltet, da Du RA1 für Data benutzt ?
Kannst Du mit einem Oszilloskope Dir die Signale ansehen ??


mit freundlichen Bits
Bernd Sirozynski

Servus,

also der PIC ist an einen 4 MHz Quarz angeschlossen und läuft somit intern mit 1 MHz. Laut Datenblatt des STH http://www.sensirion.com/de/pdf/prod...1x_SHT7x_E.pdf kann die Clock mit maximal 10 MHz an >4,5 Volt VDD betrieben werden.
Ich habe auch schon versucht mit dem ein oder anderen Delay die Frequenz zu verringern, trotzdem funktioniert das ganze nicht richtig.

DER ADU wird im Hauptprogramm ausgeschaltet. Habe aber auch schon die Ports variiert. Keine Änderung.
Oszi habe ich leider keins, versuch aber so was aufzutreiben. Gute Idee.
Danke für deinen Tipp!

Gruß Daniel

Servus,

also ich brauche nach wie vor HILFE!!! ](*,)

Gruß

Ok, die Taktfrequenz können wir dann wohl ausschließen.
Habe mir deinen Source Code im oberen Fenster markiert und in die MPLAB eingefügt. Leider gehen alle Leezeichen am Anfang der Zeile verloren. Kannst Du mir den Code z.B. per email oder falls das geht, irgendwie als Anlage senden, dann brauche ich nicht jede Zeile umzufummeln.
Bin gerne bereit nochmal eine intensiveren Blick in die Software zu
werfen.

mfg Siro

Du solltest in jedem Falle die
"connection reset sequence" einführen und bei jedem auftretenem Fehler
erneut senden. Unbedingt daruaf achten, das der Ruhezustand der
Clockleitung LOW ist
Habe mal den Code für Dich geschrieben:

siro_init: ; connection reset sequence für SHT75
bcf SENSOR_SCK ; idle state Clock = Low
bsf SENSOR_DATA ; Data auf High

movlw d'9' ; sende 9 Clock Impulse
movwf COUNTER_SEN ;
siro_InitLoop:
bsf SENSOR_SCK ; Clock High
bcf SENSOR_SCK ; Clock Low

decf COUNTER_SEN,F ; Zähler -1
btfss STATUS,Z ; scip wenn 0
goto siro_InitLoop ; loop widerholen

bsf SENSOR_SCK ; Clock wieder auf High
bcf SENSOR_DATA ; Data auf Low

bcf SENSOR_SCK ; Clock Low
bsf SENSOR_SCK ; Clock High
bsf SENSOR_DATA ; Data auf High
bcf SENSOR_SCK ; Clock Low

; dieser Code sollte immer nach einem Neustart und
; nach einem Fehler durchlaufen werden.
;
; weiter bin ich noch nicht gekommen, bleibe aber dran
mfg Siro

Schon mal fettes Danke Siro.

Also ich habe mir das Ganze nochmal zur Brust genommen und die Ports verändert. Auch wenn ich dachte, dass das blödsinn sei.

Im Debugging läuft das Ganze mittlerweile einigermaßen. Das Problem ist nur, dass ich mir nicht ganz Sicher bin, ob der Sensor richtig misst.
Die Temperaturabweichung beträgt etwa 2 Grad und die Feuchteabweichung 5%.

Ohne Debugger bzw. MPLAB ICD 2 also auf dem reinen PIC läuft der Sensor nicht. Ich bekomme kein Acknowledge vom Sensor zurück, wenn ich die Adressierung sende.
Ich nehme mal an, dass das was mit der um einiges höheren Frequenz zu tun hat und sich dadurch die Signale auf die benachbarten Leitungen übertragen.
Ich kann mit dem Mulimeter feststellen, dass sich bei einem Takt der SCK Leitung die DATA Leitung um einige 100 mV verändert. Genauer kann ich leider nicht messen und ein Oszi habe ich leider auch nicht daheim.

Hast du/JEMAND vielleicht eine Idee, was die Abweichung der Messung betrifft und wie ich das Ganze auf dem PIC ohne Debugger zum laufen bekomme?

Nochmals Danke

Gruß

Achja...

wenndu den Code ncoh magst, bräuchte ich eine eMail Adresse.

Gruß

Da fällt mir doch gerade ein :
Hast Du einen Pullup Widerstand dan der Datenleitung, würd mal
sagen, so um 1 K wäre Ok, Port A hat sowas nicht intern.
Zudem ist deine Wartezeit nur 30ms, mein Datenblatt schreibt was von
größer 55ms bei 12 Bit.
Eventuell eine zusätzliche Wartezeit bevor Du das Acknowledge erwartest
also etwas länger warten auf Low Signal.
muss doch hinzukriegen sein
mfg Siro

Also der Pullup-Widerstand ist selbstverständlich drin... Habe 10 k genomme. Habe ich bei einer Schaltung im Netz gefunden.
Ich warte auf die Daten etwa 120ms und auch das Ack 30 ms. Das erschien mir ausreichend.

Bin mit meinem Latein am Ende.

Hallo,
Du benutzt 'bsf' und 'bcf' für Bits im gleichen Register unmittelbar hintereinander. Es könnte sein, daß durch einen Pipeline-Effekt eines der Kommandos 'verschluckt' wird. Setze sicherheitshalber zwischen Bit-Befehle mit gleichem Register ein 'nop'.

Port A muß mit ADCON1 auf 'digital' initialisiert werden, weil dort nach Reset alles Analog-Eingänge sind.

Guten Morgen,

also ich messe die Temperatur mit 14 Bit.
Temp=d1+d2*SOT laut Datenblatt. Das ergibt für mich dann
Temp=-40+(0,01*5784)
Temp=17,84 Grad.
Das Ergebnis weicht um genau 1 Grad von drei anderen Thermometern ab,
die ich hier rum fliegen habe. Die anderen zeigen zu dem Zeitpunkt der
Messung alle 16,8 Grad an. (Alles unterschiedliche Hersteller)
Hmpf komisch. Normalerweise sollte der SHT Sensor sack genau sein...
Sind nun die anderen drei nicht so gut oder funktioniert meine Messung
einfach noch nicht richtig?!

In der Application Notes habe ich für die Temperatur noch eine genauere
Formel gefunden. Diese ist allerdings für "extremere" Temperaturbereiche
und ändert bei meinem Fall gar nichts.

Es kann doch eigentlich nicht so schwer sein das Ding zum laufen zu
bekommen.

Also im Debugging läuft sowhl der sht75 wie auch der sht11 und beide liefern mir ähnliche Werte. (Ganz dicht beieinander.)
Wennich den Pic aber programmiere läuft gar nix... Ich bekomme kein Ackkowledge. Bei beiden nicht. Und ich raffe nicht warum


Gruß

Okay ich habe das Problem gerade eben beseitigt!.

Argh.

Was ich mir aber immer noch nicht erklären kann ist die Abweichung bei der Messung.
Hat dazu jemand eine Idee?

Gruß

Also die Abweichung kann ich mir nach wie vor nicht erklären.
Hat jemand mit einem anderen digitalen Temperatur-Sensor Erfahrung gemacht?
gruß

Hallo,

Wie kann ich die relative Feuchte mit dem Pic 16 einfach berechnen? Der kann ja nicht multiplizieren!

Ich würd gerne weiter mit 12 Bit messen. Finde aber in den Application Notes nur Rechenvereinfachungen für 8 Bit.
Gruß

Guten Morgen,

also mir ist nach wie vor schleierhaft, wie ich die Berechnung der
Feuchte realisieren kann.
Kann mir da jemand weiterhelfen.
Ist es vielleicht ratsam auf einen größeren PIC umzusteigen? Also auf
einen PIC18F, da diese multiplizieren können.

Gruß Daniel

Moin

Ich hatte für meine Jugend Forscht 2006 Arbeit einen SHT71 verwendet und muss zugeben, das ich mich am Schluss nicht mehr weiter damit beschäftigt habe, aber die Werte sind bei mir auch nicht im gewünschten Auflösungsmaßstab gewesen ... Hätte man vielleicht einstellen können, aber das habe ich damals dann nicht mehr gemacht.

Vermutlich bringt dir meine Arbeit nicht soo viel, aber auf meiner Seite findest du unter SUBMS alles zu dem Projekt.

mfg
Andun

Ich kann Dir einen PIC Code anbieten, der 16*16 Multiplizieren
und 32 /32 dividieren kann. Habe ich mal für die 12er Reihe
gebastelt kann auch für die 16er Reihe verwendet werden.
Vielleicht hilft Dir das weiter.
mfg. Siro

Wär super!
Danke

Hast Du den Code runtergeladen ?.
Bedarf evtl. einiger Erklärungen.
Es gibt 4 Vraiablen a 32 Bit
var_ARG_A,var_ARG_B,var_ARG_C,var_ARG_D
Hierbei liegt jeweils das niederwertigste Byte Bit0.7 in
....AL die Bits 8..15 in ...AH Bit 16..23 in ....AHL Bit 24.31 in ....AHH

Möchtest Du zwei 16 Bit Werte multiplizieren, muss Du die Variablen
entsprechend mit den Werten laden

z.B 1000*2000=2000000

mov LOW D'1000',W ; A Wert setzen
movwf var_ARG_AL
mov HIGH D'1000',W
movwf var_ARG_AH

mov LOW D'2000',W ; B Wert setzen
movwf var_ARG_BL
mov HIGH D'2000',W
movwf var_ARG_BH

call MUL16 ; Berechnung ausführen, Ergebnis nach Wert A

; nun steht das Ergebnis 32 Bit breit in der Variablen ARG_A

Bit 0..7 in in var_ARG_AL
Bit 8..15 in var_ARG_AH
Bit 16..23 in var_ARG_AHL
Bit 24..31 in var_ARG_AHH

!!!! es wird also der A Wert überschrieben mit dem Ergebnis

Beim dividieren läuft das in ähnlicher Weise ab.
mfg. Siro

sorry, muss natürlich
movlw LOW D'1000' heissen um Konstanten zu laden.


oder bei deinen Messwerten
mov Messwert_Low,W
movwf var_ARG_AL
mov Messwert_High,W
movwf var_ARG_AH

usw.

Wenn Du mir deine Berechnung genau beschreibst,
welche Variable mit wieviel Bits mit wem multipliziert,dividiert usw.
werden muss implementiere ich Dir den Code mittels meinen Berechnungs Routinen. Stellt kein Problem dar. Ich hab ja auch meinen Spaß daran.
mfg Siro

Servus,

wo kann ich mir den Code denn ziehen? Hab ich den Link verpasst?

Also ich würde gerne zur Berechnung der Feuchte die Formel aus dem Datenblatt anwenden... Habe mich da auch schon dran versucht allerdings tue ich mich sehr schwer beim multiplizieren.

Das heißt:

rH= c1+c2*Mess+c3*Mess²
das bedeutet für 12 bit
rH= -4+0,0405*Mess-2,8*10^(-6)*Mess²
Mess steht für den digitalen Wert der Feuchtemessung. maximal 2^12=4096

Um mit 0,0405 zu multiplizieren hatte ich mir überlegt einfach mit 4 und mit 5 zu multiplizieren und dann für eine Null einfach das Komma zu verschieben. Zum Schluss werden die Werte dann noch aufeinander addiert und zwar so, dass die jeweilige Additionen an die richtige Stelle gerückt wird. So wie man das früher brav in der Schule gelernt hat.

Zumindest kläppt das auf dem Papier aber leider nicht in meinem Programm.

Hast dafür eine Idee?

Gruß

Da wurde anscheinend das Attachment aus meiner Antwort gelöscht,
keine Ahnung warum. Ich selbst hatte extra probiert ob ich es runterladen
kann und das ging getsern auch einwandfrei.
Kann ich Dir den Code auch per email schicken ?
Siro

Deine Feuchteumrechnung ist fertig. Habe Dir den komplett getesteten
Code per email geschickt. Ein "Mini"-PIC kann also doch rechnen, ist nur eine Frage des Aufwands. Und das beste: es hat mir tatsächlich Spaß gemacht.
mfg Siro

Servus,

also noch mal eine kurze Resonanz zu der ganzen Geschichte.

Ich habe die Umrechnung für die Temperatur fertig. Abweichung zum kalibrierten Messgerät beträgt +/-0,5 Grad. Also funktioniert wunderbar

Die Feuchte habe ich mit einigen Geraden genähert. Da mir die Rechnung laut Datenblatt einfach zu viel war. so beträgt die Abweichung rund +/- 2%, was mich nicht unbedingt glücklich macht aber vertretbar ist.

Trotzdem noch mal fettes fettes Danke an Siro. Bei der Multiplikation habe ich einiges gelernt.

Gruß Daniel