ds18b20 ausgabe in temeratur umwandeln

[pascal (Gast)]

Hallo, ich habe ein Problem.
Bei folgendem Programm was ich zugegeben noch nicht ganz verstehe 
(zusammenkopiert)

$regfile = "m8def.dat"
$crystal = 16000000
$baud = 2400
$hwstack = 100
$swstack = 100

Config 1wire = Portc.5

Dim Sep(9) As Byte
Dim Ar(8) As Byte
Dim I As Byte
1wreset
1wwrite &H33                                        ' ROM-Befehl zum lesen der SerienNr
Ar(1) = 1wread(8)                                   ' 8 Bytes lesen, beschreibt Ar(1) bis Ar(8)

For I = 1 To 8
    Print Hex(ar(i));                               ' Ausgeben
    Print " ";
Next

Print

Wait 1


  Do
    1wverify Ar(1)                                 ' Gerät mit der SerienNr. aus Ar() auswählen
    ' Gerät vorhanden
    If Err = 0 Then

        1wwrite &H44                               ' Temperaturmessung anstoßen

        Waitms 500                                 ' warten bis Messung fertig

        1wverify Ar(1)                             ' Gerät mit der SerienNr. aus Ar(1)...Ar(8) auswählen
        1wwrite &HBE                               ' Temperatur auslesen
        Sep(1) = 1wread(9)                          ' Daten in ein Array lesen, beschreibt Sep(1) bis Sep(9)

        For I = 1 To 9
            Print Hex(sep(i));
        Next
        Print

        ' Nur für die Temperatur wichtige Daten ausgeben
        Print Hex(sep(2));
        Print Hex(sep(1))
        '  High und Low-Byte, nach Datenblatt zusammen setzen und berechnen...
    Else
        Print "Fehler"
    End If

    Wait 1
     Loop
End

bekomme ich diese ausgabe : siehe Bild

Die Frage ist jetzt wie mach ich daraus eine Temeratur? Ich bin Anfänger 
sorry das ich so doof frage..

Danke
MfG Pascal

[chris (Gast)]

schau ins Datenblatt und lass dir mal auf der Zunge zergehen wie was 
zusammengesetzt ist.

Die 1te Zeile ist die Adresse des Sensors, die 2te Zeile ist der Ganze 
Kommunikationskram wobei eigentlich nur die ersten 2 byte wichtig wären 
und diese sind durch 16 zu teilen.
3te Zeile sind die ersten 2byte der 2ten Zeile nur andersrum dargestellt

016A (hex) = 362(dez) / 16 = 22,625°C

[pascal (Gast)]

das datenblatt hab ich mir angeshaut,aber nicht verstanden.... gibts da 
zufällig ein beispielcode der funktioniert?

[chris (Gast)]

pascal schrieb:
> das datenblatt hab ich mir angeshaut,aber nicht verstanden.... gibts da
> zufällig ein beispielcode der funktioniert?

du hast doch alles was du brauchst schon in der Ausgabe drine nur das du 
zuviel ausgibst und eine Division durch 16 wirst du wohl hinbekommen, 
abspeichern und nur die Temps ausgeben.

Programmieren ist mehr als nur Code zusammzufügen.

[pascal (Gast)]

$regfile = "m8def.dat"
$crystal = 16000000
$baud = 2400
$hwstack = 100
$swstack = 100

Config 1wire = Portc.5
 Dim Tempdata(9) As Byte
 Dim Temperature As Integer
Do
  1wreset
  1wwrite &HCC
  1wwrite &H44
  Waitms 750
    1wreset
1wwrite &HCC
1wwrite &HBE
 Tempdata(1) = 1wread(9)
 If Tempdata(9) = Crc8(tempdata(1) , 8) Then
Temperature = Makeint(tempdata(1) , tempdata(2))

Temperature = temperature / 16
  Print Temperature
End If

Loop

End

so geht es ... trotzdem danke