RTC DS1307 mit Bascom konfigurieren und abfragen

Im Ordner von Bascom gibt es ein beispiel.
siehe: C:\Programme\MCS Electronics\BASCOM-AVR\SAMPLES\I2C\ds1307.bas

Gruss k.

Ja gut, ihn gibts.

Habs mir angeguckt, nur so noch nicht richtig verstanden habe ich wie 
ich da nun die Aktuelle Zeit rein bekomme. Weil so weiß er ja nicht 
welcher Tag heute ist und wie spät.

Weil den Code hatte ich schon mal genommen, stand in einem Forum und er 
hat nur müll ausgegeben und keine normale Uhrzeit bzw. Datum.

Danke für Eure Hilfe.

Michael

Ich habe den RTC wie folgt angeschlossen. Bild Packe ich in den Anhang.


Michael

geh mit den Pullups mal lieber so auf 2k.

Gruss k

Werte es gleich mal Testen.

Also Widerstände tauschen und den minimalcode übermitteln. Hoffe es 
klappt dann.

Melde mich dann.

So ich habe es gerade getestet.

Und bei dem Code gibt er bei meinem COM - Schnittstelle nur folgendes 
aus:

@5.@5.@5
@5:@5:@5

Und dies fortlaufend anzeigend. Also keine Erneuerung der Zeit oder so. 
Habe die Zeit aus dem Code einfach ersma übernommen, was aber ja noch 
keine Probleme bereiten soll. Weil der RTC ja nicht weiß ob ich Ihm die 
Wahrheit erzähle.

Ich benutze das AVR Board von Pollin.

Eine Frage noch vorab:

Const DS1307w = &HD0
Const DS1307r = &HD1

Ist doch die Adresse des RTCs. Die ist aber nicht wie beim einem 1-Wire 
Bus fest eingestellt oder?

Den Widerstand habe ich gegen 2,2kOhm getauscht. Und Kabellänge sollte 
eigentlich noch nich das Problem sein. es sind nur 10 cm (wenn nich 
sogar weniger) zzgl. das kurze Flachbandkabel was den Adapter für das 
Laborbrett mit dem AVR Board verbindet.


Michael

So habe beide Varianten schon getestet. Leider kommt das gleiche 
ergebnis raus. Also er gibt weiter dieses Oben genannte aus.

Habe auch noch mal alles kontrolliert, dass ich nichts verkehrt zusammen 
gesteckt habe. Nur normal dachte ich, dass das Laborbrett und das AVR 
Board von Pollin wäre eine gute Wahl für den Anfang.

Nur an sich ist es ärgerlich. Weil ich wollte jetzt nicht alles auf 
einer Platine löten um einen nahezudirekte Verbindung hin zu bekommen. 
Wäre fürs üben nur etwas umständlich. Daher habe ich mir das Board 
gekauft gehabt.



Michael

Ich weiß, dass die Pins verschoben sind, wenn ich den Mega8 nehmen, aber 
dafür gab es eine Schablone für. Also in der hinsicht sollte das hin 
hauen. Aber ich werde mal eine LED anklemmen und LEDs ein und 
ausschalten lassen.

Meld mich gleich noch mal dann.

Michael

So habe schon die Ports getestet. Und es klappte. Also habe die 
entsprechenden Output Pins im wechsel ein und ausgeschalten und es 
funktionierte wunderbar.

Also schon mal zur Info.

Michael

Habe mir das noch mal angeguckt. Also wenn ich beim aufstecken nichts 
falsch gemacht habe sollte das Passen. Also den Quarz habe ich auf Pin 1 
und 2 gepackt, Pin 3 ist + der Batterie, 4 GND von VCC und Batterie, 5 
sda, 6 scl, 7 offen und 8 VCC.


SDA und SCL sind mit Widerständen von 2,2 k gegen Vcc.


Michael

Am besten sagst du mal was du für einen Prozessor verwendest
und in welchem Takt der läuft .

k.

Ich verwenden den ATMega8 mit 16Mhz Quarz Tackt, wie auf dem Pollinboard 
verbaut.

