XProfan

Français

Web
Scanner

une neue Frage vom Web

je eröffne un Zeiteingabefeld:
Kompilieren Marque Séparation

DrawText 20,150,  "Zeitdauer steigende Rampe "
timeEdit1& = @Create("TimeEdit", hd%, "00.00.00", 220, 148, 100, 24)e>

..et voudrais cela avec timeup& = @GetText$(timeEdit1&) auslesen.

là venez logischerweise seulement Schrott raus.

je bräuchte qui Stunden et Minuten dans je einer eigenen Variablen,
um cet ensuite weiterverarbeiten trop peut.

je hab dans qui cherche zwar bissel quoi trouvé, mais pas verstanden.
Gibt es là une simple Solution?

merci + Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

27.10.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Hey Web
peux oui so pas marcher, car Du utilise comme Variable une falsche. Du musst une Stringvariable zuordnen:
Kompilieren Marque Séparation

zeit$=gettext$(timeedit1&)

27.10.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Ok, ici la fois un Beispiel:
Kompilieren Marque Séparation

********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.7
DATUM  27.10.2009    um  21:44 Uhr
VERWENDETE PROFANVERSION IST 11.0-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
DECLARE TIMEEDIT1&,ENDE%,zeit$
Declare std$,min$,sek$,output&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Zeitedit auslesen"
WINDOW 22,20-576,327
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
TIMEEDIT1& = CREATE("TIMEEDIT",%HWND,"",0018,0020,0120,0020)
Output&= CREATE("MULTIEDIT",%HWND,"",0178,0020,0120,-120)
SETFOCUS(%HWND)
REPAINT

WHILENOT ENDE%

    WAITINPUT
    zeit$=gettext$(timeedit1&)
    std$=mid$(zeit$,1,2)
    min$=mid$(zeit$,4,2)
    sek$=mid$(zeit$,7,2)
    Settext output&,"Stunden: "+std$+"
    Minuten: "+min$+"
    Sekunden: "+sek$

    If %KEY=2

        ENDE%= 1

    ELSEIF %KEY=4

    ELSEIF CLICKED(TIMEEDIT1&) TIMEEDIT

    ENDIF

ENDWHILE