XProfan

' Für Plausi von EDIT-Feld, input$,... auf numerische Eingabe.
' Erkennt ganze Zahlen samt Vorzeichen bzw. 
' Dezimalzahlen bis zu der eingestellter Anzahl der Dezimalstellen
' (Set("Decimals",N)/voreingestellt sind lt. Hilfe 6 Dezimalstellen)
' Erkennt NICHT 10er-Potenzen als Zahlen, also z.B. -3.4e2

declare ein$,meld$

while 1
   meld$=""
   ein$=input$(%maxX/2 - 130,%maxY/2-40,"Zahl eingeben/Abbruch=Ende","Numerisch?","")

   case ein$="":break

   if str$(val(ein$))=ein$                      
   ' erkennt ganze Zahlen inkl Vorzeichen
      meld$=" ist ganze Zahl"

   elseif left$(str$(val(ein$)),len(ein$))=ein$ 
   ' erkennt Kommazahlen inkl Vorzeichen (bis zu Anzahl Decimals)
      meld$=" ist Dezimalzahl"

   else
      meld$=" ist NICHT numerisch"

   endif

   messagebox(ein$+meld$,"Numerisch?",0)

endwhile