Proton+Isis i2c EEPROM yazma Okuma Problemi

[muhittin_kaplan]

denemediğim yol kalmadı. Daha Önce Yaptığım Simulasyonlar vs kodları çalışmıyor. acaba problem ISIS den kaynaklanıyor olabilir mi ?
ISIS 7.6 Kullanıyorum.
HBusOut
HBusIn
ile ilgili Örneğe ihtiyacım var. yardımlarınız içiçn teşekkür ederim.

[FUNKY]

hocam örnek için bir dosya yüklersen bizdeki proteusta 7,6 da deneriz..


proteustan şüpheleniyorsan..kolay gelsin

[muhittin_kaplan]

7.5 kurdum aynı. sanıırm başka bir problem var

[muhittin_kaplan]

DEVICE = 16F877                    ' Use a device with an MSSP module
 DIM Loop AS BYTE
 DIM Array[10] AS BYTE
 ' Transmit bytes to the I2C bus
 HBSTART                            ' Send a START condition
 HBUSOUT %10100000                  ' Target an eeprom, and send a WRITE command
 HBUSOUT 0                          ' Send the HIGHBYTE of the address
 HBUSOUT 0                          ' Send the LOWBYTE of the address 
 FOR LOOP = 48 TO 57                ' Create a loop containing ASCII 0 to 9
 HBUSOUT LOOP                       ' Send the value of LOOP to the eeprom
 NEXT                               ' Close the loop
 HBSTOP                             ' Send a STOP condition
 DELAYMS 10                         ' Wait for the data to be entered into eeprom matrix
 ' Receive bytes from the I2C bus
 HBSTART                            ' Send a START condition
 HBUSOUT %10100000                  ' Target an eeprom, and send a WRITE command
 HBUSOUT 0                          ' Send the HIGHBYTE of the address
 HBUSOUT 0                          ' Send the LOWBYTE of the address
 HBRESTART                          ' Send a RESTART condition
 HBUSOUT %10100001                  ' Target an eeprom, and send a READ command
 FOR Loop = 0 TO 9                  ' Create a loop
 Array[Loop] = HBUSIN               ' Load an array with bytes received
 IF Loop = 9 THEN HBSTOP : ELSE : HBUSACK ' ACK or STOP ?
 NEXT                               ' Close the loop
 PRINT AT 1,1, STR Array            ' Display the Array as a STRING

bu kodlar birebir helpten alıntı yanlı en sondaki if ile başlayan yerde ha veriyor.

IF Loop = 9 THEN 
  HBSTOP
ELSE 
 HBUSACK 
endif' ACK or STOP ?

olacak sanırım
bir denermisiniz bu zamazing eeprom a MSSP yi kullanarak (hardware) yazıyor. scl ve sda yı kullanıyor