LM75 Bascom Thermometer

[Robin (Gast)]

Hallo,

ich arbeite mit dem Temperatursensor LM75 und dem Programm Bascom.
Habe bei der Erstellung des Thermometers jedoch einige Schwierigkeiten.
Ich möchte zum Beispiel Temperaturen, die ich messe speichern. Kenne 
mich jedoch nicht sher gut mit den Befehlen aus und bräuchte etwas 
Hilfe.
Mit welchem Befehl kann man Daten speichern?
Gruß Robin

[Oliver J. (skriptkiddy)]

Robin schrieb:
> Mit welchem Befehl kann man Daten speichern?
> Gruß Robin


Und wo willst du die Messdaten speichern?

[Tippgeber (Gast)]

Wenn es um den Eeprom geht dann sowas ?

Am Einfachsten ist es, die Variable mit dem Zusatz „ As Eram“ zu 
deklarieren:


Dim Temp As Eram Single

[Robin (Gast)]

Skript Kiddy schrieb:
> Und wo willst du die Messdaten speichern?


Auf einem Mikrocontroller. Möchte nur später, dass mir die kleinste 
Temperatur auf einem Display angezeigt wird.

[XXX (Gast)]

Hallo

Zeig doch mal, was du bisher hast.
Das ganze sollte doch nicht so schwer sein.

Gruß
Joachim

[Robin (Gast)]

Do
I2cstart
I2cwbyte 145
I2crbyte Wert , Nack
I2cstop
Locate 1 , 1
Lcd Wert
Locate 1 , 0
Loop

End

[Tippgeber (Gast)]

Ist es alles wat Du an Code hast ?

[Oliver J. (skriptkiddy)]

Robin schrieb:
> Auf einem Mikrocontroller. Möchte nur später, dass mir die kleinste
> Temperatur auf einem Display angezeigt wird.
Dann brauchste nich wirklich alle Temperaturen zu speichern.
Zwei Variablen genügen:

T_min     (kleinste Temperatur)
T_aktuell (gemessene Temperatur)

Bei der ersten Messung speicherst du die gemessene Temperatur in T_min.
Danach vergleichst du jede Messung mit T_min:

Wenn T_aktuell < T_min  dann T_min=T_aktuell

Dann kannst du, wann immer es dir beliebt T_min auf dem Diplay ausgeben 
und siehst die niedrigste Temperatur des Temperaturverlaufes seit dem 
Reset des Mikrocontrollers.

Auf dein Beispiel bezogen bedeutet das:

'Das erste Einlesen
I2cstart
I2cwbyte 145
I2crbyte T_aktuell , Nack
I2cstop 

T_min = T_aktuell
Locate 1 , 1
Lcd T_min
Locate 1 , 0
Do
I2cstart
I2cwbyte 145
I2crbyte Wert , Nack
I2cstop
If  T_min > T_aktuell Then 
  T_min = T_aktuell
End if
Locate 1 , 1
Lcd T_min
Locate 1 , 0
Loop

End

Gruß Skriptkiddy

[Robin (Gast)]

ja und den habe ich noch, um anzuzeigen, ob eine Plus-oder 
Minustemperatur vorhanden ist:
 If Wert > 200 Then Lcd "-" Else Lcd "+"
Ansonsten habe ich ja damit schon die Programmierung, die mir die 
Temperatur auf dem Display anzeigt.

[Robin (Gast)]

ach und in den Deklarationen habe ich noch das:
Config Lcd = 16 * 2
   Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , 
Db7 = Portb.0 , E = Portb.4 , Rs = Portb.6
   Config Lcdbus = 4
   Initlcd
   Cls
Config Scl = Portb.5
Config Sda = Portb.7

Dim Wert As Byte

[Robin (Gast)]

