Randomize funksjonen med tekst i VB 6.0

[Ainna]

Sitter her å lager et lite program kalt "Stein-Saks-Papir".
Jeg skal få maskinen til å randomize disse 3 valgene til en textbox, men det jeg ikke skjønner er hvordan koden skal bli for at det skal fungere
Hadde vært bra om noen kan hjelpe til.

[steinarlima]

Nå kan jeg ikke VB, men du må lage en random-funksjon som spytter ut et tilfeldig tall mellom 0 og 2. Så lager du en switch som sender ut stein, saks eller papir, avhengig av hvilket tall som popper opp.

[Raymond]

Hva med å søke litt? Slike ting er ganske elementært. Søk feks etter random number VB på google og du vil somregel finne eksempelkode der.

[RBS]

I stedet for switch kan man jo også sette opp en array som inneholder de tre tingene.
F.eks

array[] := ('stein', 'saks', 'papir');

int a :=  random(0,2);

label1.change.caption := array[a];

Nå kan ikke jeg vb, men dette viser hvordan det kan gjøres. Er litt blanding av Delphi i koden.

Her prøv dette:

aa = rnd * 2 + 1

Select case aa
          Case 1
  text1.text = "Papir"
          Case 2
  text1.text = "Stein"
          Case 3
  text1.text = "Saks"
End Select

[stigma]

Som RBS nevner så vil en Array og et random tall mellom 0 og 2 være det mest fornuftige å bruke her. Nå er det ganske mange år siden jeg gikk vekk fra VB, så kan desverre ikke gi deg noe konkret kode eksempel.