[VB.NET] Implementazione del gioco "Sasso, Carta, Forbice"

[gigi91]

Dim generator As New Random
       Dim randomValue As Integer
       randomValue = generator.Next(1, 4)
       If randomValue = (1) Then
           TextBox1.Text = ("Sasso")
       End If
       If randomValue = (2) Then
           TextBox1.Text = ("Carta")
       End If
       If randomValue = (3) Then
           TextBox1.Text = ("Forbice")
       End If
       If TextBox1.Text = ("Sasso") And TextBox2.Text = ("Carta") Or TextBox1.Text = ("Carta") And TextBox2.Text = ("Forbice") Or TextBox1.Text = ("Forbice") And TextBox2.Text = ("Sasso") Then
           MsgBox("Hai" & " " & "Vinto")
       Else
           MsgBox("Hai" & " " & "Perso")
       End If 

Questo è il codice, il gioco funziona, ma se escono due voci uguali dice che perdo, non riesco a mettere la patta, idee??

[oregon]

Inserisci prima della If un'altra If del tipo

If TextBox1.Text = TextBox2.Text Then

e poni la seconda If nella Else della prima ...

[gigi91]

io ho sistemato così

        Dim generator As New Random
        Dim randomValue As Integer
        randomValue = generator.Next(1, 4)
        If randomValue = (1) Then
            TextBox1.Text = ("Sasso")
        End If
        If randomValue = (2) Then
            TextBox1.Text = ("Carta")
        End If
        If randomValue = (3) Then
            TextBox1.Text = ("Forbice")
        End If
        If TextBox1.Text = ("Sasso") And TextBox2.Text = ("Carta") Or TextBox1.Text = ("Carta") And TextBox2.Text = ("Forbice") Or TextBox1.Text = ("Forbice") And TextBox2.Text = ("Sasso") Then
            MsgBox("Hai" & " " & "Vinto")
        End If
        If TextBox1.Text = ("Sasso") And TextBox2.Text = ("Sasso") Or TextBox1.Text = ("Carta") And TextBox2.Text = ("Carta") Or TextBox1.Text = ("Forbice") And TextBox2.Text = ("Forbice") Then
            MsgBox("Patta")
        End If
        If TextBox1.Text = ("Carta") And TextBox2.Text = ("Sasso") Or TextBox1.Text = ("Sasso") And TextBox2.Text = ("Forbice") Or TextBox1.Text = ("Forbice") And TextBox2.Text = ("Carta") Then
            MsgBox("Hai" & " " & "Perso")
        End If 

Ma se avete altre soluzioni postatemele

[kalosjo]

L'ho detta...... la ca@@ata l'ho detta.....

[gigi91]

l'ultimo k ho postato va, non so ancora usare le parentesi, ma posta il codice come intendi tu mi farebbe piacere :master:

[stefanomnn]

If TextBox1.Text = TextBox2.Text then
MsgBox("patta")
end if

Originariamente inviato da gigi91
io ho sistemato così

        Dim generator As New Random
        Dim randomValue As Integer
        randomValue = generator.Next(1, 4)
        If randomValue = (1) Then
            TextBox1.Text = ("Sasso")
        End If
        If randomValue = (2) Then
            TextBox1.Text = ("Carta")
        End If
        If randomValue = (3) Then
            TextBox1.Text = ("Forbice")
        End If
        If TextBox1.Text = ("Sasso") And TextBox2.Text = ("Carta") Or TextBox1.Text = ("Carta") And TextBox2.Text = ("Forbice") Or TextBox1.Text = ("Forbice") And TextBox2.Text = ("Sasso") Then
            MsgBox("Hai" & " " & "Vinto")
        End If
        If TextBox1.Text = ("Sasso") And TextBox2.Text = ("Sasso") Or TextBox1.Text = ("Carta") And TextBox2.Text = ("Carta") Or TextBox1.Text = ("Forbice") And TextBox2.Text = ("Forbice") Then
            MsgBox("Patta")
        End If
        If TextBox1.Text = ("Carta") And TextBox2.Text = ("Sasso") Or TextBox1.Text = ("Sasso") And TextBox2.Text = ("Forbice") Or TextBox1.Text = ("Forbice") And TextBox2.Text = ("Carta") Then
            MsgBox("Hai" & " " & "Perso")
        End If 

Ma se avete altre soluzioni postatemele

[oregon]

Originariamente inviato da gigi91
Ma se avete altre soluzioni postatemele

Ma l'hai letto la mia risposta?

[stefanomnn]

Chiedo scusa, mi era sfuggita!

Originariamente inviato da oregon
Ma l'hai letto la mia risposta?

[gigi91]

capita, era esposta in modo diverso! Grazie a tutti e due...pensate che ho risolto da solo ma mi avevate risposto! XD che sfiga! Grazie mille

[Neptune]

Giusto per curiosità: Il generatore di random di vb.net funziona bene? non sarà mica come quello "base" del c che fa uscire sempre i soliti numeri?