E' da un po' che non scrivo sul forum ma sono tornato con un problema che non riesco a risolvere più che latro perchè non lo capisco.
Sto sviluppando un programma per giocare ad obbligo o verità. Grazie a una random si seleziona il giocatore a cui tocca ma mi è capito spesso che lo stesso numero venisse ripetuto 4 o 5 volte di seguito cosa che voglio evitare.
Uso questo codice:
codice:
Dim Random As New Random
Dim SoartedNum As Integer
 Dim PrecNum As Integer = 0

 Private Sub Sorter_Click(sender As Object, e As EventArgs) Handles Sorter.Click 'Pulsante per il sorteggio


        SoartedNum = Random.Next(1, 5)


        If PrecNum = 0 Then
            PrecNum = SoartedNum


            SoartedPlayer.Text = "Giocatore " & SoartedNum
            SelObbligo.Enabled = True
            SelVerita.Enabled = True
        Else
            SoartedNumIsntSoartedNum()
        End If
    End Sub


    Public Function SoartedNumIsntSoartedNum()
        If PrecNum = SoartedNum Then
            SoartNum()
        Else
            SoartedPlayer.Text = "Giocatore " & SoartedNum
            SelObbligo.Enabled = True
            SelVerita.Enabled = True
        End If
    End Function


    Public Function SoartNum()
        SoartedNum = Random.Next(1, 5)
        PrecNum = SoartedNum


        SoartedNumIsntSoartedNum()
    End Function
Quando eseguo il debug non rileva errori nel codice, ma quando schiaccio sorteggia i numeri si ripetono lo stesso come se il codice nn ci fosse.
Qualcuno riesce ad aiutarmi? Grazie