XProfan

' for Plausi of EDIT-area, input$,... on numerische input.
' Erkennt whole numbers velvet omen or. 
' Dezimalzahlen up to the eingestellter Number of Dezimalstellen
' (Set("Decimals",n)/voreingestellt are lt. Help 6 Dezimalstellen)
' Erkennt NOT 10it-Potenzen as numbers, means z.B. -3.4e2

declare one$,meld$

while 1
   meld$=""
   one$=input$(%maxX/2 - 130,%maxY/2-40,"number prompt/Abbruch=Ende","Numerisch?","")

   case one$="":break

   if st$(val(one$))=ein$                      
   ' recognize whole numbers inkl omen
      meld$=" is whole number"

   elseif left$(st$(val(one$)),len(one$))=ein$ 
   ' recognize Point numbers inkl omen (up to amount Decimals)
      meld$=" is Dezimalzahl"

   else
      meld$=" is NOT numerisch"

   endif

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

endwhile