Регистрация | Вход

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: demanik, ivan_fd  
PROTON + 24CXXX У кого есть опыт работы?
RVSTAR0340 Дата: Сб, 16.10.2010, 13:40  |                                                                                                                Сообщение # 1
Группа: Проверенные
Ранг:  Начал соображать
Сообщений: 28
Репутация: 2   ±
Замечания:   ±
На сайте с 23.04.2009

Статус: Offline

Поделитесь, если есть у кого пример работы с флешью 24СXXX
ЯНДЕКС Дата: 16.10.2010
ADMIN Дата: Чт, 28.10.2010, 06:06  |                                                                                                                Сообщение # 2
Администратор
Группа: Администраторы
Ранг:  Специалист
Сообщений: 1086
Репутация: 32   ±
Замечания:   ±
На сайте с 20.08.2007

Статус: Offline

Вот пример из родных Samples Протона:

Code

' PROTON+ program to read and write to I2C Serial Eeproms
'
' Write to the first 16 locations of an external Serial Eeprom
' Read first 16 locations back and send to LCD repeatedly
' Note: for serial eeproms with WORD-sized address

         Include "PROTON_4.INC"

   Dim W0    As    Word                      ' Address
   Dim B1    As    Byte                      ' Data 1
   Dim B2    As    Byte                      ' Data 2

         
         For W0 = 0 To 15                   ' Loop 16 times
          B1 = W0 + 10                ' B1 is data for SEEPROM
          BusOut $A0,W0,[B1]         ' Write each location
          DelayMS 5                    ' Delay 5ms after each write
         Next

loop:   Cls
   For W0 = 0 To 15 Step 2            ' Loop 8 times
          BusIn $A1,W0,[B1,B2]       ' Read 2 locations in a row
          Print At 1,1,Dec W0,": ",Dec B1," ",Dec B2," "   ' Display 2 locations
          DelayMS 1000
         Next

         GoTo loop

  • Страница 1 из 1
  • 1
Поиск: