Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

IIC-Seek IIC-Adresssuche Kategorie: Programmierung Basic (von Ernst H. - 18.11.2010 0:39)
Ich nutze:
C-Control Pro Mega128, CC-Pro 128 Application Board, Pro-Bot128
'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


    Antwort schreiben


Antworten:

Re: IIC-Seek IIC-Adresssuche (von Baltus - 18.11.2010 10:10)