Ratman2000
10.08.2008, 00:02
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:
$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
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:
$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