51. Stuttgarter Lazarustreffen

[Linkat]

Unser nächstes Treffen findet statt am:

Samstag den 11.04.2026 um 11:00 Uhr

im Technikforum in Backnang,

(freiwillige) Anmeldungen hier im Thread, oder mit PN.

Das Technikforum (71522 Backnang, Wilhelmstraße 32) hat direkt hinter dem Gebäude einen Parkplatz, liegt ca. 10 Gehminuten vom Bahnhof (S-Bahn Linie S3, Endbahnhof von Stuttgart bzw. Flughafen kommend) und 10 Gehminuten. von der Innenstadt.

Terminvorschlag für das Folgetreffen: 04. oder 11.07.2026

[corpsman]

*g*
Ich bin wieder mit von der Partie, hab ne Riesen Liste hoffentlich interessanter Themen für euch vorbereitet

[Linkat]

Ich schlage das Thema "Zeitumstellung" vor:

Seit einigen Jahren erfasse ich mit einem Raspberry Pi 1 minütlich (24/7) Temperaturdaten in Abhängigkeit der Tageszeit (now) meiner Heizung.
In der Vergangenheit musste ich an den 2 Tagen (pro Jahr) der Zeitumstellung mein Programm kurz stoppen und wieder starten, damit sich die Zeit an die (richtige) Betriebssystemzeit anpassen konnte.

Seit ca. 2 Jahren erfasse ich die Daten mit einem Python-Programm (oh!! Verrat). Hier (in Python) übernehme ich aus der Bibliothek schedule den Befehl

Code: Alles auswählen

schedule.every().minute.at(":30").do(job)

und starte jede Minute (um xx:30) den job, was hervorragend funktioniert und auch bei der Zeitumstellung keine Probleme macht.

Vor ein paar Monaten habe ich im https://pascalmagazin.de/ den Artikel vom 2.9.2025 "Probleme bei der Zeitumstellung" gefunden. Hier wird mit dem Befehl:

Code: Alles auswählen

ReReadLocalTime;

aus der Unit Unix gearbeitet.

Am nächsten Sonntag (29.03.16) haben wir ja wieder die Zeitumstellung. Vielleicht habt ihr ja Lust zum Experimentieren welche Möglichkeiten es zur Zeitbestimmung mit Freepascal gibt. Die Ergebnisse können wir bei unserem Treffen diskutieren.

Gruß, Linkat

[af0815]

Für die Daten UTC verwenden. Damit bist du beim Speichern einmal das Problem los. Beim Auswerten auf Local time umrechnen.

[corpsman]

@linkat
*g*

den ReReadLocalTime hatte ich auch entdeckt, auf meinem 24/7 Rechner läuft der nun im 1h Takt, da der wohl recht teuer sein soll. Meine Anwendung speichert nur Tageswerte, da bin ich dann zum Glück a bissl "rubuster". Aber danke für die Erinnerung, werde am Sonntag mal nachsehen obs tatsächlich geklappt hat

[Acia6850]

Hallo Linkat,

ich bin auch wieder dabei.

Ich habe für die Datum und Zeitsteuerung immer einen Sntp Client benützt.

Der wird einmal am Tag aufgerufen und synchronisiert die SystemZeit des Rechners.
Den ZeitZonenoffset habe ich mit <GetLocalTimeOffset> gemacht. (sollte auch unter Linux laufen)


Den Sommer und Winterzeit Tag kann man brechnen.

Ich habe es für Windows gemacht.

ich bringe ein Demo Programm mit.

Grüße

Acia6850

[Linkat]

@Acia6850
Das Problem ist nicht der fehlende NTP-Zugriff. Das laufende Programm bekommt nicht mit, dass die Zeit um eine Stunde verändert wurde. Deshalb: Programm Stop und Neustart. ReLoadLocaltime ist wohl eine Procedure, die das korrigiert. Da man ja nicht bei jeder Zeitabfrage die Procedure ausführen will, muss man sich schon ein paar Gedanken machen, wo man die ReLoadLocalTime-Procedure einfügt.

Übrigens den Test kann jeder (unabhängig von unserem Treffen) mal am Sonntag ausprobieren und hier im Forum (vielleicht in einem neuen Thread?) diskutieren.

Gruß, Linkat

[nummer8]

Auch ich bin wieder dabei.

Bis dan!

[willi4willi]

Ich werde auch wieder dabei sein. Wir sehen uns!

[h-elsner]

Ich glaube, dieses Mal spare ich mir den Vorkriegsdiesel noch etwas auf damit ich die Oma umher chauffieren kann ohne Haus und Hof verpfänden zu müssen.

[Linkat]

Push!!
Dass die Ankündigung wieder sichtbar wird.

[corpsman]

Schon wieder ists vorbei das Treffen und ich freue mich jetzt schon auf das nächste.

Neben der spannenden Diskussion zum Thema KI durfte ich noch die folgenden Themen vorstellen:

* mein Research Repository hat 2 neue Beiträge:
- Cache Compare, eine Analyse wie sich Speicher Allokationen auf die Cache Prefetching Algorithmen auswirken
- FPC and others, eine Analyse welche Faktoren sich auf die Ausführungsgeschwindigkeit von Programmen auswirken

* mein neues Education Repository, eine Ansammlung / Übersicht von Programmen die speziell für die Lehre / das Selbststudium entwickelt wurden

* Im Zuge der Diskussion GTK3 habe ich die notwendigen Schritte zur Portierung meiner OpenGL Legacy Anwendung PixelEditor nach OpenGL mit Shadern vorgestellt

[Linkat]

