XProfan

- page 1 -

Aktuelle Beta encore pas, fais je mais encore. qui faute tritt sur, si sur cela menu qui Dialog aufgerufen wird - mais pas toujours (Rechnerabhängig). Im Anhang ist mon EXE.

Timerbug.zip	2 kB

Hochgeladen:	06.09.2006

Downloadcounter:
		Download

la hâte du la fois den Lien de téléchargement?

chez qui Beta, qui je mir plan heruntergeladen habe, tritt qui faute toujours sur (Zugriffsverletzung), ist bloß seltener...

Sebastian
König

avec dem zweiten Code konnte je sous XProfan selbst den faute maintenant reproduzieren (Dialogfenster bleibt vide et reagiertt pas sur Schließen). avec Profan2Cpp allerdings trotz zahlreicher Versuche allerdings encore toujours pas... liegt es peut-être wirklich à meinem System ou bien devrait qui faute, si il sur einem calculateur avec XProfan auftritt aussi avec Profan2Cpp auftreten?

quoi je déjà dire peux ist, dass zumindest qui Ursache avec Profan2Cpp une autre son devrait. ici nutzen nämliche seulement normale Prozeduren den gemeinsamen paramètre-Stack - chez CallBack-Funktionen et eingebauten Befehlen et Funktionen wird qui entier normale Stack (comment dans ASM) zur Übergabe benutzt, sodass sich ici qui Aufrufe pas mutuel stören peut...

P.S.: Votre EXE ist malheureusement seulement qui .cpp-Dossier...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Sebastian
König

[quote-part:f458ed4358]la hâte du la fois den Lien de téléchargement?
chez qui Beta, qui je mir plan heruntergeladen habe, tritt qui faute toujours sur (Zugriffsverletzung), ist bloß seltener... [/quote-part:f458ed4358]
ici qui directe Link: [...]

.

quelle Version oui c'est ca la hâte Du car maintenant?

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Zeigt 1.5a à. qui EXE habe je récente hochgeladen (hoffentlich maintenant richtig, viens justement aus qui Nachtschicht

)

Sebastian
König

[quote-part:bebe64f95b]Zeigt 1.5a à.[/quote-part:bebe64f95b] Ok, qui ist encore relativ vieux

. sous dem Link dessus findest Du qui aktuelle Beta-Version 1.5.9f. y sommes près de einigen Bugfixes aussi déjà qui neuen XProfan 10-Features enthalten.

[quote-part:bebe64f95b]qui EXE habe je récente hochgeladen (hoffentlich maintenant richtig, viens justement aus qui Nachtschicht )[/quote-part:bebe64f95b] Ähmm... wohin?

sous dem Link dessus est sich toujours qui gleiche Dossier...

(EDIT: je vois justement: qui doppelte Begriff Link dessus ist naturellement kontextabhängig trop interpetieren

)

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

allô Sebastian...

je werde une Voir le texte source ,construire chez dem cela Problem häufiger auftritt, peux mais quelque chose dauern....

Sebastian
König

[quote-part:5ea9f5dcc3]je werde une Voir le texte source ,construire chez dem cela Problem häufiger auftritt, peux mais quelque chose dauern.... [/quote-part:5ea9f5dcc3]
Super - merci!

ensuite tritt cela Problem alors aussi avec 1.5.9f encore sur? si oui, habe je encore une concept: Versuch la fois s'il te plaît, den SetTimer-Aufruf so trop gestalten:

P2CPP: <USE_CALL_ST,USE_EXTERNAL_ST>
Timerid& = ~Settimer(%Hwnd,333,25,@Procaddr(Minuteur,4))
P2CPP: </USE_CALL_ST,/USE_EXTERNAL_ST>

(funktioniert allerdings encore pas avec 1.5a) peut-être liegt qui Ursache oui im Multithread-Konzept qui übersetzten Programme...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

si qui faute Auftritt ou bien pas hängt u.a. de qui Speicherauslastung ab. sous qui neuen Beta konnte Je l' faute encore pas nachvollziehen. sous Windows2000 J'ai eu aussi avec qui älteren Profan2Cpp Version jusqu'alors encore aucun Fehlermeldung. S'inscrire mich wieder.

- page 2 -

allô Sebastian...

Gute Nouvelles => dans qui neuen Beta ist qui faute pas plus vorhanden, qui fonctionne correcte.

Im Anhang cela Testprogramm avec den beiden Profan2Cpp Versionen kompilert. Timerbug3.exe verursacht chez mir den faute sous Windows98, Timerbug4.exe pas.

Salut

Andreas
Kompilieren Marque Séparation

DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Testprogramm Timer
Profan Version 9
 $H Windows.ph
