Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Demoprogramm: Einfache Berechnung für Ostersonntag Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 23.03.2024 18:36)
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini Station
' ===========================================================================
' Demoprogramm: Einfache Berechnung für Ostersonntag
' In OCBASIC 1.12a_e1 auf Open-Maxi von Dietmar Harlos am 23. März 2024
' ===========================================================================

' Die Formel stammt von der sehr guten Seite "Steuerung mit C-Control" von
' Manfred Wilzeck:

' http://manfred.wilzeck.de/

' --- Definitionen ----------------------------------------------------------

'INCLUDE "omac.def"               'Definitionen für Open-Macro
INCLUDE "omax.def"               'Definitionen für Open-Maxi

DIM a,b,c,e BYTE                 'temporäre Variablen

DIM tag,monat BYTE
DIM jahr WORD

' --- Hauptprogramm ---------------------------------------------------------

End2Host=ON    'Bei Programmende (siehe END) gleich in den Host-Modus wechseln

' Titel:

PRINT
PRINT "Einfache Berechnung für Ostersonntag"
PRINT "===================================="

' Jahr angeben:

jahr=2024 '2015

' Berechnung durchführen:

a=((jahr MOD 19)*19+24) MOD 30   ' (Jahr 4-stellig)
b=120+a-a/27                     ' mit Ergänzung für Jahre 1954, 1981, 2049 und 2076
c=(b+jahr*5/4-jahr/2100) MOD 7   ' mit Ergänzung gültig bis 2199
e=b-c                            ' e  Osterkennzahl (Easter), Bezugswert für alle beweglichen Feiertage
tag=1+(e MOD 31)                 ' Ostersonntag  (Datum Tag)
monat=e/31                       ' Ostermonat     (Monat)

' Ausgabe:

?"Ostersonntag ist am: ";tag;".";monat;".";jahr

?:?"Programmende."
END            'Zurück in den Hostmodus. Neustart mit RETURN-Taste.

' --- Programmende ---------------------------------------------------------


Passender Link: "Steuerung mit C-Control" von Manfred Wilzeck

Meine Homepage: http://ccintern.dharlos.de

 Antwort schreiben

Bisherige Antworten:

Re: Demoprogramm: Einfache Berechnung für Ostersonntag (von ManfredW - 28.03.2024 15:38)
    Re: Demoprogramm: Einfache Berechnung für Ostersonntag (von Dietmar - 28.03.2024 22:39)