XProfan

Cls
Déclarer Liste&,Eingabe&,Button&
Liste& = Créer(ListBox,%hwnd,0,10,10,100,160)
Eingabe& =  Créer("Edit", %HWnd, », 210, 10, 80, 25)
SendMessage(Eingabe&, $00C5, 10, 0)
Button& = Créer("Button",%hwnd,"einfügen",210,40,80,25)

Tandis que 1

    WaitInput

    Si Clicked(Button&)

        Si GetText $(Eingabe&) > »

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

        EndIf

    EndIf

Wend

Déclarer nom$, prénom$, lieu$, Strasse$, téléphone$, nochmal$
Déclarer ende%
Titre de la fenêtre "Mein Fenster"
Fenêtre 500, 400
Cls RGB(0, 0, 0)' schwarzes la fenêtre
Color 14, 0
Fensteraufbau()
ende% = 0

WhileNot ende%

    Localiser 2,13 : Contribution nom$
    Localiser 3,13 : Contribution prénom$
    Localiser 4,13 : Contribution lieu$
    Localiser 5,13 : Contribution Strasse$
    Localiser 6,13 : Contribution téléphone$
    Localiser 7,20 : Contribution nochmal$

    Si Upper$(nochmal$) = "N"

        ende% = 1

    D'autre

        Localiser 12, 10 : Imprimer Space$(70)
        Localiser 12, 10 : Imprimer nom$, prénom$, lieu$
        LoescheEingabefelder()

    EndIf

Endwhile

Proc Fensteraufbau

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

ENDPROC

Proc LoescheEingabeFelder

    Localiser 2,13 : Imprimer Space$(22)
    Localiser 3,13 : Imprimer Space$(22)
    Localiser 4,13 : Imprimer Space$(22)
    Localiser 5,13 : Imprimer Space$(22)
    Localiser 6,13 : Imprimer Space$(22)

ENDPROC

Fin

DECLARE testtext0$,testtext1$,testtext2$

Proc Dput

    Paramètres x%, y%, r$, size%, mode%
    declare DIend%,blink%,mod0$,mod1$,mod2$,curs$,a$
    'Vorgaben pour qui Eingabe Modis definieren"
    mod0$="0123456789"'modus 0 = seulement payons
    mod1$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"'modus 1 = seulement Buchstaben
    mod1$=mod1$+"-_.: !?"'modus 1 = plus ggf. sonderzeichen
    mod2$=mod0$+mod1$'modus 2 = Zeuichen de modus 1 et modus 2
    locate x%,y%
    imprimer r$;»;

    whilenot DIend%

        si blink%=1'si blinkender Cursor gewünscht ist

            curs$="_  "'Cursor Montrer

        d'autre

            curs$="  "'ne...aucune Cursor

        endif

        blink%=abs(blink%-1)' avec cela wird Blink% toujours  0 ou bien -1
        settimer 500'wartezeit 500 ms si aucun bouton gedrückt wird
        waitinput'attendre sur Eingabe ereigniss (clavier, souris..)
        killtimer
        'ici qui Auswertung qui eingabe

        si (%scankey<>0)' wurde une bouton gedrückt????

            si %scankey = 8' Del bouton gedrückt

                cas @len(a$)>=1: let a$=@mid$(a$,1,@len(a$)-1)'ensuite qui Stringvariable um 1 lieu couper si Longueur Größer juste 1 marque ist

            elseif %scankey = 13'Enter bouton

                DIend%=1

            d'autre'weder ENTER encore DEL

                si (@len(a$)<>size%)'ist qui MaxLänge encore pas erreicht???

                    si mode% = 0

                        cas @instr(chr$(%scankey),mod0$)<>0: a$=a$+mid$(mod0$,@instr(chr$(%scankey),mod0$),1)'qui marque qui dans mod0$ angegeben sommes zulassen (ici seulement payons)

                    elseif mode% = 1

                        cas @instr(chr$(%scankey),mod1$)<>0: a$=a$+mid$(mod1$,@instr(chr$(%scankey),mod1$),1)'qui marque qui dans mod1$ angegeben sommes zulassen (ici seulement Buchstaben)

                    elseif mode% = 2

                        cas @instr(chr$(%scankey),mod2$)<>0: a$=a$+mid$(mod2$,@instr(chr$(%scankey),mod2$),1)'qui marque aus dans mod2$ (ici seulement payons et Buchstaben)

                    endif

                endif

            endif

        endif

        locate x%,y%
        cas DIend%=0:imprimer r$;»;a$;curs$

    Wend

    PRINT r$;»;a$;"  "
    return a$

endproc

'Aufruf qui Procedure
Dput 3,10,"Geben vous ses PLZ ein",5,0
testtext0$= $(0)'Rückgabewert (eingabe) dans Variable holen
Dput 4,5,"Geben vous ses Ihren Namen ein",15,1
testtext1$= $(0)'Rückgabewert (eingabe) dans Variable holen
Dput 5,5,"Geben vous ses ses Strasse + Nr ein",15,2
testtext2$= $(0)'Rückgabewert (eingabe) dans Variable holen
imprimer "Deine Eingaben étions "
imprimer testtext0$
imprimer testtext1$
imprimer testtext2$
waitinput

Déclarer Dialog&, Btn1&, Éditer1&, Éditer2&, Éditer3&, Ende&
Ende& = 0
Titre de la fenêtre "Editfelder"
Fenêtre 600, 400
' là dans einem Dialogfenster aussi qui ENTER-bouton im Modifier le champ de
' funktioniert, prenons une Dialog statt einem normalen la fenêtre.
Dialog& = Contrôle("Dialogue",»,$54000000,10,10,200,150,%hwnd,0,%HINSTANCE)
Créer("Text", Dialog&, "Nummer  :", 10, 10, 80, 20)
Créer("Text", Dialog&, "Name    :", 10, 35, 80, 20)
Créer("Text", Dialog&, "Ort     :", 10, 60, 80, 20)
Edit1& = Créer("Edit", Dialog&, », 100, 10, 90, 20)
Edit2& = Créer("Edit", Dialog&, », 100, 35, 90, 20)
Edit3& = Créer("Edit", Dialog&, », 100, 60, 90, 20)
Btn1&  = Créer("Button", Dialog&, », 10, 130, 40, 25)
' Um qui Eingabe dans einer Boucle trop avons, si qui Cursor
' wieder ins 1. Eingabefeld springt, wird ici
' qui Trick avec einem unsichtbaren Button angewandt.
' là wird simple qui Concentrer wieder sur cela erste
' Eingabefeld gelegt.
' Editfelder sur 10 marque limitieren
SendMessage(Éditer1&, $00C5, 10, 0)
SendMessage(Éditer2&, $00C5, 10, 0)
SendMessage(Éditer3&, $00C5, 10, 0)
Usermessages $10' Schließen-Croix abfragen
SetFocus(Éditer1&)
ShowWindow(Btn1&, 0)' Button unsichtbar faire

WhileNot Ende&

    WaitInput

    Si GetFocus(Btn1&)

        ' ici könnten qui Editfelder ausgelesen volonté
        ' bzw. qui Eingaben ausgewertet volonté.
        ' Sollten qui Editfelder pour qui prochain Eingabe
        ' vide son, simple avec SetText Éditer1&, » usw.
        ' effacer.
        SetFocus(Éditer1&)

    EndIf

    Cas %UMessage = $10 : Ende& = 1

Endwhile

Fin

hFont& = Créer("Font",Arial,12,12,0,0,0)
SetFont Éditer1&,hFont&