Bascom I2C Eeprom

[ich (Gast)]

Hallo,
ich habe ein 24C256 und versuche dies anzusteuern allerdings 
funktioniert das nicht. Ich habe den Code aus dem Internet war aber auf 
allen Seiten gleich (bedeutet für mich das dass der einzig richtige ist) 
ich benutze ein 8mhz Quarz und habe einen Atmega 32. Ich habe alles auf 
dem Avr Evaluationsboard von Pollin (Version:2.0.0).

Hier der Code:

'============I2C EEprom schreiben/lesen ==================================

 ' =========== Für 24C256 EEprom =====================
 ' 8MHz Quarz
 ' LCD auf Port B ,
 '
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600


'SDA und SCL definieren
Config Sda = Portc.1
Config Scl = Portc.0


Dim X As Byte
Dim A As Byte
Dim B As Byte
Dim Lesen As Byte
Cls

Do
'---- schreibe in EEprom ----
For A = 1 To 10
Incr X                                                      '1 bis Überlauf zählen

I2cstart                                                    'Start I2C
I2cwbyte &HA0                                               'Sende Slave Adresse
I2cwbyte 1                                                  'Sende Speicheradresse High
I2cwbyte A                                                  'Sende Speicheradresse LOw
I2cwbyte X                                                  'Sende Wert
I2cstop                                                     'Stop I2C
Waitms 10                                                   'warte 10ms

Locate 1 , 1
Print "ins EEprom = " ; X ; "  "                            ' Ausgabe der geschriebenen Werte am LCD
Waitms 500
Next A


'--- lesen vom EEprom ----
For B = 1 To 10

I2cstart                                                    'Start I2C
I2cwbyte &HA0                                               'sende Slave Adresse
I2cwbyte 1                                                  'sende Speicheradresse High
I2cwbyte B                                                  'sende Speicheradresse Low

I2cstart                                                    'Start I2C
I2cwbyte &HA1                                               'sende Slave Adresse +1 für Lesen
I2crbyte Lesen , Nack                                       'lese Adresse vom EEprom
I2cstop                                                     'Stop I2C

Locate 2 , 1
Print "Lese  EEprom= " ; Lesen ; "  "                       'Ausgabe der EEprom Werte
Waitms 500
Next B

Loop
End

LG

[Paul Baumann (Gast)]

Hast Du Jumper 9 und 10 gesetzt, damit SDA und SCL auch mit den Pins
PC0 und PC1 des Kontrollers verbunden sind?

ich schrieb:
> allerdings
> funktioniert das nicht.

Wie äußert sich das?

MfG Paul

[ich (Gast)]

Hallo Paul,
ich habe die Jumper gesetzt aber das Eeprom spuckt unter jeder 
Speicheradresse 255 aus. Ich möchte gerne wissen was falsch ist und wie 
ich es verbessern kann

LG

[Paul Baumann (Gast)]

ich schrieb:
> Ich möchte gerne wissen was falsch ist und wie
> ich es verbessern kann

Das wahrscheinlich:
$crystal = 8000000

Normalerweise ist der Quarz dort einer mit 16MHz. (Q3 heißt der auf der 
Platine)

Wenn dadurch die Zeiten nicht stimmen, kommt auch nur Mumpitz raus.
MfG Paul

[ich (Gast)]

Hallo Paul,
ich habe wie im Code geschrieben ein 16mhz Quarz und die Fuses sind auch 
richtig habe mal ein anderes Board genommen und getestet aber dort das 
selbe!

LG

[Peter X. (peter_x)]

Hallo Paul,
Deinem Einwand mit dem "Freibier" stimme ich dir zu. Aber wo gips das?

Michael Hardmann

[Pater Noster (Gast)]

ich schrieb:
> ich habe wie im Code geschrieben ein 16mhz Quarz und die Fuses sind auch
> richtig

ich schrieb im Eingangspost:
> ich benutze ein 8mhz Quarz und habe einen Atmega 32.

Zitat aus dem o.g. Code:

Hier der Code:
'============I2C EEprom schreiben/lesen
==================================

 ' =========== Für 24C256 EEprom =====================
 ' 8MHz Quarz
 ' LCD auf Port B ,
 '
$regfile = "m32def.dat"
$crystal = 8000000

Das war's dann: Verarsche Dich selbst!

[ich (Gast)]

Ich habe mich verschrieben sorry aber so ist das auch keine lösung

LG

[Joachim R. (bastelbaer)]

Hi, hier mal der Code den ich benutze. Allerdings in einer Schaltung, 
nicht im Pollin-Board. Bei mir wird noch der Schreibschutz benutzt, der 
ist beim Pollinboard ja fest auf High. Vielleicht hilft es ja.

