GPS Uhr

Insanity · Sep 20th 2021, 5:14pm

Hier mal meine kleine Bastelei mit GPS(Uhr) und Max7219(4x8x8LED)
Vielleicht kann ja jemand was brauchen

Panik · Sep 25th 2021, 10:45pm

Sehr cooles Projekt, genau so eine Uhr will ich im kommenden Winter bauen.
Welches GPS-Modul hast du im Einsatz?
Verträgt das Modul 5V?
Vielleicht magst du ja den Schaltplan zeigen, würde mich sehr freuen.

...hab mir schon das GPS Modul GPS6MV2 besorgt,

Michael · Sep 26th 2021, 7:52am

Panik wrote:

Vielleicht magst du ja den Schaltplan zeigen, würde mich sehr freuen.

und die stl - Files für Gehäuse und Deckel a_14_3ef964b0

Insanity · Sep 26th 2021, 8:18am

Hallo, ich benutze auch das GPS Modul GY-GPS6MV2 mit NEO-6M
Das modul sollte 5V vertragen, nur der RXD Eingang darf mit 3,6V betrieben werden.
blog.simtronyx.de/kurz-vorgest…v2-mit-neo-6m-von-u-blox/
Das Gehäuse ist noch nicht so perfekt , für mich wars in Ordnung.
Bohrung für die Versorgungsbuchse muss man selber machen.
Genauso die Senkung der Bodenschrauben.

Insanity · Sep 26th 2021, 8:23am

Kurzer Nachtrag,
bei mir dauerd die Synchronisierung beim ersten mal je nach Standort 3-20 Minuten

Panik · Sep 26th 2021, 8:33pm

Vielen Dank für die weiteren Infos.
Ich habe mein GPS-Modul mal getestet und hatte schon nach 3min die Uhrzeit.
Wie funktioniert das eigentlich mit der Umschaltung auf Sommerzeit, gibt es da ein Bit was ausgewertet werden kann oder muss man das sebst mittels Datum berechnen?

Insanity · Sep 26th 2021, 9:24pm

Die Sommerzeit muss selbst erkannt und berechnet werden.
Wenn du mein Programm genommen hast, Zeile 248 , da werden momentan 2 Stunden dazugerechnet.
Die Satellitenzeit ist UTC.

Panik · Sep 26th 2021, 9:28pm

O.K...alles klar. Das ist dann eine klare Aufgabe, werde ich mal schauen wie das mit der Umstellung funktioniert.

Insanity · Sep 26th 2021, 10:04pm

Hab hier mal was im Netz gefunden.
Kanns momentan nicht testen.

BASCOM Source Code

Ab Zeile 245
Sys_Sek = Syssec(Time$,Date$) ' auf die interne Softuhr umsetzen
If Sommerzeit() = 1 then
Sys_Sek = Sys_Sek + 7200 ' Sommerzeit
Else
Sys_Sek = Sys_Sek + 3600 ' Normalzeit
End If
Time$=Time(Sys_Sek)
Date$=Date(Sys_Sek)

Display All

BASCOM Source Code

Function Sommerzeit() As Byte
Local Tag as Byte
If _month < 3 Or _month > 10 Then 'keine Sommerzeit
Sommerzeit = 0
Exit Function
End If
If _month >= 4 And _month <= 9 Then 'jedenfalls Sommerzeit
Sommerzeit = 1
Exit Function
End If 'betrachte nur mehr 3 und 10
If _day >= 25 Then 'Grenze: letzter Sonntag im Monat
Tag = Dayofweek() '0=Mo, 1=Di,.. 6=So lt. Bascom
If Tag = 6 And _hour >= 2 Then 'sonntags ab 2.00
Tag = 1
Else
Tag = _day - Tag 'ermittle Grenze vor oder nach letztem Sonntag
If Tag <= 25 Then
Tag = 0
Else
Tag = 1
End If
End If
Else
Tag = 0
End If
If _month = 10 Then 'in Oktober nach Grenze: keine Sommerzeit
Sommerzeit = 1 - Tag
Else
Sommerzeit = Tag 'in März: nach Grenze: Sommerzeit
End If
End Function

Display All

Zitronenfalter · Sep 27th 2021, 7:01am

Ich habe mir dazu mal vor einiger Zeit eine Funktion geschrieben.
Vielleicht kanns ja wer brauchen.

BASCOM Source Code

