XProfan

09.02.2005 ▲

- Página 1 -

GDL

Hi If

Gracias para el Tip.Pero dado que el Anwender el Texto determinado debería Yo el Stringvariable vorher sólo en un BMP Expediente umwandeln.
Das todo Programa(dBase Dateigenerator con kleiner Programieroberfläche) entstand eigentlich sólo,porque Hice Usted bekannten Grund mi kompletten Programas neu escribir muss.Como me esta algunos Profaner geholfen haben el Dateigenerator hinzukriegen,Yo quería esta nun freeware para Principiante(aber sólo para hiesige Miembros
y sólo en Su Foro beschränkt) anbieten.

Das el Dateigenerator como EXE en uno Staticsorte no va,Yo
sólo bemerkt como Yo el Installationspacket para Subir herrichtete y nochmals vorher Durchtestete.

Tal vez liegt el Fehler auch en un otro Programmteil,el el Interpreter ignoriert y Compiler no.Graue Statics dejar se
komischerweise anstandslos beschriften.
Eines kann Yo aber ahora 100%ig ausschließen,a el neuen Board
liegts no.Auf el alten Board hatte el Programa todavía no weißen
Statics y jetzige Versión se ejecuta auch en el alten Board no correcto.

Löse ahora betreffende Zeilen de el Gesamtcode y schaue qué entonces
passiert.Rolf ha me auch qué para Testen geschickt,nochmals ne Chance.

Tal vez kriege Yo auch algo Vernünftiges en el Beine.

Mit freundlichen Grüßen de el todavía verschneiten Niederbayern
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

Hi If,

kopiere hier simplemente el Nachricht a Rolf

Hi Rolf

legte una Nachtschicht una,como me dies Ding no Ruhe ließ.
Posesiones lo ahora gelöst.

Posesiones deinen Code simplemente Stück para Stück zerlegt,esta kam folgendes fuera:

declarar test&
proc schrift
startpaint test&
UseFont COURIER,0,12,0,0,0
drawtext 1,1,Test
endpaint
ENDPROC
cls
test&=Control(STATIC,Test,$54001006,200,20,100,20,%hwnd,0, %hInstance,$0)
schrift
schrift
waitkey

En einmaligen Aufruf el Procedure Schrift Yo gleiches altes Problema.
Como aber Usted en Deinem Ejemplo el Procedure mehrmals Durchlaufen läßt,Yo el Proc. simplemente veces zweimal hintereinander aufgerufen.
Wenn Yo auch no verstehe,aber entonces gings en una vez.

Nun lasse Yo en mi Programa Startpaint Endpaint auch mehrmals Durchlaufen y lo va auch.

declarar hg%
whilenot hg% > 2
startpaint objekt&[num%]
UseFont COURIER,0,12,0,0,0
drawtext 1,1,objeto$[num%]
endpaint
inc hg%
wend

Ohne Su código wäre Yo niemals en el Concepto gekommen Startpaint Endpaint mehrmals hintereinander aufzurufen.Nochmals Gracias.

Un letzte Bitte hätte Todavía,podría me alguien erklären por qué dies así es,oder si dies sólo bajo WinME así es.

Así que una vez más Euch beiden una großes Dankeschön.

Mit freundlichen Grüßen
Georg

Für If

Wenn nichts dagegenspricht sería Yo el Prog. nochmals durchsehen y en el Gefahr hin,dass lo en otro Win.Versionen salvo ME no
se ejecuta Usted zukommen dejar.Yo möchte lo ahora doch no mehr unangesehen en el Miembros loslassen.

Windows7 Xprofan 8,9,10 [...]

- Página 2 -

Lo spricht wohl nichts dagegen.

Salve, IF

GDL

Hi If

mi Anwendung nutzt unos pocos Includedateien de Prfellow.Prfellow Aunque Freeware,aber dürfen sólo Includedateien auch weitergegeben voluntad?Wenn no entonces lösche Yo esta de el Directorio y Usted musst esta entonces manuell de Prfellow einfügen.Thomas Hölzer puede ser sí por desgracia, no mehr anfragen.

Mit freundlichen Grüßen
Georg

Windows7 Xprofan 8,9,10 [...]

Yo glaube no el él algo dagegen hätte. Lo dient sí el Zweck y ernannt se él en efecto.

Salve, IF

