XProfan

- Página 20 -

« 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 ▲

funkheld

¡Hola Jens-Arne.
¿Cómo se puede uno deine Catchbilder Por favor, durchsichtig zeigen?
Welche Farbe muss el Por favor, ser el durchsichtig scheint?

Gracias.

11.03.2023 ▲

Jens-Arne
Reumschüssel

Das debería se de DrawPic ergeben. Auszug de el XProfan-Ayuda:

DrawPic H, X, Y; N1[, N2]
H : LongInt - Handle el Mapa de bits
X,Y: Integer - Position, wo el Mapa de bits suscrito voluntad se
N1 : Integer - Kopiermodus (-1 = transparent)
N2 : Longint - Transparente Farbe en el Modus -1 (kann auch weggelassen voluntad)

El Mapa de bits con el Handle H se a Position X,Y en Originalgröße dargestellt. N1 es el Kopiermodus.

N2 es el Farbe, cuando el Kopiermodus -1 (transparent) durchsichtig dargestellt se. Fehlt esta Angabe se el 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

¡Hola, danke para el Info.
Geht como Sprite entonces wunderbar.

11.03.2023 ▲

funkheld

Mit welchen Programa puede ser el BMP-Sprites relative rápidamente drehen?

Gracias.

12.03.2023 ▲

Jens-Arne
Reumschüssel

Hierfür Es el Windows-API-Función 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 para vorherigen Post (Por favor, Actualización-Checker nutzen y en él el Versionshistorie ansehen)

aktuelle Neuerung: {$Assert ...} instalado, Por favor, Ayuda konsultieren
para 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 Marca Separación

funkheld

¡Hola guten Tag Yo grüße dich.

El Programas wo esta inc gebraucht se , laufen no:
"$I Grafik.inc"

Lo betrifft auch teilweise otro inc.

Woran liegt el Por favor,.

Gracias.
Gruss

'Von Timo Schnitzer
'Erstellen de Säulendiagrammen
'Befehle : INIT,ERSTELLE,NEXT,ZEIGE,ACHSE,USEGFONT,DEINIT
'Message:              En Fehlern es GError% = 1
'1. Par              : En Fehlern Messagebox (0 = Nein,Sí voreingestellt)
'Achse:
'1. Par              : En jeweils wieviel Prozent una Markierung
'2. Par              : Zahl el jeweils a el Höhe el Markierung adaptado se
'3. Par              : String el Hinten angehangen se
'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 Valor des Koordinatenursprungs
'2. Par              : Y Valor des Koordinatenursprungs
'3. Par              : Longitud el X-Achse
'4. Par              : Höhe el Y-Achse
'5. Par              : Longitud des 3D Bereichs
'6. Par              : AbStand el Seulen
'7. Par              : Abstand oben  (z.B. Saülen encima 100%)
'8. Par              : Abstand links (z.B. Achsenbeschriftung)
'Erstelle:
'1. Par              : Höhe el Seule en el Verhältnis a Y-Achse (en Prozent)
'2. Par              : Beginn el Seule de Boden de, kann auch como Feinjustierung el Seule genutzt voluntad
'3. Par              : Longitud  el Seule
'4. Par              : Farbe  el Seule (Achtung, nie pures Schwarz, pero sólo z.B. Rgb(1,0,0)
'5. Par              : Transparenz (1 = Sí)
'6. Par              : Schrift en el Seule
'Next:
'0 Par
'Zeige:
'1. Par              : Handle des Ventana en el suscrito voluntad se
'2. Par              : KopierModus
'Deinit:
'0  Par
 $I Grafik.inc
Ventana de Estilo 24
Windowtitle "Säulendiagramme con el Grafik.inc"
Ventana (%Maxx-600)/2,(%Maxy-400)/2 - 600,400
declarar 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,Espacio$(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)
declarar A1%,A2%,A3%,A4%,R1%,R2%,R3%,R4%,Bew%,Bew2%
USEGFONT "Courier",18,7,1,1,1

Mientras 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
    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

    declarar 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&

    más

        warten% = 0

    endif

ENDPROC

08.04.2023 ▲

funkheld

¡Hola, guten tag .
Diese "$I Prospeed_Funktionen.inc" no es erkannt.

Woran liegt el Por favor,?

Gracias.
Gruss

21.04.2023 ▲

Jens-Arne
Reumschüssel

¡Hola Funkheld,

Yo Su beiden letzten Beiträge sólo ahora gesehen, sorry (komisch, normalerweise debería Yo una Email bekommen, si hier alguien algo postet...).

Wo mentira porque el beiden Incluir-Archivos? Im Moment sucht JRPC3 sólo en el Programmverzeichnis y en el Directorio ...\XProfan\INCLUDE danach, no en el speziellen Pfaden, el uno en XProfEd einstellen kann. Yo podría el veces einbauen, aber el entsprechende INI-Expediente liegt desafortunadamente irgendwo en el USER-Verzeichnissen bajo C:\Windows... Yo gucke me veces a.

Einstweilen kannst Usted Abhilfe schaffen, indem Usted en el $I-Línea el vollen Pfad a Incluir-Expediente 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 ahora instalado, dass el INC-Pfad ausgewertet se, el en XProfEd hinterlegt es.

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 Función @GetFbProcAddr("<fbPROC-Name>")
- ermittelt el Einsprungadresse uno fbPROC
- así kann esta z.B. como Callback-Función verwendet voluntad
- Vorteil gegenüber @ProcAddr de XProfan: Lo puede cualquier viele Callback-Características verwendet voluntad, no sólo 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

Versión 9.00:

PureBasic es en XProfan angekommen!

Lo puede ahora analog a fbPROCs native PureBasic-PROCs direkt en el Quellcode geschrieben y aufgerufen voluntad (pbPROCs).

PureBasic Aunque, anders como FreeBasic, no libre, pero son una todo Menge Profaner, el auch PureBasic besitzen y así umgehen puede. El Syntax de FreeBasic es relativ schwierig a beherrschen, weswegen con letzterem vermutlich el una u otros gefremdelt ha. Es en PureBasic, mi Yo, anders, sodass nun todavía mehr de Euch en el Genuss de superschnellen nativen Prozeduren kommen voluntad. Wer PureBasic besitzt y beherrschaft, kann ahora also bastante simplemente el beiden tollen Welten dieser Programmiersprachen direkt en un Code nutzen y así el Beste de seinen XProfan-Programmen herausholen.

Diese Funktionialität es todavía neu y muy komplex, Por favor, seht lo me por lo tanto después de, si como todavía irgendetwas no correcto klappen debería - y berichtet me Por favor, de Bugs, porque sonst kann Yo ellos no 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 ▲