korrekte Eingabe erzwingen / Lisp
richycad 18. Nov. 2010, 16:04

Hallo zusammen,

wie kann man eine korrekte Eingabe vom User erzwingen?
Der User darf eine Zahl z.B nicht über 30 eingeben. Sonst wird noch mal abgefragt bis die Eingabe richtig ist.

(initget (+ 1 2 4))
  (setq ph (getint "\nAnzahl x: "))

Ich habe mit WHILE versucht; komme aber nicht weiter.

Vielen Dank

Richy

Andreas Kraus 18. Nov. 2010, 17:01

So vielleicht ?

(while (> (setq ph (getint "Anzahl x: ")) 30)
  (print "zu groß, bitte nur bis 30 !")
)

CADmium 18. Nov. 2010, 17:13

oder so
(initget "1 2 3 4 5 6 7 8 9 10 11 12 13")
(setq A(getkword "\nAnzahl:"))
(setq A(atoi A))



richycad 19. Nov. 2010, 09:37

Vielen Dank Thomas und Andreas,

ihr habt mir sehr geholfen.

Gruss und ein schönes Wochenende wünscht

Richy