Keskustelu: Ohjelmointikysymykset: VB6: Arpoa

Niin kun itse arpomiseen tiedän koodin,mutta miten saisi parhaiten tekemään niin että...
No selitys paremmin:
Siinä on 3Tekstiruutua,3Commandputtonia,Ja Tulos teksi (siihen tulee oletko voittanut vai et ja mitä...)
Niin eli millä komennolla saisi sen helpoiten sanomaan onko se pari vai mikä.
Lähinnä kelpaisi If peräkän mut ei onnistu oikein,sanokaa miten tolla If:illä sais peräkkäin tehtyy?

öö? haluat siis laittaa samaan ifiin useampia juttuja peräkkäin?
Se ainakin toimii näin:

If pii = paa Then
    Tähän koodi
    Lisää koodia
End if

Taisin kyllä ymmärtää kysymyksesi aivan väärin.

If (Num1=0) And (Num2=0) Then
Teksti="Voitto! Pari"
Else
Teksti="Hävisit"
End If

Niin että kun siinä' on monia voito mahollisuuksia esim.pari,kolmoset ja suora
Niin ja siinä arvotaan 0-10 niin monta eri mahollisuutta numeroilla

Tää mun ohjelma nyt heittää mulle tämmöistä:
Compile Error:
Block If without End If
Mitä toi meinaa?Koodi on:

Private Sub Arvo3_Click()
Randomize
Arpasumma3 = Int(10 * Rnd)
Num3 = Arpasumma3

If (Num1 = 0) And (Num2 = 0) Then
    Teksti = "Voitit,pari"
Else
    Teksti = "Hävisit"
If (Num2 = 0) And (Num3 = 0) Then
    Teksti = "Voitot,pari"
Else
    Teksti = "Hävisit"
End If
End Sub

Sanokaas mikä on vika?

Siinä ekan ifin jälkeen tulevan elsen jälkeen ei tule end ifiä, vaikka pitäis.

If (Num1 = 0) And (Num2 = 0) And (Num3 = 0) Then
    Teksti = "Voitit, kolmoset"
ElseIf ((Num1 = 0) And (Num2 = 0)) Or ((Num2 = 0) And (Num3 = 0)) Or ((Num1 = 0) And (Num3 = 0)) Then
    Teksti = "Voitit,pari"
Else
    Teksti = "Hävisit"
End If

Vai olisiko ehkä parempi vertailla arvoja toisiinsa eikä nollaan?

Tarkoitan siinä on 0-10,ne on silleesti esim.
Jos tulee 5-5-5 on kolmoset,ja jos tulee esim.1-1-1 on sekin kolmoset pitää sillä olla monta vaihtoehtoo
Tai sitten 1-2-3 suora.

Kuten sanoin, olisiko ehkä parempi vertailla arvoja toisiinsa eikä nollaan? Eihän sillä ole väliä, mitä ne kolme ovat, kunhan ne ovat samoja.
(Num1 = Num2) And (Num2 = Num3)

Teepä niin, että laitat ne taulukkoon, katsot vaikka koodivinkeistä jonkin järjestysalgoritmin, järjestät taulukon ja mietit sitten uudestaan.

Esimerkiksi suoran tunnistaa siitä, että seuraava on aina yhden suurempi kuin edellinen. Tällaisiin ei huvita antaa valmista koodia, kun et kuitenkaan välttämättä jaksa ymmärtää sitä vaan copypasteat vain suoraan.

Kuten Gwaur sanoi, eikös sen Elsen jälkeen pitäisi tulla End If ?

Jeps.