Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VB6: miten saankoneen arpomaan jonkun msgboxin

kotka91 [30.03.2005 15:10:46]

#

edelleen josteen futis pelii ja mun pitäs saaha arpomaa kone vaikka joku pelaajan kommenttia vastaava msgbox miten teen sen? kiitos taas!

hunajavohveli [30.03.2005 15:17:09]

#

Arvot satunnaisluvun ja näytät sitä vastaavan viestin.
Tietoa löytyy: https://www.ohjelmointiputka.net/hak/?kieli­=Visual Basic&nimi=Rnd

P.S. Älä viitsi sotkea viestiin noin hirveästi kysymys- ja huutomerkkejä. Näyttää lapselliselta. Moderoin nuo pois.

nomic [30.03.2005 17:32:41]

#

jos ei ole väliä mitä kommenteja tulee niin pistäs vaikkapa
tämmöinen koodi:

'tarviit yhen command1:n
Dim lauseet() 'tungetaas muuttujia mukaan
Dim satunnaisluku As Integer

Private Sub Command1_Click()
    satunnaisluku = Int(Rnd * (UBound(lauseet) + 1)) 'arvotaan joku luku (luku on enintään se, paljonko löytyy lauseita)
    MsgBox lauseet(satunnaisluku)
End Sub

Private Sub Form_Load()
    Randomize Timer 'alustetaan satunnaistin
    lauseet = Array("oot kiwi!", "vaihtoon!", "mikäs nyt on?", "hähä! erota se!", "imuri!") 'tänne voi lisäillä lauseita
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta