Visual Basic 6 - gioco grattacieli

Forum - Visual Basic 6 - gioco grattacieli

maurizio74 (Normal User)
Pro

Messaggi: 117
Iscritto: 30/03/2009

Postato alle 12:22
Venerdì, 19/04/2024

Questo topic è stato chiuso dal moderatore

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:

https://www.forumexcel.it/forum/threads/quizzzzzzzz-grattac ...

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....

Codice sorgente - presumibilmente Delphi

'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....

maurizio74 ha allegato un file: Immagine.png (8693 bytes)
Clicca qui per guardare l'immagine

Ultima modifica effettuata da maurizio74 il 20/04/2024 alle 0:31

AldoBaldo (Member)
Guru

Messaggi: 702
Iscritto: 08/01/2015

Postato alle 23:18
Martedì, 23/04/2024

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).

ATTENZIONE! Sono un hobbista e l'affidabilità delle mie conoscenze informatiche è molto limitata. Non prendere come esempio il codice che scrivo, perché non ho alcuna formazione accademica e rischieresti di apprendere pratiche controproducenti.

nessuno (Normal User)
Guru^2

Messaggi: 6407
Iscritto: 03/01/2010

Postato alle 8:44
Mercoledì, 24/04/2024

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.

Ultima modifica effettuata da nessuno il 24/04/2024 alle 8:48

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

maurizio74 (Normal User)
Pro

Messaggi: 117
Iscritto: 30/03/2009

Postato alle 18:39
Giovedì, 25/04/2024

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....

Thejuster (Admin)
Guru^2

Messaggi: 2313
Iscritto: 04/05/2008

Postato alle 23:46
Giovedì, 25/04/2024

Visto che e stato risolto chiudo.

https://mire.forumfree.it/ - Mire Engine
C# UI Designer