-Main----------------------------------------------------------------
Declare Timer_Busy%,Ende%,Durch%
Declare TimerID&,Create%,T_Text&,Test#
WindowStyle 26
WindowTitle "Timertest mir Profan2Cpp Version 1.5.9f"
Window 100,100 - 370,200
cls
Let T_TEXT&=@CREATETEXT(%HWND,"",30,30,300,30)
-Menue---------------------------------------------------------------
PopUp "&Programm"
AppendMenu 108,"&Einstellungen"
AppendMenu 109,"&Ende"
Ende% = 0
Timer setzen (4x pro Sekunde, 250ms)
TimerID& = ~SetTimer(%HWND,333,20,@ProcAddr("Timer",4))
Settimer 100

WhileNot Ende%

    WaitInput

    IF @RND(10)=1

        Setmenuitem 108

    endif

    If @MenuItem(108)

        Einstellungen

    Endif

    If @MenuItem(109)

        ~KillTimer(%HWND,333)
        Ende% = 1

    Endif

Wend

End
-Proc Einstellungen

Proc Einstellungen

    Declare hD%, hA%, hB%, OK%, hTime%
    Declare hF1%, hT1%
    Clear OK%
    Dialogfenster erzeugen
    hD% = @Create("Dialog",%hWnd,"Einstellungen",%WinLeft+80,%WinTop+155,230,190)
    hF1% = @Create("Font","Arial",16,0,0,0,0)
    hT1% = @Create("Text",hD%,"Einstellungen...",10,10,220,20)
    SetFont hT1%,hF1%
    hTime% = @Create("TimeEdit", hD%, "00:00:00", 10, 35, 70, 24)
    hB% = @Create("Button",hD%,"&Nachstellen",10,120,100,28)
    hA% = @Create("Button",hD%,"&Abbrechen",120,120,100,28)

    WhileNot Ok%

        WaitInput

        IF @RND(30)=1

            LET OK%=1

        endif

        If @ButtonClicked(hB%)  Nachstellen

            Ok% = 1
            Aktionen hier

        ElseIf @ButtonClicked(hA%) Abbrechen

            Ok% = 1

        ElseIf (%Key = 2) ALT+F4 bzw. schließen

            Ok% = 1

        EndIf

    EndWhile

    DeleteObject hF1%
    @DestroyWindow(hD%)

EndProc

-Prozedur die in bestimmten Zeitintervallen ausgefuehrt wird (4x pro Sekunde)

Proc Timer

    Parameters P1&,P2&,P3&,P4&

    IF Durch%=0

        LET Durch%=1
        Dim Test#,1000000
        Inc Timer_Busy%
        Locate 7,5
        Print "Timer:" + @str$(Timer_Busy%) + " Durchläufe"
        Settext T_Text&,"Timer:" + @str$(Timer_Busy%) + " Durchläufe"
        Drawtext 30,0,@Time$(0)
        Drawtext 100,0,@Time$(1)
        Dispose Test#
        Let Durch%=0

    endif

ENDPROC

Timertest2.zip	265 kB

Hochgeladen:	06.09.2006

Downloadcounter:
		Download

Sebastian
König

allô Andreas,

[quote-part:fc655c1c78]Gute Nouvelles => dans qui neuen Beta ist qui faute pas plus vorhanden, qui fonctionne correcte.[/quote-part:fc655c1c78]
Ok, super!

Ist naturellement schwer trop dire, mais je vermute la fois, dass qui dessus déjà erwähnte Anpassung dans 1.5.9f cela Problem gelöst hat...

[quote-part:fc655c1c78]Im Anhang cela Testprogramm avec den beiden Profan2Cpp Versionen kompilert. Timerbug3.exe verursacht chez mir den faute sous Windows98, Timerbug4.exe pas.[/quote-part:fc655c1c78]entier sûrement? chez mir ist es nämlich oui c'est ca renversé - 4 stürzt ab, 3 pas... Timerbug3 ist le son Titelzeile aussi qui, qui avec 1.5.9f erstellt wurde.

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

[quote-part:a8aaf87176=Sebastian König]allô Andreas,

[quote-part:a8aaf87176]Im Anhang cela Testprogramm avec den beiden Profan2Cpp Versionen kompilert. Timerbug3.exe verursacht chez mir den faute sous Windows98, Timerbug4.exe pas.[/quote-part:a8aaf87176]entier sûrement? chez mir ist es nämlich oui c'est ca renversé - 4 stürzt ab, 3 pas... Timerbug3 ist le son Titelzeile aussi qui, qui avec 1.5.9f erstellt wurde.

MfG

Sebastian[/quote-part:a8aaf87176]
allô Sebastian...

oui, la hâte droite - hab mich vertan.

Salut

Andreas