mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik Seriennummer des ds18s20 mit bascom auslesen


Autor: kevin (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo ich will die 64bit Seriennummer eines ds18s20 herausfinden habe 
jedoch probleme da ich nur 0 als antwort bekomme mein sensor ist mit 
versorgungsspannung und dem pull up widerstand aufgebaut und ein attiny 
85 als µC als compiler habe ich bascom benutzt die daten lese ich mit 
Hterm aus.
Es wäre nett wenn mir einer weiter helfen oder meinen fehler finden 
könnte

MFG Kevin

Mein Quelltext:

'**********************************************************
'Compiler  : BASCOM-AVR
'Hardware : DS18S21 (+125 bis -55 Grad)
'Auslesen der Seriennummern
'Chip type : attiny85
'**********************************************************

$regfile = "attiny85.dat"
$crystal = 1000000

Config 1wire = Portb.1


Dim Ar(8) As Byte
Dim I As Byte
Dim Sn As Byte

Open "comb.3:4800,8,n,1" For Output As #1

Print #1 , "SN"

Do

1wreset
Waitms 10
1wwrite &H33
Waitms 10

Ar(1) = 1wread(8)

For I = 1 To 8

Ar(i) = Sn

Print #1 , I ; "sn" ; Sn
Waitms 10
Next

Wait 5

Loop

End

Autor: D. S. (jasmin)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Sn = Ar(i) = Sn

Autor: kevin (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
jo das war das problem en dummer dreher danke dir vielmals

anstelle:
Ar(i) = Sn

muss man
Sn = Ar(i)

eingeben dann geht es

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.