XProfan

- page 20 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 15 -

Jens-Arne
Reumschüssel

il y a une neue Version, qui anders avec dem internen Messagehandling umgeht. s'il te plaît probier qui la fois aus. Peut-être cela Problem avec cela behoben.

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 ▲

funkheld

allô Jens-Arne.
comment peux on deine Catchbilder s'il te plaît durchsichtig montrer?
quelle la couleur muss cela s'il te plaît son qui durchsichtig scheint?

merci.

11.03.2023 ▲

Jens-Arne
Reumschüssel

cela devrait sich aus DrawPic ergeben. Auszug aus qui XProfan-Aider:

DrawPic H, X, Y; N1[, N2]
H : LongInt - Handle qui Bitmap
X,Y: Integer - Position, wohin qui Bitmap gezeichnet volonté soll
N1 : Integer - Kopiermodus (-1 = transparent)
N2 : Longint - Transparente la couleur im Modus -1 (peux aussi être omis)

qui Bitmap avec dem Handle H wird à Position X,Y dans Originalgröße dargestellt. N1 ist qui Kopiermodus.

N2 ist qui la couleur, qui beim Kopiermodus -1 (transparent) durchsichtig dargestellt wird. Absent cet Angabe wird qui la couleur des limkesten unteren Pixels pris.

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

11.03.2023 ▲

funkheld

allô, merci pour qui Info.
allez comme Sprite ensuite wunderbar.

11.03.2023 ▲

funkheld

avec welchen Programme peux on qui BMP-Sprites relative vite drehen?

merci.

12.03.2023 ▲

Jens-Arne
Reumschüssel

Hierfür ist qui Windows-API-Funktion PlgBlt bien nutzbar.

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

12.03.2023 ▲

Jens-Arne
Reumschüssel

V8.46a hochgeladen:
diverse Verbesserungen zum vorherigen poste (s'il te plaît Update-Checker nutzen et y qui Versionshistorie regarder)

aktuelle innovation: {$Assert ...} incorporé, s'il te plaît Aider konsultieren
zum Konzept: [...]

Beste Grüße, Jens-Arne

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

04.04.2023 ▲

Kompilieren Marque Séparation

funkheld

allô guten journée je grüße toi.

qui Programme wohin cet inc gebraucht wird , courir pas:
"$I Grafik.inc"

Es betrifft aussi partiellement autre inc.

Woran liegt cela s'il te plaît.

merci.
Gruss

'de Timo Schnitzer
'Erstellen de Säulendiagrammen
'Befehle : INIT,ERSTELLE,NEXT,ZEIGE,ACHSE,USEGFONT,DEINIT
'Message:              chez Fehlern ist GError% = 1
'1. Par              : chez Fehlern Messagebox (0 = non,oui voreingestellt)
'Achse:
'1. Par              : chez jeweils combien Prozent une Markierung
'2. Par              : numéro qui jeweils à qui Hauteur qui Markierung angepasst wird
'3. Par              : String qui Hinten angehangen wird
'UseGFont:
'1. Par              : FontName
'2. Par              : Zeichenhöhe   (aucun 0)
'3. Par              : Zeichenbreite (aucun 0)
'4. Par              : Fett?
'5. Par              : Kursiv?
'6. Par              : Unterstrichen?
'Init:
'1. Par              : X Wert des Koordinatenursprungs
'2. Par              : Y Wert des Koordinatenursprungs
'3. Par              : Longueur qui X-Achse
'4. Par              : Hauteur qui Y-Achse
'5. Par              : Longueur des 3D Bereichs
'6. Par              : AbStand qui Seulen
'7. Par              : la distance dessus  (z.B. Saülen sur 100%)
'8. Par              : la distance à gauche (z.B. Achsenbeschriftung)
'Erstelle:
'1. Par              : Hauteur qui Seule im Relations trop Y-Achse (dans Prozent)
'2. Par              : Beginn qui Seule de Boden aus, peux aussi comme Feinjustierung qui Seule genutzt volonté
'3. Par              : Longueur  qui Seule
'4. Par              : la couleur  qui Seule (attention, nie pures noir, mais seulement z.B. Rgb(1,0,0)
'5. Par              : Transparenz (1 = oui)
'6. Par              : Schrift dans qui Seule
'Next:
'0 Par
'Zeige:
'1. Par              : Handle des la fenêtre sur dem gezeichnet volonté soll
'2. Par              : KopierModus
'Deinit:
'0  Par
 $I Grafik.inc
Fenêtre Style 24
Windowtitle "Säulendiagramme avec qui Grafik.inc"
Fenêtre (%Maxx-600)/2,(%Maxy-400)/2 - 600,400
declare attendre%
Wartezeit

Whileloop 30

    INIT "Säulendiagramm",50,250,450,110,30,50,100,50
    ACHSE 20,20,"%"
    ERSTELLE 40 - &Boucle ,0,14        ,Rgb(255,0,0)      ,1,"H"
    ERSTELLE 30         ,0,14        ,Rgb(0,255,0)      ,0,"C"
    ERSTELLE 15 + &Boucle ,0,14        ,Rgb(0,0,255)      ,1,"I"
    NEXT
    ERSTELLE 25         ,0,35+&Boucle/4,Rgb(0,0,255)      ,1,"E"
    ERSTELLE 25         ,0,35        ,Rgb(0,0,255)      ,1,"G"
    ERSTELLE 25         ,0,35-&Boucle/4,Rgb(0,0,255)      ,1,"A"
    ERSTELLE 15         ,0,35-&Boucle/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,&Boucle*7),0,"Hallo"
    ERSTELLE 25         ,0,50        ,Rgb(0,255,0)      ,0,"Hallo"
    NEXT
    NEXT
    ERSTELLE 130 - &Boucle,0,20        ,Rgb(0,255,0)      ,0,"!!\n!!\n!!\n!!"
    ZEIGE %HWnd,0
    DEINIT

    si &Boucle = 1

        DrawText 5,0,"Please Click!"
        Waitinput
        DrawText 5,0,Space$(100)

    endif

    Sleep attendre%

