Ds18b20 wird von ATMega328P nicht erkannt

JA!

Led35 schrieb:
> Jetzt möchte ich diesen Sensor aber über Bascom auslesen lassen, hierbei
> benutze ich einen ATMega328P

Für einen einzigen DS18B20 am Bus möchte ich folgendes vorschlagen (ist 
aus einem meiner Programme herauskopiert, allerdings in dieser Form 
nicht getestet, also Vorsicht:

- Temperaturmessung starten mit: Gosub Temperatur_messen
- ca 2 sekunden warten
- DS18B20 auslesen mit: Gosub Temperatur_wert_holen
- Inhalt von Text_temperatur auf das LCD schreiben
- 30 Sekunden warten, usw.




'********************************************************************
'*****        Temperaturmessung im Gerät durchführen            *****

' Befehlsliste
Const Read_rom = &H33
Const Skip_rom = &HCC
Const Read_ram = &HBE
Const Convertt = &H44
Const Ds18s20 = &H10
Const Ds18b20 = &H28

' Ergebnisse:

' Für LCD-Display in 1/10-Grad, Dezimalpunkt immer gleiche Stelle
Dim Text_temperatur As String * 8
' Temperatur als Integerzahl
dim Temperatur_int as integer

Dim Array_1wire(10) As Byte
Dim Temperatur As Integer At Array_1wire(2) Overlay


' Zahlen-Formatierung
Dim T_vorzeichen As String * 1
Dim T_einer As String * 2
Dim T_punkt As String * 1
Dim T_zehntel As String * 1
Dim Merker_a As Integer
Dim Merker_b As Integer

'
'----------------------------------------------------------------------- 
-
'  Temperaturmessung starten

Temperatur_messen:

   Disable Interrupts                   '###
      1wreset                           ' Sensor wecken
      1wwrite Skip_rom                  ' Command Skip ROM
      1wwrite Convertt                  ' Messung starten
   Enable Interrupts                    '###

Return

'----------------------------------------------------------------------- 
-
'  Temperaturwert holen

Temperatur_wert_holen:

   Disable Interrupts                   '###
      1wreset                           ' Sensor wecken
      1wwrite Skip_rom                  ' Command Skip ROM
      1wwrite Read_ram                  ' Sensor abfragen
      Array_1wire(2) = 1wread(9 )
   Enable Interrupts                    '###

'----------------------------------------------------------------------- 
-
'  Temperaturwert berechnen

'     1Wire-CRC überprüfen
   If Array_1wire(10) = Crc8(array_1wire(2) , 8) Then

'     Temperatur in zehntel-Grad-Schritte umrechnen und runden
      Temperatur = Temperatur * 10
      Temperatur = Temperatur + 8
      Shift Temperatur , Right , 4      'geteilt durch 16

      Temperatur_int = Temperatur

'     String für LCD-Anzeigefeld aufbauen
      If Temperatur < 0 Then
         T_vorzeichen = "-"
         Elseif Temperatur = 0 Then
         T_vorzeichen = " "
      Else
         T_vorzeichen = "+"
      End If

      Merker_a = Temperatur / 10
      Merker_b = Merker_a * 10
      Merker_b = Temperatur - Merker_b
      Merker_a = Abs(merker_a)
      Merker_b = Abs(merker_b)

      T_einer = Str(merker_a)
      T_einer = "  " + T_einer
      T_einer = Right(t_einer , 2)
      T_punkt = "."
      T_zehntel = Str(merker_b)
      Text_temperatur = T_einer + T_punkt + T_zehntel

   Else
      Text_temperatur = "-ERROR"

   End If                               'If Wire-CRC überprüfen
Return



1Mhz erscheint mir allerdings auch knapp, einfach den Vorteiler durch 8 
herausnehmen.