24LC04 eprom sıcaklık okuma

[melihh]

Merhaba arkadaşlar,"24LC04 epromu ile 100 adet sıcaklık verisini yazdıran ve okuma butonuyla LCD den
okuma programını" yazmaya çalışıyorum.Elimde bir kaynaktan bulduğum yazılmış  kod var buton ekledim ama tanımlamada bir hata yaptım sanırım buton görevini yapmıyor.Bunun dışında hep aynı sıcaklık değerini görüyürom farklı sıcaklık değeri görmek için ne yapmalıyım.Programın değişiklik yapılmamış hali;  

Define OSC          4         
Define LCD_DREG     PORTD          
Define LCD_DBIT     4            
Define LCD_RSREG    PORTE      
DEFINE LCD_RSBIT    0         
DEFINE LCD_EREG     PORTE         
DEFINE LCD_EBIT     1            
DEFINE LCD_BITS     4

SCL     var     portC.3
SDA     var     portC.4

B0      var     byte
B1      var     byte
B2      var     byte

   ADCON1 = 7
   LOW PORTE.2
   PAUSE 100
   FOR B0 = 0 TO 15
   B1 = B0 + 100
   I2CWRITE SDA, SCL, $A0, B0, [B1]
   PAUSE 10
   NEXT B0
LOOP:
   FOR B0 = 0 TO 15 STEP 2
   I2CWRITE SDA, SCL, $A0, B0, [B1,B2]
   LCDOUT $FE, 1 , #B0,": ",#B1," ",#B2," "
   PAUSE 1000
   NEXT B0
   GOTO LOOP
   END

[Lütfi AYYILDIZ]

INCLUDE "MODEDEFS.BAS" satırını programın en başına eklemen gerekir.

[melihh]

Merhaba arkadaş kodu programın en başına ekledim ama çalışmasında bir fark olmadı.Programın isiste çizilmiş similasyonunu ekleyeceğim yardıcı olmanda faydası olur belki.

[melihh]

Merhaba http://rapidshare.com/files/71124414/24lc04.rar
linkte devrenin isis te çizilmiş similasyonu ve bas dosyası var.Yardımınızı bekliyorum.İyi çalışmalar...