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
jo das war das problem en dummer dreher danke dir vielmals anstelle: Ar(i) = Sn muss man Sn = Ar(i) eingeben dann geht es
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.