Kalender zum Ausdrucken
- 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
Zuletzt geändert von Hans-Gerhard Ulrich am 10.10.2021 12:37, insgesamt 1-mal geändert.
Re: Kalenders zum Ausdrucken
Kann leider nicht darauf zugreifen weil MS zu viele Informationen bekommt.
Re: Kalenders zum Ausdrucken
@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
-
- 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
@Hans-Gerhard Ulrich:
Das
Ist aus meinem Beitrag "Spielereien mit Datumsberechnungen".
Ein Hinweis auf die Quelle wäre nett gewesen.
Im übrigen könnte dein Code mit "Gosub" und den vielen "Goto" auf einem C16 oder C64 laufen...
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.
Das
hast du von mir- gibs zuMacro 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
Ist aus meinem Beitrag "Spielereien mit Datumsberechnungen".
Ein Hinweis auf die Quelle wäre nett gewesen.
Im übrigen könnte dein Code mit "Gosub" und den vielen "Goto" auf einem C16 oder C64 laufen...
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
- 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
ja ich habe deinen Code gebraucht, ich wusste aber nicht mehr woher ich in hatte, noch mal vielen Dank.
Hast du mit meinem Kalender Programm Gedruckt, und wie findest du mein Programm ?
ich wuerde mich freuen wenn wir in kontakt bleiben wuerden !!!
Ich koente noch viel von dir Lernen.
Hast du mit meinem Kalender Programm Gedruckt, und wie findest du mein Programm ?
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.
- 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
dein Urlaubsplaner ist super !!!
-
- 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
Danke für das Lob
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.
formerly known as bizzl
- 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
@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.
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.
-
- 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
Was meinst du mit Maussteuerung ?
Welches Rechteck ?
Einen Rahmen zeichnen geht so:
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
- 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
@Berie:
Danke fuer den Code, er geht gut.
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.
Danke fuer den Code, er geht gut.
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.
Zuletzt geändert von Hans-Gerhard Ulrich am 10.10.2021 12:36, insgesamt 1-mal geändert.