XProfan

Español

Web
Scanner

Un neue Cuestión vom Web

Yo eröffne una Zeiteingabefeld:
Kompilieren Marca Separación

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

..y möchte el con timeup& = @GetText$(timeEdit1&) auslesen.

Como kommt logischerweise sólo Schrott fuera.

Yo bräuchte el Stunden y Minuten en je uno eigenen Variables,
en esta entonces weiterverarbeiten a puede.

Yo en el Búsqueda zwar bissel qué gefunden, pero no verstanden.
Gibt lo como una einfache Solución?

Gracias + Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

27.10.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Hey Web
Kann sí así no trabajo, porque Usted nutzt como Variable una falsche. Usted musst una Stringvariable zuordnen:
Kompilieren Marca Separación

zeit$=gettext$(timeedit1&)

27.10.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Rolf
Koch

Ok, hier veces una Ejemplo:
Kompilieren Marca Separación

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