Der Nachfolger des WDR-Computerclub mit Wolfgang Back und Wolfgang Rudolph - ...und immer ein Bit Řbrigbehalten!


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Demoprogramm: Scan vom I²C-Bus - Finden aller am Bus angeschlossenen Devices Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 6.05.2021 18:18)
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station
' ============================================================================
' Demoprogramm: Scan vom I┬▓C-Bus - Finden aller am Bus angeschlossenen Devices
' In OCBASIC 1.12a_e1 f├╝r Open-Maxi von Dietmar Harlos am 01. Mai 2021
' ============================================================================

' Dieses Programm liefert das Acknowledge-Signal des I┬▓C-Devices nach dem
' Senden der I┬▓C-Adresse zur├╝ck. Das sich auf der Open-Maxi befindliche
' I┬▓C-EEPROM f├╝r die Datendatei meldet bei den Adressen $a6 und $a7 ein
' Acknowledge-Signal zur├╝ck.

' Wenn bei jeder Adresse ON (gleich -1) zur├╝ck geliefert wird, besteht ein
' Kurzschlu├č SDA nach Masse. Bei alles OFF (gleich 0), ist das ein Hinweis
' f├╝r eine Unterbrechung, einen Kurzschlu├č von SCL oder SDA hat Kurzschlu├č
' nach Betriebsspannung. Nat├╝rlich besteht auch die M├Âglichkeit, da├č kein
' Device vorhanden ist oder kein Acknowledge sendet.

' An dieser Stelle m├Âchte ich mich bei Dirk von "das |_ Team" und bei
' Norbert f├╝r ihre Unterst├╝tzung bedanken.

' --- Definitionen ----------------------------------------------------------

INCLUDE "omax.def"  'Definitionen f├╝r die Open-Maxi

DEFINE a,b BYTE     'tempor├Ąre Variablen

' --- Hauptprogramm ---------------------------------------------------------

PrintSpc=ON         'SPACE vor einem dezimalen PRINT
End2Host=ON         'Bei Programmende gleich in den Host-Modus wechseln

' I2C-Bus initialisieren

i2c_init

' I2C-Bus-Scan

FOR a=&h00 TO &hff
  i2c_init          'manchmal gibt das Device den Bus nicht frei -> INIT

  i2c_start

  PrintHex=ON
  PUT ASC("$")
  PRINT a;
  PrintHex=OFF
  ? i2c_write(a)    'Acknowledge ist -1 (ON) oder 0 (OFF)

  i2c_stop
NEXT a

' Programmende

END                 'Zur├╝ck in den Hostmodus. Neustart mit RETURN-Taste.

' --- INCLUDE-Dateien -------------------------------------------------------

INCLUDE "omax_i2c.pro" 'INCLUDE-Datei f├╝r I┬▓C-Bus-Routinen f├╝r Open-Maxi
INCLUDE "om_fw.pro"    'INCLUDE-Datei f├╝r Firmwareroutinen

' --- Programmende ---------------------------------------------------------


Passender Link: Bedienungsanleitung zur Open-Macro und Open-Maxi

Meine Homepage: http://ccintern.dharlos.de

 Antwort schreiben

Bisherige Antworten:

Re: Demoprogramm: Scan vom I²C-Bus - Finden aller am Bus angeschlossenen Devices (von Joachim - 7.05.2021 23:25)