Re: 10 Jahre PureBasic
Verfasst: 20.07.2010 14:42
Lasst mich raten: Letzter Abgabetermin ist der 22. Oktober? 
Seite 2 von 3
Re: 10 Jahre PureBasic
Verfasst: 20.07.2010 14:56
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.
Re: 10 Jahre PureBasic
Verfasst: 20.07.2010 15:00
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.
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.
Re: 10 Jahre PureBasic
Verfasst: 20.07.2010 17:54
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
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
Re: 10 Jahre PureBasic
Verfasst: 21.07.2010 13:19
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
Das Überbringen von Glückwünschen mit einem PB-Programm ist ja wirklich ne saugute Idee. Und mit den Regeln von Nick
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.NicTheQuick hat geschrieben:
- 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
Re: 10 Jahre PureBasic
Verfasst: 21.07.2010 14:38
ihr könnt aufhören .. hab schon gewonnen 
(ok ok ..das ding braucht die skinwinlib und entspricht damit nicht den anforderungen)
(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
Re: 10 Jahre PureBasic
Verfasst: 21.07.2010 15:51
Ha!bobobo hat geschrieben:ihr könnt aufhören .. hab schon gewonnen
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!
Re: 10 Jahre PureBasic
Verfasst: 21.07.2010 16:00
trotzdem gut .. damit kann man 5 (oder auch mehr) auf einmal fliegen lassen
Re: 10 Jahre PureBasic
Verfasst: 08.09.2010 17:31
Morgen ist es soweit ...
http://www.purebasic.fr/blog/?p=310
http://www.purebasic.fr/blog/?p=310
Re: 10 Jahre PureBasic
Verfasst: 09.09.2010 00:04
~ 
wünsche allen einen schönen Tag