PureBoard

NaN bzw. -1.#IND als Rückgabewert (double) ab einer gewissen Anzahl rekursiver Aufrufe + Addition:


Procedure.d AddNumber(x.d=0,n=0)
If n < 10
y.d = 2.0
Debug Str(n)+": int: "+Str(y)+" double:"+StrD(y)
ProcedureReturn x+AddNumber(y,n+1)
EndIf
EndProcedure

y.d = AddNumber()
Debug ...

Nach längerer Zeit hab ich mich mal wieder an PB gewagt und war begeistert was sich alles getan hat.

Ich bin auch auf die Möglichkeit gestoßen Variablen mit unterschiedlicher Struktur gemeinsam in einer Liste zu speichern.
Nun bin ich mir nicht sicher ob das so in Orndung ist oder ob sich das in ...

Hallo,

Touch Events, welche auf einem durch OpenWindowedScreen geöffneten Screen auf einem Fenster ablaufen, generieren
kein #WM_TOUCH event im Window Callback.

Gibt es eine Möglichkeit das zu ändern?

Ich habe das Fenster schon mit RegisterTouchWindow(.....) als Touch Fenster angemeldet

Vielen ...

Hallo,

hab einen etwas älteren Code gefunden, in welchem diese Codzeilen
!extrn _PB_DirectX_PrimaryBuffer
!extrn _PB_DirectX_BackBuffer
diesen Fehler liefern:

PureBasic - Linker error

POLINK: error: Unresolved external symbol '_PB_DirectX_BackBuffer'.
POLINK: error: Unresolved external symbol ...

ahhhh danke ts-soft, klaro, funtzt
@DarkDragon jup is utf8 und unicode eingestellt

Ich möchte eine XML Datei mit Umlauten auslesen, diese hier:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<verzeichnis>
<titel>Test Eintrag</titel>
<eintrag>
<stichwort>Genf</stichwort>
<eintragstext>Genf ist der Sitz von ...</eintragstext>
</eintrag>
<eintrag>
<stichwort>Köln ...

Hi,

im Moment hab ich folgendes Problem:
die PB-Funktion EventDropText() verursacht beim Aufruf eine Fehlermeldung ... allerdings nur wenn ich den Code im Unicode-Modus kompiliere, im "normalen" Modus funktioniert alles.
Hier ist mal ein Beispiel-Code mit EventDropText():


If OpenWindow(0,0,0,100 ...

Kategorien sind bereits für die Version 1.30 geplant...

@NicTheQuick
Da Ashampoo selbst keine Programmierer hat, die PureBasic können, blieb ihnen gar nichts anderes übrig als mich weiter am ClipFinder (bzw Iggels Videoplayer) arbeiten zu lassen :wink: (is u.U. auch ein riesiger Vorteil von PB :mrgreen:)
Aber auch so macht die Arbeit mit Ashampoo sehr ...

sprite = CatchSprite(#PB_Any,?sprite,#PB_Sprite_Texture|#PB_Sprite_AlphaBlending)
sprite3d = CreateSprite3D(#PB_Any,sprite)

StartDrawing(SpriteOutput(sprite))
Box(20,20,100,100,rgb(255,0,0))
StopDrawing()

Wenn dieses Sprite3d nun angezeigt wird ist an der stelle eines roten Rechtecks das Sprite ...