Duesentrieb
11.05.2008, 00:11
Hallo zusammen,
ich beschäftige mich gerade mit 1-wire Bausteinen. Genauer gesagt mit dem DS1820 zur Temperaturmessung.
Im Web habe ich eine passenden Code gefunden mit dem ich experimentieren kann.
$regfile = "m32def.dat"
$crystal = 7372800
' LCD konfigurieren Port auf Ausgabe setzten und Pin's entsprechend zuordnen
Ddrd = &HFF
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.7
Config Lcd = 16 * 2
' Pin für 1wire Schnittstelle festlegen, Schnittstelle wird von BASCOM durch Software realisiert
Config 1wire = Portc.0
Dim Ar(2) As Byte
Cls
Do
1wreset
1wwrite &HCC
1wwrite &H44
1wreset
1wwrite &HCC
1wwrite &HBE
Ar(1) = 1wread(2)
Waitms 500
Locate 1 , 1
Lcd Hex(ar(2)) ; Hex(ar(1))
Locate 2 , 5
Shift Ar(1) , Right , 1
Lcd Ar(1)
Loop
End
Der hier beschriebende Code läuft mit einem DS1820 an einem Port.
Ich möchte nun einen zweiten an Port Portc.1 anschließen.
Wie muss ich diesen im Programm einbauen?
Schöne Grüße
Daniel
ich beschäftige mich gerade mit 1-wire Bausteinen. Genauer gesagt mit dem DS1820 zur Temperaturmessung.
Im Web habe ich eine passenden Code gefunden mit dem ich experimentieren kann.
$regfile = "m32def.dat"
$crystal = 7372800
' LCD konfigurieren Port auf Ausgabe setzten und Pin's entsprechend zuordnen
Ddrd = &HFF
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.4 , Rs = Portb.7
Config Lcd = 16 * 2
' Pin für 1wire Schnittstelle festlegen, Schnittstelle wird von BASCOM durch Software realisiert
Config 1wire = Portc.0
Dim Ar(2) As Byte
Cls
Do
1wreset
1wwrite &HCC
1wwrite &H44
1wreset
1wwrite &HCC
1wwrite &HBE
Ar(1) = 1wread(2)
Waitms 500
Locate 1 , 1
Lcd Hex(ar(2)) ; Hex(ar(1))
Locate 2 , 5
Shift Ar(1) , Right , 1
Lcd Ar(1)
Loop
End
Der hier beschriebende Code läuft mit einem DS1820 an einem Port.
Ich möchte nun einen zweiten an Port Portc.1 anschließen.
Wie muss ich diesen im Programm einbauen?
Schöne Grüße
Daniel