MikroElektronika PIC Microcontrollers PIC16 Uživatelský manuál Strana 148

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 172
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 147
mikroBASIC
- Basic Compiler for Microchip PIC microcontrollers
' Example of communication with 24c02 EEPROM
program BasicI2c
dim EE_adr as byte
dim EE_data as byte
dim jj as word
main:
I2C_init(100000)
' initialize full master mode
TRISD = 0
' designate portd as output
PORTD = $ff
' initialize portd
I2C_start
' issue I2C start signal
I2C_wr($a2)
' send byte via I2C(command to 24cO2)
EE_adr = 2
I2C_wr(EE_adr)
' send byte(address for EEPROM)
EE_data = $aa
I2C_wr(EE_data)
' send data(data that will be written)
I2C_stop
' issue I2C stop sinal
for jj = 0 to 65500
' pause while EEPROM writes data
nop
next i
I2C_start
' issue I2C start signal
I2C_wr($a2)
' send byte via I2C
EE_adr = 2
I2C_wr(EE_adr)
' send byte(address for EEPROM)
I2C_Repeated_Start
' issue I2Csignal repeated start
I2C_wr($a3)
' send byte(request data from EEPROM)
EE_data = I2C_rd(1)
' Read the data
I2C_stop
' issue I2C_stop signal
PORTD = EE_data
' show data on PORTD
noend:
' endless loop
goto noend
end.
MikroElektronika:
Development
tools
-
Books
-
Compilers
mikroBASIC
making it simple...
143
page
Zobrazit stránku 147
1 2 ... 143 144 145 146 147 148 149 150 151 152 153 ... 171 172

Komentáře k této Příručce

Žádné komentáře