www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik DS18S20 mit Bascom-AVR


Autor: Sven Scholz (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo,

ich möchte gerne meinen DS18S20 überprüfen und benötige einen simplen
Code für BASCOM-AVR (oder auch gleich die *.hex)

Mein Sensor ist an portD.5 angeschlossen, das Scratchpad möchte ich
gerne über Port B ausgegeben bekommen!

Ich verwende einen ATmega 8 bei 4Mhz.

DANKE...

Autor: Sven Scholz (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
hat niemd eine idee?

Autor: stromi (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Googeln hilft, gugst du hier:
http://www.mcselec.com/an06.htm
du musst noch die Portbezeichnungen anpassen
http://www.roboternetz.de/phpBB2/zeigebeitrag.php?...

du musst noch die Portbezeichnungen anpassen

Autor: Ratber (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
[Meckermodus]

Also Google solltest du eigentlich kennen oder ?
Dürfte doch nicht so schwer sein dort mal zwei Begriffe einzutippern.
Einfach "Bascom und DS1820" eingeben und die Ergebnisse abklappern.
Hier haste was:



=====================================================



'**********************************************************
'Compiler            : BasCom
'Hardware            : AVR-Ctrl
'                    : DS1820
'Chip type           : AT90S8535
'Clock frequency     : 8,000000 MHz
'http://www.mikrocontroller.com
'**********************************************************

$include "ac_lcd.inc"

Config 1wire = Portd.4                                      'use this
pin

Dim Ar(2) As Byte , A As Byte , I As Byte , Temperatur As Integer
Dim Halb As Byte

Lcd "Temp:"
Do
  Wait 1
  1wreset                                                   'reset the
device
  1wwrite &HCC                                              'read ROM
command
  1wwrite &H44
  Waitms 100                                                'read ROM
command
  1wreset                                                   'reset the
device
  1wwrite &HCC                                              'read ROM
command
  1wwrite &HBE                                              'read ROM
command
  For I = 1 To 2
    Ar(i) = 1wread()                                        'place
into array
  Next

  Locate 2 , 1
  Temperatur = Ar(1)

  If Ar(2) > 0 Then Temperatur = 0 Else Shift Temperatur , Right

  Lcd Temperatur ; ".";

  Halb = Ar(1) And 1

  If Halb = 1 Then Lcd "5" Else Lcd "0"

  Lcd " C"
Loop

End


==============================================


Das reicht als Basis vollkommen aus.
Die Suche hat nichtmal 4 Minuten gedauert (Inkl. Lesen der Ergebnisse
und runterladen des Codes).


[/Meckermodus]



'-)

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.