DS1820 SN auslesen

Matthias Gast #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 #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
Thread beobachten

Antwort schreiben

Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt. Bitte hier nur auf die ursprüngliche Frage antworten, für neue Fragen einen neuen Beitrag erstellen.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Dein Name und deine E-Mail-Adresse

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.