Select Case = Wer die Wahl hat (Wähle den richtigen Käse)    Zurück       

Ein weiteres Beispiel findet sich hier: Wochentag

Weiteres Beispiel : Signum

Die Select case anweisung erscheint am Anfang ziemlich logisch . In der Programmierung ist sie aber gar nicht so einfach. Am besten versteht man sie an einem praktischen Beispiel.

Beispiel Würfeltest     

In dem Beispiel soll die Qualität eines 6er Würfels überprüft werden.

Dazu wird mit einer Zufallsfunktion 1000 mal der Würfel geworfen.

• Immer wenn eine 1 gewürfelt wurde, wird die Zahl a um eins erhöht.

• Immer wenn eine 2 gewürfelt wurde, wird die Zahl b um eins erhöht.

• Etc.

Am Ende wird mit PRINT ausgegeben, wie oft die Zahlen 1- 6 gewürfelt wurden.

Kopieren Sie den Code in eine leere Form. Und starten Sie das Programm mit F5.

Das Programm läuft dann von alleine. Sie können den Wert von x erhöhen und prüfen, ob die Werte für a bis f gleichverteilt bleiben. Ein Probelauf ergab beispielsweise folgende Werte:

172 145 183 171 177 152

Der Programmcode schaut so aus.

PUBLIC SUB Form_Open()

DIM x AS Integer

DIM w AS Integer

DIM a AS Integer

DIM b AS Integer

DIM c AS Integer

DIM d AS Integer

DIM e AS Integer

DIM f AS Integer

FOR x = 1 TO 1000

w = Int(Rnd(6) + 1)

SELECT CASE TRUE

CASE w = 1

a = a + 1

CASE w = 2

b = b + 1

CASE w = 3

c = c + 1

CASE w = 4

d = d + 1

CASE w = 5

e = e + 1

CASE w = 6

f = f + 1

END SELECT

NEXT

PRINT a,b,c,d,e,f

END