DS1820 SN auslesen

[Matthias (Gast)]

Hallo!

Ich suche schon seit ner halben Stunden im Board, kann aber nichts
finden.

Wie kann ich mit Bascom die Seriennummer des ds1820 auslesen?
Irgendwann habe ich das schon mal gemacht, aber ... .

Const Read_rom = &H33
C = Read_rom
LCD C

Auf diese Weise erhalte ich nur die erste Zahl, in meinem fall 51.
aber bei jedem weiteren mal wenn ich den Befehl ausführe, scheint er
wieder von vorne anzufangen, und ich erhalte insgesammt also 8 mal die
51!!
Das kann denke ich mal nicht richtig sein.

Was mache ich falsch??

[Matthias (Gast)]

Für alle die nach mir auch noch das Problem haben.

$regfile = "4433def.dat"
$crystal = 4000000


Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 ,
Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4

Config Lcd = 24 * 2                                         'configure
lcd screen


Const Read_rom = &H33                                       ' DS1820
Commands
Const Skip_rom = &HCC
Const Convertt = &H44
Const Read_ram = &HBE
Const Write_ram = &H4E
Const Copy_ram = &H48
Const Recall_ee = &HB8
Const Read_power = &HB4
Const Match_rom = &H55

Config 1wire = Portb.4
'Anschlußpin DS1820



Dim Z(8) As Byte

1wwrite Read_rom                                            'read ROM
command

  For I = 1 To 8
    Z(i) = 1wread()                                         'place
into array
  Next

Cls
Lcd Z(1)
Lcd " "
Lcd Z(2)
Lcd " "
Lcd Z(3)
Lcd " "
Lcd Z(4)
Lcd " "
Lcd Z(5)
Lcd " "
Lcd Z(6)
Lcd " "
Lcd Z(7)
Lcd " "
Lcd Z(8)



End