XProfan

- Página 17 -

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 15 -

Jens-Arne
Reumschüssel

Lo son una neue Versión, el anders con el internen Messagehandling umgeht. Bitte probier el veces de. Tal vez el problema así Fijo.

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

24.09.2022 ▲

RudiB.

Übrigens, Freebasic es incluso beim verarbeiten de String-Función ca. 35x más rápido como XProfan. Das hätte Yo no pensamiento, dafür es aber Freebasic largo no así komfortabel en Programación.

Saludo de München

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

29.09.2022 ▲

RudiB.

Sí, Su Ejemplo funktioniert....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

29.09.2022 ▲

Jens-Arne
Reumschüssel

Puedo no bestätigen, dass FreeBasic-Stringfunktionen más rápido wären como XProfan-Stringfunktionen, jedenfalls no para @upper$:


declarar i%,tc&,s$

fbPROC fbupper(ByRef s As ZString) As Integer Export
  s=ucase(s)
  volver 0
ENDPROC

cls

tc&=&GetTickCount
for i%,1,10000
  s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  s$=@upper$(s$)
endfor
imprimir "@upper$: "+@str$(&GetTickCount-tc&)

tc&=&GetTickCount
for i%,1,10000
  s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  @fbupper(@addr(s$))
endfor
imprimir "@fbupper: "+@str$(&GetTickCount-tc&)

waitinput
end

FreeBasic es deutlich langsamer, y zwar obwohl el Funktionsaufruf de JRPC3 encima call realisiert se y no encima external, y obwohl para el FreeBasic-Rutina no una vez neuer Speicherplatz reserviert voluntad muss, como para @upper$ el Fall es (porque hay s$ neu zugewiesen se).

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

30.09.2022 ▲

RudiB.

entonces teste veces así.....

declarar i%,tc&,s$
fbPROC fbupper(ByRef s As ZString) As Integer Export
DIM i as Integer
For i = 1 to 10000
s=ucase(s)
s=lcase(s)
Next i
volver 0

ENDPROC

cls
tc&=&GetTickCount
for i%,1,10000
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
s$=@upper$(s$)
endfor
imprimir "@upper$: "+@str$(&GetTickCount-tc&)
tc&=&GetTickCount
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
@fbupper(@addr(s$))
imprimir "@fbupper: "+@str$(&GetTickCount-tc&)
waitinput
end

incluso más rápido con Upper-Case y Lower-Case....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

RudiB.

más o menos, con gleichen Voraussetzungen (jeweils una Procedure aufrufen)

declarar i%,tc&,s$
'----- FreeBasic - Procedure ---------------
fbPROC fbupper(ByRef s As ZString) As Integer Export
s=ucase(s)
volver 0

ENDPROC

' ----- XProfan - Procedure -----------------

Proc Upper

s$=@upper$(s$)

ENDPROC

cls
tc&=&GetTickCount
for i%,1,10000
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
upper(@addr(s$))
endfor
imprimir "@upper$: "+@str$(&GetTickCount-tc&)
tc&=&GetTickCount
for i%,1,10000
s$="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
@fbupper(@addr(s$))
endfor
imprimir "@fbupper: "+@str$(&GetTickCount-tc&)
waitinput
end

hier es el Vorteil zwar no mehr bastante así groß, aber trotzdem más rápido

Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

¡Hola Rudi,

darüber Tuve auch ya nachgedacht. Offenbar es el Aufruf uno Procedimiento con así viel Registergeschiebe u.ä. verbunden, dass el bastante schön largo dauert. In el Praxis lohnt lo por lo tanto no, una FB-Función para el Stringfunktionen a escribir, el una continuación en el Profano-Programa nutzen sería. Aber innerhalb uno fbProc puede ser el Geschwindigkeitsvorteil, el offenbar doch existiert, natürlich ausspielen.

Saludo, Jens-Arne

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

RudiB.

Usted sprichst gerade el FB-Características a. ¿Por qué se el eigentlich no de JRPC3 erkannt, hast Usted el no implementiert ?

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

