Visual Basic 6 - gioco grattacieli

Buongiorno a tutti

sulla scia del gioco calcolo enigmatico.... da qualche giorno mi sto cimentando con un altro gioco simpatico anch'esso
spesso visto nella settimana enigmistica e che è stato realizzato da alcuni progr. in excel.

il gioco consiste in un quadrato 4 x 4 dove all'esterno dei quadrati grigi con delle cifre indicano il numero di grattacieli che è possibile "vedere" da quella posizione di vedetta. I Grattacieli sono cosi' composti 10, 20, 30 o 40 piani e possono stare in una riga o in una colonna solo 1 volta.

vi allego anche il sito excel per chi potrebbe essere interessato per avere un idea migliore di quanto detto:

forumexcel.it/forum/threads/quizzzzzzzz-grattacieli.8687/

come potete vedere dall'immagine allegata io mi sono arenato nella seguente posizione in cui il prossimo passaggio dovrebbe essere quello di intercettare l'utimo 4 che manca nella griglia e che si troverebbe nella casella text11 poichè è l'unica in cui riga e colonna non possono andare
altri 4.

ho provato con una serie di if infiniti per trovare la soluzione ma niente da fare sono rimasto inceppato....

sotto riporto la prima parte di sviluppo per intercettare i grattaceli piu' alti e poi andando avanti sono arrivato nella posizione che vedete nell'immagine....

  
      'alto riempi cella con 4 se la cella dimostrativa è 1
      If TextA1.Text = 1 Then
      Text1.Text = 4
      Else
      Text1.Text = Text1.Text
      End If
      If TextB1.Text = 1 Then
      Text2.Text = 4
      Else
      Text2.Text = Text2.Text
      End If
      If TextC1.Text = 1 Then
      Text3.Text = 4
      Else
      Text3.Text = Text3.Text
      End If
      If TextD1.Text = 1 Then
      Text4.Text = 4
      Else
      Text4.Text = Text4.Text
      End If
      
      'destra riempi cella con 4 se la cella dimostrativa è 1
      If TextDD1.Text = 1 Then
      Text4.Text = 4
      Else
      Text4.Text = Text4.Text
      End If
      If TextD2.Text = 1 Then
      Text8.Text = 4
      Else
      Text8.Text = Text8.Text
      End If
      If TextD3.Text = 1 Then
      Text12.Text = 4
      Else
      Text12.Text = Text12.Text
      End If
      If TextDD4.Text = 1 Then
      Text16.Text = 4
      Else
      Text16.Text = Text16.Text
      End If
        
      'basso riempi cella con 4 se la cella dimostrativa è 1
      If TextD4.Text = 1 Then
      Text16.Text = 4
      Else
      Text16.Text = Text16.Text
      End If
      If TextC4.Text = 1 Then
      Text15.Text = 4
      Else
      Text15.Text = Text15.Text
      End If
      If TextB4.Text = 1 Then
      Text14.Text = 4
      Else
      Text14.Text = Text14.Text
      End If
      If TextAA4.Text = 1 Then
      Text13.Text = 4
      Else
      Text13.Text = Text13.Text
      End If
         
        
      'sinistra riempi cella con 4 se la cella dimostrativa è 1
      If TextAA1.Text = 1 Then
      Text1.Text = 4
      Else
      Text2.Text = Text2.Text
      End If
      If TextA2.Text = 1 Then
      Text5.Text = 4
      Else
      Text5.Text = Text5.Text
      End If
      If TextA3.Text = 1 Then
      Text9.Text = 4
      Else
      Text9.Text = Text9.Text
      End If
      If TextAA4.Text = 1 Then
      Text13.Text = 4
      Else
      Text13.Text = Text13.Text
      End If
      
      

qualcuno a qualche idea da suggerirmi???

grazie....

Si può vedere qualche schema di esempio (magari scannerizzato proprio da riviste di enigmistica), e una descrizione accurata delle regole da seguire? Personalmente non ho capito molto bene le finalità e le caratteristiche del gioco che hai riportato (e che non ho mai avuto modo di incontrare prima).

In ogni caso se scrivi cose come

Text1.Text = Text1.Text

Text2.Text = Text2.Text

vuol dire (se ce ne fosse bisogno) che devi prima studiare tanto e solo dopo tanta pratica con esercizi piu' semplici puoi passare a temi piu' complessi.

Postare qui del codice che non ha senso per un programma complesso sembra che sia fatto solo per fartelo scrivere dagli altri. Strano che Carlo non abbia provato a farlo, certo non lo faro' io.

Al signor Nessuno...

visto che Lei non capisce glielo ridico un'altra volta....
1- per me e' solo un passatempo
2- non ho mai ha detto o sperato che lei o qualcun altro dovesse fare il programma per me...
3- alla fine se lo vuol proprio sapere sono riuscito a farlo da solo...
4- se lei non risponde ai miei post fa un favore a me ed uno a se stesso visto la sua superiorita'
5- è concludo.... ma a lei non glielo ha detto mai Nessuno che non è Nessuno scenda dal suo piedistallo...


saluti....

Visto che e stato risolto chiudo.