'### Config EEPROM-Variablen
Const Eeprom_w = &HA0                                       'slave write address
Const Eeprom_r = &HA1                                       'slave read address
Dim Eeprom_count As Byte                                    ' Zähler
Dim Eeprom_anz As Byte
Dim Eeprom_adr As Word                                      ' Die Adresse als Word-Variable
Dim Eeprom_high_adr As Byte At Eeprom_adr + 1 Overlay       ' Zeiger auf das High-Byte
Dim Eeprom_low_adr As Byte At Eeprom_adr Overlay            ' Zeiger auf das Low-Byte
Dim Eeprom_data As String * 20                              ' Daten als String
Dim Eeprom_data_array(20) As Byte At Eeprom_data Overlay    ' Daten als Array

Eeprom_data = "Dies ist ein Test"
Eeprom_anz = 18                                             ' 18 Zeichen
Eeprom_adr=&H0000                                           ' ab Adresse 0 schreiben
Gosub Write_eeprom

Wait 1

Eeprom_anz = 7                                              ' 7 Zeichen einlesen
Eeprom_adr=&H0005                                           ' Ab Adresse 5
Gosub Read_eeprom                                           ' Nur "ist ein" einlesen
Print Eeprom_data

End

'#########################################################################
'# Allgemeine Routine zum Lesen aus EEPROM
Read_eeprom:
    For Eeprom_count = 1 To 19                              'Daten löschen
        Eeprom_data_array(eeprom_count) = 0
    Next Eeprom_count

    I2cstart                                                ' Generate start code
    I2cwbyte Eeprom_w                                       ' send address
    I2cwbyte Eeprom_high_adr
    I2cwbyte Eeprom_low_adr

    I2cstart                                                ' Generate start code
    I2cwbyte Eeprom_r                                       ' send address
    For Eeprom_count = 1 To Eeprom_anz
        If Eeprom_count = Eeprom_anz Then
            I2crbyte Eeprom_data_array(eeprom_count) , Nack
        Else
            I2crbyte Eeprom_data_array(eeprom_count) , Ack
        End If
    Next Eeprom_count
    I2cstop
Return


'#########################################################################
'# Allgemeine Routine zum Schreiben in EEPROM
Write_eeprom:
'    Reset Eeprom_wp                                         ' Schreibschutz aufheben
'    Waitms 1
    I2cstart                                                ' Generate start code
    I2cwbyte Eeprom_w                                       ' send address
    I2cwbyte Eeprom_high_adr
    I2cwbyte Eeprom_low_adr
    For Eeprom_count = 1 To Eeprom_anz
        I2cwbyte Eeprom_data_array(eeprom_count)
    Next Eeprom_count
    I2cstop
    Waitms 1
    Set Eeprom_wp                                           ' Schreibdschutz wieder setzen
Return

[Klaus (Gast)]

ich schrieb:
> ich habe die Jumper gesetzt aber das Eeprom spuckt unter jeder
> Speicheradresse 255 aus

Das stammt nicht vom EEPROM, das liefert der leere Bus, die Pullups 
ziehen ihn auf high. ACKed das EEPROM überhaupt seine Adresse?

MfG Klaus

[Joachim R. (bastelbaer)]

Gerade im Datenblatt gelesen. Der WP-Pin muss auf LOW zum Schreiben. 
Wenn er High ist kann man nur lesen. Das Pollinboard hat einen festen 
High auf dem WP-Pin. Das kann nie klappen mit dem Schreiben.

[Paul B. (paul_baumann)]

Joachim R. schrieb:
> Das Pollinboard hat einen festen
> High auf dem WP-Pin.

Das ist nicht wahr. Der WP-Pin (Pin7) liegt fest auf Masse.
A0,A1, A2 ebenso.

MfG Paul

[ich (Gast)]

Hallo Paul,
doch ich habe dieses Board hier und der liegt auf 5V aber funktionieren 
will es immer noch nicht bin aber gerade am Basteln.

LG

[ich (Gast)]

Hallo Zusammen,
ich habe es zum laufen bekommen:D.
Mein altes Eeprom war kaputt, der WS war auf HIGH und nicht auf LOW und 
die PullUP Widerstände sind mit 10k zu hoch. Aber dank eurer Hilfe und 
ein bisschen suchen im Datenblatt läuft es jetzt.

Unterm Strich bedeutet das also die Widerstände 9 & 10 auf dem Pollin 
Board mit zwei 1k Widerständen tauschen und WS irgendwie auf LOW legen 
dann läufts!
Vielen Dank!!!!

LG

[Kai M. (kai_mauer)]

ich schrieb:
> der WS war auf HIGH und nicht auf LOW

Dann hast Du ein anderes Board als alle Anderen, siehe Bild.

[ich (Gast)]

Hallo Kai,
nein habe ich nicht (siehe Anhang).
Pollin hat den richtigen Schaltplan aber nicht die richtige Tabelle oder 
das Board. Kann sein dass das Problem bei der 2.0.1 Version behoben 
wurde habe nämlich ein 2.0.0.

LG