XProfan

Editfeld& = Create("Edit", "Vorgabetext", %HWnd, 10, 10, 80, 25)
SendMessage(Editfeld&, $00C5, 10, 0)

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

While 1

    WaitInput

    If Clicked(Button&)

        If GetText$(Eingabe&) > ""

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

        EndIf

    EndIf

Wend

Declare name$, First name$, place$, Street$, Phone$, again$
Declare end%
Window Title "Mein Fenster"
Window 500, 400
Cls RGB(0, 0, 0)' schwarzes Window
Color 14, 0
Fensteraufbau()
ende% = 0

WhileNot end%

    Locate 2,13 : Input name$
    Locate 3,13 : Input First name$
    Locate 4,13 : Input place$
    Locate 5,13 : Input Street$
    Locate 6,13 : Input Phone$
    Locate 7,20 : Input again$

    If Upper $(again$) = "N"

        end% = 1

    Else

        Locate 12, 10 : Print Space$(70)
        Locate 12, 10 : Print name$, First name$, place$
        LoescheEingabefelder()

    EndIf

EndWhile

Proc Fensteraufbau

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

ENDPROC

Proc LoescheEingabeFelder

    Locate 2,13 : Print Space$(22)
    Locate 3,13 : Print Space$(22)
    Locate 4,13 : Print Space$(22)
    Locate 5,13 : Print Space$(22)
    Locate 6,13 : Print Space$(22)

ENDPROC

End

DECLARE testtext0$,testtext1$,testtext2$

Proc Dput

    Parameters x%, y%, r$, size%, fashion%
    declare DIend%,blink%,mod0$,mod1$,mod2$,curs$,a$
    'Vorgaben for input modes definieren"
    mod0$="0123456789"'mode 0 = only numbers
    mod1$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"'mode 1 = only letters
    mod1$=mod1$+"-_.: !?"'mode 1 = plus ggf. sonderzeichen
    mod2$=mod0$+mod1$'mode 2 = Zeuichen of mode 1 and mode 2
    locate x%,y%
    print r$;":";

    whilenot DIend%

        if blink%=1'if blinkender Cursor desired is

            curs$="_  "'Cursor Show

        else

            curs$="  "'no Cursor

        endif

        blink%=abs(blink%-1)' so becomes Blink% always  0 or -1
        settimer 500'wartezeit 500 ms if no Key pressed becomes
        waitinput'Waiting on input ereigniss (keyboard, mouse..)
        killtimer
        'here The Auswertung the input

        if (%scankey<>0)' watts a Key pressed????

            if %scankey = 8' Del Button pressed

                case @len(a$)>=1: let a$=@mid$(a$,1,@len(a$)-1)'then The Stringvariable circa 1 place cut off if length larger same 1 characters is

            elseif %scankey = 13'Enter Button

                DIend%=1

            else'weder ENTER yet DEL

                if (@len(a$)<>size%)'is the MaxLänge not yet access???

                    if fashion% = 0

                        case @instr(chr $(%scankey),mod0$)<>0: a$=a$+mid$(mod0$,@instr(chr $(%scankey),mod0$),1)'The characters The in mod0$ indicated are to permit (here only numbers)

                    elseif fashion% = 1

                        case @instr(chr $(%scankey),mod1$)<>0: a$=a$+mid$(mod1$,@instr(chr $(%scankey),mod1$),1)'The characters The in mod1$ indicated are to permit (here only letters)

                    elseif fashion% = 2

                        case @instr(chr $(%scankey),mod2$)<>0: a$=a$+mid$(mod2$,@instr(chr $(%scankey),mod2$),1)'The characters from in mod2$ (here only numbers and letters)

                    endif

                endif

            endif

        endif

        locate x%,y%
        case DIend%=0:print r$;":";a$;curs$

    wend

    PRINT r$;":";a$;"  "
    return a$

endproc

'Calling the Procedure
Dput 3,10,"Geben tappt im dunkeln your PLZ ein",5,0
testtext0$= $(0)'Return Value (input) in Variable fetch
Dput 4,5,"Geben tappt im dunkeln your Your names ein",15,1
testtext1$= $(0)'Return Value (input) in Variable fetch
Dput 5,5,"Geben tappt im dunkeln your your Street + Nr ein",15,2
testtext2$= $(0)'Return Value (input) in Variable fetch
print "Your Inputs were "
print testtext0$
print testtext1$
print testtext2$
waitinput

Declare Dialog&, Btn1&, Edit1&, Edit2&, Edit3&, Ende&
Ende& = 0
Window Title "Editfelder"
Window 600, 400
' there in a Dialog-Window too The ENTER-Button in the Editfeld
' functions, take we a dialog instead of one normalen Window.
Dialog& = Control("DIALOG","",$54000000,10,10,200,150,%hwnd,0,%hinstance)
Create("Text", Dialog&, "Nummer  :", 10, 10, 80, 20)
Create("Text", Dialog&, "Name    :", 10, 35, 80, 20)
Create("Text", Dialog&, "Ort     :", 10, 60, 80, 20)
Edit1& = Create("Edit", Dialog&, "", 100, 10, 90, 20)
Edit2& = Create("Edit", Dialog&, "", 100, 35, 90, 20)
Edit3& = Create("Edit", Dialog&, "", 100, 60, 90, 20)
Btn1&  = Create("Button", Dialog&, "", 10, 130, 40, 25)
' around the input in a Loop to having, sodaß the Cursor
' again in that 1. Input jumping, becomes here
' the ploy with a unsichtbaren Button apply.
' there becomes simply the Focus again the first
' Input laid.
' Editfields on 10 characters limitieren
SendMessage(Edit1&, $00C5, 10, 0)
SendMessage(Edit2&, $00C5, 10, 0)
SendMessage(Edit3&, $00C5, 10, 0)
User Messages $10' Closing-Cross inquire
SetFocus(Edit1&)
ShowWindow(Btn1&, 0)' Button make invisible

WhileNot Ende&

    WaitInput

    If GetFocus(Btn1&)

        ' here could The Editfields read go
        ' or. The Inputs ausgewertet go.
        ' should The Editfields for next input
        ' empty his, simply with SetText Edit1&, "" etc.
        ' delete.
        SetFocus(Edit1&)

    EndIf

    Case %UMessage = $10 : Ende& = 1

EndWhile

End