XProfan

Kompilieren Marque Séparation

- page 1 -

alors chez diesem Source:

cls
DECLARE F&
DECLARE TEXT100&, TEXT101&, TEXT102&, TEXT103&, Text104&, 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& = @Créer(Dialog,%Hwnd,Eingabe,0,220,%maxx,500)
Startpaint F&
UseBrush 1,@RGB(150,200,250)
Rectangle 0095,0100-0194,0130
Rectangle 0195,0100-0294,0130
Rectangle 0295,0100-0394,0130
Rectangle 0395,0100-0494,0130
Rectangle 0495,0100-0594,0130
Rectangle 0595,0100-0694,0130
Rectangle 0695,0100-0724,0130
Couleur du texte @RGB (0,0,0),-1
USEFONT MS Sans Serif,13,0,0,0,0
DRAWTEXT 0100,0108, Zeit: de    -   jusqu'à
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 am:,0020,0135,0200,0019)
TEXT105& = CREATE(TEXT,F&,Nachtschicht am:,0020,0220,0200,0019)
TEXT106& = CREATE(TEXT,F&,Frühschicht am:,0020,0305,0200,0019)
TEXT107& = CREATE(TEXT,F&,ici wird geplant quoi cela Zeug hält ...!!!,0020,0020,0200,0019)
TEXT108& = CREATE(TEXT,F&,et zwar pour cela véhicule:,0095,0050,0130,0019)
TEXT100& = CREATE(TEXT,F&,Merc 1,0250,0050,0070,0019)
TEXT109& = CREATE(TEXT,F&,avec dem pol. Kennzeichen:,0095,0075,0130,0019)
TEXT101& = CREATE(TEXT,F&,CB - AT 714,0250,0075,0070,0019)
TEXT110& = CREATE(TEXT,F&,et qui 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 qui Planung dans qui Anzeigemappe,0120,0400,0250,0030)
BUTTON101& = CREATE(BUTTON,F&,démolir - Schließen sans Sauver,0400,0400,0250,0030)
@SetFocus(F&)
waitinput
end

volonté alle Controls chez mir erstellt - aucun vestige de einem Problem.

RGH

la fois une Zwischenbemerkung:

Wäre es pas sinnvoller, längere Listings zunächst toujours eingeklappt (alors so comment pour dem Klick sur cela entsprechende Icon) anzuzeigen? cela serait qui Ladezeit mancher Seiten erheblich verkürzen. et qui es komplett voyons veux, peux es toujours ausklappen.

Salut
Roland
(dem ansonsten aucun Einschränkungen chez Éditer-Feldern dans aktuellen XProfan- et Windowsversionen bekannt sommes)

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 es pas sinnvoller, längere Listings zunächst toujours eingeklappt (alors so comment pour dem Klick sur cela entsprechende Icon) anzuzeigen? cela serait qui Ladezeit mancher Seiten erheblich verkürzen. et qui es komplett voyons veux, peux es toujours ausklappen.

cela fait doch sowieso chacun, ausklappen mon je. Fände je pas bien, si alle Quellcodes zugeklappt wären. Dauert ensuite im Endeffekt doch länger comme comme maintenant ist.

Andre
Hilprecht

Hi IF,
comment déjà dit, solange je cela im Interpretermodus de XProfan 9 courir lasse, ist alles Bestens, compiliere je et erzeuge une Exe - là étions es de 72 seulement encore 30 Edit´s

Hi Roland,
comment bringe je cela car eingeklappt trop papier, äh Bildschirm?
la hâte Du une anderen Editor pour cet Posts? je peux doch seulement meinen
Code entre (code) et (/code) mettons et ensuite ... comment einklappen maintenant?
dans anderen Programmier-Foren, là gibt es une Bildschirmvorschau, là peux on avant dem envoyer sa Untaten voyons.
Ist peut-être la fois une Anregung.

Salut André

Frank
Abbing

comment déjà dit, solange je cela im Interpretermodus de XProfan 9 courir lasse, ist alles Bestens, compiliere je et erzeuge une Exe - là étions es de 72 seulement encore 30 Edit´s

Benutzt du GOTO dans deinem Programme ou bien springst du sonstwie aus einer Tandis que/Whileloop-Boucle? Überkreuzen sich solche Schleifen?
Compiliere deinen Code la fois avec XPSE ou bien untersuche deinen Code avec Sebastian Königs Tool.
peut-être leidet dein System aussi à Speichermangel. Alles ist possible.
Welchen Wert annoncer car qui Handle qui pas dargestellten Controls? zéro?

qui Vorschau venez aussi wieder! à cause de qui Bauarbeiten et qui Commutateur de BBCode sur iFBBCode

temporär ausser Betrüp.

Einklappen peux seulement qui Besucher mittels den Pfeilknöpfen à droite dessus à chacun CodeBox - cela peux Du alors pas sur un journée bestimmen.

Andre
Hilprecht

Hi Frank,

ne...aucune GOTO
aucun überkreuzten Schleifen
bestimmt ne...aucune Speichermangel

et le Handles .... comment ... je n'en sais rien.

Salut André

bof, Contrôle 31 quoi pas dargestellt wird - dessen Handle speicherst Du oui dans une variable. print

e la fois cet Variable vorm Waitinput aus et exposition quoi Dir angezeigt wird. Sozusagen qui einfachste forme des Debuggings.

- page 2 -

Rolf
Koch

allô Andre, besorg Dir la fois Winspy là kannste untersuchen si qui Dinger wirklich pas erstellt wurden ou bien simple seulement qui Koordianten fou spielen.
[...]

avec Handles Montrer ist simple gemeint:
z,B,;
Imprimer edit100& et si là eh bien 0 steht wurde es aus irgendwelchen Trouvé pas erzeugt.

Andre
Hilprecht

je hoffe, nie gemacht richtig gemacht:

Imprimer Éditer406&

là venons Nullen, mais aussi si je un angezeigtes Éditer Printe

Andre
Hilprecht

Schreibe je un Waitinput dans qui Proc selbst rein et devant Imprimer Éditer 406& ensuite venez une 7-stellige numéro