PureBoard

Meine erste Version mit Farbe und versch. Zeichen hab ich in der Shoutbox der Purebasic-Lounge gepostet. Davon ist die etwas kleinere ohne Farbge entstanden, die ihr hier um die Größe zu drücken vergewaltigt

Wens interessiert, hier mein Original aus dem die ich dann später die gekürzte Version gemacht hab:

OpenConsole()
EnableGraphicalConsole(1)
Structure o
x.f
y.f
ox.f
oy.f
c.s{1}
cl.i
EndStructure
Global Dim p.o(25)
Define x.i, t.o
Procedure i(i)
p(i)\x = 38+Random(4)
p(i)\y = 10+Random(4 ...

Naja in der Beschreibung dieses Forums heißt es

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.

:P

Mir war grad langweilig also habe ich versucht mit so wenig Zeichen wie möglich Partikel mit Gravitation darzustellen.
Das Ergebnis ist etwas unkonventionell :D
OpenConsole():EnableGraphicalConsole(1):Structure o:x.f:y.f:e.f:f.f:EndStructure:Global a=25,b=10,Dim p.o(a):Macro i:p(x)\x=40:p(x)\y=b:p ...

...und dann landet der fremde Code 1:1 als 'eigenes Programm' auf der eigenen Homepage?
http://schabernack.de.ki/index.php?seit ... simspiegel

Was du suchst ist vermutlich eine rekursive Funktion zum durchsuchen von Verzeichnissen.


Global NewList Files.s()

Procedure Recursive_Search(sPath.s)
Protected iCurrDir.i, sName.s
iCurrDir = ExamineDirectory(#PB_Any, sPath.s, "*.*")
If iCurrDir
While NextDirectoryEntry(iCurrDir)
sName ...

Unter dem Beitrag, nicht ganz unten =/

Unten rechts ist ein "Edit" Button
Und danach schnell Passwort ändern und dann nen sicheres

Mist, war zu langsam :P


Define myImage = CreateImage(#PB_Any, 128, 128)
Define bmp.BITMAP

If IsImage(myImage)
GetObject_(ImageID(myImage),SizeOf(BITMAP),bmp)

*mem = AllocateMemory(bmp\bmBits)
CopyMemory(bmp\bmBits, *mem, bmp\bmWidthBytes * bmp\bmHeight)

; Dein bild ist jetzt in *mem ...

Ja ich weiß^^
Das ist mittlerweile nicht mehr so extrem, außerdem fehlt noch Reibung, momentan gibts nur pauschal nen gewissen Luftwiderstand