XProfan

Kompilieren Marca Separación

- Página 1 -

Also en diesem Source:

cls
DECLARE F&
DECLARE TEXT100&, TEXT101&, TEXT102&, TEXT103&, Texto104&, TEXT105&, TEXT106&, TEXT107&
DECLARE TEXT108&, TEXT109&, TEXT110&, TEXT111&, TEXT112&, TEXT113&, TEXT114&, TEXT115&
DECLARE TEXT116&, TEXT117&, TEXT118&, TEXT119&, TEXT120&
DECLARE EDIT100&, EDIT101&, EDIT102&, EDIT103&, EDIT104&, EDIT105&, EDIT106&, EDIT107&
DECLARE EDIT200&, EDIT201&, EDIT202&, EDIT203&, EDIT204&, EDIT205&, EDIT206&, EDIT207&
DECLARE EDIT300&, EDIT301&, EDIT302&, EDIT303&, EDIT304&, EDIT305&, EDIT306&, EDIT307&
DECLARE EDIT400&, EDIT401&, EDIT402&, EDIT403&, EDIT404&, EDIT405&, EDIT406&, EDIT407&
DECLARE EDIT500&, EDIT501&, EDIT502&, EDIT503&, EDIT504&, EDIT505&, EDIT506&, EDIT507&
DECLARE EDIT600&, EDIT601&, EDIT602&, EDIT603&, EDIT604&, EDIT605&, EDIT606&, EDIT607&
DECLARE EDIT700&, EDIT701&, EDIT702&, EDIT703&, EDIT704&, EDIT705&, EDIT706&, EDIT707&
DECLARE EDIT800&, EDIT801&, EDIT802&, EDIT803&, EDIT804&, EDIT805&, EDIT806&, EDIT807&
DECLARE EDIT900&, EDIT901&, EDIT902&, EDIT903&, EDIT904&, EDIT905&, EDIT906&, EDIT907&
DECLARE BUTTON100& , BUTTON101&
F& = @Crear(Diálogo,%Hwnd,Eingabe,0,220,%maxX,500)
Startpaint F&
UseBrush 1,@RGB(150,200,250)
Rectángulo 0095,0100-0194,0130
Rectángulo 0195,0100-0294,0130
Rectángulo 0295,0100-0394,0130
Rectángulo 0395,0100-0494,0130
Rectángulo 0495,0100-0594,0130
Rectángulo 0595,0100-0694,0130
Rectángulo 0695,0100-0724,0130
Color del texto @RGB (0,0,0),-1
USEFONT MS Sans Serif,13,0,0,0,0
DRAWTEXT 0100,0108, Tiempo: de    -   a
DRAWTEXT 0205,0108, Gerätefahrer
DRAWTEXT 0305,0108, Personalkosten
DRAWTEXT 0402,0108, Arbeitsauftrag
DRAWTEXT 0505,0108, Arbeitsort
DRAWTEXT 0605,0108, Zielkosten
DRAWTEXT 0702,0108, Art
EndPaint
SETDIALOGFONT 1
TEXT104& = CREATE(TEXT,F&,Spätschicht al:,0020,0135,0200,0019)
TEXT105& = CREATE(TEXT,F&,Nachtschicht al:,0020,0220,0200,0019)
TEXT106& = CREATE(TEXT,F&,Frühschicht al:,0020,0305,0200,0019)
TEXT107& = CREATE(TEXT,F&,Hier se geplant qué el Zeug hält ...!!!,0020,0020,0200,0019)
TEXT108& = CREATE(TEXT,F&,Und zwar para el Fahrzeug:,0095,0050,0130,0019)
TEXT100& = CREATE(TEXT,F&,Merc 1,0250,0050,0070,0019)
TEXT109& = CREATE(TEXT,F&,con el pol. Kennzeichen:,0095,0075,0130,0019)
TEXT101& = CREATE(TEXT,F&,CB - AT 714,0250,0075,0070,0019)
TEXT110& = CREATE(TEXT,F&,y el Equipment-Nr.:,0330,0075,0110,0019)
TEXT102& = CREATE(TEXT,F&,52 15 03 11,0450,0075,0060,0019)
TEXT111& = CREATE(TEXT,F&,Funk-Nr:,0530,0075,0040,0019)
TEXT103& = CREATE(TEXT,F&,K 417,0580,0075,0030,0019)
TEXT112& = CREATE(TEXT,F&,Auftrag 1,0020,0155,0050,0019)
TEXT113& = CREATE(TEXT,F&,Auftrag 2,0020,0175,0050,0019)
TEXT114& = CREATE(TEXT,F&,Auftrag 3,0020,0195,0050,0019)
TEXT115& = CREATE(TEXT,F&,Auftrag 1,0020,0240,0050,0019)
TEXT116& = CREATE(TEXT,F&,Auftrag 2,0020,0260,0050,0019)
TEXT117& = CREATE(TEXT,F&,Auftrag 3,0020,0280,0050,0019)
TEXT118& = CREATE(TEXT,F&,Auftrag 1,0020,0325,0050,0019)
TEXT119& = CREATE(TEXT,F&,Auftrag 2,0020,0345,0050,0019)
TEXT120& = CREATE(TEXT,F&,Auftrag 3,0020,0365,0050,0019)
EDIT100& = CREATE(EDIT,F&,13:15,0095,0155,0049,0019)
EDIT101& = CREATE(EDIT,F&,14:45,0145,0155,0049,0019)
EDIT102& = CREATE(EDIT,F&,Hilprecht, A.,0195,0155,0099,0019)
EDIT103& = CREATE(EDIT,F&,15313125,0295,0155,0099,0019)
EDIT104& = CREATE(EDIT,F&,Ablösung,0395,0155,0099,0019)
EDIT105& = CREATE(EDIT,F&,F60 HAE,0495,0155,0099,0019)
EDIT106& = CREATE(EDIT,F&,15311311,0595,0155,0099,0019)
EDIT107& = CREATE(EDIT,F&,01,0695,0155,0029,0019)
EDIT200& = CREATE(EDIT,F&,14:45,0095,0175,0049,0019)
EDIT201& = CREATE(EDIT,F&,15:45,0145,0175,0049,0019)
EDIT202& = CREATE(EDIT,F&,Hilprecht, A.,0195,0175,0099,0019)
EDIT203& = CREATE(EDIT,F&,15313125,0295,0175,0099,0019)
EDIT204& = CREATE(EDIT,F&,Gleisbau,0395,0175,0099,0019)
EDIT205& = CREATE(EDIT,F&,F60 HAE,0495,0175,0099,0019)
EDIT206& = CREATE(EDIT,F&,15311321,0595,0175,0099,0019)
EDIT207& = CREATE(EDIT,F&,01,0695,0175,0029,0019)
EDIT300& = CREATE(EDIT,F&,,0095,0195,0049,0019)
EDIT301& = CREATE(EDIT,F&,,0145,0195,0049,0019)
EDIT302& = CREATE(EDIT,F&,,0195,0195,0099,0019)
EDIT303& = CREATE(EDIT,F&,,0295,0195,0099,0019)
EDIT304& = CREATE(EDIT,F&,,0395,0195,0099,0019)
EDIT305& = CREATE(EDIT,F&,,0495,0195,0099,0019)
EDIT306& = CREATE(EDIT,F&,,0595,0195,0099,0019)
EDIT307& = CREATE(EDIT,F&,,0695,0195,0029,0019)
EDIT400& = CREATE(EDIT,F&,,0095,0240,0049,0019)
EDIT401& = CREATE(EDIT,F&,,0145,0240,0049,0019)
EDIT402& = CREATE(EDIT,F&,,0195,0240,0099,0019)
EDIT403& = CREATE(EDIT,F&,,0295,0240,0099,0019)
EDIT404& = CREATE(EDIT,F&,,0395,0240,0099,0019)
EDIT405& = CREATE(EDIT,F&,,0495,0240,0099,0019)
EDIT406& = CREATE(EDIT,F&,,0595,0240,0099,0019)
EDIT407& = CREATE(EDIT,F&,,0695,0240,0029,0019)
EDIT500& = CREATE(EDIT,F&,,0095,0260,0049,0019)
EDIT501& = CREATE(EDIT,F&,,0145,0260,0049,0019)
EDIT502& = CREATE(EDIT,F&,,0195,0260,0099,0019)
EDIT503& = CREATE(EDIT,F&,,0295,0260,0099,0019)
EDIT504& = CREATE(EDIT,F&,,0395,0260,0099,0019)
EDIT505& = CREATE(EDIT,F&,,0495,0260,0099,0019)
EDIT506& = CREATE(EDIT,F&,,0595,0260,0099,0019)
EDIT507& = CREATE(EDIT,F&,,0695,0260,0029,0019)
EDIT600& = CREATE(EDIT,F&,,0095,0280,0049,0019)
EDIT601& = CREATE(EDIT,F&,,0145,0280,0049,0019)
EDIT602& = CREATE(EDIT,F&,,0195,0280,0099,0019)
EDIT603& = CREATE(EDIT,F&,,0295,0280,0099,0019)
EDIT604& = CREATE(EDIT,F&,,0395,0280,0099,0019)
EDIT605& = CREATE(EDIT,F&,,0495,0280,0099,0019)
EDIT606& = CREATE(EDIT,F&,,0595,0280,0099,0019)
EDIT607& = CREATE(EDIT,F&,,0695,0280,0029,0019)
EDIT700& = CREATE(EDIT,F&,,0095,0325,0049,0019)
EDIT701& = CREATE(EDIT,F&,,0145,0325,0049,0019)
EDIT702& = CREATE(EDIT,F&,,0195,0325,0099,0019)
EDIT703& = CREATE(EDIT,F&,,0295,0325,0099,0019)
EDIT704& = CREATE(EDIT,F&,,0395,0325,0099,0019)
EDIT705& = CREATE(EDIT,F&,,0495,0325,0099,0019)
EDIT706& = CREATE(EDIT,F&,,0595,0325,0099,0019)
EDIT707& = CREATE(EDIT,F&,,0695,0325,0029,0019)
EDIT800& = CREATE(EDIT,F&,,0095,0345,0049,0019)
EDIT801& = CREATE(EDIT,F&,,0145,0345,0049,0019)
EDIT802& = CREATE(EDIT,F&,,0195,0345,0099,0019)
EDIT803& = CREATE(EDIT,F&,,0295,0345,0099,0019)
EDIT804& = CREATE(EDIT,F&,,0395,0345,0099,0019)
EDIT805& = CREATE(EDIT,F&,,0495,0345,0099,0019)
EDIT806& = CREATE(EDIT,F&,,0595,0345,0099,0019)
EDIT807& = CREATE(EDIT,F&,,0695,0345,0029,0019)
EDIT900& = CREATE(EDIT,F&,,0095,0365,0049,0019)
EDIT901& = CREATE(EDIT,F&,,0145,0365,0049,0019)
EDIT902& = CREATE(EDIT,F&,,0195,0365,0099,0019)
EDIT903& = CREATE(EDIT,F&,,0295,0365,0099,0019)
EDIT904& = CREATE(EDIT,F&,,0395,0365,0099,0019)
EDIT905& = CREATE(EDIT,F&,,0495,0365,0099,0019)
EDIT906& = CREATE(EDIT,F&,,0595,0365,0099,0019)
EDIT907& = CREATE(EDIT,F&,,0695,0365,0029,0019)
BUTTON100& = CREATE(BUTTON,F&,Übernahme el Planung en el Anzeigemappe,0120,0400,0250,0030)
BUTTON101& = CREATE(BUTTON,F&,Alto - Schließen sin Guardar,0400,0400,0250,0030)
@SetFocus(F&)
waitinput
end

