RN Controll & DCF-RS232 Wandler DCF-RS1

Hast Du den Motortreiber auf der RN-Controll entfernt? Der benutzt ja D5 mit...vielleicht holst Du Dir dadurch eine Störung rein.

Ich würde nochmal versuchen den kompletten Aufbau wie in der Anleitung beschrieben aufzubauen und dann Pin 1 Mode in binär ändern.
Auch würde ich mit dem TX Ausgang arbeiten anstatt dem DOUT. Wenn man den Hinweisen in der Anleitung vertraut, dann muss man da viel zu viele Dinge beachten um überhaupt was sinnvolles heraus zubekommen.

Hast du einen PON-Pin am DCF-Empfänger?

Ansosnten weiß ich so jetzt auch nichts mehr.


Viel Erfolg
Jörg

Hallo,
nachdem ich die gleichen Probleme mit dem Chip hatte und ich ihn fast schon aus Wut in die Tonnen gehauen hätte, fand ich dann doch noch die? (eine) Lösung. Der Bascom Code nutzt die Binär!-Ausgabe des Chips. Unscheinbar im "Handbuch" versteckt, steht aber unter PIN1-Mode: unbeschaltet wird die Ausgabe als Text ausgegeben!
Hammer, das war's. Nachdem ich den PIN 1 mit GND verbunden habe, kam fast zeitgleich die richtige Ausgabe auf meinem LCD.
Anbei mein Bascom-Code

Zitat:

---

Declare Sub Dcf_uhrzeitlesen()

'$programmer = 12 'MCS USB (Zeile weglassen wenn anderer Programmer)
'$prog &HFF , &HFF , &HD9 , &HFE 'Fusebits richtig programmieren (Quarz ein,Jtag aus)

$regfile = "m8adef.dat"
'$framesize = 32
'$swstack = 32
'$hwstack = 64

$framesize = 128
$swstack = 128
$hwstack = 128

$crystal = 3686400 'Quarzfrequenz

$baud = 9600 'Baudrate (Übertragungsgeschwindigkeit)
Baud = 9600


Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2

Config Lcd = 20x4
Cursor Off Noblink
Cls

Config Pinb.3 = Output 'LED
Led1 Alias Portb.3



'Diese Variablen enthalten nach dem Abruf die Uhrzeit und Datum Informationen
Dim Uhr_sek As Byte
Dim Uhr_min As Byte
Dim Uhr_std As Byte
Dim Uhr_tag As Byte
Dim Uhr_monat As Byte
Dim Uhr_jahr As Byte
Dim Uhr_wochentag As Byte
Dim Uhr_sommerzeit As Byte
Dim Uhr_zeitumschaltung As Byte
Dim Uhr_sync As Byte

Dim Bstart As Byte 'Enthaelt Byte Zeilenanfang immer 126
Dim Bende As Byte 'Enthaelt Byte Zeilenanfang immer 127

Dim Zeitgueltig As Byte

Wait 1
Zeitgueltig = 0
Do
Dcf_uhrzeitlesen
If Zeitgueltig = 1 Then
Locate 1 , 1
Lcd "abgeglichen "
Print "Heute haben wir den: " ; Uhr_tag ; "." ; Uhr_monat ; "." ; Uhr_jahr ; " " ; Uhr_std ; ":" ; Uhr_min ; ":" ; Uhr_sek ; " Wochentag:" ; Uhr_wochentag
Locate 2 , 1
Lcd Uhr_tag ; "." ; Uhr_monat ; "." ; Uhr_jahr
Locate 3 , 1
Lcd Uhr_std ; ":" ; Uhr_min ; ":" ; Uhr_sek ;
Locate 4 , 1
Lcd "Wochentag: " ; Uhr_wochentag
If Uhr_sommerzeit = 1 Then Print "Es gilt Sommerzeit!"
Print "Die Uhr wurde von " ; Uhr_sync ; " Minuten per Funk abgeglichen"
Print
Else
Locate 1 , 1
Lcd "nicht abgeglichen"
End If
Wait 3
Toggle Led1
Loop




'Hilfsfunktionen



