I2C für Anfänger

[Christoph (Gast)]

Hallo zusammen,

Ich habe mir mal wieder das thema bascom vorgenommen aber beim i2c 
scheiterts und egal wie lange ich schon in google und in foren gesucht 
habe ich werde nicht schlau.


Ich möchte von einem mega8-16pu zu einem anderen mega8-16pu eine 
dreistellige zahl schicken. die ich dann im 2. also im slave auswerte.

Jetzt scheiterts aber beim i2c

kennt jmd ein EINFACHES I2c Beispiel script das ich mir mal einverleiben 
kann?



Danke schonmal für euere Hilfe


Christoph

[Icke ®. (49636b65)]

Christoph schrieb:
> kennt jmd ein EINFACHES I2c Beispiel script das ich mir mal einverleiben
> kann?

Naja, wirklich einfach ist das nicht, außer hinterher, wenn man es 
begriffen hat. Ich hatte auch einige Beispielprogramme angeschaut, bin 
dann jedoch mit der Beschreibung im Datenblatt des ATmega am besten klar 
und letztendlich zum Ziel gekommen.

Nachtrag:
Die Kommunikation zwischen zwei µCs ist als Einstieg in I2C nicht 
empfehlenswert, da zuviel Fehlerpotential besteht. Nimm zuerst was 
einfacheres, z.B. eine DS1307 auslesen.

[Christoph S. (christoph_s94)]

hey

ich weiß dass das nicht einfach ist aber mit einem sample dass ich erst 
einmal nur eine 1 oder eine 0 übertragen kann wäre mir schon sehr 
geholfen!

Hat jmd bitte in sample code für mich?P


lg christoph

[Spess53 (Gast)]

Hi

>ich weiß dass das nicht einfach ist aber mit einem sample dass ich erst
>einmal nur eine 1 oder eine 0 übertragen kann wäre mir schon sehr
>geholfen!

Ich glaube du solltest dich erst mal über I2C schlau machen:

Absolutes Muss:
http://www.nxp.com/documents/user_manual/UM10204.pdf

Außerdem Datenblatt vom ATmega8 ab S.157:

Master, Beschreibung und Software:
http://www.atmel.com/Images/doc2564.pdf
http://www.atmel.com/Images/AVR311.zip

Slave, Beschreibung und Software:
http://www.atmel.com/Images/doc2565.pdf
http://www.atmel.com/Images/AVR311.zip

Lies das alles erst mal durch und entscheide dann, ob du es noch machen 
willst.

MfG Spess

[Christoph S. (christoph_s94)]

danke für die antwort
aber ich bleib dabei =)) bin sturr ich weiß

die zip's helfen mir leider nichts arbeite in bascom




hab selber versucht was zu basteln funzt aber nicht


Master

' TWI Testprogramm aus der Hilfe (abgespeckt)
' mit PCF8574

'The chip will work in TWI/I2C master mode
'Connected is a PCF8574 8-bits port extender

$regfile = "M8adef.dat"                                     ' the used chip
$crystal = 16000000                                         ' frequency used
$baud = 9600                                                ' baud rate

$lib "i2c_twi.lbx"                                          ' we do not use software emulated I2C but the TWI



Config Scl = Portc.5
Config Sda = Portc.4



Config Twi = 100000                                         ' wanted I2C clock frequency
Twcr = &H80                                                 ' TWEN

Dim B As Byte

Do


  B = 1
  Input B
  I2csend &H80 , B                                          ' send the value
  Print B ;
  Print " Error : " ;
  Print Err

  Waitms 50

  B = 0
  Input B
  I2csend &H80 , B                                          ' send the value
  Print B ;
  Print " Error : " ;
  Print Err

  Waitms 50
                                                   ' show error status
Loop
End

Slave

' TWI-slave test
' zum simulieren eines PCF8574

$regfile = "m8adef.dat"                                      ' the used chip
$crystal = 7372800                                          ' frequency used


Config Scl = Portc.5
Config Sda = Portc.4



Config Portb.1 = Output                                     ' kopletter PortD als Ausgang
Config Portb.1 = 0



Dim Twi_status As Byte
Dim Twi_data As Byte

Declare Sub Twi_init_slave
Declare Function Twi_wait() As Byte

Twi_data = 0
Call Twi_init_slave                                         ' TWI aktivieren

' Hauptschleife
Do
    Twi_status = Twi_wait()
    If Twi_status = &H80 And Twi_data = 1 Then
        Portb.1 = 0                                         ' Daten auf PortD ausgeben
    End If
    waitms 10

    Twi_status = Twi_wait()
    If Twi_status = &H80 And Twi_data = 0 Then
        Portb.1 = 1                                         ' Daten auf PortD ausgeben
    End If
    Waitms 10


Loop

End

' Unterprogramme

