XProfan

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&) > ""

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

        EndIf

    EndIf

Wend

Declare Name$, Vorname$, Ort$, Strasse$, Telefono$, nochmal$
Declare ende%
WindowTitle "Mein Fenster"
Window 500, 400
Cls RGB(0, 0, 0)' schwarzes Fenster
Color 14, 0
Fensteraufbau()
ende% = 0

WhileNot ende%

    Locate 2,13 : Input Name$
    Locate 3,13 : Input Vorname$
    Locate 4,13 : Input Ort$
    Locate 5,13 : Input Strasse$
    Locate 6,13 : Input Telefono$
    Locate 7,20 : Input nochmal$

    If Upper$(nochmal$) = "N"

        ende% = 1

    Else

        Locate 12, 10 : Print Space$(70)
        Locate 12, 10 : Print Name$, Vorname$, Ort$
        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%, mode%
    declare DIend%,blink%,mod0$,mod1$,mod2$,curs$,a$
    'Vorgaben per die Eingabe Modis definieren"
    mod0$="0123456789"'modus 0 = nur Zahlen
    mod1$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"'modus 1 = Nur Buchstaben
    mod1$=mod1$+"-_.: !?"'modus 1 = plus ggf. sonderzeichen
    mod2$=mod0$+mod1$'modus 2 = Zeuichen von modus 1 und modus 2
    locate x%,y%
    print r$;":";

    whilenot DIend%

        if blink%=1'falls blinkender Cursor gewünscht ist

            curs$="_  "'Cursor Mostra

        else

            curs$="  "'Kein Cursor

        endif

        blink%=abs(blink%-1)' damit wird Blink% immer  0 oder -1
        settimer 500'wartezeit 500 ms wenn keine taste gedrückt wird
        waitinput'warten auf Eingabe ereigniss (Tastatur, Maus..)
        killtimer
        'Hier die Auswertung der eingabe

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

            if %scankey = 8' Del Taste gedrückt

                case @len(a$)>=1: let a$=@mid$(a$,1,@len(a$)-1)'dann die Stringvariable um 1 stelle abschneiden wenn Länge Größer gleich 1 zeichen ist

            elseif %scankey = 13'Enter Taste

                DIend%=1

            else'weder ENTER noch DEL

                if (@len(a$)<>size%)'ist die MaxLänge noch nicht erreicht???

                    if mode% = 0

                        case @instr(chr$(%scankey),mod0$)<>0: a$=a$+mid$(mod0$,@instr(chr$(%scankey),mod0$),1)'Die Zeichen die in mod0$ angegeben sind zulassen (hier nur Zahlen)

                    elseif mode% = 1

                        case @instr(chr$(%scankey),mod1$)<>0: a$=a$+mid$(mod1$,@instr(chr$(%scankey),mod1$),1)'Die Zeichen die in mod1$ angegeben sind zulassen (hier nur Buchstaben)

                    elseif mode% = 2

                        case @instr(chr$(%scankey),mod2$)<>0: a$=a$+mid$(mod2$,@instr(chr$(%scankey),mod2$),1)'Die Zeichen aus in mod2$ (hier nur Zahlen und Buchstaben)

                    endif

                endif

            endif

        endif

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

    wend

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

endproc

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

Declare Dialog&, Btn1&, Edit1&, Edit2&, Edit3&, Ende&
Ende& = 0
WindowTitle "Editfelder"
Window 600, 400
' Da in einem Dialogfenster auch die ENTER-Taste im Editfeld
' funktioniert, nehmen wir einen Dialog statt einem normalen Fenster.
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)
' Um die Eingabe in einer Schleife zu haben, sodaß der Cursor
' wieder ins 1. Eingabefeld springt, wird hier
' der Trick mit einem unsichtbaren Button angewandt.
' Dort wird einfach der Focus wieder auf das erste
' Eingabefeld gelegt.
' Editfelder auf 10 Zeichen limitieren
SendMessage(Edit1&, $00C5, 10, 0)
SendMessage(Edit2&, $00C5, 10, 0)
SendMessage(Edit3&, $00C5, 10, 0)
Usermessages $10' Schließen-Kreuz abfragen
SetFocus(Edit1&)
ShowWindow(Btn1&, 0)' Button unsichtbar machen

WhileNot Ende&

    WaitInput

    If GetFocus(Btn1&)

        ' Hier könnten die Editfelder ausgelesen werden
        ' bzw. die Eingaben ausgewertet werden.
        ' Sollten die Editfelder per die nächste Eingabe
        ' leer sein, einfach mit SetText Edit1&, "" usw.
        ' löschen.
        SetFocus(Edit1&)

    EndIf

    Case %UMessage = $10 : Ende& = 1

EndWhile

End

hFont& = Create("Font","Arial",12,12,0,0,0)
SetFont Edit1&,hFont&