Sudoku

[Gianluigi]

Io non ho mai giocato a sudoku, una domanda sulla ML mi ha incuriosito e sono andato a vedere su Wikipedia come funziona.
Non so se il gioco che viene mostrato è corretto, se ve ne capite potete dare un occhio e un parere?

Grazie

[kicco]

 

Io non ho mai giocato a sudoku...

Anch'io non "frequento" il gioco del sudoku. Mi sembra che nella sua essenzialità funzioni. Non sono previste segnalazioni di errore dovuto ad una duplicazione del numero, ma credo non fosse nel tuo intento realizzarla.
I commenti. I commenti ...  I commenti??? A già quelle righe scritte in umano... A sì! 
Ne metti per favore qualcuno perchè per me (che son de coccio) è un'impresa capire cos'hai fatto! 
 

[Gianluigi]

I commenti. I commenti ...  I commenti??? A già quelle righe scritte in umano... A sì! 

 
Hai ragione scusa, allego il progetto commentato. 
Commentandolo mi sono accorto di errori e manchevolezze.
Credo di averlo migliorato :-)

 

PS: Volevo precisare che trattasi di prototipo, se il gioco risulta corretto, poi lo si può completare con altre cose tipo la stampa, la finestra con la soluzione esatta.
Eventuali avvisi e quant'altro ci possa venire in mente.

 

[Gianluigi]

He, he sono proprio scemo 
Non avevo letto che all'interno delle griglie 3x3 non devono esserci numeri ripetuti.
Oibò il mistero si infittisce, ritorno a studiare.
In effetti sembrava troppo semplice da fare 

[kicco]

He, he sono proprio scemo 
Non avevo letto che all'interno delle griglie 3x3 non devono esserci numeri ripetuti.
Oibò il mistero si infittisce, ritorno a studiare.
In effetti sembrava troppo semplice da fare 

Ecco perché nel codice non trovavo come facevi a controllarle!!! 
 

[Gianluigi]

Ecco perché nel codice non trovavo come facevi a controllarle!!! 
 

Cambiando questo codice in Form_Open() possiamo partire da una composizione corretta:

Codice: [Seleziona]

  For r = 8 To 0 Step -1
    ii.Add(ii.Pop(), 0)
    For c As Integer = 0 To 8
      TableView1[r, c].Text = ii[c]
    Next
  Next
  For c = 0 To 8
    Swap TableView1[1, c].Text, TableView1[3, c].Text
    Swap TableView1[2, c].Text, TableView1[6, c].Text
    Swap TableView1[5, c].Text, TableView1[7, c].Text
  Next
  
  'Mix()

Poi penso che per mischiare basta rimanere nell'ambito delle terzine sia per riga che per colonna.

Qualche idea su come creare vari step di difficoltà, oltre che agendo sul numero delle caselle già compilate?

 

[vuott]

He, he sono proprio scemo 

[Gianluigi]

@vuott,
 
Allego nuova versione che dovrebbe tener conto delle terzine.