Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET] Problema gioco tipo tombola
Forum - C# / VB.NET - [VB.NET] Problema gioco tipo tombola

Avatar
-Cery- (Normal User)
Rookie


Messaggi: 33
Iscritto: 26/05/2010

Segnala al moderatore
Postato alle 1:50
Domenica, 02/01/2011
Ciao a tutti io volevo fare un gioco tipo la tombola, che ovviamente i numero già estratti non escano di nuovo. Ho provato con questo codice ma non funziona, voi cosa mi consigliate ?
Codice sorgente - presumibilmente VB.NET

  1. Public Class Form1
  2.     Dim numeri(9) As Integer
  3.     Dim index As Integer = 0
  4.  
  5.  
  6.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  7.         Dim ran As New Random
  8.         Dim caso As Integer
  9.         Dim a As Integer
  10.  
  11.         numeri(index) = ran.Next(1, 11)
  12.         index = index + 1
  13.  
  14.         caso = ran.Next(1, 11)
  15. 1:
  16.  
  17.         For Each a In numeri
  18.             If caso = a Then
  19.                 caso = ran.Next(1, 11)
  20.                 GoTo 1
  21.             Else
  22.                 Exit For
  23.             End If
  24.  
  25.         Next
  26.  
  27.         Label1.Text = caso      
  28.     End Sub
  29.  
  30. End Class



Grazie in aticipo :k:


"L'uomo ha inventato la bomba atomica, ma nessun topo al mondo costruirebbe mai una trappola per topi." A. Einstein
PM
Avatar
dedalux (Normal User)
Pro


Messaggi: 155
Iscritto: 14/02/2009

Up
2
Down
V
Segnala al moderatore
Postato alle 8:25
Domenica, 02/01/2011
Codice sorgente - presumibilmente VB.NET

  1. Dim usciti As New List(Of Integer)
  2.     Dim min As Integer = 1
  3.     Dim max As Integer = 11
  4.  
  5.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
  6.         If max - 1 > usciti.Count Then
  7. estrai:     Dim ran As New Random
  8.             Dim estratto = ran.Next(min, max)
  9.             If usciti.Contains(estratto) Then
  10.                 GoTo estrai
  11.             End If
  12.             usciti.Add(estratto)
  13.             MessageBox.Show(estratto)
  14.         Else
  15.             MessageBox.Show("Non ci sono più numeri da estrarre!")
  16.         End If
  17.     End Sub



«La disumanità del computer sta nel fatto che, una volta programmato e messo in funzione, si comporta in maniera perfettamente onesta.»

Isaac Asimov
PM
Avatar
-Cery- (Normal User)
Rookie


Messaggi: 33
Iscritto: 26/05/2010

Up
0
Down
V
Segnala al moderatore
Postato alle 11:46
Domenica, 02/01/2011
Grazie mille dedalux :hail::hail::hail::rotfl::rotfl::rotfl::rotfl:


"L'uomo ha inventato la bomba atomica, ma nessun topo al mondo costruirebbe mai una trappola per topi." A. Einstein
PM