Yo meinte así FreeBasic-Procs (fbProcs). El voluntad doch hoffentlich de JRPC3 erkannt. Yo habe darauf angespielt, dass offenbar jedweder Funktionsaufruf con muy viel Overhead geschieht, el Tiempo kostet. Ansonsten verstehe Yo el Cuestión no bastante, erläutere me ellos Por favor, todavía una vez (hast Usted con "FB-Funktion" de otra manera gemeint como Yo?).

Und unser kleines Ejemplo Todavía una vez algo verfeinert. Denn en wirklich Gerechtigkeit herzustellen, muss auch el Profano-Función con call aufgerufen y ser außerdem una Parámetro haben (auch si la vorliegend nichts tut):


declarar i%,tc&,s$,funcaddr%

fbPROC fbupper(ByRef s As ZString) As Integer Export
  s=ucase(s)
  volver 0
ENDPROC

PROC upper
  parámetros dummy%
  s$=@upper$(s$)
ENDPROC

cls
funcaddr%=@procaddr("upper",1)

tc&:=&GetTickCount
for i%,1,10000
  s$:="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  call(funcaddr%,@addr(s$))
endfor
imprimir "@upper$: "+@str$(&GetTickCount-tc&)

tc&:=&GetTickCount
for i%,1,10000
  s$:="asdjhaskdjhaskjdhkajshdkjhaksjdhkjahö+12"
  @fbupper(@addr(s$))
endfor
imprimir "@fbupper: "+@str$(&GetTickCount-tc&)

waitinput
end

Jetzt son beide Varianten fast igual rápidamente (kompiliert) con siempre todavía una pequeño Vorteil en FreeBasic.

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

RudiB.

¡Hola Jens-Arne,

....alles bien. El fbProcs voluntad natürlich sauber erkannt y verarbeitet. Yo meinte Freebasic-Características. Posesiones doch dazu el Expediente "datei_fb_test.prf" hochgeladen. Diese hast Usted entonces auch umgeschrieben a uno fbProc.
Como ya he dicho bajo Freebasic gibst sí Sub´s y Características....

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

Se puede schlicht no direkt en FreeBasic programa, also auch no direkt Características de hay aufrufen, porque el Profano-Compiler esta Características no direkt en ser Programa einbauen kann. Um ellos a nutzen, muss siempre una DLL producido voluntad, en el naturgemäß Características (Procs) posición, el una continuación de außen aufrufen kann, en el en él enthaltenen nativen FreeBasic-Code a nutzen. Es no sin el Umweg una DLL-Función. Das macht auch el XProfan-Inline-Ensamblador así, el XPSE-Inline-Ensamblador y XPSE-nPROCs ebenfalls.

EDIT: Tal vez todavía una vez anders herum erklärt: Um FreeBasic-Code a erzeugen, muss el FreeBasic-Compiler verwendet voluntad. Es natürlich no "plötzlich" innerhalb uno Profano-Programms. Durch el Nutzung de DLL-Características es el FreeBasic-Code hingegen derart abgegrenzt, dass el FreeBasic-Compiler el vorgesetzt bekommt, qué para ihn pensamiento es, y Profano-Compiler seinen Anteil.

XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de

RudiB.

¡Hola Jens-Arne,

Gracias para Su Antwort......verstehe....uno puede todo en efecto con Sub´s lösen. Aber bien a wissen.
Yo möchte mein Programa ahora con fbProcs optimieren, como lo me simplemente a langsam es.....

Saludo Rudi

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

Jens-Arne
Reumschüssel

Exactamente dafür son fbProcs como. Das lohnt se aber sólo en Programmpassagen, el viel rechnen oder bastante oft aufgerufen voluntad, etwa en uno großen Bucle. Z.B. es una extremo gute Concepto, el Subclassproc después de FreeBasic a verlagern, si la länger como unos pocos Zeilen es. Wenn uno en él bspw. OwnerDraw-Elemente versorgt, entonces el en Profano oft a langsam. Ein Ejemplo dafür wären farbige Elemente en Gridboxen.

XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de