Gambas Documentation

Warning! This page is not up to date. See english version

SELECT

SELECT [ CASE ] IzrazZaSporedba

  [ CASE Izraz [ TO Izraz #2 ] [ , ... ]
    ... ]

  [ CASE Izraz [ TO Izraz #2 ] [ , ... ]
    ... ]

  [ { CASE ELSE | DEFAULT }
    ... ]

END SELECT

Пресметува IzrazZaSporedba и го споредува со наведените Izraz-и. Доколку востанови сопаѓање, ги извршува наредбите заградени со соодветните CASE наредби.

Ако не одговара ниедна CASE наредба, се извршува наредбата DEFAULT или CASE ELSE.

CASE е листа од единечни вредности или интервал од две вредности одвоени од клучниот збор TO.

Example

' Sakate da proverite slucajna funkcija koja simulira frlanje na kocka.
' Zatoa ja povtoruvate slucajnata funkcija izjada pati i
' broite kolku pati ce izlezat broevite 1, 2, 3, 4, 5 ili 6

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 w
    CASE 1
      a = a + 1
    CASE 2
      b = b + 1
    CASE 3
      c = c + 1
    CASE 4
      d = d + 1
    CASE 5
      e = e + 1
    CASE 6
      f = f + 1
    CASE ELSE
      PRINT "Ova e nevozmozno!"
  END SELECT

NEXT

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

Example

See also