Gast
#1198822
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