А что к контроллеру подключено , память или расширитель . У меня проблем не возникло с I2C вот только позавчера закончил разбираться с микрухой PCF8574Добавлено (05.03.2015, 16:17)
---------------------------------------------
Вот как у меня это происходит:
Device 16F628A
Declare Create_Coff = On
Declare All_Digital = On ' Установить все порты цифровыми входами/выходами
Declare Reminders = OFF
Config CP_OFF , DATA_CP_OFF , WDT_OFF , XT_OSC , MCLRE_OFF , LVP_OFF , BODEN_OFF , PWRTE_OFF
Declare Reminders = On
Declare Xtal 4
'***********************************************************************
;---------------------Установки Портов----------------------------------
TRISA = %00000000 ' Порты на выход
TRISB = %00000000 ' Для прерывания по PORTB.0 INT, порт на вход
PORTA = %00000000 ' Начальные установки PORTA
PORTB = %00000000 ' Начальные установки PORTВ
OPTION_REG = %10000000 ' Подтягивающие резисторы выключены
'***********************************************************************
;---------------------Переименнуем Порты--------------------------------
Declare SDA_Pin = PORTA.1
Declare SCL_Pin = PORTA.0
'***********************************************************************
;---------------------Переменные----------------------------------------
Dim MM As Byte ' Переменная для цикла
Dim M As Byte ' Переменная для конвертации
'***********************************************************************
'-------------------- Начало основной программы ------------------------
'***********************************************************************
;------------Программа мигания светика на "выводеР6" PCF8574------------
Main:
For MM = 0 To 8
M = LookUp MM,[1, 2, 4, 8, 16, 32, 64, 128]
BStart
BusOut ......
BusOut M
BStop
DelayMS 100
Next MM
GoTo Main
