XProfan

English

Web
Scanner

an new question of Web

I eröffne one Zeiteingabefeld:
Compile Mark Separation

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

..and would like with the timeup& = @GetText$(timeEdit1&) read.

there comes logischerweise only Schrott out.

I bräuchte The hours and minutes in apiece of/ one own variables,
circa these then weiterverarbeiten to.

I Have in the Search of course bissel what found, but not understood.
gives it there a simple Solution?

thanks + Regards

Web

Xprofan X3.1

Win7 auf AMDX6

10/27/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

Hey Web
can Yes so not functions, because You uses as Variable a incorrect. You must a Stringvariable zuordnen:
Compile Mark Separation

zeit$=gettext$(timeedit1&)

10/27/09 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Rolf
Koch

OK, here time an example:
Compile Mark Separation

********************** 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