Hallo,

ich hab mir jetzt entlich mal einen AtMega32 + 20 x 4 LCD aufgebaut und rennt soweit auch wirklich prima...

Gestern hab ich mir dann zum Basteln mal einen DS 1820 ( DS18S20? )

bei Conrad geholt und dachte mir, dass es ja ganz einfach sei, den zu benutzen...

Kurzer Blick ins Datenblatt... Gesehen das es Bottom View ist und demnach verkabelt...

GND an GND, Daten Leitung (mittlerer Pin) an Port C 0 (nein ich brauche I2C nicht :P) und +5v an den letzten Pin... Nun noch einen 4K7 Wiederstand zwischen +5v und der Daten Leitung und nu kann es losgehen.... Dachte ich^^

Im Bascom hab ich denke ich alles eingetragen was nötig ist (hoffe ich)
allerdings meldet mir 1wire immer, dass ich keinen Sensor angeschlossen habe... Ich hoffe ihr könnt mir helfen und mich auf den richtigen Weg schubsen

Ahso, ich verwende ein 16 Mhz Quarz falls das von Bedeutung sein sollte (funzt und Fuse Bit ist gesetzt)

Hier noch mein Test Code:

Code:
$regfile = "m32def.dat"
$crystal = 16000000

Enable Interrupts

Config Lcdbus = 4
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.5 , Rs = Portd.4

Config Lcd = 20 * 4

Config 1wire = Portc.0

Dim Anzal_tempsensoren As Byte

Wait 1

Initlcd

Cursor Off Noblink

Locate 1 , 1
Lcd "*    Temparatur    *"

Anzal_tempsensoren = 1wirecount()

Locate 2 , 1
Lcd "*    Sensoren: " ; Anzal_tempsensoren ; "   *"

End
Hab ich da evtl was vergessen oder falsch gemacht?

Vielen Dank für eure Hilfestellungen!!!

MFG

Ratman2000