| |
|
|
Walter | for simple tack a simple Plausi of Edit-area or Input-Box on numerische input
' 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 |
|
|
| |
|
|