SDK-aide/ Tools | | | | - Page 1 - |
|  Jens-Arne Reumschüssel | good evening together,
i'm recent over the trouble stumbled, that XPSE a quite large Quelldatei of I do not More process could. variables get suddenly as not definiert gemeldet and others "erratische" Problems More. I could me present, that this on it lying, that XPSE Keywords in windows-Atoms manages. there's sometime Schluss (with something between 60.000 and 70.000 Piece, where one deliberating must, that XPSE The windows-API with vorhält). Perhaps is But something integrally other, I can Yes not whom "Maschinenraum" of XPSE look.
anyway stayed me, there XPSE not any more taken care of becomes, nothing other spare, as the nachzubauen. the Result is JRPC3.
----- Features:
*reasonable Message of Fehlern *direct display the Programmablaufes in XProfEd (sofern the under erhältliche aufgebohrte XProfEd is used) *Umsetzung the middle-aged Profan-Syntax for Operators and old Containerfunktionen *extreme speedy native fbPROCs, sofern one FreeBasic installs has (free, see Help) *with fbPROCs can additionally Inline-Assembler too to XProfan X4 realized go *extreme speedy native pbPROCs, sofern one PureBasic installs has *Echtzeitverfolgung of Variableninhalten *simple Zeitmessungen in the Programmablauf *Profan-Kompilerdirektiven functions finally sensible (z.B. Verschachtelung) *eingebettete variables functions too with Arrays *most WIN32-API-functions are already vordefiniert included *API-Aufrufe over @external(...) go automatically in @call(...)-Aufrufe umgesetzt *Einrückungsanalyse to that find of vertrackten Verschachtelungsfehlern *Klammeranalyse to that find of vertrackten Klammerfehlern *ENUMERATE-Funktionalität *Assert to Fehlerkontrolle *it can arbitrary DLLs into XProfan-EXE integrate go, so tappt im dunkeln not delivered go must (see {$WrapDll}) *simple Killen Pixel JRPC3 launched Programs (interprets, .prc launched, .exe launched) *extreme quick (and therefore naturally not XProfan written, there a interpretierte Language this natural plenty too slow is) *at Start of JRPC3 already available .prc-Files can to that started and left used go (it'll one Info displayed, that it itself for a altes Compilations deals) *the Profan-Compiler can to Beschleunigung with high Prozessorpriorität called go *eingebauter Update-Checker with Download, if it one Update gives (Help --> online to Updates search) *64- or 32-bit-Version available (simply JRPC3_64.exe or JRPC_32.exe as Interpreter in XProfEd deposit [Options --> general Settings] and JRPC3 with F7 started) - deference, The 64-bit-Version created naturally no 64-bit-XProfan-programs, there XProfan the not can, separate JRPC3 self becomes as 64-bit-Program carryed out *XProfan X4-Syntax available (möglicherweise not yet everything, I presumably not everything of it use, but I have me circa Vollständigkeit ready - anyway are z.B. HASH-Arrays and QUADINTs thereby) *Interpreter, PRCs and EXEs can with Kommandozeilenparametern carryed out go *Interpreter, PRCs, EXEs and XPSE can with Administratorrechten carryed out go *Procedures, The in the actually Program of course include are, but not uses go, go from the umgesetzten File removes, around the Filesize the Kompilats possible small To hold *variables, The in the actually Program of course include are, but not uses go, go from the umgesetzten File removes, around the Filesize the Kompilats possible small To hold and the Speicherverbrauch To optimize *nPROCs from XPSE go automatically with XPE to a DLL umgesetzt and the Aufrufe the nPROCs in the program properly adjusted, sofern XPSE present is *almost everything from XPSE functions too in JRPC3 ({$NOERR}, {$(PRE)BATCH}, {$PUSHKEYWORD}, Interpreter, Runtime and compiler determine, Shorties, ...) *XProfEd_JR with View source-AutoComplete *XProfEd_JR with View source-Memory-function (Markierungen, To them zurückgesprungen go can)
Einschränkungen: -no XPSE-Inline-Assembler, well but XProfan-Inline-Assembler (therein though no tests on Korrektheit the Codes) -ABER: one can XPSE from JRPC3 out Call, so these Funktionalität furthermore available is, sofern one XPSE own (new Shorty: {$x}) -variables, The in a procedure not declared are, separate "aus the aufrufenden procedure übernommen werden", are standardmäßig not registered (XProfan allows the, but such a thing is just as mortal How GOTO-instructions). Please any To nutzenden Inputs as Parameter transfer, and if something from the aufrufenden Programmteil changed go must, when calling as Parameter z.B. @addr(x&) use and the procedure parameters x# and LONG x#,0=y& benefit. If one but absolutely "vererbte" variables benefit would like, can this with the Kompilerdirektive {$Declare...} do.
*as Hommage on XPSE sounds The Endung the Ausgabedatei ".enh3"
an genauere explanation the individual Features is the chm-Helpfile To entnehmen, The in the program under Help --> Helpfile Show or with F1 available is.
----- /Features
Download and install: JRPC3 can under Downloaded go (setup_jrpc3.exe or as ZIP-File). as Installationsverzeichnis Please the XProfan-Stammverzeichnis indicate, means the one, in the The Files PROFAN.EXE, PROFCOMP.EXE, PRFRUN32.EXE etc. lying. alternatively can The ZIP-File Downloaded and its Content manually in that XProfan-Stammverzeichnis copies go.
facility: JRPC3_64.exe or JRPC_32.exe as Interpreter in XProfEd deposit [Options --> general Settings] and JRPC3 with F7 started.
any command are with the commands "h" How "Hilfe" abrufbar and should selbsterklärend his.
for many erweitere Features, The XProfEd concern, How z.B. jenes, The row, in the one Error auftrat, directly in XProfEd Show to, is the mitinstallierte XProfEd_JR necessary. For this must one means XProfEd_JR.exe instead of XProfEd.exe as editor using. as "goody" there moreover, that at On- and Zufalten of Programs one Fortschrittsanzeiger integrate is (the can with large Programs Yes known a little bit last).
it likes his, that not yet everything perfect functions. I Please this circa clemency. my programs can umsetzen, but the must yet long not hot, that this with Programs another Authors, The eachone so your Eigenheiten having, too functions.
Fehlermeldungen and Verbesserungsvorschläge gladly on jreumsc@web.de or here in the Forum.
best Regards, Jens-Arne |
 | 2.663 kB | | Bezeichnung: | JRPC3 | | Version: | 10.35 | | Kurzbeschreibung: | JRPC3-Installer | | Hochgeladen: | 02/15/21 | | Downloadcounter: |  | | | Download | | | | 1.699 kB | | Bezeichnung: | XProfEd_JR | | Version: | 5.2 | | Kurzbeschreibung: | old Version without AutoComplete to safety | | Hochgeladen: | 02/15/21 | | Downloadcounter: |  | | | Download | | | | 4.061 kB | | Bezeichnung: | JRPC3 | | Version: | 10.35 | | Kurzbeschreibung: | ZIP-File instead of Installer | | Hochgeladen: | 04/02/21 | | Downloadcounter: |  | | | Download |
| | | XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 02/16/21 ▲ |
| |
| | | | - Page 20 - |
|  | « 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 X4XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 09/24/22 ▲ |
| |  |
| |  funkheld | Hello Jens-Arne. How can your Catchbilder Please transparent show? which colour must the Please his The transparent shining?
Thank you. |
| | | | |
| |  Jens-Arne Reumschüssel | the should itself from DrawPic yield. statement from the XProfan-Help:
DrawPic H, X, Y; n1[, n2] H : LongInt - lever the Bitmap X,Y: Integer - position, where The Bitmap drawn go should n1 : Integer - Kopiermodus (-1 = transparent) n2 : Longint - Transparente colour in the mode -1 (can also omitted)
The Bitmap with the lever H becomes on position X,Y in Originalgröße displayed. n1 is the Kopiermodus.
n2 is The colour, The at Kopiermodus -1 (transparent) transparent displayed becomes. Fehlt these indicated becomes The colour the limkesten downstairs Pixels taken. |
| | | XProfan X4XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 03/11/23 ▲ |
| |
| |  funkheld | Hello, thanks for Info. goes as Sprite then wonderful. |
| | | | |
| |  funkheld | with whom Program can The BMP-Sprites relative spin?
Thank you. |
| | | | |
| |  Jens-Arne Reumschüssel | Hierfür is the windows-API-function PlgBlt well useable. |
| | | XProfan X4XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 03/12/23 ▲ |
| |
| |  Jens-Arne Reumschüssel | V8.46a uploaded: diverse Improvements to that previous mail (Please Update-Checker benefit and therein The Versionshistorie standing)
actually innovation: {$Assert ...} installed, Please Help consult to that concept: [...] 
best Regards, Jens-Arne |
| | | XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 04/04/23 ▲ |
| |
| |  funkheld | Hello good day I grüße you.
The programs where these inc used becomes , walk not: "$I graphic.inc"
it concerns too partly others inc.
Why the Please.
Thank you. greeting
'From Timo blunder
'create of Säulendiagrammen
'command : INIT,ERSTELLE,NEXT,ZEIGE,ACHSE,USEGFONT,DEINIT
'Message: with Fehlern is GError% = 1
'1. Par : with Fehlern Messagebox (0 = No,Yes voreingestellt)
'axis:
'1. Par : with each how much percent a Mark
'2. Par : number The each on the level the Mark adjusted becomes
'3. Par : String the Hinten angehangen becomes
'UseGFont:
'1. Par : FontName
'2. Par : Zeichenhöhe (No 0)
'3. Par : Zeichenbreite (No 0)
'4. Par : Big?
'5. Par : Italic?
'6. Par : Underlined?
'Init:
'1. Par : X worth the Koordinatenursprungs
'2. Par : Y worth the Koordinatenursprungs
'3. Par : length the X-axis
'4. Par : Höhe the Y-axis
'5. Par : length the 3D Bereichs
'6. Par : AbStand the Seulen
'7. Par : stood off supra (z.B. Saülen over 100%)
'8. Par : stood off left (z.B. Achsenbeschriftung)
'Erstelle:
'1. Par : Höhe the Seule in relation To Y-axis (in percent)
'2. Par : Beginn the Seule of ground from, can also as Feinjustierung the Seule used go
'3. Par : length the Seule
'4. Par : colour the Seule (deference, never pure Black, separate only z.B. Rgb(1,0,0)
'5. Par : transparency (1 = Yes)
'6. Par : Font in the Seule
'Next:
'0 Par
'show:
'1. Par : lever the Window on the drawn go should
'2. Par : KopierModus
'Deinit:
'0 Par
$I graphic.inc
Window Style 24
Windowtitle "Säulendiagramme with the graphic.inc"
Window (%Maxx-600)/2,(%Maxy-400)/2 - 600,400
declare Waiting%
Wartezeit
Whileloop 30
INIT "Säulendiagramm",50,250,450,110,30,50,100,50
ACHSE 20,20,"%"
ERSTELLE 40 - &Loop ,0,14 ,Rgb(255,0,0) ,1,"H"
ERSTELLE 30 ,0,14 ,Rgb(0,255,0) ,0,"C"
ERSTELLE 15 + &Loop ,0,14 ,Rgb(0,0,255) ,1,"I"
NEXT
ERSTELLE 25 ,0,35+&Loop/4,Rgb(0,0,255) ,1,"E"
ERSTELLE 25 ,0,35 ,Rgb(0,0,255) ,1,"G"
ERSTELLE 25 ,0,35-&Loop/4,Rgb(0,0,255) ,1,"A"
ERSTELLE 15 ,0,35-&Loop/2,Rgb(0,0,255) ,1,"S"
NEXT
NEXT
NEXT
ERSTELLE 25 ,0,50 ,Rgb(0,255,0) ,0,"Hallo"
ERSTELLE 50 ,0,50 ,Rgb(0,255,&Loop*7),0,"Hallo"
ERSTELLE 25 ,0,50 ,Rgb(0,255,0) ,0,"Hallo"
NEXT
NEXT
ERSTELLE 130 - &Loop,0,20 ,Rgb(0,255,0) ,0,"!!\n!!\n!!\n!!"
ZEIGE %HWnd,0
DEINIT
if &Loop = 1
DrawText 5,0,"Please Click!"
Waitinput
DrawText 5,0,Space$(100)
endif
Sleep Waiting%
Wend
Whileloop 30,0,-1
INIT "Säulendiagramm",50,250,450,110,&Loop,50,0,50
ACHSE 20,20,"%"
ERSTELLE 40 - &Loop,0,15 ,Rgb(255,0,0) ,1,"H"
ERSTELLE 30 ,0,15 ,Rgb(0,255,0) ,0,"C"
ERSTELLE 15 + &Loop,0,15 ,Rgb(0,0,255) ,1,"I"
NEXT
ERSTELLE 25 ,0,35+&Loop/4,Rgb(0,0,255) ,1,"E"
ERSTELLE 25 ,0,35 ,Rgb(0,0,255) ,1,"G"
ERSTELLE 25 ,0,35-&Loop/4,Rgb(0,0,255) ,1,"A"
ERSTELLE 15 ,0,35-&Loop/2,Rgb(0,0,255) ,1,"S"
NEXT
NEXT
NEXT
ERSTELLE 25 ,0,50 ,Rgb(0,255,0) ,0,"Hallo"
ERSTELLE 50 ,0,50 ,Rgb(0,255,&Loop*7),0,"Hallo"
ERSTELLE 25 ,0,50 ,Rgb(0,255,0) ,0,"Hallo"
NEXT
NEXT
ERSTELLE 100 ,0,20 ,Rgb(0,255,0) ,0,"!!\n!!\n!!\n!!"
ZEIGE %HWnd,0
DEINIT
Sleep Waiting%
Wend
Whileloop 50
INIT "Säulendiagramm",50,250,450,110,0,50,0,50
ACHSE 20,20,"%"
ERSTELLE 40 - &Loop/1.25 ,0,15,Rgb(255,0,0) ,1,""
ERSTELLE 30 - &Loop/(5/3) ,0,15,Rgb(0,255,0) ,0,""
ERSTELLE 15 - &Loop/(10/3),0,15,Rgb(0,0,255) ,1,""
NEXT
ERSTELLE 25 - &Loop/2 ,0,35,Rgb(0,0,255) ,1,""
ERSTELLE 25 - &Loop/2 ,0,35,Rgb(0,0,255) ,1,""
ERSTELLE 25 - &Loop/2 ,0,35,Rgb(0,0,255) ,1,""
ERSTELLE 15 - &Loop/(10/3),0,35,Rgb(0,0,255) ,1,""
NEXT
NEXT
NEXT
ERSTELLE 25 - &Loop/2 ,0,50,Rgb(0,255,0) ,0,""
ERSTELLE 50 - &Loop ,0,50,Rgb(0,255,&Loop*7),0,""
ERSTELLE 25 - &Loop/2 ,0,50,Rgb(0,255,0) ,0,""
NEXT
NEXT
ERSTELLE 100 - &Loop*2 ,0,20,Rgb(0,255,0) ,0,""
ZEIGE %HWnd,0
DEINIT
Sleep Waiting%
Wend
Cls
Whileloop 30
INIT "Säulendiagramm",50-&Loop*(4/3),250,450+&Loop*(8/3),110 + &Loop*2,&Loop,50,20,30'to that überdecken the middle-aged
ZEIGE %HWnd,0
DEINIT
Sleep Waiting%
Wend
DrawText 5,0,"Please Click!"
Whileloop 2,50
INIT "Säulendiagramm",10,250,570,170,30,50,5,0
NEXT
ERSTELLE &Loop/5 ,0 ,375,Rgb(122,255,255) ,0,""
ERSTELLE &Loop/1.8 ,(375-295)/2,295,Rgb(255,0,0) ,1,""
ERSTELLE &Loop/(8/3) ,(295-245)/2,245,Rgb(0,255,0) ,0,""
ERSTELLE &Loop/(10/3),(245-175)/2,175,Rgb(0,0,255) ,1,""
ERSTELLE &Loop/(5/3) ,(175-101)/2,101,Rgb(0,0,255) ,1,""
ZEIGE %HWnd,0
DEINIT
Waitinput
Wend
DrawText 5,0,MkStr$(" ",100)
declare A1%,A2%,A3%,A4%,R1%,R2%,R3%,R4%,Bew%,Bew2%
USEGFONT "Courier",18,7,1,1,1
While 1
INIT "Säulendiagramm",10,250,570,170,30,50,5,0
NEXT
ERSTELLE 10 ,0 ,375,Rgb(122,255,255) ,0,"LO!"
ERSTELLE 50/1.8 ,(375-295)/2 + A1%,295,Rgb(255,0,0) ,1,"LL"
ERSTELLE 50/(8/3) ,(295-245)/2 + A2%,245,Rgb(0,255,0) ,0,"AL"
ERSTELLE 50/(10/3),(245-175)/2 + A3%,175,Rgb(0,0,255) ,1,"HA"
ERSTELLE 50/(5/3) ,(175-101)/2 + A4%,101,Rgb(0,0,255) ,1,"H"
ZEIGE %HWnd,0
DEINIT
Case R1% : inc A1%
Case R2% : inc A2%
Case R3% : inc A3%
Case R4% : inc A4%
Casenot R1% : dec A1%
Casenot R2% : dec A2%
Casenot R3% : dec A3%
Casenot R4% : dec A4%
Case (375-295)/2 + A1% = 0 : R1% = 1
Case (295-245)/2 + A2% = 0 : R2% = 1
Case (245-175)/2 + A3% = 0 : R3% = 1
Case (175-101)/2 + A4% = 0 : R4% = 1
Case (375-295)/2 = A1% : R1% = 0
Case (295-245)/2 = A2% : R2% = 0
Case (245-175)/2 = A3% : R3% = 0
Case (175-101)/2 = A4% : R4% = 0
Wend
Waitinput
end
Proc Wartezeit
declare Zeit&
Zeit& = &GetTickCount
Whileloop 10
INIT "Tortendiagramm",%Maxx+70,30,300,300,170,&Loop/2,40,0
ERSTELLE 40,Rgb(0,255,0),"Grün",0
ERSTELLE 15,Rgb(255,0,0),"Rot",0
ERSTELLE 10,Rgb(0,255,255),"Türkis",0
ERSTELLE 05,Rgb(192,192,192),"Grau",0
ERSTELLE 20,Rgb(255,255,0),"Gelb",0
ERSTELLE 10,Rgb(255,0,255),"Lila",0
ZEIGE %HWnd,0
DEINIT
Wend
Zeit& = &GetTickCount - Zeit&
Zeit& = Zeit& / 10
if Zeit& < 32
Waiting% = 32 - Zeit&
else
Waiting% = 0
endif
Endproc
|
| | | | |
| |  funkheld | Hello, good afternoon . These "$I Prospeed_Funktionen.inc" won't recognized.
Why the Please?
Thank you. greeting |
| | | | |
| |  Jens-Arne Reumschüssel | Hello Funkheld,
I have your both last Posts first now seen, sorry (comic, usually should I a Email get, if here someone something posting...).
where lying because the two Include-Files? in the momentum seek JRPC3 only Programmverzeichnis and in the directory ...\XProfan\INCLUDE thereafter, not whom special Pfaden, everybody can in XProfEd take on can. I could the time install, but the suitable INI-File lying unfortunately somewhere into USER-Verzeichnissen under C:\windows... I gucke me the at times.
Einstweilen can You remedy create, because You in the $I-row whom filled way to Include-File angibst.
best Regards, Jens-Arne |
| | | XProfan X4XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 04/26/23 ▲ |
| |
| |  Jens-Arne Reumschüssel | OK, have now installed, that the INC-way ausgewertet becomes, the in XProfEd hinterlegt is. |
| | | XProfan X4XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 04/26/23 ▲ |
| |
| |  Jens-Arne Reumschüssel | V.8.56: new function @GetFbProcAddr("<fbPROC-Name>") - determined The Einsprungadresse of/ one fbPROC - so it can z.B. as Callback-function uses go - benefit to @ProcAddr of XProfan: it can as much as you want Callback-functions uses go, not only 5 per Parameteranzahl. |
| | | XProfan X4XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 04/26/23 ▲ |
| |
| |  Jens-Arne Reumschüssel | Version 9.00:
PureBasic is with XProfan arrived!
it can now analog To fbPROCs native PureBasic-PROCs directly in the Source written and called go (pbPROCs).
PureBasic Although, differently as FreeBasic, not free, but there's a whole crowd Profaner, also PureBasic own and so bypass can. The Syntax of FreeBasic is relatively difficult To rule, and so with letzterem presumably the a or others gefremdelt has. this is with PureBasic, my I, differently, so now yet More of You in whom enjoyment of superschnellen nativen Procedures come go. who PureBasic own and beherrschaft, can now means integrally simply the two tollen worlds this Programmiersprachen directly in one code benefit and so the best from its XProfan-Programs herausholen.
These Funktionialität is yet new and very komplex, Please see it me therefore to, if there yet something not correctly. klappen ought to - and report me Please of Bugs, because otherwise can I tappt im dunkeln not to fix!
best Regards, Jens-Arne |
| | | XProfan X4XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM PM: jreumsc@web.de | 04/28/23 ▲ |
| |
|
AnswerTopic-Options | 71.933 Views |
Themeninformationenthis Topic has 8 subscriber: |