Zahleneingabe

Soll der Benutzer eine Zahl eingeben, gibt es dafür zwei Möglichkeiten.

• als Aufforderung über eine Inputbox

Dim Zahl

Zahl = Inputbox("Geben Sie eine Zahl ein!","Eingabe")
msgbox Zahl

• über einen FF-Dialog mit dem Steuerelement SLEDIT

Dim Zahl

'** Start Dialog Eingabe **
FF_AddDialog "Eingabe",101,42
FF_AddControl "Eingabe","Geben Sie eine Zahl ein!","STATIC",5,5,60,11
FF_AddControl "Eingabe","Zahl","SLEDIT",67,5,20,11
FF_AddControl "Eingabe","Auswertung","BUTTON",60,24,33,11
'** End Dialog Eingabe **

do
    Select Case FF_ShowDialog ("Eingabe")
    Case "Auswertung"
        Zahl = FF_GetControl ("Eingabe","Zahl")
        msgbox Zahl
        exit do
    Case "CANCEL"
        exit do
    Case Else
    End Select
loop

FF_CloseDialog ("Eingabe")
 

In beiden Fällen können verschiedene Probleme auftreten:

• Es wird abgebrochen ohne eine Zahl einzugeben
• Es wird "nichts" eingegeben
• Der eingegebene Wert ist keine Zahl

Wenn man die Eingabe einer Zahl erzwingen will, eignet sich dafür eine Schleife, die erst verlassen wird, wenn ein Wert, der sich als Zahl auswerten lässt, eingegeben wurde. Die Prüfung mit IsNumeric ist auch true, wenn die Inputbox mit Abbrechen beendet oder "nichts" (Nothing) eingegeben und dann OK betätigt wird. Daher muss zusätzlich geprüft werden, ob das Ergebnis <> "" ist.

Dim Zahl
Do
    Zahl = Inputbox("Geben Sie eine Zahl ein!","Eingabe")
    if IsNumeric(Zahl) and Zahl <> "" then exit do
    msgbox "Es muss eine Zahl eingegeben werden!",vbInformation,"Hinweis"
loop
Zahl = Zahl *1
msgbox Zahl
 

Da das Ergebnis eine Textvariable ist (z.B. würde 05 ein gültiges Ergebnis sein), muss es noch durch die Multiplikation mit 1 zu einer echten Zahl umgewandelt werden.

Indem man dem Steuerelement SLEDIT den Stil ES_Number zuweist (FF_SetControlStyle "Eingabe","Zahl",8192), kann man verhindern, dass andere Zeichen als Ziffern eingegeben werden können. Gleichzeitig wird allerdings auch die Eingabe auf positive Ganzzahlen eingeschränkt, aber damit kommt man meistens aus.

Dim Zahl

'** Start Dialog Eingabe **
FF_AddDialog "Eingabe",101,42
FF_AddControl "Eingabe","Geben Sie eine Zahl ein!","STATIC",5,5,60,11
FF_AddControl "Eingabe","Zahl","SLEDIT",67,5,20,11
FF_SetControlStyle "Eingabe","Zahl",8192
FF_AddControl "Eingabe","Auswertung","BUTTON",60,24,33,11
'** End Dialog Eingabe **

do
    Select Case FF_ShowDialog ("Eingabe")
    Case "Auswertung"
        Zahl = FF_GetControl ("Eingabe","Zahl")
        if Zahl <> "" then
            Zahl = Zahl *1
            msgbox Zahl
            exit do
        end if
        msgbox "Es muss eine Zahl eingegeben werden!",vbInformation,"Hinweis"
    Case "CANCEL"
        exit do
    Case Else
    End Select
loop

FF_CloseDialog ("Eingabe")
 

Durch Anwendung des Stils ES_Number braucht bei der Gültigkeitsprüfung nur noch auf "nichts" (Nothing) geprüft zu werden. Allerdings ist auch hier das Ergebnis eine Textvariable, die erst durch Multiplikation mit 1 zu einer Zahl wird.

• Es kann sinnvoll sein, dem Ergebnis "" die Zahl 0 zu zuweisen.
• Der Vergleich if Zahl <> "" then kann ersetzt werden durch if len(Zahl) > 0 then. Dieser Vergleich ist lt. Werner schneller.