| |
|
|
| ¡Hola Sebastian...
Lo va en folgenden Ver código fuente de [...] Hilo: KompilierenMarcaSeparaciónTestprogramm Timer
Profan Version 9
$H Windows.ph
-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 @Clicked(hB%) Nachstellen
Ok% = 1
Aktionen hier
ElseIf @Clicked(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
Inc Timer_Busy%
Locate 5,5
Print "Timer:" + @str$(Timer_Busy%) + " Durchläufe"
EndProc
-Main----------------------------------------------------------------
Declare Timer_Busy%,Ende%
WindowStyle 26
WindowTitle "Timertest PHU-60"
Window 100,100 - 370,200
cls
Timer setzen (4x pro Sekunde, 250ms)
Declare TimerID&
TimerID& = ~SetTimer(0, 0, 250, @ProcAddr("Timer", 0))
-Menue---------------------------------------------------------------
PopUp "&Programm"
AppendMenu 108,"&Einstellungen"
AppendMenu 109,"&Ende"
Ende% = 0
WhileNot Ende%
WaitInput
If @MenuItem(108)
Einstellungen
Endif
If @MenuItem(109)
~KillTimer(0, TimerID&)
Ende% = 1
Endif
Wend
End
En media Profano2Cpp Versionen gibts no sólo Kuddelmuddel en el Dialogfenster, pero lo entsteht incluso (zeitweise) una Zugriffsverletzung. Kann al irgendwie beheben? [...] Es el Erklärung para Profano. |
|
|
| |
|
|
|
| Hier tritt él häufiger en: KompilierenMarcaSeparaciónDEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Testprogramm Timer
Profan Version 9
$H Windows.ph
-Main----------------------------------------------------------------
Declare Timer_Busy%,Ende%
Declare TimerID&,Create%,T_Text&,Test#
WindowStyle 26
WindowTitle "Timertest PHU-60"
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,25,@ProcAddr("Timer",4))
WhileNot Ende%
WaitInput
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 @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&
Dim Test#,1000000
Inc Timer_Busy%
Locate 5,5
Print "Timer:" + @str$(Timer_Busy%) + " Durchläufe"
Settext T_Text&,"Timer:" + @str$(Timer_Busy%) + " Durchläufe"
se Test#
ENDPROC
|
|
|
| |
|
|
|
Sebastian König | ¡Hola Andreas,
seltsam - Yo podría el beschriebenen Fehler en me (WinXP Prof. SP2 en aktuellem Actualización-Stand) por desgracia, no reproduzieren... weder Zugriffsverletzung todavía Kuddelmuddel treten en.
Hast Usted lo auch ya con el aktuellen Beta-Versión 1.5.9f getestet? Dort Yo nämlich u.a. una Detalle en Behandlung de CallBack-Características-Características geändert, el sonst evtl. a Problemen hätte führen puede...
MfG
Sebastian |
|
|
| |
|
|
|
| Aktuelle Beta todavía no, mache Yo aber todavía. Der Fehler tritt en, si encima el Menü el Diálogo aufgerufen se - pero no siempre (Rechnerabhängig). Im Anhang es mi EXE. |
|
|
| |
|
|
|
| Hast du veces el Downloadlink? En Beta, el Yo eben heruntergeladen habe, tritt el Fehler siempre todavía en (Zugriffsverletzung), es bloß seltener... |
|
|
| |
|
|
|
Sebastian König | Mit el zweiten Code podría Yo bajo XProfan incluso el Fehler ahora reproduzieren (Dialogfenster restos leer y reagiertt no en Schließen). Mit Profano2Cpp allerdings trotz zahlreicher Versuche allerdings todavía siempre no... liegt lo tal vez wirklich a mi sistema oder debería el Fehler, si él en una Rechner con XProfan auftritt auch con Profano2Cpp auftreten?
Was Yo ya sagen kann es, dass zumindest el Ursache con Profano2Cpp una otro ser debería. Hier nutzen nämliche sólo normale Prozeduren el gemeinsamen Parámetro-Stack - en CallBack-Características y eingebauten Befehlen y Características se el bastante normale Stack (como en ASM) a Übergabe benutzt, sodass se hier el Aufrufe no gegenseitig stören puede...
P.S.: Su EXE es desafortunadamente sólo el .cpp-Expediente... |
|
|
| |
|
|
|
Sebastian König | [quote:f458ed4358]Hast du veces el Downloadlink? En Beta, el Yo eben heruntergeladen habe, tritt el Fehler siempre todavía en (Zugriffsverletzung), es bloß seltener... [/quote:f458ed4358] Hier el direkte Link: [...] .
Welche Versión genau hast Usted porque ahora? |
|
|
| |
|
|
|
| Espectáculos 1.5a a. El EXE Yo neu hochgeladen (hoffentlich ahora correcto, komme gerade de el Nachtschicht ) |
|
|
| |
|
|
|
Sebastian König | [quote:bebe64f95b]Espectáculos 1.5a a.[/quote:bebe64f95b] Ok, el es ya otra vez relativ alt . Bajo el Link oben findest Usted el aktuelle Beta-Versión 1.5.9f. Darin son neben algunos Bugfixes auch ya el neuen XProfan 10-Features enthalten.
[quote:bebe64f95b]El EXE Yo neu hochgeladen (hoffentlich ahora correcto, komme gerade de el Nachtschicht )[/quote:bebe64f95b] Ähmm... wo? Bajo el Link oben befindet se siempre todavía el gleiche Expediente... (EDIT: Yo sehe gerade: el doppelte Begriff Link oben es natürlich kontextabhängig a interpetieren ) |
|
|
| |
|
|
|
| ¡Hola Sebastian...
Yo voluntad una Ver código fuente ,bauen en el el problema häufiger auftritt, kann aber algo dauern.... |
|
|
| |
|
|
|
Sebastian König | [quote:5ea9f5dcc3]Yo voluntad una Ver código fuente ,bauen en el el problema häufiger auftritt, kann aber algo dauern.... [/quote:5ea9f5dcc3] Super - danke!
Dann tritt el problema also auch con 1.5.9f todavía en? Wenn sí, Todavía una Concepto: Intento veces Por favor,, el SetTimer-Aufruf así a gestalten:
P2CPP: <USE_CALL_ST,USE_EXTERNAL_ST> Timerid& = ~Settimer(%Hwnd,333,25,@Procaddr(Temporizador,4)) P2CPP: </USE_CALL_ST,/USE_EXTERNAL_ST>
(funktioniert allerdings todavía no con 1.5a) Tal vez liegt el Ursache sí en el Multithread-Konzept el übersetzten Programas... |
|
|
| |
|
|
|
| Ob el Fehler Auftritt oder no hängt u.a. de el Speicherauslastung de. Bajo el neuen Beta podría Yo, el Fehler todavía no nachvollziehen. Bajo Windows2000 Tuve auch con el älteren Profano2Cpp Versión bislang todavía no Fehlermeldung. Melde mich otra vez. |
|
|
| |
|
|