www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik mehrere DS18s20


Autor: Benny K. (do4bmw)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hy

hat einer von euch ein programm beispiel in BASCOM
wie ich mehrere DS18s20 ansprechen kann ?? ich mache das im moment so

ist ein teil eines programm, nur würde ich nun gerne noch zwei weitere
hinzufügen.

wie mache ich das am besten ?! habe da kein plan.

gruss Benny

---



Sub Messungen
Startmessung:
  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
  Temperatur = Ar(1)
  If Ar(2) > 0 Then Temperatur = 0 Else Shift Temperatur , Right

Getrc5(address , Command)
 If Flag = 1 Then
     ' Lcd "  "
   Flag = 0
 End If
 If Address <> 255 Then
   Reset Command.7
   'Lcd Command ; "   "
   Lastcommand = Command
   Flag = 1
 End If

If Flag_c = 0 Then
   Flag_c = 1
   Wait 1
   Cls
  Goto Startmessung
End If
End Sub Messungen

Autor: Hendi (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Now you have Plan, Benny ! :-)
(Wie war das noch ?

no mail.
no plan.
)

Grüße,
Hendi

Autor: Benny K. (do4bmw)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Genau so!

tnx

Autor: Bernd (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Er meint, no EMail-ADR, no Plan.....

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config 1wire = Portb.0

Config Lcd = 40 * 4
Config Lcdpin = Pin , Rs = Portb.6 , Db4 = Portb.7 , Db5 = Portd.5 ,
Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , E2 = Portb.2


Dim ___lcdno As Bit
Dim T1 As Byte
Dim T2 As Byte
Dim I As Byte
Dim Id1(8) As Byte
Dim Id2(8) As Byte
Dim Ar1(2) As Byte
Dim Ar2(2) As Byte


 ___lcdno = 0
  Initlcd
  Cursor Off
  Cls

 ___lcdno = 1
 Initlcd
 Cursor Off
 Cls




Id1(1) = 1wsearchfirst()
Id2(1) = 1wsearchnext()


Do
1wreset
        'reset
1wwrite &H55
        'Match Rom command
1wwrite Id1(1) , 8
        'Id von Sensor 1
1wwrite &H44
        'Convert T

Waitms 300
        'warten bis convert T fertig ist
1wreset
        'reset
1wwrite &H55
        'match rom command
1wwrite Id1(1) , 8
        'id von sensor 1
1wwrite &HBE
        'scratchpad lesen
Ar1(1) = 1wread(1)
        'erstes byte auslesen, da steht Temp drin
Ar1(2) = 1wread(1)
        'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn
11111111 dann neg vorzeichen


Waitms 500
1wreset
        'reset
1wwrite &H55
        'Match Rom command
1wwrite Id2(1) , 8
        'Id von Sensor 2
1wwrite &H44
        'Convert T

Waitms 300
        'warten bis convert T fertig ist
1wreset
        'reset
1wwrite &H55
        'match rom command
1wwrite Id2(1) , 8
        'id von sensor 2
1wwrite &HBE
        'scratchpad lesen
Ar2(1) = 1wread(1)
        'erstes byte auslesen, da steht Temp drin
Ar2(2) = 1wread(1)
        'zweites Byte auslesen, wenn 00000000 dann pos vorzeichen, wenn
11111111 dann neg vorzeichen

T1 = Ar1(1) / 2
T2 = Ar2(1) / 2






 ___lcdno = 0


  Upperline

    If Ar1(2) = 0 Then
        'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
       Lcd "Temperatur 1:" ; " " ; T1

     Else
      Lcd "Temperatur 1:" ; "-" ; T1

    End If

  Lowerline

        If Ar2(2) = 0 Then
        'wenn byte 2 aus dem sensor = 0 dann temp pos, sonst neg
       Lcd "Temperatur 2:" ; " " ; T2

     Else
      Lcd "Temperatur 2:" ; "-" ; T2

    End If

 ___lcdno = 1

  Upperline
   Lcd "ID 1:" ; Id1(1) ; Id1(2) ; Id1(3) ; Id1(4) ; Id1(5) ; Id1(6)
; Id1(7) ; Id1(8)

  Lowerline
   Lcd "ID 2:" ; Id2(1) ; Id2(2) ; Id2(3) ; Id2(4) ; Id2(5) ; Id2(6)
; Id2(7) ; Id2(8)

Waitms 500

Loop

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.