ZwanzichZwanzich...
Verfasst: 31.12.2019 18:16
Kommt gut rein!
Kommt gut rein!
Seite 1 von 1
Kommt gut rein!
Re: ZwanzichZwanzich...
Verfasst: 31.12.2019 19:46
Von mir ebenso beste Wünsche für das neue Jahr.
Guten Rutsch!
Guten Rutsch!
Re: ZwanzichZwanzich...
Verfasst: 31.12.2019 22:36
Guten Rutsch euch allen! Startet gut und unverletzt ins neue Jahr.
Re: ZwanzichZwanzich...
Verfasst: 31.12.2019 22:43
Auch von mir - guten Rutsch und alles Gute vor allem Gesundheit für das Neue Jahr 2020
Re: ZwanzichZwanzich...
Verfasst: 01.01.2020 01:18
Um diese Uhrzeit sag ich mal : Prost Neujahr 
Re: ZwanzichZwanzich...
Verfasst: 01.01.2020 02:47
Na dann 2020,
erstmal schön ruhig angehen, Lage peilen und dann mal sehen.
Auf ein gesundes und überraschungsfreudiges Jahr 2020.
erstmal schön ruhig angehen, Lage peilen und dann mal sehen.
Auf ein gesundes und überraschungsfreudiges Jahr 2020.
Re: ZwanzichZwanzich...
Verfasst: 01.01.2020 10:53
Ich wünsche ebenfalls ein Frohes Neues Jahr!
Re: ZwanzichZwanzich...
Verfasst: 07.01.2020 10:58
Wünsche auch ein frohes Neues.
Gute Vorsätze für 2020: Hier wieder öfters blicken lassen
Gute Vorsätze für 2020: Hier wieder öfters blicken lassen
Re: ZwanzichZwanzich...
Verfasst: 10.01.2020 14:30
anlassbezogenund etwas sinnentleert
Code: Alles auswählen
;2019 2020
Global Window_0
Global Canvas_0
Window_0 = OpenWindow(#PB_Any, x, y, 600,400, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
Canvas_0 = CanvasGadget(#PB_Any, 0, 0, 600, 400)
x=15
fid=FontID(LoadFont(#PB_Any, "", 24))
Repeat
bg=RGB(128,128,255)
StartDrawing(CanvasOutput(Canvas_0))
Box(0,0,600,400,bg)
DrawingMode(#PB_2DDrawing_Outlined)
Circle(263,136,90,#Black)
DrawingMode(#PB_2DDrawing_Default)
For i=400 To 100 Step -1
Box(299-i,0,200,299-i,bg)
Next i
Line(0,0,200,200,#Black)
If x<225:yc.f=x-17:Circle(x,yc,10):Circle(x+10,yc-5,5):ElseIf x<489:aa.f=50:dd.f=50:yc=170+Cos((x+dd)/aa)*(aa)
Circle(x,yc,10):Circle(x+5,yc-10,5):ElseIf x>=490:x=490:yc+2:Circle(x,yc,10):Circle(x,yc-15,5)
EndIf
x+1
If yc>400:x=1:EndIf
Box(500,0,100,400,#Black)
DrawingMode(#PB_2DDrawing_Outlined)
DrawingFont(fid)
DrawRotatedText(540, 20, "2", Random(5)-3 ,#White)
DrawRotatedText(540, 80, "0", Random(5)-3 ,#White)
DrawRotatedText(540, 140, "2", Random(5)-3 ,#White)
DrawRotatedText(540, 200, "0", Random(5)-3 ,#White)
StopDrawing()
Until WaitWindowEvent(1)=#PB_Event_CloseWindow
End