Den Quarz habe ich ganz nah mit auf die Platine gepackt wo die Pins für 
den Quarz sein sollen. Habe nämlich den RTC mit Knopfzelle und Quarz auf 
eine kleine Platine zusammengelötet und führe mit sehr kurzen Leitungen 
VCC, SDL, SCL und GND vom Board auf die Platine. Fand dies als beste 
Lösung, weil der Quarz so minimalistisch ist und so kann er nicht 
verlohren gehen.

Habe mir den RTC mit der Artikel_Nr. 170823098864 bei Ebay erworben und 
an sich gab es mit diesem Händler nie Probleme.

Als Spannungsquelle nutze ich den Vcc vom Board und als Batteriespannung 
habe ich einfach eine Knopfzelle (CR2032 mit 3V) genommen.

Wenn eins von beidem defekt wäre, wäre ärgerlich.

Kann das aber mit dem Print Err mal einbauen und gucken was passiert.

Werde ich dann später mal machen.

und das mit der Busgeschwindigkeit hab ich schon gemacht, wurde oben 
schon angesprochen und habe den Wert 100 erst eingesetzt, dann noch 
weiter reduziert auf den Wert 50.

Ist es den auch Problemlos, dass der Pin SQW in der Luft hängt?

Vielleicht könnte man ja auch die Softwarelösung des i2c Bus mal testen, 
nicht das es doch irgendwie dadran hängt? Man müsste mich nur aufklären 
wie das klappt.

Ich hoffe es sind alle Fragen beantwortet, wenn nicht bitte nachfragen.

Michael

Hi,
ich habe dir nochmals eine bas angehängt, die einwandfrei funktioniert.
Sie benutzt den Hardware TWI und enthält ein paar Kommentare.

Versuch das nochmal.
Stelle bitte auch sicher, dass dein uC wirklich auf 16Mhz läuft.
Da 16Mhz ja auch ziemlich schnell ist könntest für die ersten Tests
mal auf internen RC Oscillator mit 8Mhz umstellen und den Quellcode
anpassen.


Gruss Klaus

p.s.
die Hardware TWI funktioniert meiner Meinung nach eher unproblematischer
als die Soft-Lösung

Ich habe das per http://www.engbedded.com/fusecalc auf den externen 
Quarz umgestellt, nach Anleitung aus dem Netz. Da ich jetzt zurück auf 
Intern stellen soll / könnte, wollte ich einmal zur Überprüfung die FB 
Lösung zeigen, bevor ich sie Umsetze.

Ich benutze PonyProg2000 nur zur Info.


LOW:
SUT0 (Check)
CKSEL3 (Check)
CKSEL1 (Check)
CKSEL0 (Check)


High:
SPIEN (Check)
BOOTSZ1 (Check)
BOOTSZ0 (Check)

Mit Check mein ich, der Harken ist gesetzt.

Als Option oben bei Futurs habe ich ausgewählt:

Int. RC Osc 8MHz; Start-uup time: 6 CK + 64 ms;[CKSEL=0100 SUT =10]


Oder ist da irgendwas falsch dran? Nicht das ich den µC nachher 
abschieße :-) daher frag ich mal zur Sicherheit lieber nach.

Momentane Einstellungen sind:

High:

High:
SPIEN (Check)
BOOTSZ1 (Check)
BOOTSZ0 (Check)


Michael

Streifenrasterplatine und die Löcher direkt nebebeinander genommen um 
dort keine großen kabelwege zu haben und zum anderen um für den RTC 
nicht eine irre große platine zu verwenden. man will ja sparen ;-)

Oder is das ein Problem?

Falls Frage kommt ob ich unterbrochen habe, ja habe ich. Also zwischen 
den Pins des RTC (hab den auf einen Sockel gesetzt) habe ich die Pins 
natürlich getrennt also zwischen 1 und 8 und so weiter meine ich.

Michael

Unterbrochen sind die Ganz sicher, mache ich immer bei Jedem mal, wenn 
ich unterbreche mit nem durchgangspiepser einmal piepsen bevor bauteile 
dazu kommen.

