I2C Einstieg

**Der Einsteiger** · 07.08.2013, 17:55

bei denen ein Port z.B. sowohl eine LED treiben als auch (zeitversetzt !) einen Schalter lesen soll. Dann gilt das Gesagte zum expliziten H-setzen.

Und das wollte ich ja nicht

So, ich habe jetzt mal mit dem 24C16 einen kleinen Datenlogger für LDR Messwerte gebaut.
Das Aufnehmen der Messwerte klappt auch schon, doch kann ich sie weder abspielen, noch, wenn ich den Conroller wieder einschalte neu beschreiben. Also ich kann es nur einmal beschreiben. Danach wird irgendwie der Controller dumm (beim wiederanschalten gibt es keinen Summerklang mehr und ich bekomme nichts mehr auf der seriellen Schnittstelle angezeigt )

Woran liegt es ??

Code:

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 200
$swstack = 200
$framesize = 400

Config Portd.7 = Output

Config Pind.6 = Input
Pind.6 = 1

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Waitms 10

'TWI konfigurieren
Config Sda = Portc.1
Config Scl = Portc.0
Config Twi = 100000

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

Dim W As Word

Sound Portd.7 , 400 , 450
Sound Portd.7 , 400 , 250
Sound Portd.7 , 400 , 450
Wait 2


If Pind.6 = 0 Then                                          'Taster für Moduswahl

'---- schreibe in EEprom ----
For A = 1 To 10

W = Getadc(6)                                               'Messwert
Print W
X = W / 4                                                   'damit der Speicher reicht
Print "Durch 4 geteilt: " ; X
Print
Print
Waitms 200

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

Print "ins EEprom = " ; X ; "  "                            ' Ausgabe der geschriebenen Werte
Waitms 500
Next A

Sound Portd.7 , 400 , 450                                   'damit ich weiß, wann er fertig ist
Waitms 40
Sound Portd.7 , 400 , 450



Else

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

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

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

Print "Lese  EEprom= " ; Lesen ; "  "                       'Ausgabe der EEprom Werte
Waitms 500
Next B

End If

End

**Sternthaler** · 07.08.2013, 21:06

Grüß dich 'Der Einsteiger',

ich habe zwar keine Ahnung vom Bascom und mache auch nur mit C, aber igendwie vermisse ich hier die Initialisierung mit "I2cinit". (Ob es das ist, kann ich noch nicht einmal sagen.)
Oder ich bin nur blind

Gruß Sternthaler

P.S.: Im übrigen hat mir deine Fragerunde auch gut 'die Augen geöffnet'.
Also ein großes Dankeschön an alle Frageantworter

P.P.S: Und da das hier gerade (schon wieder) mein 1000'er Eintrag ist, verweise ich mal auf https://www.roboternetz.de/community...l=1#post487842

**Der Einsteiger** · 07.08.2013, 21:47

Hallo Sternthaler,

"I2cinit

Habe ich jetzt eingefügt, geht aber trotzdem nicht.

P.S.: Im übrigen hat mir deine Fragerunde auch gut 'die Augen geöffnet'.

?

Und da das hier gerade (schon wieder) mein 1000'er Eintrag ist, verweise ich mal auf

Warum schon wieder ?? Du hast doch erst 1000.

Also zurück zu meinem Problem: Warum geht es nicht ?? Beim ersten Mal anschalten nach dem Proggen funktioniert es, wenn ich es dann aber ausschalte und wieder an dann geht gar nichts mehr! Weder Ton noch Text !

Kennt sich einer von den Fachleuten da aus ?? Ich würde mich über Antworten sehr freuen, da ich echt nicht weiter weiß.

Der Einsteiger

**Sternthaler** · 07.08.2013, 22:52

Zitat von Der Einsteiger

Habe ich jetzt eingefügt, geht aber trotzdem nicht.

Schade. Aber da sieht man mal, dass ich wirklich keine Ahnung vom Bascom habe

Zitat von Der Einsteiger

