DS1820 SN auslesen

Matthias Gast 21.01.2004 18:28 #61351

Lesenswert?

•

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??

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Matthias Gast 21.01.2004 19:21 #61352

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

DS1820 SN auslesen

Antwort schreiben