Mache aber gleich mal fix Fotos. Also von dem Flachbandkabel, welches 
das AVR Board mit dem Laborbrett verbindet und einmal die verbindung vom 
RTC zum Laborbrett. Bilder kommen sofort.

Aber sind den Fusebits richtig gesetzt das es damit keine Probs gibt?

Michael


PS: So hier das Bild. Da wo unten rechts die LEDs sind habe ich den I2c 
Bus drin. LEDs habe ich raus genommen. Hoffe man kann alles halbwegs 
erkennen.

Bild lade ich hier rauf:

http://freewareecke.de/2012-05-09-008.jpg

Habe den Code getestet, also der hier gepostet wurde, nur leider haut 
der Compiler nen Fehler raus. Eigentlich sollte dieser Code ja 
funktionieren. Ich will aber nicht unterstellen, das es nicht so wäre.



Michael

Hi Michael,
das ist doch prima, du bekommst realistische Meldungen.
Ein Mega8 Prozessor hat keinen Port A. (Den gibt es nicht)
Denk doch mal drüber nach, ob man irgendwelche Beispiele
einfach ohne Nachdenken übernehmen sollte.
Du sagst , du hättest einen Mega 8 und postest diese Fehler über
Port A.
Denk doch bitte nochmal nach.

Gruss klaus

p.s.
... und vergiss mal für einen Moment die gut  gemeinten Ratschläge
über Quarze und kurze Leitungen. Das sagen alle , die noch nie einen
TWI am Laufen hatten.


.... und hättest du meinen Code verwandt, indem Port A niemals
erwähnt wurde, hättest du auch kein Problem.

Sry dass ich das jetzt sage, aber genau den Code habe ich verwendet. (an 
Klaus De lisson) und genau bei dem Code gab es den oben genannten 
Fehlercode. Das wunderte mich nämlich. Weil wie gesagt kein Port A 
erwähnt wurde.

Habe diesen auch noch ein zweites mal kopiert in Bascom AVR und Erfolg 
war der selbe, bzw der Misserfolg.

Und ich denke bei Copy + Paste sollte man nichts falsch machen können.

Michael

Karl, wäre schade, wenn jetzt hier abbrichst. Dachte eigentlich immer 
viele Leute kommen gemeinsam zu einer Lösung.

Jap er lässt sich nicht Compilieren und ich habe mehrfach drüber geguckt 
und leider irgendwie finde ich zumindest mit meinen noch beschrenkten 
Fähigkeiten keinen Fehler zumindest kann keinen zuordnen.

Michael

Ne hab ich leider nicht, gibt zwar Möglichkeiten ja eine Softwarelösung 
zu machen, nur soweit bin ich ersma noch nicht.

Also per µC sich ein Oszi zu bauen und dann Signal grafisch am PC 
darstellen zu lassen.

Habe bislang nur ein paar normale Multimeter hier.

Michael

Karl schrieb:
> Bitte, Klaus! Man versucht hier zu helfen und wird von Dir indirekt mit
> haltlosen Behauptungen konfrontiert. Was soll das? Schlechten Tag
> gehabt?

Hallo Karl,
nun nimm das doch nicht gleich in den falschen Hals. Ich wollte damit 
keinen
angreifen. Sollte es falsch angekommen sein, entschuldige ich mich.

Allerdings ist dein Code, den du am Datum: 08.05.2012 22:30 gepostet 
hattest
nicht sonderlich hilfreich gewesen, da du sehr krumme Einträge darin 
hast:
$crystal = 3686400
$baud = 19200

und diese für den Fragesteller nicht weiter kommentiert hattest


@Autor: Michael N. (lwl2012)

Nun habe ich mir das mit dem Port A nochmal angeschaut und muss sagen,
ich war verwirrt. Das Problem verschwindet wenn du entgegen meiner
Bemerkung nun doch die Portdefinitionen in den Quelltext einfügst:

'configure the scl and sda pins
Config Sda = Portc.4
Config Scl = Portc.5

