Kalender zum Ausdrucken

Anwendungen, Tools, Userlibs und anderes nützliches.
Benutzeravatar
Hans-Gerhard Ulrich
Beiträge: 24
Registriert: 13.08.2021 22:50
Computerausstattung: 1 Computer win 11 Pro.
1 Computer win 11 Pro.
1 Computer win 11 Home
PB 5.73
Wohnort: Saarbruecken St. Nikolaus

Re: Kalender zum Ausdrucken

Beitrag von Hans-Gerhard Ulrich »

Zuletzt geändert von Hans-Gerhard Ulrich am 10.10.2021 12:37, insgesamt 1-mal geändert.
Benutzeravatar
Mijikai
Beiträge: 754
Registriert: 25.09.2016 01:42

Re: Kalenders zum Ausdrucken

Beitrag von Mijikai »

Kann leider nicht darauf zugreifen weil MS zu viele Informationen bekommt.
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: Kalenders zum Ausdrucken

Beitrag von Kiffi »

@Hans-Gerhard Ulrich: ich schreib es ungern, aber Dein Code ist ziemlicher Murks. Ist Dein erstes Werk, oder? Ich denke mal, dass wenn Du gewillt bist zu lernen, Du vielleicht den ein oder anderen hilfsbereiten Menschen finden wirst, der mit Dir gemeinsam daraus etwas Brauchbares machen kann.
Hygge
berie
Beiträge: 75
Registriert: 17.01.2018 08:52
Computerausstattung: Windows 11 64 bit, i7, 16GB RAM
Wohnort: Wesertal in Nordhessen

Re: Kalenders zum Ausdrucken

Beitrag von berie »

@Hans-Gerhard Ulrich:
Das
Macro Divide(Formel,by,q,r)
q=(Formel)/by
r=(Formel)%by
EndMacro

Procedure Osterdatum(jahr.i)
Protected.i a,b,c,d,e,f,g,h,i,k,l,m,n,o
Protected dummy.i ; wenn "Quotient" oder "Remainder" nicht benötigt werden
Divide(jahr,19,dummy,a)
Divide(jahr,100,b,c)
Divide(b,4,d,e)
Divide(b+8,25,f,dummy)
Divide(b-f+1,3,g,dummy)
Divide(19*a+b-d-g+15,30,dummy,h)
Divide(c,4,i,k)
Divide(32+2*e+2*i-h-k,7,dummy,l)
Divide(a+11*h+22*l,451,m,dummy)
Divide(h+l-7*m+114,31,n,o)
tag=o+1
monat=n
EndProcedure
hast du von mir- gibs zu :D
Ist aus meinem Beitrag "Spielereien mit Datumsberechnungen".

Ein Hinweis auf die Quelle wäre nett gewesen. :cry:

Im übrigen könnte dein Code mit "Gosub" und den vielen "Goto" auf einem C16 oder C64 laufen... :shock:

Sieh dir mal "Procedure"-"End Procedure" in der PB-Hilfe an.


Wenn du schon kopierst - das darfst du aus den Codes in "Spielereien mit Datumsberechnungen" herzlich gerne machen, dann kannst du auch meine Funktion "Schaltjahr()" nutzen:

Procedure Schaltjahr(j)
Protected s
If j%4=0:s=1:EndIf ;jahr durch 4 teilbar ? Dann Schaltjahr
If j%100=0:s=0:EndIf ;durch 100 teilbar ? Dann doch nicht
If j%400=0:s=1:EndIf ;durch 400 teilbar ? Dann doch wieder
ProcedureReturn s
EndProcedure


Oder kürzer und knackiger:
TageImMonat(2)=28+Bool((Bool(Jahr%4=0) And Bool(Jahr%100<>0)) Or Bool(Jahr%400=0))

Die TageImMonat liegen als Array vor: 31,0,31,30,31 u.s.w
TageImMonat(1)=31 ;Januar
TageImMonat(2)=0 ;Februar - siehe Formel oben
TageImMonat(3)=31 ;März
TageImMonat(4)=30 ;April
u.s.w.

Gruß aus Nordhessen
berie

P.S. Sieh dir mal meinen Beitrag <Mein Programm "Urlaubsplaner"> an: viewtopic.php?p=360307#p360307
Ist längst nicht perfekt - es fehlen noch einige Features - (man kann aber den Jahreskalender drucken).
Vielleicht möchtest du ja mal drüberschauen - du bist herzlich eingeladen.
formerly known as bizzl
Benutzeravatar
Hans-Gerhard Ulrich
Beiträge: 24
Registriert: 13.08.2021 22:50
Computerausstattung: 1 Computer win 11 Pro.
1 Computer win 11 Pro.
1 Computer win 11 Home
PB 5.73
Wohnort: Saarbruecken St. Nikolaus

Re: Kalender zum Ausdrucken

Beitrag von Hans-Gerhard Ulrich »

ja ich habe deinen Code gebraucht, ich wusste aber nicht mehr woher ich in hatte, noch mal vielen Dank. :praise:

