Keskustelu: Ohjelmointikysymykset: VB6: Randomize[VB]

voisiko joku viisaampi kertoa kun on päässyt tuon randomizen käyttö unohtumaan. eli miten saisi niin että kun painaa command1 nappia niin ohjelma arpoo neljästä eri sanasta yhden textbox:iin

En voi kertoa, mutta voin johdattaa sut tuossa oikeassa reunassa olevan hakukentän luo.

Tai kuten Latska sen sanoisi: http://www.makkosoft.com/haku.png

Randomizella sekoitetaan satunnaislukugen. siten, ettei saada aina samaa satunnaislukujen sarjaa. Sama hoituu funktiolla rnd(-timer). Rnd(-x) antaa aina saman x:stä riippuvan satunnaislukusarjan. Randomize kannattaa sijoittaa esim. Form_Load-tapahtumaan. Tällöin ohjelman jokaisella käynnistyksellä saadaan erilaiset satunnaisluvut.

En löytänyt tuolla haulla apua eikä kukaan voisi pistää pienen koodin pätkän että kun painaa nappia niin ohjelma arpoo yhden kuudesta label:sta näkyviin
yritin itse näin

Private Sub Command1_Click()
randomize
label1.visible = true
label2.visible = true
label3.visible = true
label4.visible = true
label5.visible = true
label6.visible = true
end sub
alussa noiden visible oli false

mutta tuolla tuli kaikki yhtä aikaa näkyviin

jaskapoika kirjoitti:

En löytänyt tuolla haulla apua eikä kukaan voisi pistää pienen koodin pätkän että kun painaa nappia niin ohjelma arpoo yhden kuudesta label:sta näkyviin
yritin itse näin

Private Sub Command1_Click()
randomize
label1.visible = true
label2.visible = true
label3.visible = true
label4.visible = true
label5.visible = true
label6.visible = true
end sub
alussa noiden visible oli false

mutta tuolla tuli kaikki yhtä aikaa näkyviin

Käytä Case-rakennetta.

kokeilin näin mutta ei toiminut

Private Sub Command1_Click()
select case randomize
case label1.visible = true
case label2.visible = true
case label3.visible = true
case label4.visible = true
case label5.visible = true
case label6.visible = true
end select
end sub

se valitti tuosta randomizesta jotai
mikä tuossa on väärin

https://www.ohjelmointiputka.net/keskustelu/4815-satunnainen-valinta
https://www.ohjelmointiputka.net/keskustelu/3340-rnd-n-kaava
https://www.ohjelmointiputka.net/keskustelu/3479-random
https://www.ohjelmointiputka.net/keskustelu/9126-randomize-vb6
https://www.ohjelmointiputka.net/keskustelu/6567-randoize
https://www.ohjelmointiputka.net/hak/?kieli­=QBasic&nimi=RANDOMIZE
https://www.ohjelmointiputka.net/hak/?kieli­=QBasic&nimi=RND

Hyvinhän se haku toimii!

Tee niistä labeleista taulukko tyyliin
label(int(rnd(1)) + 1).visible = True

Miten sais nii että ei voi tulla samaa peräkkäi

Moi jaskapoika!

Sijoita arvo globaaliin muuttujaan ja vertaa muuttujan arvoa seuraavaan arvoon. Ja jos uusi arvo on sama, kuin edellinen arvo niin pistä pyörimään uudestaan...eli siis Randomize... Jos uusi arvo on eri, kuin edellinen arvo tallenna tieto em. muuttujaan...

Private Sub Command1_Click()
Randomize
numero = Int(Rnd * 4) + 1
If numero = "1" Then
Label1.Visible = "true"
ElseIf numero = "2" Then
Label2.Visible = "true"
ElseIf numero = "3" Then
Label3.Visible = "true"
ElseIf numero = "4" Then
Label4.Visible = "true"
End If
End Sub