voluntad todos Controls en me erstellt - no Spur de una Problema.

RGH

Tiempo una Zwischenbemerkung:

Wäre no sinnvoller, längere Listings primero siempre eingeklappt (also como después de el Clic el entsprechende Icon) anzuzeigen? Das sería el Ladezeit mancher Páginas erheblich verkürzen. Und wer lo komplett sehen voluntad, kann lo siempre todavía ausklappen.

Saludo
Roland
(el ansonsten no Einschränkungen en Editar-Feldern en aktuellen XProfan- y Windowsversionen bekannt son)

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Frank
Abbing

Wäre no sinnvoller, längere Listings primero siempre eingeklappt (also como después de el Clic el entsprechende Icon) anzuzeigen? Das sería el Ladezeit mancher Páginas erheblich verkürzen. Und wer lo komplett sehen voluntad, kann lo siempre todavía ausklappen.

Das macht doch sowieso cada, ausklappen mi Yo. Fände Yo no bien, si todos Quellcodes zugeklappt wären. Dauert entonces en el Endeffekt doch länger como como ahora es.

Andre
Hilprecht

Hi IF,
como ya dijo, solange Yo el en el Interpretermodus de XProfan 9 laufen lasse, es alles Bestens, compiliere Yo y erzeuge una Exe - como waren lo de 72 sólo todavía 30 Edit´s