Interessanterweise geht es bei M644def.dat auch ohne.
Das ist offenbar ein Tribut des letzten Bascom Updates.
Seitdem die da nun auf "Teufel komm raus" den XMEGA mit einflechten
wird das Bascom immer abscheulicher.

zudem habe ich mir dein Bild vom Aufbau mal angesehen, welches ich
wohl zuvor überlesen hatte. (http://freewareecke.de/2012-05-09-008.jpg)
und muss sagen dass das so wohl nicht gehen wird.

Es entspricht auch in keiner Weise deiner Aussage
"Und Kabellänge sollte eigentlich noch nich das Problem sein.
es sind nur 10 cm (wenn nich sogar weniger)"

Leider habe ich 2ten Absatz deines Satzes überlesen . Da steht ja:
"zzgl. das kurze Flachbandkabel was den Adapter für das
Laborbrett mit dem AVR Board verbindet."


In deinem Foto wird das ganze Desaster ja sichtbar.

Evt. kannst du das ans Laufen bringen indem du 2 weitere Pullups 
einbaust.
2 Pullups am Atmega und 2 Pullups direkt am DS.

Für die ersten Tests würde ich aber vorschlagen den DS mit kurzen
Kabelstücken direkt auf die Pins des Mega zu löten.
(Also kein Steckbrett und so)
Wenn es dann geht, kannst du ja wieder die Leitungen verlängern.

Gruss Klaus

Karl schrieb:
> Letztendlich sind wir nun alle zu der Überzeugung gelangt, dass es wohl
> an der Hardware / Verkabelung etc. liegen muss.

Ja!

.. und schön, dass du jetzt nicht nachtragend bist. Ich gebe auch zu, 
das
ich auch etwas hyperaktiv war.


Gruss Klaus

Ich werde es dann versuchen direkt an den Controller zu bekommen, nur 
anlöten direkt dran ist eigentlich schlecht (Weils direkt auf dem Board 
steckt). Aber werde mir was überlegen. Vielleicht packe ich alles direkt 
aufs Steckbrett. Wäre nicht die Ideale Lösung, aber vielleicht ein 
kompromiss?

Wollte gleich noch gucken nach einem Software Oszi, also ob ich das hin 
bekomme aus dem Buch zu holen. Habe hier eines Rumliegen (Basiskurs 
Bascom - AVR). Nur nicht alles ist verständlich gemacht.

Also ich Programmiere den Controller und stecke diesen dann aufs 
Steckbrett mit minikleinen kabeln zwischen Controller und RTC. Als 
ausgabe werde ich einfach den LC-Bildschirm nehmen.



Michael

Michael N. schrieb:
> einem Software Oszi

vergiss es .. es klappt nicht .. und es ist unnötig.
Einfanch mal testweise direkt an die Pins des uC löten.
Wenn es dann klappt hast du die halbe Miete.

k.

Reichts notfalls auch, wenn ich Sockel für RTC und Controller auf eine 
Platine löte mit ganz kurzen Leitungen für den I2C? Und was würdet ihr 
als Pullup nehmen? 4,7k oder mehr oder weniger?



Michael

Hi Michael,
ich glaube du denkts zu kompliziert.
Wenn du einfach deine vorhandene Platine mit dem RTC und der Batterie
mal direkt an die Pins vom uC anklemmst sollte es klappen.
Du darfst aber gern auch 10cm Kabel zwischen uC und RTC einsetzen.
Es sind doch nur 4 Leitungen (+.-,SDA,SCL)
Das kann doch so schwer nicht sein.
Die Pullups sind zwischen 1k und 10k. Je niederohmiger desto stabiler
das Signal und desto höher der Stromverbrauch.
Mit deinen 2k liegst du schon im sicheren Bereich.

Gruss k.

Hallo,
ist die Backupbatterie auch wirklich richtig gepolt und ist die Spannung
der Batterie noch ausreichend ?

Sollte richtig sein. Kontrollier es aber zur sicherheit noch mal. Und 
auch ob sie noch gut ist teste ich eben. Aber denke ja ist eine gute 
Duracell Knopfzelle.


Michael


PS: Batterie geprüft und für gut befunden. Plarität passt auch. Aber 
außer wenn die Polarität falsch wäre sollte ja nicht schlimm sein, wenn 
Batterie leer ist. Soll ja nur zum Backup sein.

Hi, schau mal unter 
http://www.fakedomain.de/elektronik/messuhr/index.htm. Da hab ich ne Uhr 
mit ds1307 gebastelt und auch den BASCOM-Quelltext dazu veröffentlicht. 
Die Uhr läuft seit ihrem Bau ohne Probleme und ist auch nur auf 
Lochraster aufgebaut.
Vielleicht hilft es ja. Bei mir waren die Bus-Widerstände mal ein 
Problem, aber mit 4,7k lauft es.

Hallo,

vielleicht hilft dir auch mein Programm mit automatischer 
Sommerzeitumschaltung, läuft recht brav seit einigen Monaten im 
Echtbetrieb:

Beitrag "Sommerzeitberechnung mit Bascom"

Danke für Zahlreiche Hilfen, hab eine Lösung im Netz gefunden, die 
Funktioniert.

Hier der Code:

1

$regfile = "m8def.dat"

2

$crystal = 16000000

3

$baud = 9600

4

5

Config Sda = Portc.4

6

Config Scl = Portc.5

7

8

Dim _weekday As Byte

9

Dim _day As Byte

10

Dim _month As Byte

11

Dim _year As Byte

12

Dim _sec As Byte

13

Dim _min As Byte

14

Dim _hour As Byte

15

16

Dim Wt As String * 15

17

18

Dim Ds1307w As Byte

19

Dim Ds1307r As Byte

20

21

Ds1307w = &B11010000

22

Ds1307r = &B11010001

23

24

'_day = 24

25

'_month = 5

26

'_year = 12

27

'_sec = 00

28

'_min = 38

29

'_hour = 15

30

31

Input "Wd.: " , _weekday

32

Input "Tag: " , _day

33

Input "Mon: " , _month

34

Input "Jah: " , _year

35

Input "Sec: " , _sec

36

Input "Min: " , _min

37

Input "Std: " , _hour

38

39

40

Rem Zeitsetzen

41

_sec = Makebcd(_sec)

42

_min = Makebcd(_min)

43

_hour = Makebcd(_hour)

44

I2cstart

45

I2cwbyte Ds1307w

46

I2cwbyte 0

47

I2cwbyte _sec

48

I2cwbyte _min

49

I2cwbyte _hour

50

I2cstop

51

52

Rem Datumsetzen

53

_day = Makebcd(_day)

54

_month = Makebcd(_month)

55

_year = Makebcd(_year)

56

I2cstart

57

I2cwbyte Ds1307w

58

I2cwbyte 3

59

I2cwbyte _weekday

60

I2cwbyte _day

61

I2cwbyte _month

62

I2cwbyte _year

63

I2cstop

64

65

66

Do

67

68

Rem Datum und Zeit holen

69

I2cstart

70

I2cwbyte Ds1307w

71

I2cwbyte 0

72

73

I2cstart

74

I2cwbyte Ds1307r

75

I2crbyte _sec , Ack

76

I2crbyte _min , Ack

77

I2crbyte _hour , Ack

78

I2crbyte _weekday , Ack

79

I2crbyte _day , Ack

80

I2crbyte _month , Ack

81

I2crbyte _year , Nack

82

I2cstop

83

84

Select Case _weekday

85

   Case 1

86

      Wt = "Montag"

87

   Case 2

88

      Wt = "Dienstag"

89

   Case 3

90

      Wt = "Mittwoch"

91

   Case 4

92

      Wt = "Donnerstag"

93

   Case 5

94

      Wt = "Freitag"

95

   Case 6

96

      Wt = "Samtag"

97

   Case 7

98

      Wt = "Sonntag"

99

100

End Select

101

102

Print Wt ; " /" ; Bcd(_day) ; "." ; Bcd(_month) ; "." ; Bcd(_year)

103

Print

104

Print Bcd(_hour) ; ":" ; Bcd(_min) ; ":" ; Bcd(_sec)

105

Print "---------------------------------------"

106

107

Waitms 1000

108

109

Loop

Michael

Doch funktioniert erste Sahne.

Wollte es eigentlich nur erwähnt haben, falls wer anders noch mal eine 
Codealternative sucht.

Michael

Naja ob man bei Copy Past was falsch machen kann, weiß ich nicht. Also 
habs aus BascomAVR rauskopiert und hier eingefügt.

Also Text ist 1 zu 1, zu dem welcher auf dem µC liegt. Und Kommentare in 
Bascom kann man entweder mit REM beginnen bzw '. Das Rem stammt noch aus 
QBasic zeiten. Den soweit ich weiß stammt Bascom von Basic ab.

Nur die oben geposteten Codes funktionierten nicht, das weiß ich. Meiner 
Funktionierte. Den in den anderen Codes fehlte mir irgendwie das 
kontinuierliche Abrufen der Zeit. Aber egal. Es funktioniert.

Ich möchte diesen RTC in ein Wanduhrprojekt einbauen.

Muss mich nur wo möglich noch mit dem Funkempfänger auseinander setzen. 
Also um dadraus eine Funkuhr zu bauen. Alternativ soll ein Eingang 
abgefragt werden, ob er im Programmiermod oder im Laufmod ist. Also dass 
nicht bei jedem Stromausfall immer oben der Code durchläuft, wo man Uhr 
und Datum stellt.

Aber das ist nicht mehr der große Aufwand. Eher das mit dem 
Funkempfänger wäre noch interessant, aber mal gucken.


Michael

Kein Problem. Sowas kann vorkommen.

Vielleicht kannst mir nen bischen Hilfe gehen, wie das mit dem 
Funkempfänger geht?

Habe den hier zuhaus:

http://www.pollin.de/shop/dt/NTQ5OTgxOTk-/Bausaetze_Module/Module/DCF_Empfangsmodul_DCF1.html


Hast mal mit sowas gearbeitet:

http://www.pollin.de/shop/dt/OTI5OTgxOTk-/Bausaetze_Module/Module/Funkmodul_RFM12_Sende_Empfangsmodul.html

ist sowas schwer an zu steuern? Also nur aus interesse mal gefragt.



Michael

Eine kleine Anfrage, zum Verständnis.

Der RTC läuft mit geänderter Zeit weiter, sobald man die Zeit an diesen 
übergeben hat oder? Also wenn ich z.B. Manuell per Uart Terminal die 
Zeit übergebe.

Und für meine Uhr bin ich am überlegen, eine Sommer / Winterzeit 
umschaltfunktion ein zu bauen. Also es wäre zwar eher die "schmutzige" 
Lösung, aber okay. Da ich nur die Uhrzeit anzeigen möchte wäre es aber 
nicht weiter schlimm.

Als Lösung dachte ich, ein einfachen Schalter, der an einem Pin 
angeschlossen wird, dieser manipuliert eigentlich nur die Zeit, die vom 
RTC kommt um 1h. Also im allgemeinen läuft die eine Zeit (vermutlich 
Winterzeit werde ich wohl nehmen) normal weiter, nur wird dieser 
Schalter umgelegt, wird zu der Stunde vom RTC eine Stunde 
hinzugerechnet.

Wie gesagt ist eher die "schmutzige" Lösung, aber wäre eine einfache 
Lösung, um nicht jedesmal den PC mit der Uhr zu verbinden.

Dieses wäre aber nur dann die Lösung, wenn ich das mit dem Funkempfänger 
nicht hin bekommen sollte irgendwie.


Und als RTC wollte ich schon den DS1307 nehmen, weil davon habe ich 3 
Stück hier rum fliegen. Also von daher danke für Tip für Alternativen, 
aber erstmal bleib ich bei dem. Aber wenn die Identisch sind, könnte ich 
die im nachgang austauschen. Den der RTC wird gesockelt auf die Platine 
gebracht.

Wollte dies mal als Diskusionsbeitrag hinterlassen.

Michael