Hast du mit meinem Kalender Programm Gedruckt, und wie findest du mein Programm ? :bluescreen:

ich wuerde mich freuen wenn wir in kontakt bleiben wuerden !!!

Ich koente noch viel von dir Lernen.
Zuletzt geändert von Hans-Gerhard Ulrich am 10.10.2021 12:35, insgesamt 1-mal geändert.
Benutzeravatar
Hans-Gerhard Ulrich
Beiträge: 24
Registriert: 13.08.2021 22:50
Computerausstattung: 1 Computer win 11 Pro.
1 Computer win 11 Pro.
1 Computer win 11 Home
PB 5.73
Wohnort: Saarbruecken St. Nikolaus

Re: Kalenders zum Ausdrucken

Beitrag von Hans-Gerhard Ulrich »

dein Urlaubsplaner ist super !!!
berie
Beiträge: 75
Registriert: 17.01.2018 08:52
Computerausstattung: Windows 11 64 bit, i7, 16GB RAM
Wohnort: Wesertal in Nordhessen

Re: Kalenders zum Ausdrucken

Beitrag von berie »

Hans-Gerhard Ulrich hat geschrieben: 20.08.2021 23:13 dein Urlaubsplaner ist super !!!
Danke für das Lob :D :D :D

Wir können sehr gerne in Kontakt bleiben und evtl. voneinander lernen.

In deinem Programm ist mir ein Fehler aufgefallen - ich habe 1964 drucken wollen (das ist mein Geburtsjahr) - da ist der Tag der Einheit am 3.Oktober,
der ist aber vor 1990 am 17.Juni.

Den Quelltext meines "Urlaubsplaner" kann ich dir nicht zur Verfügung stellen (evtl. auszugsweise), da ich immer noch mit dem Gedanken spiele damit Geld zu verdienen.

Ich habe vor einigen Jahren ein paar Programme geschriebem, die sich mit Kalendern beschäftigen:
"Wochentag.pb" - Berechnet den Wochentag des eingegebenen Datums
"Feiertage.pb" - Berechnet die Feiertage eines eingegebenen Jahres
"Osterdatum.pb" - Berechnet das Osterdatum des eingegebenen Jahres
Die Programme habe ich zum Teil in "Spielereien mit Datumsberechnungen" gepostet.

Hier sind die Programme zusammengefasst: viewtopic.php?p=348193#p348193

Aus diesen Programmen ist (aus Langeweile) der Urlaubsplaner entstanden, der ist aber noch ausbaufähig. :oops:
formerly known as bizzl
Benutzeravatar
Hans-Gerhard Ulrich
Beiträge: 24
Registriert: 13.08.2021 22:50
Computerausstattung: 1 Computer win 11 Pro.
1 Computer win 11 Pro.
1 Computer win 11 Home
PB 5.73
Wohnort: Saarbruecken St. Nikolaus

Re: Kalender zum Ausdrucken

Beitrag von Hans-Gerhard Ulrich »

@Berie:
Ich habe eine bitte an dich, kannst du mir Code von der Mouse Steuerrung schicken fuer mein Programm ?
Und vieleicht den Code fuer ein Rechteck Ramen auf zu Rufen.
Zuletzt geändert von Hans-Gerhard Ulrich am 10.10.2021 12:35, insgesamt 1-mal geändert.
berie
Beiträge: 75
Registriert: 17.01.2018 08:52
Computerausstattung: Windows 11 64 bit, i7, 16GB RAM
Wohnort: Wesertal in Nordhessen

Re: Kalenders zum Ausdrucken

Beitrag von berie »

Was meinst du mit Maussteuerung ?
Welches Rechteck ?
Einen Rahmen zeichnen geht so:

Code: Alles auswählen

If StartDrawing(Ausgabekanal) ; ScreenOutput(), WindowOutput() ...
  DrawingMode(#PB_2DDrawing_Outlined)	
  Box(x,y,b,h,Farbe) ;x,y:Koordinaten, b,h:Breite und Höhe
  StopDrawing()
EndIf
formerly known as bizzl
Benutzeravatar
Hans-Gerhard Ulrich
Beiträge: 24
Registriert: 13.08.2021 22:50
Computerausstattung: 1 Computer win 11 Pro.
1 Computer win 11 Pro.
1 Computer win 11 Home
PB 5.73
Wohnort: Saarbruecken St. Nikolaus

Re: Kalender zum Ausdrucken

Beitrag von Hans-Gerhard Ulrich »

@Berie:
Danke fuer den Code, er geht gut. :D

Mit Mouse steuerung meine ich, wenn ich eine Box mache, das ich dann mit der Mouse auf die box klicken kann, und dann was geht.

Deshalb brauche ich den Code fuer die Mouse. :bounce:
Zuletzt geändert von Hans-Gerhard Ulrich am 10.10.2021 12:36, insgesamt 1-mal geändert.
Antworten