¡Hola Georg...

Profano verarbeitet Messages en el Interpretermodus después de cada Línea, en el EXE sólo después de cada zwanzigsten Línea (mehr Geschwindigkeit) => deshalb el Unterschiede. Wenn du con Starpaint / Endpaint arbeitest, muß sowieso siempre una Repaint her, como Si es usted el sí ya erkannt hast.

GDL

Hi Andreas

Schön langsam kommt uno en el Kniffe.Falls If el Prog.para erwähnenswert hält,möchte Yo hier descargable hacer.Como du me vorher auch ya geholfen hast,bist du auch en el Startdialog erwähnt.
Wenn du esto no es möchtest,sage if él se lo todavía no bereitstellen.

Mit freundlichen Grüßen
Georg

Windows7 Xprofan 8,9,10 [...]

Puedo sólo sagen el Yo el Prog todavía no durchexaminiert habe. Das typsiche por qué por qué wieso-Syndrom es todavía al werkeln.
Si divulgar geblickt habe entonces poste Yo gerne - es schließlich una beträchtliches Stück Arbeit - respekt!

Salve, IF

¡Hola Georg...

[quote:466d42be0b]
Wenn du esto no es möchtest,sage if él se lo todavía no bereitstellen.
[/quote:466d42be0b]
Das restos dir überlassen.

Über el Problemas con el Messagehandling puede ser muy ligeramente stolpern:
Profano fängt Messages de, en z.B. el profaneigenen Systemvariablen (u.a. %MENUITEM) a conjunto. %MENUITEM es eigentlich auch nichts más como el Rückgabewert uno Message (oder viel mejor ni Kombination de meheren Messagerückgaben). Im Interpreter verarbeitet Profano el Messages después de cada Línea, en el compilierten EXE dagegen después de cada 20.Línea. Antes Windows Así que el Info bekommt, daß eventuell algo neugezeichnet voluntad muß, puede Programa ya zwanzig Zeilen más ser.
Auffällig se el en el Regel aber sólo a Stellen, a denen Programmabschnitte vorkommen, el längere Tiempo en Anspruch nehmen (ADDFILES,PLAYSOUND,Sleep...).

Hier algo muy einfaches como Ejemplo:
Kompilieren Marca Separación

WindowStyle 31
Windowtitle "Messagehandling in Profan"
Window 0,0-640,400
Declare Listbox&
LET LISTBOX&=@CREATELISTBOX(%HWND,"",20,20,300,300)
@ADDSTRING(LISTBOX&,"Vor Sleep")
Beep 1
Sleep 10000

While @equ(0,0)

    Waitinput

KompilierenMarcaSeparaciónVentana de Estilo 31
Windowtitle "Messagehandling en Profan"
Ventana 0,0-640,400
Declarar Listbox&
LET LISTBOX&=@CREATELISTBOX(%HWND,"",20,20,300,300)
@ADDSTRING(LISTBOX&,"Vor Sleep")
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
Beep 1
Sleep 10000

Mientras que @equ(0,0)

    Waitinput

Wend


Oder auch veces el:
KompilierenMarcaSeparaciónVentana de Estilo 31
Windowtitle "Messagehandling en Profan"
Ventana 0,0-640,400
Declarar Listbox&
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
LET LISTBOX&=@CREATELISTBOX(%HWND,"",20,20,300,300)
REM
REM
@ADDSTRING(LISTBOX&,"Vor Sleep")
Beep 1
Sleep 10000
@ADDSTRING(LISTBOX&,"Nach Sleep")

Mientras que @equ(0,0)

    Waitinput

Wend


Messages voluntad u.a. una Waitinput verarbeitet => deshalb IFs Vorschlag con el Temporizador.
Yo hoffe, Yo podría dir algo mehr Durchblick por el Sache verschaffen - es auch para algo erfahrenere Personas schwer a durchschauen...

GDL

Hi Andreas

toll,el ihr todos me helft.Möchte no simplemente blind alles tomar,pero möglichst viel aprender a solchen Sachen,el eigentlich kein Fehler son.Werde Euch determinado más con banalen
Fragen beschäftigen.

Mit freundlichen Grüßen
Georg Dankesreiter

Windows7 Xprofan 8,9,10 [...]

Exactamente dafür es esta Comunidad como.

Salve, IF