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.