Haberler:

Forum kuralları güncellendi LÜTFEN  okuyunuz:  https://bit.ly/2IjR3ME

Ana Menü

DS18B20 Sorun

Başlatan enis, 03 Kasım 2013, 16:18:00

enis

S.a ds18b20den okunan sıcaklık derecesini ekranda göstermek istiyorum. degeri okuyor ama ekran çok geç açılıyor ve 655.35 yazıyor yardım ederseniz sevinirim şimdiden teşekkürler

Device = 16F877A
Xtal 20
Declare LCD_DTPin  PORTB.4
Declare LCD_ENPin  PORTB.3
Declare LCD_RSPin  PORTB.2
Declare LCD_Interface 4
Declare LCD_Lines 4
DelayMS 500

TRISA=%00000010
ADCON1=%11111111
TRISB=%00000000:PORTB=0

Symbol ISI_SENSOR = PORTA.1
Dim DEGER As Word
Dim C As Byte
Dim GDEGER As Byte

BASLA:
OWrite ISI_SENSOR ,1,[$CC,$44]
Repeat
DelayMS 25
ORead ISI_SENSOR,4,[C]
Until C <> 0
OWrite ISI_SENSOR ,1,[$CC,$BE]
ORead ISI_SENSOR ,2,[DEGER.LowByte,DEGER.HighByte ,C,C,C,C,C,GDEGER]
Print At 1,1 , Dec DEGER/100,".",Dec2 DEGER," ",At 1,8,"C"
GoTo BASLA
End


isikyasar

#1
Device 16F877
Xtal 4
'---------------------------------------
Declare LCD_DTPin PORTD.4
Declare LCD_ENPin PORTD.3
Declare LCD_RSPin PORTD.2
DelayMS 10

'-------------------ISI ÖLÇME DEĞİŞKENLERİ------
Symbol DQ = PORTA.4
Dim yuzde As Byte
yuzde=0
Dim Temp As Word   
Dim CA As Byte     
Dim CPerD As Byte   
Dim ISARET As Byte
Dim OKU As Byte
Dim ISI As Word        'ddddddddddddddd
Symbol AR = "+"
Symbol EK = "-"
Symbol SIF = " "


basla:
OWrite DQ, 1, [$CC, $44]   
Repeat
DelayMS 25     
ORead DQ, 4, [CA]     
Until CA <> 2   
OWrite DQ, 1, [$CC, $BE] 
ORead DQ, 2,[Temp.LowByte,Temp.HighByte, CA, CA, CA, CA, CA, CPerD]
If ISI=0 Then ISARET = SIF
If ISI>0 Then ISARET = AR
If ISI < 0 Then ISARET = EK
If Temp>2100 Then
Temp=65536-Temp
ISARET = EK
EndIf
  ISI = ((Temp*10) / 16)/10

Print At 2,1,"ISI       : ",ISARET ,Dec3 ISI, "   C"

goto basla

enis

cevabınız için teşekkürler çok yardımcı oldunuz ama kafama takılan bir soru var  Symbol DQ = PORTA.4 kısmında paşka bir pini seçince degeri alıyor ama ekranda 000 yazıyor neden sadece porta.4  nedeni biliyormusunuz acaba? başka portlarda çalışmaz mı ?

mehmet

877 nin kataloğunda pinlerle ilgili
bölümü incelerseniz neden olduğunu
bulacaksınız...

Kolaylıklar...
Olan olmuştur,
olacak olan da olmuştur.
Olacak bir şey yoktur.
---------------------------------------------
http://www.mehmetbilgi.net.tr
https://creativecommons.org/licenses/by/4.0/deed.tr "CC BY"

ipek

PortA.4 Open Collector'dur 4K7 'lik bir direnç ile + 5 volt' a PullUp tabir edilen bağlantı yapılmalıdır.

enis

Çok teşekkürler ...

isikyasar

faydalı olmuştur umarım