XProfan

- Page 22 -

« this Posting watts as Solution marked. »

- Page 15 -

Jens-Arne
Reumschüssel

there's a new Version, The differently with the internen Messagehandling bypassing. Please probier The time from. Perhaps is the trouble so fixed.

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

09/24/22 ▲

Jens-Arne
Reumschüssel

nothing plainer as the:


declare numbers#,i%

pbPROC multiply(*numbers)
  protected i.i
  for i=0 to 999
    PokeL(*numbers+(i*4),PeekL(*numbers+(i*4))*6)
  next i
ENDPROC

cls
dim numbers#,1000*4
for i%,0,999
  long numbers#,(i%*4)=rnd(10000)+1
endfor 'i%
for i%,0,9 'the first ten Originalzahlen Show
  print @long(numbers#,i%*4)
endfor 'i%
multiply(numbers#)
print "--- with 6 multipliziert:"
for i%,0,9 'the first ten multiplizierten numbers Show
  print @long(numbers#,i%*4)
endfor 'i%
waitinput
dispose numbers#
end

Perhaps have I unhappy framed. it can naturally any erdenklichen "normalen" Variablentypen on a pbPROC transfer go, only not any of it over Shared. with "normal" my I, that Profan-Own Sondersachen How Hash-variables no direktes Pendant in PB and have therefore not übergreifend uses go can. but everything of integer over float, single, pointer etc. can naturally using. one must only whom Variablentyp in PB same dial. means for Float:


declare f!

pbPROC MultiplyFloat(*f)
  protected f.d ;muss .d for double his, ".f=float" in PB corresponds to "single" in XProfan
  f=PeekD(*f)
  f=f*6
  PokeD(*f,f)
ENDPROC

cls
f!=2.34561
MultiplyFloat(@addr(f!))
print f!
waitinput
end

vital to know is, that Parameter, The on a DLL-function transfer go, always very 4 Bytes having (the counts too for a potential Return Value!). the means, that one z.B. Integer-numbers directly transfer can, Float-numbers but not, because The having 8 Bytes. therefore must we in the last example with the address the Float-variables works and the Float-number in PB from it extract. Also can on these point whom Return Value directly in The XProfan-Variable write back, because one its address using.

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

05/11/23 ▲

funkheld

thanks for your Help.
I hope that I it now with 74 years soon begreife.

A request have I yet.
I have here Test with freebasic made , the very quick is and me fallen has from the
speed since.
can you Please The fbProc time umsetzen for PB so I times the Geschwingkeit see can of PB.

there here again variables transfer go from the fbProc .

thank you very much for your trouble.

 {$FBSYNTAX on}
declare dib&,array&,groesse&,hoehe&,ende&,bild&
DEF CreateDIB(2) !"dib","CreateDIB"
DEF FreeDIB(1) !"dib","FreeDIB"
DEF DrawDIB(4) !"dib","DrawDIB"
DEF CloneDIB(1) !"dib","CloneDIB"
dib&=usedll("dib.dll")
fbProc erzeugebildi(byval b As Integer, ByVal g As Integer) As Integer export
Dim Test As Integer
FOR Test = 0 TO g-100000 step 3
poke integer,Test+b,&h0000ff
next Test
return 0

endproc

array&=CreateDIB(700,700)
groesse&=700*700*3
hoehe&=700
Window 20,20-750,780
Cls RGB(255,255,255)
bild&= Long(array&,40)
erzeugebildi(bild&,groesse&)
DrawDIB(%hdc,10,10,array&)
WaitKey
FreeDIB(dib&)
End

05/11/23 ▲

Jens-Arne
Reumschüssel

I have The File "dib.dll" not, therefore can I not testing. but I have attempts, The fbPROCs in pbPROCs To translate:


pbProc erzeugebild(b.i,g.i)
   protected Test.i
   FOR Test = 0 TO g-100000 step 3
     pokeB(Test+b,$00)
     pokeB(Test+b+1,$00)
     pokeB(Test+b+2,$ff)
   next Test
   procedurereturn 0 
endproc

pbProc erzeugebildi(b.i,g.i)
  protected Test.i
  FOR Test = 0 TO g-100000 step 3
    pokeI(Test+b,$0000ff)
  next Test
  procedurereturn 0
endproc

and hey, clear understand You, the withal Your integrally a little bit vorgerückten Alters. others can with 74 only of it dream, itself yet with so complicated How abstrakten Things To keep busy.

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

05/11/23 ▲

funkheld

thanks the works wonderful.

now have so did i the return from the Values understood.

its faster as freebasic.

might one of PB from too Windows API with graphic release which then in Profan runs?

greeting

XProfan 11

funkheld

numbers of a area into others area not working.

take off a Error have I now Please made?

Thank you.
greeting

declare numbers#,i%
declare numbers1#,i1%
pbPROC multiply(*numbers,*numbers1)
protected i.i
for i=0 to 999
PokeL(*numbers1+(i*4),PeekL(*numbers+(i*4))*6)
next i

ENDPROC

cls
dim numbers#,1000*4
dim numbers1#,1000*4
for i%,0,999
long numbers#,(i%*4)=rnd(10000)+1
endfor'i%
for i%,0,9'the first ten Originalzahlen Show
print @long(numbers#,i%*4)
endfor'i%
multiply(numbers#,numbers1#)
print "--- with 6 multipliziert:"
for i%,0,9'the first ten multiplizierten numbers Show
print @long(numbers1#,1*4)
endfor'i%
waitinput
dispose numbers#
dispose numbers1#
end

Jens-Arne
Reumschüssel

you have with whom first ten multiplizierten numbers from slip 1 instead of i% written:

print @long(numbers1#,1*4)

it must hot:

print @long(numbers1#,i%*4)

These manner of Fehlern know I only too well...

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

Jens-Arne
Reumschüssel

> might one of PB from too Windows API with graphic release which then in Profan runs?

Yes, one can all kinds of windows-API-Aufrufe in PB using (simply a Unterstrich behind whom Funktionsnamen write, z.B. MessageBox_(...)). If one whom DC of XProfan-Window commit, can too hereon draw (The suitable XProfan-Systemvariable is standardmäßig ge-Shared and must not extra transfer go: %HDC).

One example:


pbPROC Painting()
  protected s$,r.RECT ;PB knows The API-Structures (in this drop RECT)
  s$="these one Text." ;kann (and must) Unicode his, because PB automatically The Unicode-Variante of DrawText using
  r\left=10
  r\top=10
  r\right=210
  r\bottom=30
  DrawText_(%HDC,@s$,-1,@r,#DT_LEFT) ;PB knows automatically The API-Konstanten (with vorangestelltem '#')
ENDPROC

cls
Painting()
waitinput
end

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

funkheld

thanks for your Help.

How see it Please of these command of PB from , naturally without this:
Open......
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow

If something new is, question I always plenty for a durchführbares Grundgerüst.

thanks for your Answer.

CreateImage(0, 200, 200) And StartDrawing(ImageOutput(0))
Box(0, 0, 200, 200, RGB(255, 255, 255))
For radius = 100 To 10 Step -10
Circle(100, 100, radius, RGB(Random(255), Random(255), Random(255)))
Next
StopDrawing()
ImageGadget(0, 0, 0, 200, 200, ImageID(0))

Jens-Arne
Reumschüssel

Events go in pbPROCs not functions, think I. this is Yes the interne Messagehandling of PureBasic in "richtigen" PureBasic-Programs. here benefit we but always only single Procedures, the Messagehandling undertaking XProfan.

I faith therefore not, that Gadgets within pbPROCs walk go. i'd there rather Controls directly over CreateWindow or. CreateWindowEx produce. whether The klicked go etc., You can then in the XProfan-SubclassProc inquire. and the can naturally too in a pbPROC detoured go, because one therein The Parameter on a such commit. this is for umfangreichere SubclassProcs even very To recommend, because these geschwindigkeitssensibel are. If a new Message ankommt, during The SubclassProc yet runs, can it Ärger give, because these then again called becomes, during tappt im dunkeln not yet exits is.

Nochmal differently framed: everything, what with the GUI To do has, would I in XProfan write. The Creation the Controls must Yes not superschnell weg, the get Profan very well there. Umfangreichere Berechnungen all manner are but in a pbPROC perfect aufgehoben. too the stuff z.B. one TreeViews or of/ one GridBOX can in a pbPROC very quick carryed out go (though not over The Gadget-functions, because it Yes no Gadget-number gives, separate unfortunately over The suitable, quite complicated windows-API-functions). but The request, whether the User on something clicked has, would I, How said, in XProfan write.

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

Jens-Arne
Reumschüssel

You can you through pressing of '#' in JRPC3 incidentally standing, How the code looks, the for PB-DLL created becomes (if The Erzeugung successful was - and if you XProfEd_JR using). there You can then well see, what a designed pbPROC really and is as items functions - or even neither functions. there recognize one then z.B. very beautiful, that with Shared übergebene XProfan-variables in PB as Pointer displayed go. this is too the reason, Why tappt im dunkeln z.B. not as Laufvariablen for FOR-creep taugen, even if one for a Integervariable using has.

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

Jens-Arne
Reumschüssel

What the Drawing-functions angeht, The You supra called have, white I in momentum not, whether the functions can or not. that depends, what "OutputID" with StartDrawing really is. If the one DC is, can there %HDC indicate and then might it walk. If the but a PB-interne ID is, becomes it difficult, fürchte I. If you API-functions uses, and the there Yes for all possible Grafikausgaben, becomes But functions.

whether the but so a large Geschwindigkeitsvorteil yields, white I do not right. XProfan using for Grafikausgabe end intern indeed The windows-API-functions.

one ought to not try, the half-way Program in pbPROCs To verlagern. separate its meaningfully, The mostly very few Passagen in a Program To identify, The really of a Geschwindigkeitsboost by a native function profit. The encamps one then from, everything else remaining XProfan.

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

funkheld

Hello, thanks for your Ausführliche Info.

greeting

XProfan 11