Keskustelu: Ohjelmointikysymykset: VB6: Voiko koneen arpoman luvun pistää riippumaan jostain

Eli voiko koneen arpoman luvun pistää riippumaan jostain esim. urheilupelissä pelaajan taidoista??KIITOS JO

Öö... tarkoitatko että haluat arpoa luvun tietyltä väliltä? Se onnistuu näin (ainakin muistaakseni):

arvottu_luku = minimi + (Rnd(1)*maksimi)

Esim. tällai voi painottaa ervonnan eri vaihtoehtoja.

Select Case r
Case Is < 1.5 'a:n tod.näk.= 1.5/29
  erkki = "a"
Case Is < 1.6 'b:n tod.näk.= 0.1/29
  erkki = "b"
Case Is < 1.7 'c:n tod.näk.= 0.1/29
  erkki = "c"
Case Is < 2 'd:n tod.näk.= 0.1/29
  erkki = "d"
Case Is < 3.5 'e:n tod.näk.= 0.3/29
  erkki = "e"

Tässä on arvottu kirjaimia niiden esiintymistodennäköisyyden mukaan. Pelaajia voi painottaa suoraan niiden taitopisteiden mukaan. Tässä r on arvottu välille 0...29.

Ei koneen arpoma luku voi riippua pelaajan taidoista. Se on aina (0-1), jos ihan perus RND:tä käytät, mutta tuota lukua voit tietysti kertoa jollain toisella luvulla saadaksesi sen olemaan joltain muulta väliltä.

Tohon esimerkkiin on jostain päässyt virhe eikä voi enää muokata. Pitää tietenkin olla d:n tod.näk. 0,3/29 ja e:n 1,5/29. Tällä Select-Case-rakenteella voi siis määrittää rajat, joiden mukaan kyseinen väli tulee valituksi halutulla todennäköisyydellä. Nuo välit määrätään sitten vain taitopisteiden mukaan.