Wend

Whileloop 30,0,-1

    INIT "Säulendiagramm",50,250,450,110,&Boucle,50,0,50
    ACHSE 20,20,"%"
    ERSTELLE 40 - &Boucle,0,15        ,Rgb(255,0,0)      ,1,"H"
    ERSTELLE 30        ,0,15        ,Rgb(0,255,0)      ,0,"C"
    ERSTELLE 15 + &Boucle,0,15        ,Rgb(0,0,255)      ,1,"I"
    NEXT
    ERSTELLE 25        ,0,35+&Boucle/4,Rgb(0,0,255)      ,1,"E"
    ERSTELLE 25        ,0,35        ,Rgb(0,0,255)      ,1,"G"
    ERSTELLE 25        ,0,35-&Boucle/4,Rgb(0,0,255)      ,1,"A"
    ERSTELLE 15        ,0,35-&Boucle/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,&Boucle*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 attendre%

Wend

Whileloop 50

    INIT "Säulendiagramm",50,250,450,110,0,50,0,50
    ACHSE 20,20,"%"
    ERSTELLE 40  - &Boucle/1.25  ,0,15,Rgb(255,0,0)      ,1,»
    ERSTELLE 30  - &Boucle/(5/3) ,0,15,Rgb(0,255,0)      ,0,»
    ERSTELLE 15  - &Boucle/(10/3),0,15,Rgb(0,0,255)      ,1,»
    NEXT
    ERSTELLE 25  - &Boucle/2     ,0,35,Rgb(0,0,255)      ,1,»
    ERSTELLE 25  - &Boucle/2     ,0,35,Rgb(0,0,255)      ,1,»
    ERSTELLE 25  - &Boucle/2     ,0,35,Rgb(0,0,255)      ,1,»
    ERSTELLE 15  - &Boucle/(10/3),0,35,Rgb(0,0,255)      ,1,»
    NEXT
    NEXT
    NEXT
    ERSTELLE 25  - &Boucle/2     ,0,50,Rgb(0,255,0)      ,0,»
    ERSTELLE 50  - &Boucle       ,0,50,Rgb(0,255,&Boucle*7),0,»
    ERSTELLE 25  - &Boucle/2     ,0,50,Rgb(0,255,0)      ,0,»
    NEXT
    NEXT
    ERSTELLE 100 - &Boucle*2     ,0,20,Rgb(0,255,0)      ,0,»
    ZEIGE %HWnd,0
    DEINIT
    Sleep attendre%

Wend

Cls

Whileloop 30

    INIT "Säulendiagramm",50-&Boucle*(4/3),250,450+&Boucle*(8/3),110 + &Boucle*2,&Boucle,50,20,30'Zum überdecken des Alten
    ZEIGE %HWnd,0
    DEINIT
    Sleep attendre%

Wend

DrawText 5,0,"Please Click!"

