Das deutsche QBasic- und FreeBASIC-Forum

[MaKo]

Moin,

ich arbeite mich gerade durch das „FreeBASIC-Einsteigerhandbuch“ von Herrn S. Markthaler.
Beim Thema SELECT CASE habe ich ein Problem.
Ermittelt werden soll, ob eine Zahl gerade oder ungerade ist.
Es wird aber nichts ausgegeben.
Wo ist mein Denkfehler?

Grüße
MaKo

ps.
Vielen Dank an Herrn Markthaler für das verständliche Skript. Es hat mir bisher sehr geholfen. 👍

code:
sub odd (byref z as uinteger)

select case z

case (z and 1) = 0
? "gerade"

case (z and 1) = 1
? "ungerade"
end select
end sub


dim as uinteger zahl = 2

odd(zahl)
zahl+=1
odd(zahl)

[dreael]

Siehe dazu auch

https://www.freebasic.net/wiki/KeyPgSelectcase

d.h. bei SELECT CASE kommt immer eine Variable und im CASE nur noch Werte hinein. Für Deinen Fall ist IF THEN ELSEIF wie unter

https://www.freebasic.net/wiki/KeyPgElseif

gezeigt das Geeignete:

[grindstone]

Hallo MaKo!

[MaKo]

Danke dreael!
Danke grindstone

Gucke ich mir am WE in Ruhe an.