ds18b20 programı tavsiye

[styx75]

selam arkadaşlar
aşağıdaki programı yazdım..tecrübeli arkadaşlar eksik yada falıkları nelerdedir tavsiyelerini yazarsa sevinirim
program çalışmaktadır..
ayrıca aynı programı. ondalı kısım olarak nasıl derlerim

pause 200
TRISB  = 0   
TRISA  = %11111   
LOW PORTB.7
SYMBOL SEC=PORTA.0 
SYMBOL A =PORTA.1
SYMBOL E =PORTA.2

DEFINE LCD_DREG PORTB 
DEFINE LCD_DBIT 0   
DEFINE LCD_RSREG PORTB  
DEFINE LCD_RSBIT 4  
DEFINE LCD_EREG PORTB  
DEFINE LCD_EBIT 5 
DEFINE LCD_BITS 4 
DEFINE LCD_LINES 2 
DEFINE LCD_COMMANDUS 2000  
DEFINE LCD_DATAUS 50 

  DQ var PORTA.3
  deger var word
  derece var word 
  SET VAR BYTE
  TOL VAR BYTE  
  SC VAR BYTE 
  CMCON=7
  SC=0
  READ 0,TOL
  READ 5,SET 
  LCDOUT $FE,$48, 3, 3, 0,0, 0, 0, 0, 0
  PAUSE 50 
  ILK:
 
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"SET"," ",#SET,1,"C"
  PAUSE 500
  LCDOUT $FE,$01
  PAUSE 500
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"SET"," ",#SET,1,"C"
  PAUSE 500
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"TOLR"," ",#TOL,1,"C"
  PAUSE 500
  LCDOUT $FE,$01
  PAUSE 500
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"TOLR"," ",#TOL,1,"C"
  PAUSE 1000          
'-anadongu-----

  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"BASLIYOR"
  PAUSE 3000 
  LCDOUT $FE,$01," BOYLER"  
basla:
  IF DERECE<=SET-TOL THEN HIGH PORTB.7
  IF DERECE>=SET THEN LOW PORTB.7  
  IF SEC=0 THEN GOSUB AYAR
  WHILE SEC=0
  WEND 
  PAUSE 10     
  GOSUB OKUMA 
  GOTO BASLA
'-OKUMA ALT PROG----    
OKUMA:
  owout dq, 1,[$CC, $44]
  pause 20
  owout dq, 1,[$CC, $BE]
  owin DQ, 0, [deger.lowbyte, deger.highbyte]
  DERECE=DEGER/16    
  LCDOUT $FE ,$C0,"  ", DEC DERECE,1,"C"
  RETURN
'-AYAR ALT PROG-----
  AYAR:
  SC=0
  SC=SC+1
  GOSUB SETD                  
'-SETD ALT PROG-----
  SETD:
  SETD1:
  LOW PORTB.7
  IF A=0 THEN SET=SET+1
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"SET"," ",#SET,1,"C"
  PAUSE 150
  IF SET>99 THEN SET=1
  IF A=0 THEN GOTO SETD1    
  WRITE 5,SET
  SETD2:        
  IF E=0 THEN SET=SET-1
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"SET"," ",#SET,1,"C"
  PAUSE 150
  IF SET<1 THEN SET=99
  IF E=0 THEN GOTO SETD2   
  WRITE 5,SET  
  IF SEC=0 THEN SC=SC+1
  WHILE SEC=0
  WEND     
  IF SC=2 THEN GOSUB TL
  IF SC=1 THEN GOTO SETD
'-TOL ALT PROGRAMI----
  TL:
  TLT:
  LOW PORTB.7
  IF A=0 THEN TOL=TOL+1
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"TOLR"," ",#TOL
  PAUSE 150
  IF TOL>15 THEN TOL=1
  IF A=0 THEN GOTO TLT  
  WRITE 0,TOL 
  TLT1:
  IF E=0 THEN TOL=TOL-1
  LCDOUT $FE,$01," BOYLER"
  LCDOUT $FE ,$C0,"TOLR"," ",#TOL
  PAUSE 150
  IF TOL<1 THEN TOL=15
  IF E=0 THEN GOTO TLT1  
  WRITE 0,TOL
  IF SEC=0 THEN SC=SC+1
  WHILE SEC=0
  WEND
  PAUSE 5
  IF SC=3 THEN GOTO ILK
  IF SC=2 THEN GOTO TL  
  END

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Kod ekleme butonunu (üzerinde # işareti olan buton) kullanarak kodlarınızı verin.

[ete]

Hatalar ve eksikler aşağıdaki şekildedir.;
1. Sigorta ayarları yok programın hangi işlemci için yazıldığı belli değil
2. Çalışma frekansı verilmemiş  , DEFINE OSC 4 şeklinde verilmeli
3. Muhtemelen 16F628 için yazılmış program ama komparatörler iptal edilmemiş. CMCON=7 şeklinde iptal edilmeli
4. Açılış gecikmesi en başta verilmiş halbuki register tanımlalarından sonra verilmesi gerekir
5. LCD nin gerektiği şekilde açılabilmesi için tek başına LCDOUT $FE,1 şeklinde komut verilip açılış gecikmesinide bunun peşine vermek uygun olurdu
6. GOSUB OKUMA komut satırı basla satırından hemen sonra verilmeli ki ilk çalıştırmada değerlendirme için sensör değerleri alınmış olsun.
7. DS18B20 sensörü bir okuma işlemini yaklaşık 750 ms de bitirir. Okuma emri verildikten sonra bu sürenin beklenmesi gerekir. Yada Meşgul biti okunarak işlemin devam edip etmediği sorgulanmalıdır.
8. Ondalıklı sıcaklık değeri için aşağıdaki sistem kullanılabilir
   DERECE=DEGER*10/16 
   bu formül ile sıcaklığın 10 ile çarpılmış hali okunmuş olur. Dolayısıyla SICAKLIK=Derece/10
   Ondalık sıcaklık ise ONDALIK=Derece//10 şeklinde hesap edilir.
   Yazıdırken LCDOUT $FE ,$C0,"  ", DEC DERECE/10,",",dec1 derece//10,1,"C"   şeklinde yazdırılabilir.

Ete

[styx75]

İlginiz icin cok tesekkur ederim.iyiki varsiniz