Whileloop 2,50

    INIT "Säulendiagramm",10,250,570,170,30,50,5,0
    NEXT
    ERSTELLE &Boucle/5     ,0          ,375,Rgb(122,255,255)  ,0,»
    ERSTELLE &Boucle/1.8   ,(375-295)/2,295,Rgb(255,0,0)      ,1,»
    ERSTELLE &Boucle/(8/3) ,(295-245)/2,245,Rgb(0,255,0)      ,0,»
    ERSTELLE &Boucle/(10/3),(245-175)/2,175,Rgb(0,0,255)      ,1,»
    ERSTELLE &Boucle/(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

Tandis que 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
    Cas    R1% : inc A1%
    Cas    R2% : inc A2%
    Cas    R3% : inc A3%
    Cas    R4% : inc A4%
    Casenot R1% : dec A1%
    Casenot R2% : dec A2%
    Casenot R3% : dec A3%
    Casenot R4% : dec A4%
    Cas (375-295)/2 + A1% = 0 : R1% = 1
    Cas (295-245)/2 + A2% = 0 : R2% = 1
    Cas (245-175)/2 + A3% = 0 : R3% = 1
    Cas (175-101)/2 + A4% = 0 : R4% = 1
    Cas (375-295)/2 = A1%     : R1% = 0
    Cas (295-245)/2 = A2%     : R2% = 0
    Cas (245-175)/2 = A3%     : R3% = 0
    Cas (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,&Boucle/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

    si Zeit& < 32

        attendre% = 32 - Zeit&

    d'autre

        attendre% = 0

    endif

ENDPROC

08.04.2023 ▲

funkheld

allô, bonjour .
cet "$I Prospeed_Funktionen.inc" wird pas erkannt.

Woran liegt cela s'il te plaît?

merci.
Gruss

21.04.2023 ▲

Jens-Arne
Reumschüssel

allô Funkheld,

j'ai Votre beiden letzten Posts seulement maintenant gesehen, sorry (komisch, normalement devrait je une Email bekommen, si ici quelqu'un quelque chose postet...).

wohin liegen car qui beiden Include-Fichiers? Im Moment cherchez JRPC3 seulement im Programmverzeichnis et im Verzeichnis ...\XProfan\INCLUDE après, pas dans den speziellen Pfaden, qui on dans XProfEd einstellen peux. je pourrait cela la fois einbauen, mais qui entsprechende INI-Dossier liegt malheureusement irgendwo dans den USER-Verzeichnissen sous C:\Windows... je gucke mir cela la fois à.

Einstweilen peux Du Abhilfe créer, indem Du dans qui $I-la ligne den vollen Pfad zur Include-Dossier angibst.

Beste Grüße, Jens-Arne

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

26.04.2023 ▲

Jens-Arne
Reumschüssel

Ok, habe maintenant incorporé, dass qui INC-Pfad ausgewertet wird, qui dans XProfEd hinterlegt ist.

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

26.04.2023 ▲

Jens-Arne
Reumschüssel

V.8.56:
neue Funktion @GetFbProcAddr("<fbPROC-Name>")
- ermittelt qui Einsprungadresse einer fbPROC
- avec cela peux cet z.B. comme Callback-Funktion verwendet volonté
- Vorteil à @ProcAddr de XProfan: Es peut beliebig viele Callback-Funktionen verwendet volonté, pas seulement 5 pro Parameteranzahl.

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

26.04.2023 ▲

Jens-Arne
Reumschüssel

Version 9.00:

PureBasic ist chez XProfan arrivé!

Es peut maintenant analog trop fbPROCs native PureBasic-PROCs direct im Quellcode geschrieben et aufgerufen volonté (pbPROCs).

PureBasic ist zwar, anders comme FreeBasic, pas kostenlos, mais il y a une ganze la quantité Profaner, qui aussi PureBasic besitzen et avec cela tourner autour de peut. qui Syntax de FreeBasic ist relativ schwierig trop beherrschen, weswegen avec letzterem probablement qui une ou bien autre gefremdelt hat. c'est chez PureBasic, mon je, anders, sodass eh bien encore plus de Euch dans den Genuss de superschnellen nativen Prozeduren venons volonté. qui PureBasic besitzt et beherrschaft, peux maintenant alors entier simple qui beiden tollen Welten cette Programmiersprachen direct dans einem Code nutzen et so cela Beste aus seinen XProfan-Programmen sortir.

cet Funktionialität ist encore récente et très komplex, s'il te plaît voyez es mir daher pour, si là encore irgendetwas pas richtig marcher sollte - et berichtet mir s'il te plaît de Bugs, car sonst peux je vous pas beheben!

Beste Grüße, Jens-Arne

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

28.04.2023 ▲