P.S.: Im Übrigen hat mir deine Fragerunde auch gut 'die Augen geöffnet'.

Ich habe die Antworten zu deinen Fragen mit Spannung gelesen, da meine I2C-Kentnisse, zwar in C, auch nur recht klein sind.

Zitat von Der Einsteiger

Warum schon wieder ?? Du hast doch erst 1000.

Genau das ist auch mein "Problem"!

Zitat von Der Einsteiger

Also zurück zu meinem Problem: Warum geht es nicht ?? Beim ersten Mal anschalten nach dem Proggen funktioniert es, wenn ich es dann aber ausschalte und wieder an dann geht gar nichts mehr! Weder Ton noch Text !

Da bin auch ich auf eine funktionierende Antwort gespannt.

Gruß
Sternthaler

**RoboHolIC** · 07.08.2013, 23:11

Hast du eine LED dran, mit der du die verschiedenen Programmphasen sichtbar machen kannst? Die LED sukkzessive immer später im Programmablauf einschalten.Vielleicht bleibt der Controller in einer der Funktionen stecken.

Wie ist der Reset realisiert? Über den Programmer, oder über das Spannung einschalten? Gibt es da unterschiedliches Verhalten? Die Initialisierung nach dem Reset kann (zumindest bei PICs) je nach Resetursache (PowerUp, BrownOut, WatchDog, Sleep) durchaus unterschiedlich sein.

**Michael** · 08.08.2013, 12:04

Code:

Config Pind.6 = Input 
Pind.6 = 1

um den Pullup einzuschalten, muss das Portregister gesetzt werden.

Gruß, Michael

**Der Einsteiger** · 08.08.2013, 12:58

Hast du eine LED dran, mit der du die verschiedenen Programmphasen sichtbar machen kannst? Die LED sukkzessive immer später im Programmablauf einschalten.Vielleicht bleibt der Controller in einer der Funktionen stecken.

Wie ist der Reset realisiert? Über den Programmer, oder über das Spannung einschalten? Gibt es da unterschiedliches Verhalten? Die Initialisierung nach dem Reset kann (zumindest bei PICs) je nach Resetursache (PowerUp, BrownOut, WatchDog, Sleep) durchaus unterschiedlich sein.

Für die Led habe ich ja den Summer ...

Vielleicht bleibt der Controller in einer der Funktionen stecken.

Das sage ich ja: und zar nach dem zweiten mal anschalten direkt am Anfang. Oder ??

Wie ist der Reset realisiert?

Beim Proggen macht das der Progger selbst. Wenn ich es im Verlauf ändern möchte, habe ich dafür einen Taster.

Nur mal zur Info : Ich verwende RN-Control, also müsste Hardwaremäßig alles passen. Ich habe auch ein anders Board mit Mega 32 probiert, doch es hat sich genau so verhalten. Das würde dann ja auch für ein anders Problem sprechen. Es liegt bestimmt an der Software, nur was ist die Frage ???

um den Pullup einzuschalten, muss das Portregister gesetzt werden.

Wie ??

Ich hoffe einer von euch findet die Lösung ...

**Searcher** · 08.08.2013, 17:08

Zitat von Der Einsteiger

Code:

Config Pind.6 = Input
Pind.6 = 1

Michael meint, daß, um den Pullup einzuschalten, es Portd.6 = 1 heißen müsste.

Gruß
Searcher

**Der Einsteiger** · 08.08.2013, 17:12

Danke, aber trotzdem gibt es diese komische Störung

**Sternthaler** · 08.08.2013, 20:32

Hallo Einsteiger,

unter http://avrhelp.mcselec.com/ (bei "Newbie problems") habe ich noch folgendes gefunden:

Some bits on Port C are not working

Some chips have a JTAG interface. Disable it with the proper fuse bit . Or use DISABLE JTAG in your code.

Leider weiss ich nicht welcher AVR hinter deiner "m32def.dat"-Angabe steckt. Somit weiss ich auch nicht, ob da überhaupt ein JTAG vorhanden ist.

Gruß Sternthaler