Kirjautuminen
Tehtävät
Kilpailu
Alkuerät ovat ohi.
edelleen josteen futis pelii ja mun pitäs saaha arpomaa kone vaikka joku pelaajan kommenttia vastaava msgbox miten teen sen? kiitos taas!
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.
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 SubAihe on jo aika vanha, joten et voi enää vastata siihen.