10 Jahre PureBasic

[jojo1541]

Lasst mich raten: Letzter Abgabetermin ist der 22. Oktober?

[rolaf]

Ach du Schreck, Geburtstag. Was schenken wir Fred denn? Ich denke der braucht was gutes zu Essen, sieht halt auf den Bildern ziemlich schmal aus. So nen schönen Schwarzwälder Schinken als Wegzehrung bei Programmieren z.B.

[NicTheQuick]

Da würde er sich wohl mehr über das Benutzen des PayPal-Buttons freuen.

Abgabetermin sollte vielleicht eher der 21.Oktober sein. Dann kann sich irgendein selbst bereit erklärtes Mitglied an die Aufbereitung der Einsendungen zur Bewertung machen.

[Vera]

Eine prima Idee

Wir machen einem Geburtstagsthread, wo jeder (gemäß seiner Talente) einen Geschenkbeitrag abgeben kann.

Und zur Bewertung von 'Geschenken' könnte man sich vielleicht eher ein paar ungewöhnliche Kategorie ausdenken, wie 'Die kleinste Quersumme aller verwendeten ungraden Zahlen' - 'Die größte C(d)PU- Belastung' - ''Der überraschenste Beitrag ....

cheers ~ Vera

[Lebostein]

Ist das jetzt alles nur Ironie oder ernst gemeinte Überlegungen?

Das Überbringen von Glückwünschen mit einem PB-Programm ist ja wirklich ne saugute Idee. Und mit den Regeln von Nick

• Keine Betriebssystem-spezifischen APIs oder Bibliotheken
• Nur PB-Befehle, die auf allen Betriebssystemen laufen
• Das Thema Geburtstag sollte irgendwie mit einfließen, dabei können es die 10 Jahre sein, das Datum 22.Oktober, oder ähnliches
• Externe Ressourcen sind ausdrücklich erlaubt. Darunter fallen Grafiken, Sounds, 3D-Modelle (?), und eben alles nicht Betriebssystemabhängige

wäre ich 100%-ig einverstanden, Zusatz: Quellcode muss enthalten sein (schließlich wollen wir ja was dabei lernen). Aber Glückwünsche zu bewerten finde ich dann doch etwas eigenartig. Schließlich meint es ja jeder gut, der sich beteiligt. Aber andererseits wäre bei einem Wettbewerb der Anreiz größer, mitzumachen und genügend Leute zu mobilisieren. Das mit den außergewöhnlichen Kategorien ist diesbezüglich ne gute Idee. Schließlich kommt es beim "witzigsten Glückwunsch" (beispielsweise) nicht auf die Programmierkenntnisse an.

[bobobo]

ihr könnt aufhören .. hab schon gewonnen
(ok ok ..das ding braucht die skinwinlib und entspricht damit nicht den anforderungen)

Code: Alles auswählen

ExamineDesktops()
dw=DesktopWidth(0)
dh=DesktopHeight(0)
bx=dw/5
by=dh/2
Structure ballon
  i.l
  y.l
EndStructure
NewList ballon.ballon()
For i=1 To 5
  AddElement(ballon())
  ballon()\i=i
  Debug ballon()\i
  CreateImage(ballon()\i,bx,by)
  StartDrawing(ImageOutput(ballon()\i))
    Box(0,0,bx,by,#Magenta)
    DrawingMode(#PB_2DDrawing_Gradient)
    Select i
    Case 1
      BackColor(#Red)
    Case 2
      BackColor(#Green)
    Case 3
      BackColor(#Yellow)
    Case 4
      BackColor(#Cyan)
    Case 5
      BackColor(#Blue)
    EndSelect
    FrontColor(#Black)
    EllipticalGradient(bx/5,by/10,bx,by)
    Ellipse(bx/2,by/3,bx/2-2,by/3,RGB(255,0,0))
    Circle(bx/2,by/3+by/3+10,10,#Red)
    DrawingMode(#PB_2DDrawing_Default)
    DrawingMode(#PB_2DDrawing_Transparent)
    Line(bx/2,by/3+by/3+20,1,40,#Black)
  StopDrawing()
  ballon()\y=dh
  OpenWindow(ballon()\i,Random(dw)-(bx/3),ballon()\y,bx+10,by,"b",#PB_Window_Invisible)
  SmartWindowRefresh(ballon()\i,1)
  ShowTitlebar(WindowID(ballon()\i),0)
  StickyWindow(ballon()\i,1)
  SkinWin(WindowID(ballon()\i),ImageID(ballon()\i))
  HideWindow(ballon()\i,0)
Next i
ForEach ballon()
  ballon()\y=dh+Random(dh/5)
Next
Repeat
  ForEach ballon()
    ballon()\y-1
    Debug Str(ballon()\i)+" "+Str(ballon()\y)
    If ballon()\y <  by*-1
      CloseWindow(ballon()\i)
      DeleteElement(ballon())
    Else
    Debug ballon()\y
    ResizeWindow(ballon()\i,#PB_Ignore,ballon()\y,#PB_Ignore,#PB_Ignore)
  EndIf
  Next
Until ListSize(ballon())=0
End

[Lebostein]

ihr könnt aufhören .. hab schon gewonnen

Ha! Ungültig!

Die Farbkonstanten #Blue, #Green usw. sind Windows-API (oder wurden in der Mac-Version vergessen) und die Befehl SmartWindowRefresh(), ShowTitlebar() und SkinWin() sind scheinbar nur unter Windows verfügbar... Schade. PS: Jetzt erst lese ich dein Kleingedrucktes!

[bobobo]

trotzdem gut .. damit kann man 5 (oder auch mehr) auf einmal fliegen lassen

[DarkDragon]

Morgen ist es soweit ...
http://www.purebasic.fr/blog/?p=310

[Vera]

~

wünsche allen einen schönen Tag