[VB.NET] Creare un sorteggio

[Joe Yabuki]

Salve a tutti,sono un nuovo del forum..,dovrei creare un sorteggio tipo un calendario di calcio di serie A,però effetuando solo la prima giornata!con la possibilità di inserire le teste di serie.Vorrei sapere qual è la strada da percorrere se qualcuno mi può dare delle dritte su come iniziare il progetto.
Ciao Marcello

Utilizzo: VB.2010 Express

[alka]

Il linguaggio va indicato anche nel titolo.

Inoltre, dovresti iniziare a scrivere almeno una procedura e riportare il codice sorgente che
presenta eventuali problemi.

In breve, tenta di formulare una soluzione affinché la si possa discutere.

[Joe Yabuki]

Sono un newbie, volevo solo sapere la strada da seguire..prima di iniziare il progetto

[alka]

Originariamente inviato da Joe Yabuki
Sono un newbie, volevo solo sapere la strada da seguire..prima di iniziare il progetto

Se sei un newbie, studi il linguaggio, fai delle ricerche, ti documenti e poi provi.
E se non riesci, chiedi.

[Joe Yabuki]

volevo solo sapere come strutturare il tutto, non a svolgermi il progetto .. cmq grazie

[oregon]

Beh, penso che dovrai usare un database per memorizzare i nomi delle squadre (sebbene basti un file di testo). Dipende da come evolverà il progetto. Probabilmente un database ti tornerà utile in seguito.

Quindi, dovresti iniziare a impostare le tabelle del DB e scrivere il codice per gestire almeno la tabella dei nomi delle squadre e le loro caratteristiche (ad esempio, il fatto che sia una testa di serie ...).

[Joe Yabuki]

siccome devo fare una cosa fissa..,stavo provando cosi..,ma ottengo valori doppi

Dim rand As New Random(CInt(Date.Now.Ticks And Integer.MaxValue)) Dim TestadiSerie1 As Integer = rand.Next(1, 3) t1.Text = TestadiSerie1.ToString Dim TestadiSerie2 As Integer = rand.Next(1, 3) If TestadiSerie2 = TestadiSerie1 Then TestadiSerie2 = rand.Next(1, 3) t2.Text = TestadiSerie2.ToString End If Dim SecondaFascia1 As Integer = rand.Next(3, 5) n1.Text = SecondaFascia1.ToString Dim SecondaFascia2 As Integer = rand.Next(3, 5) n2.Text = SecondaFascia2.ToString

tipo dovrei ottenere l'accopiamento 1-3 2-4 o 1-4 2 -3, però capita che si ottiene anche 1-1 o 2-2, sto facendo solo delle prove... t1,t2,n1,n2 sono delle label dove sparo i valori

[oregon]

Il codice non è leggibile ...

[Joe Yabuki]

Dim rand As New Random(CInt(Date.Now.Ticks And Integer.MaxValue)) 
Dim TestadiSerie1 As Integer = rand.Next(1, 3)
 t1.Text = TestadiSerie1.ToString 
Dim TestadiSerie2 As Integer = rand.Next(1, 3)
t2.Text = TestadiSerie2.ToString 
 Dim SecondaFascia1 As Integer = rand.Next(3, 5)
 n1.Text = SecondaFascia1.ToString
 Dim SecondaFascia2 As Integer = rand.Next(3, 5)
 n2.Text = SecondaFascia2.ToString

[oregon]

Non credo che sia il modo di operare ....

Se non vuoi usare un database, almeno devi partire da un vettore di squadre e da un array di incontri in cui inserire gli indici relativi alle squadre ...

Ma dovrai utilizzare un ciclo per generare i valori random, non dovrai farlo uno per uno ...