Hi Roland,
como bringe Yo el porque eingeklappt a Papier, äh Bildschirm?
Hast Usted una otro Editor para esta Beiträge? Puedo doch sólo media
Code zwischen (code) y (/code) conjunto y luego ... como einklappen ahora?
In otro Programmier-Foren, como hay una Bildschirmvorschau, como puede ser antes el Abschicken seine Untaten sehen.
Ist tal vez veces una Anregung.

Saludo André

Frank
Abbing

como ya dijo, solange Yo el en el Interpretermodus de XProfan 9 laufen lasse, es alles Bestens, compiliere Yo y erzeuge una Exe - como waren lo de 72 sólo todavía 30 Edit´s

Benutzt du GOTO en deinem Programa oder springst du sonstwie de uno Mientras que/Whileloop-Bucle? Überkreuzen se solche Schleifen?
Compiliere deinen Code veces con XPSE oder untersuche deinen Code con Sebastian Königs Tool.
Tal vez leidet dein Sistema auch a Speichermangel. Alles es posible.
Welchen Valor informe porque el Handle el no dargestellten Controls? Null?

El Prevista kommt auch otra vez! Wegen el Bauarbeiten y Interruptor de BBCode en iFBBCode

temporär salvo Betrüp.

Einklappen kann sólo el Besucher mittels el Pfeilknöpfen rechts oben a cada CodeBox - el kannst Usted also no encima una Tag bestimmen.

Andre
Hilprecht

Hi Franco,

kein GOTO
no überkreuzten Schleifen
determinado kein Speichermangel

y a Handles .... como ... ni idea.

Saludo André

Naja, Control 31 qué no dargestellt se - dessen Handle speicherst Usted sí en una variable. print

e veces esta Variable vorm Waitinput de y mostrar qué Usted adecuado se. Sozusagen el einfachste Form des Debuggings.

- Página 2 -

Rolf
Koch

¡Hola Andre, besorg Dir veces Winspy hay kannste untersuchen si el Dinger wirklich no erstellt fueron oder simplemente sólo el Koordianten verrückt spielen.
[...]

Mit Handles Mostrar es simplemente gemeint:
z,B,;
Imprimir edit100& y si como nun 0 es wurde lo de irgendwelchen Gründen no producido.

Andre
Hilprecht

Yo hoffe, Yo tener el correcto gemacht:

Imprimir Editar406&

como kommen Nullen, aber auch si yo una angezeigtes Editar Printe

Andre
Hilprecht

Schreibe Yo una Waitinput en el Proc incluso rein y davor Imprimir Editar 406& entonces kommt una 7-stellige Zahl