An dem Treffen nahmen 8 Personen teil.
In der Zeit von 11 - 18:30 Uhr wurden folgende Themen behandelt:

• Zeitumstellung
  Gtk3 Wayland
  KI Nutzung zum Programmieren
  NFC-Leser
  Icon Finder Silk
  Education Repos (s. o. @corpsman)
  Vortrag für Salamanca

nächster Termin vorraussichtlich am 11.07.2026

[Acia6850]

Hallo wie immer ein interessantes und informatives Lazarus-Treffen ich freue mich auf das nächste.

zur Zeitumstellung eine kleine Demo zur Berechnung des Sommerzeit oder Winterzeitumstellungs Tag.

Wenn die Umstellung nicht automatisch erfolgt kann die Uhrzeit im Code angepasst werden.

Code: Alles auswählen

program cSumWinTime;

{$mode objfpc}{$H+}

uses
  {$IFDEF LINUX}
  cthreads,
  {$ENDIF}
  Sysutils, Classes, DateUtils;

function WGetDayInWeekOfMonth(nYear, nMonth,
                              nWeekNo, nWeekDay: Word): TDateTime;

// ISO day numbers.
//  DayMonday    = 1;
//  DayTuesday   = 2;
//  DayWednesday = 3;
//  DayThursday  = 4;
//  DayFriday    = 5;
//  DaySaturday  = 6;
//  DaySunday    = 7;

//  Example xGetDayInWeekOfMonth(2023,5,1,DayTuesday); first Tuesday in May
//  Example xGetDayInWeekOfMonth(2023,6,5,DaySunday); last Sunday in June

Var
  dtDz  : TDateTime;
  dtRsp : TDateTime;

  nDoW  : Word;

Begin
  dtDz := StartOfAMonth(nYear, nMonth);

  nDoW := DayOfTheWeek(dtDz);
  if nDoW < nWeekDay then begin
    dtRsp := IncDay(dtDz, (nWeekDay - nDow) + (nWeekNo - 1) * 7);
    if MonthOf(dtRsp) > MonthOf(dtDz) Then
      dtRsp := IncDay(dtDz, (nWeekDay - nDow) + (nWeekNo - 2) * 7);
  end
  else begin
    dtRsp := IncDay(dtDz, (nWeekNo - 1) * 7 + (nDow - nWeekDay));
    if MonthOf(dtRsp) > MonthOf(dtDz) Then
      dtRsp := IncDay(dtDz, (nWeekNo - 2) * 7 + (nDow - nWeekDay));
  end;

  Result := dtRsp;
end;

procedure xRun;

const
  conLLen = 70;

Var
  dtNext   : TDateTime;
  dtLast   : TDateTime;

  sSummer  : AnsiString;
  sWinter  : AnsiString;
  sNextSum : AnsiString;
  sLastWin : AnsiString;

begin
  dtNext := IncYear(Now);
  dtLast := IncYear(Now, -1);

  sLastWin := FormatDateTime('ddd dd.mm.yyyy',
                WGetDayInWeekOfMonth(Yearof(dtLast), 10, 5, 7));  ;

  sSummer  := FormatDateTime('ddd dd.mm.yyyy',
                WGetDayInWeekOfMonth(Yearof(Now), 3, 5, 7));
  sWinter  := FormatDateTime('ddd dd.mm.yyyy',
                WGetDayInWeekOfMonth(Yearof(Now), 10, 5, 7));

  sNextSum := FormatDateTime('ddd dd.mm.yyyy',
                WGetDayInWeekOfMonth(Yearof(dtNext), 3, 5, 7));

  WriteLn(StringOfChar('-',conLLen));
  Writeln('Summer-Winter Time Demo 1000-2026.04.12');
  WriteLn(StringOfChar('-',conLLen));
  WriteLn(Format('Last  Wintertime (CET)  %d : %s 3:00 Uhr -> 2:00 Uhr', [Yearof(dtLast), sLastWin]));
  WriteLn(Format('Start Summertime (CEST) %d : %s 2:00 Uhr -> 3:00 Uhr', [Yearof(Now), sSummer]));
  WriteLn(Format('Start Wintertime (CET)  %d : %s 3:00 Uhr -> 2:00 Uhr', [Yearof(Now), sWinter]));
  WriteLn(Format('Next  Summertime (CEST) %d : %s 2:00 Uhr -> 3:00 Uhr', [Yearof(dtNext), sNextSum]));
  WriteLn(StringOfChar('-',conLLen));
  WriteLn(Format('Wintertime %d-%d : %s - %s (CET)',
            [Yearof(dtLast),Yearof(Now), sLastWin, sSummer]));
  WriteLn(Format('Summertime %d-%d : %s - %s (CEST)',
            [Yearof(now),Yearof(Now), sSummer, sWinter]));
  WriteLn(Format('Wintertime %d-%d : %s - %s (CET)',
            [Yearof(now),Yearof(dtNext), sWinter, sNextSum]));
  WriteLn(StringOfChar('-',conLLen));
  WriteLn('Utc DateTime   : ' + FormatDateTime('ddd dd.mm.yyyy hh:nn:ss', NowUTC));
  WriteLn('Now DateTime   : ' + FormatDateTime('ddd dd.mm.yyyy hh:nn:ss', Now));
  WriteLn('Utc TimeOffset : ' + IntToStr(GetLocalTimeOffset) + ' sec  <CET= -60/CEST= -120> sec');
  WriteLn(StringOfChar('-',conLLen));
end;

begin
  xRun;
end. 

[nummer8]

Wir sind sicher zu Hause angekommen.
Vielen Dank für das interessante Treffen.
Ich freue mich schon jetzt auf das nächste.

Viele Grüße,
Nummer8