XProfan

- Seite 20 -

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

- Seite 15 -

Jens-Arne
Reumschüssel

Es gibt eine neue Version, die anders mit dem internen Messagehandling umgeht. Bitte probier die mal aus. Vielleicht ist das Problem damit 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

Hallo Jens-Arne.
Wie kann man deine Catchbilder bitte durchsichtig zeigen?
Welche Farbe muss das bitte sein die durchsichtig scheint?

Danke.

11.03.2023 ▲

Jens-Arne
Reumschüssel

Das müsste sich aus DrawPic ergeben. Auszug aus der XProfan-Hilfe:

DrawPic H, X, Y; N1[, N2]
H : LongInt - Handle der Bitmap
X,Y: Integer - Position, wo die Bitmap gezeichnet werden soll
N1 : Integer - Kopiermodus (-1 = transparent)
N2 : Longint - Transparente Farbe im Modus -1 (kann auch weggelassen werden)

Die Bitmap mit dem Handle H wird an Position X,Y in Originalgröße dargestellt. N1 ist der Kopiermodus.

N2 ist die Farbe, die beim Kopiermodus -1 (transparent) durchsichtig dargestellt wird. Fehlt diese Angabe wird die Farbe des limkesten unteren Pixels genommen.

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

Hallo, danke für die Info.
Geht als Sprite dann wunderbar.

11.03.2023 ▲

funkheld

Mit welchen Programm kann man die BMP-Sprites relative schnell drehen?

Danke.

12.03.2023 ▲

Jens-Arne
Reumschüssel

Hierfür ist die Windows-API-Funktion PlgBlt gut 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 Post (bitte Update-Checker nutzen und darin die Versionshistorie ansehen)

aktuelle Neuerung: {$Assert ...} eingebaut, bitte Hilfe 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 Markieren Separieren

funkheld

Hallo guten Tag ich grüße dich.

Die Programme wo diese inc gebraucht wird , laufen nicht:
"$I Grafik.inc"

Es betrifft auch teilweise andere inc.

Woran liegt das bitte.

Danke.
Gruss

'Von Timo Schnitzer
'Erstellen von Säulendiagrammen
'Befehle : INIT,ERSTELLE,NEXT,ZEIGE,ACHSE,USEGFONT,DEINIT
'Message:              Bei Fehlern ist GError% = 1
'1. Par              : Bei Fehlern Messagebox (0 = Nein,Ja voreingestellt)
'Achse:
'1. Par              : Bei jeweils wieviel Prozent eine Markierung
'2. Par              : Zahl die jeweils an die Höhe der Markierung angepasst wird
'3. Par              : String der Hinten angehangen wird
'UseGFont:
'1. Par              : FontName
'2. Par              : Zeichenhöhe   (Keine 0)
'3. Par              : Zeichenbreite (Keine 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              : Länge der X-Achse
'4. Par              : Höhe der Y-Achse
'5. Par              : Länge des 3D Bereichs
'6. Par              : AbStand der Seulen
'7. Par              : Abstand oben  (z.B. Saülen über 100%)
'8. Par              : Abstand links (z.B. Achsenbeschriftung)
'Erstelle:
'1. Par              : Höhe der Seule im Verhältnis zu Y-Achse (in Prozent)
'2. Par              : Beginn der Seule von Boden aus, kann auch als Feinjustierung der Seule genutzt werden
'3. Par              : Länge  der Seule
'4. Par              : Farbe  der Seule (Achtung, nie pures Schwarz, sondern nur z.B. Rgb(1,0,0)
'5. Par              : Transparenz (1 = Ja)
'6. Par              : Schrift in der Seule
'Next:
'0 Par
'Zeige:
'1. Par              : Handle des Fenster auf dem gezeichnet werden soll
'2. Par              : KopierModus
'Deinit:
'0  Par
 $I Grafik.inc
WindowStyle 24
Windowtitle "Säulendiagramme mit der Grafik.inc"
Window (%Maxx-600)/2,(%Maxy-400)/2 - 600,400
declare warten%
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 warten%

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 warten%

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 warten%

Wend

Cls

Whileloop 30

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

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

        warten% = 32 - Zeit&

    else

        warten% = 0

    endif

Endproc

08.04.2023 ▲

funkheld

Hallo, guten tag .
Diese "$I Prospeed_Funktionen.inc" wird nicht erkannt.

Woran liegt das bitte?

Danke.
Gruss

21.04.2023 ▲

Jens-Arne
Reumschüssel

Hallo Funkheld,

ich habe Deine beiden letzten Beiträge erst jetzt gesehen, sorry (komisch, normalerweise müsste ich eine Email bekommen, wenn hier jemand etwas postet...).

Wo liegen denn die beiden Include-Dateien? Im Moment sucht JRPC3 nur im Programmverzeichnis und im Verzeichnis ...\XProfan\INCLUDE danach, nicht in den speziellen Pfaden, die man in XProfEd einstellen kann. Ich könnte das mal einbauen, aber die entsprechende INI-Datei liegt leider irgendwo in den USER-Verzeichnissen unter C:\Windows... Ich gucke mir das mal an.

Einstweilen kannst Du Abhilfe schaffen, indem Du in der $I-Zeile den vollen Pfad zur Include-Datei 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 jetzt eingebaut, dass der INC-Pfad ausgewertet wird, der in 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 die Einsprungadresse einer fbPROC
- damit kann diese z.B. als Callback-Funktion verwendet werden
- Vorteil gegenüber @ProcAddr von XProfan: Es können beliebig viele Callback-Funktionen verwendet werden, nicht nur 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 bei XProfan angekommen!

Es können jetzt analog zu fbPROCs native PureBasic-PROCs direkt im Quellcode geschrieben und aufgerufen werden (pbPROCs).

PureBasic ist zwar, anders als FreeBasic, nicht kostenlos, aber es gibt eine ganze Menge Profaner, die auch PureBasic besitzen und damit umgehen können. Die Syntax von FreeBasic ist relativ schwierig zu beherrschen, weswegen mit letzterem vermutlich der eine oder andere gefremdelt hat. Das ist bei PureBasic, meine ich, anders, sodass nun noch mehr von Euch in den Genuss von superschnellen nativen Prozeduren kommen werden. Wer PureBasic besitzt und beherrschaft, kann jetzt also ganz einfach die beiden tollen Welten dieser Programmiersprachen direkt in einem Code nutzen und so das Beste aus seinen XProfan-Programmen herausholen.

Diese Funktionialität ist noch neu und sehr komplex, bitte seht es mir daher nach, wenn da noch irgendetwas nicht richtig klappen sollte - und berichtet mir bitte von Bugs, denn sonst kann ich sie nicht 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 ▲