XProfan

Hm Dein Code ruft eine Funktion "zentriert" auf aber die liegt nicht bei.

Ein paar Anmerkungen:

Du nutzt mehrmals WindowStyle vlt. um den Stil des Hauptfenster erneut festzulegen -

WindowStyle um den Hauptfensterstil zu definieren kann nur einmal vor Erzeugung des Hauptfensters angewandt werden.

Dann nutzt Du sleep vermutlich in der Hoffnung das Dein "Splash-Screen" eine Zeit lang angezeigt wird -

das kann aber nach hinten losgehen da Sleep eher sowas wie "ProgrammAnhalten" heißt und wenn das Fenster bis dahin nicht vollständig gemalt/ aufgebaut wurde dann sieht man "nix". Wenn der Nutzer warten soll dann immer besser waitInput da der Thread dabei nicht stehen bleibt.

Z.B.
Kompilieren Markieren Separieren

proc userWarte

    parameters ms&
    var tme&=&getTickCount+ms&

    while &getTickCount<tme&

        waitInput 30

    wend

endProc

21.08.2011 ▲

Stephie

Der mit Zentriert erzeugte Code, setzt das Fenster immer mittig Bildschirm.
Kompilieren Markieren Separieren

'----- Fenster Zentriert -----

Proc Zentriert

    Parameters b%,h%
    Window ((%maxx - b%) / 2),((%maxy - h%) / 2) - b%,h%

EndProc

Das mit Windowstyle im Haupt-programm (im code) ist ein versehen, jetzt wo du es schreibst. Dort sollte es nicht mehr erscheinen.
Ja sleep sollte das Fenster anhalten um dann später weiterzumachen.
Werde mir aber deinen Vorschlag zu Herzen nehmen und mal tauschen.

XProfan 11

21.08.2011 ▲

Stephie

Sorry das ich mich erst jetzt melde, aber ein bekannter hat versucht mir meine gelöschte Datei zurück zu holen. Und er hat es geschafft.
Jetzt ist wieder alles beim alten.

iF, habe deinen Code getestet und für mich als nicht akzeptabel gefunden.
Es sollte ein startfenster erscheinen, damit der Anwender es kurz lesen kann und dann sollte das Hauptprogramm gestartet werden.
Mit deinem Code geht es gleich über in das Hauptfenster ohne das man die Chance hat das Startfenster zu sehen und zu lesen.
Also muss ich bei meiner Variante mit sleep bleiben.
Danke trotzdem für den Hinweis, habe mir es mal sicherheitshalber abgespeichert.

XProfan 11

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Grüße!

Aber... ne - dann hast Du es meiner Meinung nach nicht "richtig" eingebaut.

Du musst an die Funktion genauso wie an Sleep als Parameter die Anzahl der zu wartenden Millisekunden anhängen.

userWarte 2000 wird definitiv mindestens 2 Sekunden warten -

bei Sleep hingegen kann es sein - wie ich schon schrieb - dass es im Ergebnis nicht immer so funktionieren wird wie Du Dir erhoffst wobei ich nicht von 1 Computer und 1 Betriebssystem schreibe sondern eben von einer breiten Masse.

Jörg
Sellmeyer

Hm - dann kann man das doch auch gleich so vereinfachen:
Kompilieren Markieren Separieren

proc userWarte

    parameters ms&

    while 1

        waitInput ms&

    wend

endProc

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

XProfan X2
Win7 Ultimate, PDual T2310 @ 1.46GHz

Paul
Glatz

Für mich sieht das wie eine Endlosschleife aus

Julian
Schmidt

Ist auch eine Endlosschleife

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Jörg
Sellmeyer

Sorry! Hatte ein Break vergessen.
Kompilieren Markieren Separieren

proc userWarte

    parameters ms&

    while 1

        waitInput ms&
        break

    wend

endProc

Cls
userwarte(2000)
print "fertig"
waitinput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

Nein kann man nicht da ne Nachricht reicht um die "Schleife" zu durchbrechen statt ms gewartet wird. oO Nach Deim Prinzip ist ja auch das While bzw. die Schleife ohne Bedeutung.

E.T.

Ich "baue" so einen Splash-Screen meist so, nur zur Anmerkung:
Kompilieren Markieren Separieren

Proc Splash

    Parameters SplashText$
    var Pic&[1] = @Create("hPic",Dll2&,"Splash")
    var Splash_Win& = @Create("Bitmap",%Desktop,Pic&[1],(%MaxX/2-280),(%MaxY/2-280))
    StartPaint Splash_Win&
    TextColor RGB(255,255,0),-1
    UseFont "Arial",30,15,1,1,0
    DrawText 15,(@Height(Splash_Win&)-50),SplashText$
    EndPaint
    waitinput 2000'Zeit je nach Wunsch, oder ohne Zeit um auf User zu warten
    destroyWindow(Splash_Win&)

EndProc

Parameter ist ein variabler Text, der auf dem Bild angezeigt wird. Bei mir stammt das Pic aus 'ner dll (da verpack ich immer alles, was als "Zubehör" zum Progg gilt. Ein einfaches .bmp zu laden ist aber im Prinzip das gleiche....)

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

24.08.2011 ▲

XProfan X2
WinXP, SP3 v.3244, P4 3.06GHz

@E.T.: Naja, bei Deinem Beispiel ist es dem User möglich auch weniger als 2000ms zu warten z.B. indem er klickt. Soll der Splash aber eine gewisse Zeit angezeigt werden dann bringt das halt die Funktion die ich oben geschrieben habe.

25.08.2011 ▲