' TWI als slave aktivieren
Sub Twi_init_slave
    Twsr = 0                                                ' status und Prescaler auf 0
    Twdr = &HFF                                             ' default
    Twcr = &B00000100                                       ' erstmal nur TWI aktivieren
    Twar = &H80                                             ' Slaveadresse setzen
    Twcr = &B01000100                                       ' dann ACK einschalten
End Sub

' schauen ob was gekommen ist, Status zurückgeben, Daten in globale variable
Function Twi_wait() As Byte
    Local Twcr_local As Byte
    Twi_wait = &HF8
    ' warten bis TWINT gesetzt ist
    Twcr_local = Twcr And &H80
    If Twcr_local = &H80 Then
        Twi_data = Twdr                                     ' Daten sichern
        Twi_wait = Twsr And &HF8                            ' status zurückgeben
        Twcr = Twcr Or &B10000000                           ' TWINT löschen, erzeugt ACK
    End If

End Function

fällt euch ein fehler auf?

[Michael L. (nightflyer88)]

Hallo

Also hier habe ich ein I2C Beispiel in Bascom mit zwei Attiny45:
Der Master sendet den Wert 4 per I2C an den Slave. Der Slave addiert 20 
dazu, und der Master liest den Wert wieder vom Slave. Der Wert wird nun 
vom Master per RS232 ausgegeben und sollte nun 24 sein.

Der Master verwendet das Software I2C von Bascom. Der Slave verwendet 
das Hardware USI interface.

ACHTUNG: In der ISR "I2c_read_write" vom Slave, wird das SREG nicht 
gespeichert, wenn man nun das Beispiel mit eigenem Code erweitert, 
können plötzlich komische Fehler auftreten.

Für ein anderes Projekt habe ich den Code weiterentwickelt, unter 
anderem wird auch das SREG gespeichert. Wenn nun Interesse besteht, kann 
ich das Beispiel auf die aktuelleste Version anpassen.

[Spess53 (Gast)]

Hi

>die zip's helfen mir leider nichts arbeite in bascom

Schön, das du jetzt damit heraus rückst.

MfG Spess

[katastrophenheinz (Gast)]

>fällt euch ein fehler auf?
Ja, zuviele potentielle Fehlerquellen in deinem Beispielcode und keine 
Chance, die zu finden. So wird das nichts. Keine Ahnung, was deine lib 
da macht, aber ich sehe nirgendwo Debug-Output, z.B. mal zwischendurch 
das TWSR ausgeben, ganz zu schweigen von definiertem Verhalten im 
Fehlerfall.

Warum beherzigst du nicht Icke's Tip von oben und nimmst erstmal einen 
i2c-Slave, von dem du weißt das er funktioniert? Damit kannst du die 
möglichen Fehlerquellen schon mal um 50% reduzieren.

Auch oben schon gesagt: TWI ist die Komponente im AVR, die die höchste 
Komplexität mitbringt. Das ist nicht mal eben kurz hinprogrammiert wie 
z.B. LED-Blinken oder UART-Echo. Du kommst um das Lesen und Verstehen 
des AVR-Manuals und der Application Notes nicht drum rum, und sei es 
nur, um festzustellen, dass du die PullUps vergessen hast.


Gruss, Heinz

[Bernd T. (bastelmensch)]

Spess53 schrieb:
> Hi
>
>>die zip's helfen mir leider nichts arbeite in bascom
>
> Schön, das du jetzt damit heraus rückst.
>
> MfG Spess

Steht schon im Eröffnungsbeitrag das er was mit Bascom macht.

[Klaus (Gast)]

Spess53 schrieb:
>>die zip's helfen mir leider nichts arbeite in bascom
>
> Schön, das du jetzt damit heraus rückst.

daß die .zips nicht für bascom taugen, hat er schnell rausgefunden. Aber 
daß du einen Link auf die I2C Spec in Mandarin gepostet hast, ist ihm 
nicht aufgefallen. Das merkt man erst beim Lesen :-(

MfG Klaus

[Spess53 (Gast)]

Hi

>Aber daß du einen Link auf die I2C Spec in Mandarin gepostet hast, ist ihm
>nicht aufgefallen.

Eigentlich gibt es das Dokument nur noch in Nihongo. In Mandarin kenne 
ich es nicht. Vielleicht deute ich aber als Handyverweigerer nur deinen 
Smilie falsch. Bei mir erscheint der Link in gutem Englisch.

MfG Spess

[Klaus (Gast)]

Spess53 schrieb:
> Vielleicht deute ich aber als Handyverweigerer nur deinen
> Smilie falsch.

Ich hab mir den auch erst ergoogelt.

Was ist ein Handy? Ist das diese merkwürdige Leuchte, mit der sich vor 
allem Radfahrerinnen nachts ihre Gesichter anstrahlen? </ironie>

diesmal klassisch
MfG Klaus