'Diese Funktion ruft der Zeit im binären Modus ab
'und uerbergibt diese den globalen Uhr Variablen
Sub Dcf_uhrzeitlesen()
Config Pinb.2 = Input
If Pinb.2 = 1 Then 'DCF Uhrzeit bereits vorhanden?
'Kurz auf GND setzen um DCF Decoderzeit ausgeben zu lassen
Config Portb.2 = Output
Portb.2 = 0
Waitus 1
Config Pinb.2 = Input

Open "comB.2:2400,8,n,1" For Input As #1
Inputbin #1 , Bstart , Uhr_tag , Uhr_monat , Uhr_jahr , Uhr_std , Uhr_min , Uhr_sek , Uhr_wochentag , Uhr_sommerzeit , Uhr_zeitumschaltung , Uhr_sync , Bende
Close #1
Config Pinb.2 = Input
Uhr_tag = Uhr_tag - 65
Uhr_monat = Uhr_monat - 65
Uhr_jahr = Uhr_jahr - 65
Uhr_std = Uhr_std - 65
Uhr_min = Uhr_min - 65
Uhr_sek = Uhr_sek - 65
Uhr_wochentag = Uhr_wochentag - 65
Uhr_sommerzeit = Uhr_sommerzeit - 65
Uhr_zeitumschaltung = Uhr_zeitumschaltung - 65
Uhr_sync = Uhr_sync - 65
Zeitgueltig = 1
Else
Print "Zeit noch nicht verifiziert!"
End If

End Sub

---

tschau
Wolfgang

Hinweis zum DCF-Chip
=================
Eigentlich steht es schon alles im Datenblatt, aber aufgrund einiger Nachfragen sehe ich immer wieder
das es dort manchmal überlesen wird. Daher noch mal der Hinweis damit der Einstieg schneller gelingt:

Nutzt man den DOUT Ausgang des DCF-Chips für die Uhrzeitabfrage, so sollte man daran denken das diese Abfrage
bei ständiger Wiederholung die Synchronisation der Funkuhr blockiert. Es sollte mindestens einmal am Tag
ca. 3 Minuten zeit zwischen zwei Abrufen über Dout verbleiben, damit die Uhrzeit sich wieder haargenau
synchronisiert. Gewöhnlich ist das ja bei allen Anwendungen leicht zu realisieren.
Über den TX Ausgang kann natürlich jederzeit im Minutenryhtmus eingelesen werden, dies behindert die
Syncronisation nicht!
Achten Sie darauf, das der TX Pin wahlweise im Ascii oder Binärformat die Daten ausgibt,je nachdem ob
der Mode-Pin auf GND liegt oder High.

Hallo,

ich hab eine Frage zum Quellcode, welcher von Robotikhardware mitgeliefert wird. Leider ist der Code in Bascom. Ich möchte das Programm aber in c++ realisieren.
Die Frage ist wie lese ich den Bitstrom ein?

Also eigentlich fehlt mir der Ansatz, wie ich diesen Bascomcode in c++ ausdrücken kann:

Open "comB.2:2400,8,n,1" For Input As #1
Inputbin #1 , Bstart , Uhr_tag , Uhr_monat , Uhr_jahr , Uhr_std , Uhr_min , Uhr_sek , Uhr_wochentag , Uhr_sommerzeit , Uhr_zeitumschaltung , Uhr_sync , Bende
Close #1

danke schon mal im vorraus für eure Hilfe

Hallo Dominik

ich hatte auch Probleme mit der Seriellen Übertragung von dem RN Controll zum PC über die RS232 Stifte.Versuche mal Direkt RX/TX am Mega abzugreifen.


Udo

Hallo habe auch Probleme mit dem Decoderchip!
es gibt Tage da läuft das Programm stabil aber zu ca 80% wird nur schrott aufm Display bzw vom Decoderchip ausgegeben. Habe ein Oszi am TX Ausgang hingehängt und alle 140 Bits ausgelesen und ausgewertet ( Es kommen schon falsche Werte vom Decoderchip). Kann mir jemand sagen wo hier der Fehler ist? Antenne (von Conrad am besten für solche Zwecke bewertet) und Decoderchip werden mit 3.3V betrieben und hab angeschlossen wie auf Schaltplan. In den Kommentaren habe ich hier jetzt mal gelesen von Pull-Up Widerstand bei Pin 3? Brauch ich dort einen weil im Schaltplan ist keiner bzw der Pull-Up im Schaltplan (R2) brauch man diesen nur wenn man den DOUT Pin benutzt oder auch bei TX Ausgang?