XProfan

Deutsch

Web
Scanner

Eine neue Frage vom Web

Ich eröffne ein Zeiteingabefeld:
Kompilieren Markieren Separieren

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

..und möchte das mit timeup& = @GetText$(timeEdit1&) auslesen.

Da kommt logischerweise nur Schrott raus.

Ich bräuchte die Stunden und Minuten in je einer eigenen Variablen,
um diese dann weiterverarbeiten zu können.

Ich hab in der Suche zwar bissel was gefunden, aber nicht verstanden.
Gibt es da eine einfache Lösung?

Danke + Grüße

Web

Xprofan X3.1

Win7 auf AMDX6

27.10.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

Hey Web
Kann ja so nicht funktionieren, denn Du nutzt als Variable eine falsche. Du musst eine Stringvariable zuordnen:
Kompilieren Markieren Separieren

zeit$=gettext$(timeedit1&)

27.10.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

Ok, hier mal ein Beispiel:
Kompilieren Markieren Separieren

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