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, also ich habe ein CC Pro Application Board Mega 32. > > Habe gerade erst angefangen mit dem Board und teste Jetzt alle Funktionen durch, nun wollte ich den > Portexpander PFC 8574 ansprechen. > > Leider habe ich noch so einige Probleme. > > Die Pins auf dem Application board sind gesetzt und somit sollten ja die Pullups dran sein. > > Der 8574 hat seine versorgungsspannung und die 3 addressierungs pins liegen auf GND was dann > eine 40 er adresse ergeben sollte. > > Ich habe erstmal 1 LED an P0 angeschlossen ca 150 Ohm an + und die LED an P0. > > Leider tut sich da garnichts. > Ich hoffe ihr könnt mir mal auf die sprünge helfen, Ob an dem Programm was nicht stimmt oder ob ich > da etwas nicht richtig verdrahtet habe. Evtl gibts auch ne möglichkeit die Kommunikation mit dem > 8574 zu testen. > > MFG Marco > > Ich habe das folgende Demo Programm gefunden und getestet. > > ========================================== > #define PCF8574_W &H40 > #define PCF8574_R &H41 > > Dim Zeile1(9) As Char > Dim Zeile2(9) As Char > Dim X As Word > Dim Port As Byte > > Sub main() > > 'Init > I2C_Init(I2C_100kHz) 'I2C Bit Rate: 100 kHz > LCD_start() 'LCD Init > > 'Info > Zeile1 = "PCF8571T" > LCD_Locate(1,1) : LCD_WriteText(Zeile1) > Zeile2 = " DEMO " > LCD_Locate(2,1) : LCD_WriteText(Zeile2) > AbsDelay(2500) > LCD_start() > > > '----------------------------------------------------------------------- > ' Lauflicht > '----------------------------------------------------------------------- > > Lab Lauflicht > > Zeile1 = "Lauf- " > LCD_Locate(1,1) : LCD_WriteText(Zeile1) > Zeile2 = "Licht " > LCD_Locate(2,1) : LCD_WriteText(Zeile2) > > X = &H1 > > Do While (1) > X = X << 1 > I2C_Start() > I2C_Write(PCF8574_W) > > I2C_Write(X) > I2C_Stop() > AbsDelay(250) > If X = &H0 Then > Goto Lauflicht > End If > End While > > > End Sub > ====================================
