www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik DS1820 SN auslesen


Autor: Matthias (Gast)
Datum:

Bewertung
0 lesenswert
nicht 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??

Autor: Matthias (Gast)
Datum:

Bewertung
0 lesenswert
nicht 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 schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
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.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.