[Risolto] Combinazioni

[Tiziano60]

Salve a tutti

Sono sempre io!..quello del progetto sul lotto

Dall'ultima volta che ho chiesto il vostro aiuto, sono andato molto avanti con il mio progettino, però, adesso sono arrivato ad un punto morto e non ho la più pallida idea di come procedere

Si tratta di far visualizzare delle combinazioni in una listbox

Su Wikipedia ho trovato questa formula per calcolare le combinazioni http://it.wikipedia.org/wiki/Calcolo_combinatorio

..ma le combinazioni del  gioco del lotto, funzionano diversamente da quella formula, infatti, se ho 4  numeri, per esempio 1 2 3 4 e voglio un sistema integrale per giocarli come terno, il risultato sarà:

1 2 3
1 3 4
2 3 4
1 2 4

Il totale, è di 4 combilazioni

La formula per trovare quante combinazioni si possono formare inserendo la quantità di numeri a piacere, l'ho trovata e la faccio il   vedere il numero in una LabelText...il problema è che non so in quale modo far visualizzare in una listbox tutte le combinazioni generate.

C'è qualcuno che mi da uno spunto su come procedere?

[Ceskho]

Sul mio blog troverai un programma che si chiama meganalotto.....in pratica fa quello che vuoi tu....studiati i sorgenti e vedrai che ho risolto il tuo stesso problema con l'uso degli array (o vettori che dir si voglia!)

[Tiziano60]

Sul mio blog troverai un programma che si chiama meganalotto.....in pratica fa quello che vuoi tu....studiati i sorgenti e vedrai che ho risolto il tuo stesso problema con l'uso degli array (o vettori che dir si voglia!)

ha dato un'occhiata al tuo sorgente, ma ho visto che generi  le combinazioni in modo casuale

io, invece, voglio generare delle combinazioni specifiche con dei numeri che l'utente scrive in 5 textbox 

un mio collega, mi ha dato una mano in questo modo:

Codice: [Seleziona]

PUBLIC SUB Button1_Click()

DIM k, x, y, z AS Integer
K = 6
FOR x = 1 TO (k - 1)
FOR y = (x + 1) TO (k)
FOR Z = (y + 1) TO (k)

ListBox1.Add(x & " " & y & " " & z)
NEXT 
NEXT 
NEXT 
Label1.Caption = ListBox1.Count
END

questo codice, genera 20 terzine che vanno da 1 a 6, ma non è quello che voglio ottenere

[fsurfing]

Codice: [Seleziona]

  DIM array1 AS NEW Integer[]
  DIM i, i1, i2 AS Integer
  
  ListBox1.clear
  array1.Add(ValueBox1.Value)
  array1.Add(ValueBox2.Value)
  array1.Add(ValueBox3.Value)
  array1.Add(ValueBox4.Value)
  array1.Add(ValueBox5.Value)
  
  FOR i = 0 TO array1.Max - 2
      
      
      FOR i1 = i + 1 TO array1.Max - 1
      
            FOR i2 = i1 + 1 TO array1.Max
                  ListBox1.add(array1[i] & " " & array1[i1] & " " & array1[i2])
            NEXT 
      NEXT 
  NEXT 
      

[Tiziano60]

Codice: [Seleziona]

  DIM array1 AS NEW Integer[]
  DIM i, i1, i2 AS Integer
  
  ListBox1.clear
  array1.Add(ValueBox1.Value)
  array1.Add(ValueBox2.Value)
  array1.Add(ValueBox3.Value)
  array1.Add(ValueBox4.Value)
  array1.Add(ValueBox5.Value)
  
  FOR i = 0 TO array1.Max - 2
      
      
      FOR i1 = i + 1 TO array1.Max - 1
      
            FOR i2 = i1 + 1 TO array1.Max
                  ListBox1.add(array1[i] & " " & array1[i1] & " " & array1[i2])
            NEXT 
      NEXT 
  NEXT 
      

Problema risolto!
Mi avete insegnato qual'cosa di nuovo che non sapevo...( la prima parte del codice)

Chiedo scusa se ogni tanto vi rompo le scatole per cose banali , ma non sono un programmatore e non ho mai studiato questa materia

Quel poco che so, l'ho imparato attraverso 2 manuali di visual basic (uno compensa l'altro), i tutorial che trovo su YOUTUBE e tanta passione per questo linguaggio


Grazie a tutti

[fsurfing]

nessun problema se tutti quanti sapessimo tutto , questo forum non avrebbe vita!, poi tutti abbiamo iniziato in qualche modo, dovevi vedere cosa scriveva ceskho 2 anni fa !