XProfan

Cls
Declarar Liste&,Eingabe&,Button&
Liste& = Crear("ListBox",%hwnd,0,10,10,100,160)
Eingabe& =  Crear("Edit", %HWnd, "", 210, 10, 80, 25)
SendMessage(Eingabe&, $00C5, 10, 0)
Button& = Crear("Button",%hwnd,"einfügen",210,40,80,25)

Mientras que 1

    WaitInput

    If Clicked(Button&)

        If GetText $(Eingabe&) > ""

            AddStrings(Liste&,GetText $(Eingabe&))
            SetText Eingabe&,""

        EndIf

    EndIf

Wend

Declarar Name$, Vorname$, Ort$, Strasse$, Telefon$, otra vez$
Declarar ende%
Título de la ventana "Mein Fenster"
Ventana 500, 400
Cls RGB(0, 0, 0)' schwarzes Ventana
Color 14, 0
Fensteraufbau()
ende% = 0

Sinestar encargado ende%

    Localizar 2,13 : Entrada Name$
    Localizar 3,13 : Entrada Vorname$
    Localizar 4,13 : Entrada Ort$
    Localizar 5,13 : Entrada Strasse$
    Localizar 6,13 : Entrada Telefon$
    Localizar 7,20 : Entrada otra vez$

    If Upper$(otra vez$) = "N"

        ende% = 1

    Más

        Localizar 12, 10 : Imprimir Espacio$(70)
        Localizar 12, 10 : Imprimir Name$, Vorname$, Ort$
        LoescheEingabefelder()

    EndIf

EndWhile

Proc Fensteraufbau

    TBox 1, 1 - 9, 35; 2
    Localizar 2,2 : Imprimir "Name    : "
    Localizar 3,2 : Imprimir "Vorname : "
    Localizar 4,2 : Imprimir "Ort     : "
    Localizar 5,2 : Imprimir "Straße  : "
    Localizar 6,2 : Imprimir "Telefon : "
    Localizar 7,2 : Imprimir "Nochmal (J/N) ?"
    Localizar 1,5 : Imprimir "Eingaben"

ENDPROC

Proc LoescheEingabeFelder

    Localizar 2,13 : Imprimir Espacio$(22)
    Localizar 3,13 : Imprimir Espacio$(22)
    Localizar 4,13 : Imprimir Espacio$(22)
    Localizar 5,13 : Imprimir Espacio$(22)
    Localizar 6,13 : Imprimir Espacio$(22)

ENDPROC

End

DECLARE testtext0$,testtext1$,testtext2$

Proc Dput

    Parámetros x%, y%, r$, size%, mode%
    declarar DIend%,blink%,mod0$,mod1$,mod2$,curs$,a$
    'Vorgaben para el Eingabe Modis definieren"
    mod0$="0123456789"'modus 0 = sólo Pagar
    mod1$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"'modus 1 = Nur Buchstaben
    mod1$=mod1$+"-_.: !?"'modus 1 = plus ggf. sonderzeichen
    mod2$=mod0$+mod1$'modus 2 = Zeuichen de modus 1 y modus 2
    locate x%,y%
    imprimir r$;":";

    whilenot DIend%

        if blink%=1'si blinkender Cursor gewünscht es

            curs$="_  "'Cursor Mostrar

        más

            curs$="  "'Kein Cursor

        endif

        blink%=abs(blink%-1)' así se Blink% siempre  0 oder -1
        settimer 500'wartezeit 500 ms si no taste gedrückt se
        waitinput'warten en Eingabe ereigniss (Tastatur, Ratón..)
        killtimer
        'Hier el Auswertung el eingabe

        if (%scankey<>0)' wurde una taste gedrückt????

            if %scankey = 8' Del Taste gedrückt

                caso @len(a$)>=1: let a$=@mid$(a$,1,@len(a$)-1)'entonces el Stringvariable en 1 lugar abschneiden si Longitud Größer igual 1 zeichen es

            elseif %scankey = 13'Enter Taste

                DIend%=1

            más'weder ENTER todavía DEL

                if (@len(a$)<>size%)'Es el MaxLänge todavía no erreicht???

                    if mode% = 0

                        caso @instr(chr$(%scankey),mod0$)<>0: a$=a$+mid$(mod0$,@instr(chr$(%scankey),mod0$),1)'El Signo el en mod0$ angegeben son zulassen (hier sólo Pagar)

                    elseif mode% = 1

                        caso @instr(chr$(%scankey),mod1$)<>0: a$=a$+mid$(mod1$,@instr(chr$(%scankey),mod1$),1)'El Signo el en mod1$ angegeben son zulassen (hier sólo Buchstaben)

                    elseif mode% = 2

                        caso @instr(chr$(%scankey),mod2$)<>0: a$=a$+mid$(mod2$,@instr(chr$(%scankey),mod2$),1)'El Signo de en mod2$ (hier sólo Pagar y Buchstaben)

                    endif

                endif

            endif

        endif

        locate x%,y%
        caso DIend%=0:imprimir r$;":";a$;curs$

    wend

    PRINT r$;":";a$;"  "
    volver a$

