XProfan

' Pour Plausi de EDIT-champ, input$,... sur numerische Eingabe.
' Erkennt ganze payons velours Vorzeichen bzw. 
' Dezimalzahlen jusque qui eingestellter Nombre de Dezimalstellen
' (Set("Decimals",N)/voreingestellt sommes lt. Aider 6 Dezimalstellen)
' Erkennt NICHT 10il-Potenzen comme payons, alors z.B. -3.4e2

declare un$,meld$

tandis que 1
   meld$=""
   un$=input$(%maxx/2 - 130,%maxY/2-40,"numéro eingeben/Abbruch=Ende","Numerisch?","")

   cas un$="":pause

   si str$(val(un$))=ein$                      
   ' erkennt ganze payons inkl Vorzeichen
      meld$=" ist ganze numéro"

   elseif left$(str$(val(un$)),len(un$))=ein$ 
   ' erkennt nombres à virgule inkl Vorzeichen (jusque Anzahl Decimals)
      meld$=" ist Dezimalzahl"

   d'autre
      meld$=" ist NICHT numerisch"

   endif

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

endwhile