XProfan

' Für Plausi de EDIT-Feld, input$,... en numerische Eingabe.
' Erkennt todo Pagar samt Vorzeichen o. 
' Dezimalzahlen a a el eingestellter Anzahl el Dezimalstellen
' (Conjunto("Decimals",N)/voreingestellt son lt. Ayuda 6 Dezimalstellen)
' Erkennt NICHT 10él-Potenzen como Pagar, also z.B. -3.4e2

declarar una$,meld$

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

   caso una$="":romper

   if str$(val(una$))=ein$                      
   ' erkennt todo Pagar inkl Vorzeichen
      meld$=" es todo Zahl"

   elseif left$(str$(val(una$)),len(una$))=ein$ 
   ' erkennt Punto número inkl Vorzeichen (a a Anzahl Decimals)
      meld$=" es Dezimalzahl"

   más
      meld$=" es NICHT numerisch"

   endif

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

endwhile