ENDPROC

'Aufruf el Procedure
Dput 3,10,"Geben Sie Ihre PLZ ein",5,0
testtext0$= $(0)'Rückgabewert (eingabe) en Variable holen
Dput 4,5,"Geben Sie Ihre Ihren Namen ein",15,1
testtext1$= $(0)'Rückgabewert (eingabe) en Variable holen
Dput 5,5,"Geben Sie Ihre Ihre Strasse + Nr ein",15,2
testtext2$= $(0)'Rückgabewert (eingabe) en Variable holen
imprimir "Deine Eingaben waren "
imprimir testtext0$
imprimir testtext1$
imprimir testtext2$
waitinput

Declarar Dialog&, Btn1&, Editar1&, Editar2&, Editar3&, Ende&
Ende& = 0
Título de la ventana "Editfelder"
Ventana 600, 400
' Como en un Dialogfenster auch el ENTER-Taste en el Editar campo
' funktioniert, nehmen wir una Diálogo en lugar de una normalen Ventana.
Dialog& = Control("DIÁLOGO","",$54000000,10,10,200,150,%hwnd,0,%hInstance)
Crear("Text", Dialog&, "Nummer  :", 10, 10, 80, 20)
Crear("Text", Dialog&, "Name    :", 10, 35, 80, 20)
Crear("Text", Dialog&, "Ort     :", 10, 60, 80, 20)
Edit1& = Crear("Edit", Dialog&, "", 100, 10, 90, 20)
Edit2& = Crear("Edit", Dialog&, "", 100, 35, 90, 20)
Edit3& = Crear("Edit", Dialog&, "", 100, 60, 90, 20)
Btn1&  = Crear("Button", Dialog&, "", 10, 130, 40, 25)
' Um el Eingabe en uno Bucle a haben, sodaß el Cursor
' otra vez en el 1. Eingabefeld springt, se hier
' el Trick con un unsichtbaren Button angewandt.
' Dort se simplemente el Foco otra vez el erste
' Eingabefeld gelegt.
' Editfelder en 10 Signo limitieren
SendMessage(Editar1&, $00C5, 10, 0)
SendMessage(Editar2&, $00C5, 10, 0)
SendMessage(Editar3&, $00C5, 10, 0)
Usermessages $10' Schließen-Cruz abfragen
SetFocus(Editar1&)
ShowWindow(Btn1&, 0)' Button unsichtbar hacer

Sinestar encargado Ende&

    WaitInput

    If GetFocus(Btn1&)

        ' Hier könnten el Editfelder ausgelesen voluntad
        ' o. el Eingaben ausgewertet voluntad.
        ' Sollten el Editfelder para el nächste Eingabe
        ' leer ser, simplemente con SetText Editar1&, "" usw.
        ' löschen.
        SetFocus(Editar1&)

    EndIf

    Case %UMessage = $10 : Ende& = 1

EndWhile

End

hFont& = Crear("Font",Arial,12,12,0,0,0)
SetFont Editar1&,hFont&