'(
##############################################################################
#
# IsSummertime
#
# Gibt abhaengig von Datum (und Zeit) den Sommerzeit-Zustand zurueck
#
# HINWEIS:
# Diese Funktion arbeitet nur korrekt wenn das Datum
# zwischen 01.01.2000 und 31.12.2067 liegt!
#
# Mit der Variablen AppConfig(Config_Summertime) wird festgelegt ob die Funktion
# ausgefuehrt werden soll (0=nein, <>0=ja) dies ermoeglicht eine Konfigurationsabhaengige
# Ausfuehrung.
# In der Variablen RTC_SysSec wird die SysSec der RTC geführt.
#
# Der Bereich ist dem Umstand geschuldet, weil der BasCom-Befehl SysSec nur in diesem
# Bereich korrekt arbeitet!
#
# Parameter: KEINE
#
# Rueckgabe: Der Zeitstatus
# 0= Normalzeit, 1= Sommerzeit
#
##############################################################################
')
Function IsSummertime() As Byte
Dim fSec As Byte
Dim fMin As Byte
Dim fHour As Byte
Dim fDay As Byte
Dim fMonth As Byte
Dim fYear As Byte
Dim fD As Byte
Dim fM As Byte
Dim fDh As Byte
IsSummertime = 0
If AppConfig(Config_Summertime) <> 0 Then ' automatische SZ-Umschaltung
fSec = Time(RTC_SysSec)
fDay = Date(RTC_SysSec)
fD = fDay
fM = fMonth
Select Case fM
Case 1 To 2 ' Jan-Feb - NZ
IsSummertime = 0
Case 11 To 12 ' Nov-Dez - NZ
IsSummertime = 0
Case 4 To 9 ' Apr-Sep - SZ
IsSummertime = 1
Case 3 ' Mar - NZ-SZ?
For fDay = 25 To 31
fDh = DayOfWeek(fDay)
If fDh = 6 Then ' Tag = Sonntag
Exit For
End If
Next
If fD < fDay Then ' noch NZ
IsSummertime = 0
Else ' ist schon SZ?
If fD > fDay Then
IsSummertime = 1
Else
If fD = fDay And fHour >= 2 Then
IsSummertime = 1
Else
IsSummertime = 0
End If
End If
End If
Case 10 ' Okt ' SZ-NZ?
For fDay = 25 To 31
fDh = DayOfWeek(fDay)
If fDh = 6 Then ' Tag = Sonntag
Exit For
End If
Next
If fD < fDay Then ' noch SZ
IsSummertime = 1
Else ' ist schon NZ?
If fD > fDay Then
IsSummertime = 0
Else
If fD = fDay And fHour >= 3 Then
IsSummertime = 0
Else
IsSummertime = 1
End If
End If
End If
End Select
End If
End Function

Display All

tschoeatsch · Sep 27th 2021, 7:29am

Ich hab auch mal was verzapft: Sommer- und Normalzeitermittlung

Panik · Sep 27th 2021, 12:42pm

Vielen vielen Dank... ihr seid die Besten (Daumen hoch)
Jetzt habe ich reichlich Futter a_14_3ef964b0

Insanity · Oct 16th 2021, 7:05am

Hallo zusammen, hier mal ein kleines Update.
Mit Testprogramm für einen Wecker :sleeping:

Auch mit modifiziertem Gehäuse

Insanity · Oct 16th 2021, 7:06am

Hat was gefehlt

Rudi Einstein · Oct 16th 2021, 7:58am

Hallo Insanity,
In deiner Schaltung sollten die Controller-GND Pins direkt auf 0V gehen und nicht über 100nF.
Gruß Rudi

Insanity · Oct 16th 2021, 9:54am

Danke.

Im Layout habs ich richtig gemacht. Aktualisierter Plan anbei

Insanity · Oct 31st 2021, 5:47pm

Update
Hab die Sommer / Winter Umschaltung geändert.
Leichte Probleme mit China Anzeigen (Flackern leicht.)
Gehäuse geändert. Jetzt mit Plexiglas Filterscheibe. Ist klarer zu sehen.
Layout und Schaltplan geändert.

Insanity · Oct 31st 2021, 5:49pm

Hab den Schaltplan vergessen

Insanity · May 21st 2023, 11:50pm

Update mit kleinem Display VK16K33 Chip - 4x7 Segment
Kleine Programmänderung - China GPS-Empfänger gibt andere Zeilenkennung aus. Statt "$GPRMC" wird "$GNRMC" ausgegeben.

Schaltplan
Programm
STL Dateien

Filterscheibe rotes Plexiglas 26,5 x 54 x 1,5mm

Amatronik · May 23rd 2023, 6:19pm

Hallo zusammen,

falls der eine oder andere an einer Anzeige mit weiteren Informationen interessiert ist, kann ggf. das Konzept mit 3x HT16K33 aufgreifen (Uhrzeit-Datum-Wochentag/Status).

Die durchkontaktierte Leiterplatte kann für einen kompakten Aufbau im unteren Teil getrennt werden. Sowohl der Einsatz verfügbarer Fertigmodule sowie der Einsatz der SMD-Bauform wird unterstützt.

Im Moment erwarte ich die Lieferung von Adapterplatinen, mit denen für die Zeitdarstellung statt alternativer 7-Segment-Anzeigen mit seitlichen Anschlüssen andere mit oben/unten-liegenden Anschlüssen eingesetzt werden können.

Die Ansteuerung erfolgt per I²C-Bus und der Adressraum ermöglicht den Anschluss weiterer Decoder, so dass auch parallel die UTC-Zeit angezeigt werden könnte.

Mit geringen Anpassungen sollte der Anschluss an den vorgestellten GPS-Empfänger möglich sein, oder
Insanity?

20230427_122933.jpg 20230421_084528.jpg 20230430_073933.jpg

BASCOM Source Code

BASCOM Source Code

BASCOM Source Code

Similar Threads