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 > <basic>'Bei Control II gab es ein Programm IIC-Seek das alle angeschlossenen > 'IIC - Adressen gefunden und aufgelistet hat > 'wenn das ACK zurück kommt oder nicht - > 'nun mit Pro: > > 'ich habe einen RTC Chip 8583 angeschlossen der auf 0xA0 adressiert ist > ' also 160 Dezimal, auch den am Appl Port befindlichen EEProm habe ich > 'gefunden - ebenfalls 160 also muß der RTC nun auf 162 > > 'Konsolenausgabe: > 'Adr-Dezimal=156 Adr-Hex=009C StatusCode=0020 > 'Adr-Dezimal=158 Adr-Hex=009E StatusCode=0020 > 'Adr-Dezimal=160 Adr-Hex=00A0 StatusCode=0018 Adresse belegt! > 'Adr-Dezimal=162 Adr-Hex=00A2 StatusCode=0020 > > 'fertiges Programm - einfach starten: > Dim Counter As Integer > Dim Text(20) As Char > Dim Status, Status2 As Byte > > Sub main() > > I2C_Init(I2C_100kHz) ' I2C Bit Rate: 100 kHz > > For Counter = 0 To 254 Step 2 > Text = "Adr-Dezimal=" > Msg_WriteText(Text) > Msg_WriteWord(Counter) > Msg_WriteChar(9) > Text = "Adr-Hex=" > Msg_WriteText(Text ) > Msg_WriteHex(Counter) > I2C_Start() > I2C_Write(Counter) ' DEVICE ADDRESS > Status = I2C_Status( ) > I2C_Stop () > AbsDelay (5) > Msg_WriteChar(9 ) 'Tab > Text = "StatusCode=" > Msg_WriteText(Text ) > Msg_WriteHex(Status ) > Msg_WriteChar(9 ) 'Tab > If Status = 0x18 Then > Text = "Adresse belegt!" > Msg_WriteText(Text ) > End If > Msg_WriteChar(13 ) > > AbsDelay(200 ) > Next 'Counter > > End Sub</basic>