Skript Kiddy schrieb:
> Robin schrieb:
>> Auf einem Mikrocontroller. Möchte nur später, dass mir die kleinste
>> Temperatur auf einem Display angezeigt wird.
> Dann brauchste nich wirklich alle Temperaturen zu speichern.
> Zwei Variablen genügen:
>
> T_min     (kleinste Temperatur)
> T_aktuell (gemessene Temperatur)
>
> Bei der ersten Messung speicherst du die gemessene Temperatur in T_min.
> Danach vergleichst du jede Messung mit T_min:
>
> Wenn T_aktuell < T_min  dann T_min=T_aktuell
>
> Dann kannst du, wann immer es dir beliebt T_min auf dem Diplay ausgeben
> und siehst die niedrigste Temperatur des Temperaturverlaufes seit dem
> Reset des Mikrocontrollers.


Super, ich denke, dass mir das schonmal weiterhilft, werde es später mal 
ausprobieren...dankeschön

[Oliver J. (skriptkiddy)]

Robin schrieb:
> If Wert > 200 Then Lcd "-" Else Lcd "+"
Wie kommst du darauf?

[Robin (Gast)]

wenn Bytes von den Werten 200 bis 255 übertragen werden handelt es sich 
um Minustemperaturen, andernfalls bei übertragenen Bytes von 0- 127 
heißt dies, dass positive Temperaturen vorliegen

[Oliver J. (skriptkiddy)]

Robin schrieb:
> wenn Bytes von den Werten 200 bis 255 handelt es sich
> um Minustemperaturen
Nein bei allen Werten ab 128 (unsigned).
Bei dir ist aber wert=255 --> -255 Grad. Das ist Blödsinn. Es sind 
nämlich nur -1 Grad. Schau dir mal das Zweierkomplement[1] an.

Gruß Skriptkiddy



[1] http://de.wikipedia.org/wiki/Zweierkomplement

[Robin (Gast)]

aber soweit ich weiß, wandelt der das doch automatisch in die richtige 
Temperatur um, oder?

[Tom Z. (tom_z)]

Nein, wieso?
rechnen musst du selber.
Das was du als Programm geschrieben hast zeigt dir nur die "Roh-Daten" 
an.

MfG Tom

[Oliver J. (skriptkiddy)]

Ein Byte ist in Bascom eine 8-Bit vorzeichenlose Ganzzahl. Das heiß Sie 
geht von 0 bis 255. Da bildet Bascom garnichts auf einen negativen 
bereich ab.

Wenn du den Betrag des negativen Wertes haben möchtest, dann mache es 
so:

if wert > 127 then
    betrag = ( 255 - wert ) + 1 'Betrag der negativen Temperatur
end if

[Robin (Gast)]

Skript Kiddy schrieb:

>
> Wenn du den Betrag des negativen Wertes haben möchtest, dann mache es
> so:
> if wert > 127 then
>     betrag = ( 255 - wert ) + 1 'Betrag der negativen Temperatur
> end if

und dann muss ich noch if wert > 127 then LCD"-" else lcd "+" einfügen?
weil ich will ja richtig angezeigt haben, dass Minustemperaturen 
herrschen

[Oliver J. (skriptkiddy)]

Robin schrieb:
> und dann muss ich noch if wert > 127 then LCD"-" else lcd "+" einfügen?
> weil ich will ja richtig angezeigt haben, dass Minustemperaturen
> herrschen
Ist die Frage jetzt ernst gemeint?

[Robin (Gast)]

ja oder muss ich if Betrag the lcd "-" einfügen?

[Oliver J. (skriptkiddy)]

Robin schrieb:
> ja oder muss ich if Betrag the lcd "-" einfügen?
Denk doch mal nach. Wie ist der (abolute) Betrag definiert?

kopfschüttel

[Robin (Gast)]

Skript Kiddy schrieb:
> Denk doch mal nach. Wie ist der (abolute) Betrag definiert?

er gibt den Abstand von 0 an, aber das könnte dann ja auch positiv sein

[derbär (Gast)]

http://www.mcselec.com/index.php?option=com_content&task=view&id=52&Itemid=57

[Thomas D. (thomasderbastler)]

Ein bisschen Googeln
http://www.forum.g-heinrichs.de/viewtopic.php?f=12&t=69