Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > Hallo > > > > bräuchte dringend Hilfe. Ich probiere jetzt schon seit knapp 2 Wochen den MCP23017 IC > > von Microchip anzusprechen. > > Aber entweder stürzt das Programm ab oder es passiert nix. Die Ausgänge bleiben dennoch stumm. :-( > > Als Stütze benutze ich die Beispielprogramme für den PCF 8574 von Ulli. > > > > > > Hierher hab ich ihn bezogen:> > > <a href="http://de.rs-online.com/web/search/searchBrowseAction.html?method=getProduct&R=0403806" target="_blank">MCP23017 IC</a> > > > > Vielen Dank > > > > Grüße Christian > > > > > > Hallo Christian, > > der MCP23017 ist etwas umfangreicher von den Einstellungen wie der > PCF8574... der MCP besitzt unter anderem ein richtiges Datenrichtungsregister > und es kann zwichen Bytemode und Sequenziellmode ausgwählt werden. > Das Beispiel zum PCF geht bei den Burschen daher nicht. > Ich hab jedoch ein Beispiel für Bascom gefunden das den 23016 benutzt. > Das sollte dir evtl. weiterhelfen... > > <basic>'********************************************************************** > ' Application Note: Using the MCP23016 I/O expander > '----------------------------------------------------- > ' > ' Program-ID.: AN245 MCP23016.bas. > ' Date...... : 22 / 05 / 2005 > ' Description: Example program for I2C MCP23016 I/O expander > ' write and read routines. > ' > ' Author : Roland van leusden (sayang@zonnet.nl). > ' > ' Setup for the AT90S2313 using portd.6 for SDA and Portd.5 for SCL. > ' (Futurlec ET-JRAVR board) > ' See AN245 page 9 from Microchip for MCP23016 shematic. > ' > ' This program provides an example for writing to and reading from > ' an I2C MCP23016 device wired for device 0 (AO,A1 and A2 all pulled > ' to Gnd). > ' > ' > '********************************************************************** > $regfile = "2313def.dat" ' Change for your AVR. > $crystal = 4000000 ' 4 MHz Crystal. > $baud = 19200 ' Output at 19200 baud. > > '********************************************************************** > '** Set up Data Direction Registers and ports - Do this before defining I2C pins! > '********************************************************************** > ' Port B > Portb = &B0000_0000 ' Set All Port Pins Low > Ddrb = &B1111_1111 ' Set Unused Pins As Outputs. > ' Port D > Portd = &B0000_0000 ' All low - with push-pull output > Ddrd = &B1111_1111 ' with internal pullups. > > '********************************************************************** > '** Define and initialize I2C pins ** > '********************************************************************** > Config Sda = Portd.6 ' I2C Data. > Config Scl = Portd.5 ' I2C Clock. > > '********************************************************************** > > '********************************************************************** > ' > '** Declare subroutines ** > '********************************************************************** > ' > ' This subroutine writes data to the I2C MCP23016. > ' > Declare Sub I2c_mcp23016_write(byval Cmd As Byte , Byval Lsb As Byte , Byval Msb As Byte) > ' > ' This subroutine reads data from the I2C MCP23016. > ' > Declare Sub I2c_mcp23016_read > > '********************************************************************** > '** Define working variables and constants ** > '********************************************************************** > > ' > ' Change the 3 "AD" bits to reflect the I2C address of the device > ' (corresponding to A0,A1 and A2).. > ' > Dim Mcp23016_adress_w As Byte > Mcp23016_adress_w = &H40 'Write Adress: 0 1 0 0 A2 A1 A0 0 > > Dim Mcp23016_adress_r As Byte > Mcp23016_adress_r = &H41 'Read Adress: 0 1 0 0 A2 A1 A0 1 > > Dim Counter_1 As Byte > Dim Lsb As Byte > Dim Msb As Byte > > > 'This is for the Microchip MCP23016 initialization, some examples below > > 'Call I2c_mcp23016_write(&H04 , &Hff , &Hff) 'Invert All Input Polarities > 'Call I2c_mcp23016_write(&H0a , &H01 , &H01) 'Initialize Iares , For Fast Input Scan Mode > > 'Call I2c_mcp23016_write(&H06 , &H00 , &HFF) 'Initiallize It So The Lsbs Outputs Are & Msbs Are Inputs > 'Call I2c_mcp23016_write(&H06 , &Hff , &Hff) 'Initiallize It So That Both Lsbs & Msbs Are Inputs > > 'Call I2c_mcp23016_write(&H02 , &HFF , &HFF) 'Initiallize The Ouput Latch > 'Call I2c_mcp23016_write(&H06 , &H00 , &H00) 'Initiallize It So That Both Lsbs & Msbs Are Outputs > > > > '********************************************************************** > '** Actual work starts here. ** > '********************************************************************** > > > Main: > > Waitms 250 ' wait 250 ms for the MCP23016 powerup timer > > Call I2c_mcp23016_write(&H02 , &HFF , &HFF) 'Initiallize The Ouput Latch > Call I2c_mcp23016_write(&H06 , &H00 , &H00) 'Initiallize It So That Both Lsbs & Msbs Are Outputs > > Lsb = &HFE '0 => Led is "on" FE => 11111110 > Msb = &HFE '0 => Led is "on" FE => 11111110 > > Counter_1 = 0 > > Do 'Chaser effect > > Call I2c_mcp23016_write(&H02 , Lsb , Msb) 'Write Lsb & Msb to MCP23016 > > Rotate Lsb , Left , 1 'Rotate the bits > Rotate Msb , Left , 1 > Waitms 100 'Wait 100ms > Counter_1 = Counter_1 + 1 ' Increase the counter > > Loop Until Counter_1 = 255 ' As long as the counter is not 255 keep writing & rotating > > Lsb = &HFF '0 => Led is "on" FF => 11111111 > Msb = &HFF > > Call I2c_mcp23016_write(&H02 , Lsb , Msb) 'All leds off > > Call I2c_mcp23016_write(&H06 , &H00 , &HFF) 'Initiallize It So The Lsbs Outputs Are & Msbs Are Inputs > > Do 'Read Msb and display on Lsb > > Call I2c_mcp23016_read ' Read Msb > Print "Msb: " ; Msb ' Send value of Msb to serial port > Lsb = Msb ' Copy Msb to Lsb > Call I2c_mcp23016_write(&H02 , Lsb , Msb) ' Write Lsb to MCP23016 > Wait 1 > > Loop > > End 'end program > > > '********************************************************************** > '** Define Subroutines ** > '********************************************************************** > Sub I2c_mcp23016_write(byval Cmd As Byte , Byval Lsb As Byte , Byval Data2 As Byte) > ' Writes data to the I2C MCP23016. > > I2cstart 'Generate A Start Condition > I2cwbyte Mcp23016_adress_w 'Transmit The "ADDRESS and WRITE" Byte > I2cwbyte Cmd 'Transmit The Command Byte > I2cwbyte Lsb 'Transmit First Data Byte > I2cwbyte Msb 'Transmit Second Data Byte > I2cstop 'Generate a STOP condition > Waitus 50 'Some delay may be necessary for back to back transmitions > > End Sub > > Sub I2c_mcp23016_read > ' Read data from the I2C MCP23016 > > I2cstart 'Generate START condition > I2cwbyte Mcp23016_adress_w 'Transmit The "ADDRESS and WRITE" Byte > I2cwbyte &H00 'Transmit The Command Byte > I2cstop 'Generate a STOP condition > I2cstart 'Generate a START condition > I2cwbyte Mcp23016_adress_r 'Transmit ADDRESS with READ command > I2crbyte Lsb , Ack 'Receive first DATA byte (LSB) and acknowledge > I2crbyte Msb , Nack 'Receive second DATA byte (MSB) and don't acknowledge > I2cstop 'Generate a STOP condition > > End Sub</basic> > > Hier noch der Link dazu: > http://www.mcselec.com/index.php?option=com_content&task=view&id=107&Itemid=57 > > Ich habe leider keinen MCP zum spielen hier :-) > > Tschü Ulli > > >
